Opened by Kalmuecke at 2006-10-14 22:22
User since
2006-03-29
1520 Artikel
BenutzerIn
2006-03-29
1520 Artikel
BenutzerIn
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
my @file = (
'mein text ist so lang: Error 123 hier geht der text weiter',
'mein text ist so lang: Error 99 hier geht der text weiter',
);
my @fehler;
for (@file) {
s/(Error \d+)//g;
push @fehler, $1;
}
print "$_\n" for @file;
print "$_\n" for @fehler;
Ausgabe:
Code: (dl
)
1
2
3
4
mein text ist so lang: hier geht der text weiter
mein text ist so lang: hier geht der text weiter
Error 123
Error 99
Wenn du direkt eine Datei bearbeiten möchtest empfiehlt sich Tie::File zu benutzen.\n\n
<!--EDIT|sid burn|1160852115-->
Nicht mehr aktiv. Bei Kontakt: ICQ: 404181669 E-Mail: perl@david-raab.de