Gast+2008-07-11 15:14:34--

Hallo,
ich arbeite momentan mit perl 5.8.1
Irgendwo wird einen Text mit einem Entry abgefragt, das auch besondere Zeichen enthalten kann, wie "( usw.
Wenn ich mir den Text ausgeben lasse, kommt der String so, wie es eingegeben wurde. Z.B. "(Beispiel)"
Der Text muss mit einem Text verglichen werden, der sich in einer Datei befindet. Es wird abgefragt, ob der Text aus der Entry in der Zeilen der Datei vorkommt, oder einer Zeile gleich ist.
Obwohl beide Texte gleich sind, kommt bei

Code: (dl )

if($_ =~ $str1 || $_ eq $str1)

immer false raus...

Wenn ich anstatt den Text aus dem Entry zu holen es im Programm schreibe... mit '...', klappt das allerdings.
Was soll ich mit dem Text der Entry machen?

1
2
3
4
5
6
7
8

use Data::Dumper qw/Dumper/;

print "meine Strings vor dem Vergleich: \n";
print Dumper $_;
print Dumper $str1;

if( $_ =~ m/$str1/ ) {
}

Gast+2008-07-14 13:45:33--

Code: (dl )

1
2

print "\nvergleich: $_, str1: $str1.";
	if($_ =~ $str1){...}

        if($_ =~ /\Q$str1\E/){...}

        if($_  eq $str1){...}

Gast+2008-07-14 13:45:33--

if($_ =~ /\Q$str1\E/){...}[/perl]