[cologne-pm] brauche Hilfe: regulärer Ausdruck
Susan Dittmar
Susan.Dittmar at gmx.de
Mi Jun 3 08:53:57 PDT 2009
Hallo Ihr,
ich komme nicht weiter. Irgendwie verstehe ich nicht, warum Perl der
Meinung ist, dieser Text passe nicht zum vorgegebenen Muster.
-------------------------
#!/usr/bin/perl -w
use strict;
use Regexp::Common;
my $Text = << 'EOT';
{
\begin{center}
irgendein Gelaber...
\end{center}
}
und noch so ein bischen Müll...
EOT
my $Curly = '{((?:[^{}]|$RE{balanced}{-parens=>"{}"})*)}';
unless ($Text =~ m/^(\s*)$Curly(.*)$/s) {
print STDERR "Text passt nicht aufs Muster!\n";
exit(1);
}
print "Alles in Butter!\n";
exit(0);
-------------------------
Kann mir einer von Euch weiterhelfen?
Danke im Voraus,
Susan
-------------- nächster Teil --------------
Ein Dateianhang mit Binärdaten wurde abgetrennt...
Dateiname : nicht verfügbar
Dateityp : application/pgp-signature
Dateigröße : 189 bytes
Beschreibung: nicht verfügbar
URL : <http://mail.pm.org/pipermail/cologne-pm/attachments/20090603/2f0ecbd3/attachment.bin>
Mehr Informationen über die Mailingliste cologne-pm