[cologne-pm] brauche Hilfe: regulärer Ausdruck

[Susan Dittmar]

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>