StringCompare Problem - #173859 (Allgemeines zu Perl)

topeg

2014-03-05 22:40

User since
2006-07-10
2611 Artikel
BenutzerIn

user image

Benutze mal Data::Dumper zur Ausgabe:

Code (perl): (dl )

1
2
3

use Data::Dumper;
$Data::Dumper::Useqq=1;
print Dumper($c);

Wahrscheinlich gibt es noch nicht darstellbare Zeichen wie \000. Es kann auch eines der anderen Zeichen mit einem Wert kleiner 8 sein.

EDIT:
Und die Regexp ist etwas seltsam.

Code (perl): (dl )

$c =~ /^\[(.)*\@(.)*\ \~\]\$ $

(.)* sagt finde ein beliebiges Zeichen keinmal oder beliebig häufig und schreib das Zeichen in $1. Was du wohl eher willst ist:(.*) finde einen beliebig langen String von Zeichen und schreibe den String in $1

Also:

Code (perl): (dl )

$c =~ /^\[(.*)\@(.*) ~\]\$ $

Last edited: 2014-03-05 22:49:19 +0100 (CET)