XML::Simple - Escaping - #140802 (Fragen zu Perl-Modulen)

topeg

2010-08-20 14:02

User since
2006-07-10
2611 Artikel
BenutzerIn

user image

Dein Beispiel hat ein paar Macken. versuch es mal besser so:

Code (perl): (dl )

#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;

my $old_s = <DATA>;
chomp($old_s);
my $new_s = $old_s;
$new_s=~ s/\\\\/\\/g;

print "PRINT:\n$old_s\n$new_s\n";
print "DUMPER:\n".Dumper $old_s, $new_s;

__DATA__
\\w

dann bekommst du das richtige Ergebniss:

Code: (dl )

PRINT:
\\w
\w
DUMPER:
$VAR1 = '\\\\w';
$VAR2 = '\\w';

Denke Daran, dass Dumper \ zu \\ macht und in '...' werden \\ zu \.