Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision 20515902

Von Moritz Bunkus vor mehr als 17 Jahren hinzugefügt

  • ID 2051590296cad6f6037c5dae5f20993d43953c9d
  • Vorgänger 99ed8abf
  • Nachfolger c03fba33

Das Escapen von Ausrufezeichen darf nicht durch zwei Ausrufezeichen geschehen, weil die Rückwandlung sonst eventuell falsch verläuft.
Beispiel:
abc!nop -> abc!!nop -> abc!\nop

Unterschiede anzeigen:

SL/MoreCommon.pm
11 11 
  $main::lxdebug->enter_sub();
12 12 

  		




  13
  13
  
    
  my $old_form = YAML::Dump($main::form);


  		




  14
  
  
    
  $old_form =~ s|!|!!|g;


  		




  
  14
  
    
  $old_form =~ s|!|!:|g;


  		




  15
  15
  
    
  $old_form =~ s|\n|!n|g;


  		




  16
  16
  
    
  $old_form =~ s|\r|!r|g;


  		




  17
  17
  
    

  		




  ......




  31
  31
  
    

  		




  32
  32
  
    
  $old_form =~ s|!r|\r|g;


  		




  33
  33
  
    
  $old_form =~ s|!n|\n|g;


  		




  34
  
  
    
  $old_form =~ s|!!|!|g;


  		




  
  34
  
    
  $old_form =~ s|!:|!|g;


  		




  35
  35
  
    

  		




  36
  36
  
    
  my $new_form = YAML::Load($old_form);


  		




  37
  37
  
    
  map { $form->{$_} = $new_form->{$_}; } keys %{$new_form};


  		












Auch abrufbar als:  Unified diff