comment changer \\ n en \ n en perl

Question

J'ai une chaîne $ incluant une barre de caractères spéciale comme "1234 \\ n567 \\ t";
Remarque "\\ n" et "\\ t" sont tous deux char, et non trois caractères. alors quand ils sont affichés, ils sont affichés comme "\ n" et "\ t".

Pour une raison quelconque, j'ai besoin de changer la chaîne comme: "1234 \ n567`efg \ t". Comment faire cela d'une manière simple?
Voici mon code, je pense que ce peut être amélioré:

  @src_array = split(//, $string); 
      @des_array =();  
      $size = $#src_array + 1; 
      $converting = 0; 
      for ($i = 0, $j = 0; $i< $size; $i++){ 
       if ($converting == 1) { 
          # convert and replace '\\n' with '\n' 
        $des_array[$j++] = $slash_char{$src_array[$i]}; 
        $converting = 0; 
       } 
       elsif ($src_array[$i] == '\\'){ 
        $converting = 1; 
       } 
       else { 
        $des_array[$j++] = $src_array[$i]; 
       } 
      } 

my %slash_char = ( 
     'a' => '\a', 
     'b' => '\b'  
... 
); 

Answer 1

Pourquoi ne pas:

s/\\n/\n/g; 
s/\\t/\t/g; 

Ce serait bien d'utiliser tr///, mais qui ne peut pas transformer deux personnages à un.

Answer 2

Eh bien, la voie facile est d'utiliser String::Escape:

use String::Escape 'unbackslash'; 

my $string = "1234\\n567\\t"; 
my $new_string = unbackslash($string);