Hallo Assa!
open (DATEI, $dateiname) or die "Datei kann nicht ge\x94ffnet werden";
Es ist oft ratsam, sich den Grund eines fehlerhaften open ausgeben zu lassen:
die "Datei kann nicht ge\x94ffnet werden, weil: $!";
if ($text =~m/^(6\d{4,8})/q) {
.............................^
was soll das für ein Flag sein? Bekannt sind mir nur die hier. Liegt das vielleicht daran? ;)
if m/pattern/;
...^
Da die Slahs die Default-Delimiter sind, brauchst Du m hier nicht. Erst wenn Du andere benutzt, z.B.:
if m!pattern!;
Viele Grüße aus Frankfurt/Main,
Patrick
--

_ - jenseits vom delirium - _
[link:hatehtehpehdoppelpunktslashslashwehwehwehpunktatomicminuseggspunktcomslash]
Nichts ist unmöglich? Doch!
Heute schon gegökt?

_ - jenseits vom delirium - _
[link:hatehtehpehdoppelpunktslashslashwehwehwehpunktatomicminuseggspunktcomslash]
Nichts ist unmöglich? Doch!
Heute schon gegökt?