Opened by U at 2013-08-08 09:22
User since
2005-01-17
14748 Artikel
Admin1
![[Homepage]](/battie/theme/default/homepage.gif)
2005-01-17
14748 Artikel
Admin1
qr erzeugt ein Regex, nicht qw.
U:\>perl
$line = "THEMA Blah blubb 1233foo \r\n";
print ($line =~ qr{THEMA\s*.*(\d{4}).*\r\n$});
^Z
1233
U:\>perl
$line = "THEMA Blah blubb 1233foo \r\n";
print ($line =~ qr{THEMA\s*.*(\d{4}).*\r\n$});
^Z
1233