Opened by Andre at 2010-08-20 12:08
Hallo payx,
Danke für Deine Antwort! Ich habe es ausprobiert, leider funktioniert es auch nicht.
Dass es bei Dir funktioniert liegt daran, dass Du 'print' verwendest, um den String anzeigen zu lassen. Die 'print' Funktion verarbeitet das erste Escapezeichen als Steuerzeichen und entfernt dieses automatisch.
Verwendest Du stattdessen den Data::Dumper, siehst Du den tatsächlichen Inhalt des Strings und dieser enthält beide Backslashes ;-)
Gruß, Andre!
Last edited: 2010-08-20 13:39:39 +0200 (CEST)
Danke für Deine Antwort! Ich habe es ausprobiert, leider funktioniert es auch nicht.
Dass es bei Dir funktioniert liegt daran, dass Du 'print' verwendest, um den String anzeigen zu lassen. Die 'print' Funktion verarbeitet das erste Escapezeichen als Steuerzeichen und entfernt dieses automatisch.
Verwendest Du stattdessen den Data::Dumper, siehst Du den tatsächlichen Inhalt des Strings und dieser enthält beide Backslashes ;-)
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;
my $string = '\\w';
$string =~ s/(\\)+/\\/g;
print "PRINT: $string\n";
print Dumper "DUMPER: ".$string;
Ergebnis:
PRINT: \w
$VAR1 = 'DUMPER: \\w';
Gruß, Andre!
Last edited: 2010-08-20 13:39:39 +0200 (CEST)