Opened by Duff at 2007-07-25 15:33
User since
2006-10-06
283 Artikel
BenutzerIn
2006-10-06
283 Artikel
BenutzerIn
Hallo,
komme irgendwie nicht weiter und finde meinen Denkfehler noch nicht.
Ich habe ein kl. Skript:
und die Datei:
Wenn ich nun das Skript auf die Datei ausführe, erhalte ich:
Soweit, so gut. Ich möchte aber solche "einfachen" Sachen lieber als perl-Einzeiler schreiben, wie z.B.
Das funktioniert allerdings nicht. Wo liegt mein Denkfehler???
komme irgendwie nicht weiter und finde meinen Denkfehler noch nicht.
Ich habe ein kl. Skript:
Code: (dl
)
1
2
3
4
5
6
7
8
#!/usr/bin/perl -w
use strict;
while(<>) {
if ($_ =~ m/^\w+(.*)\)$/g) {
print $1,"\n";
}
}
und die Datei:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
bdl bal 0912 91u2u3 kj 33 9)
bdl bal 0912 91u2u3 kj 33 9)
21jbdl bal 0912 91u2u3 kj 33 900
bdl bal 0912 91u2u3 kj 33 9)
. bdl bal 0912 91u2u3 kj 33 9)
bdl bal 0912 91u2u3 kj 33 9)
2jbdl bal 0912 91u2u3 kj
?bdl bal 0912 91u2u3 kj 33 9)
bdl bal 0912 91u2u3 kj 33 9)kajkljk kj
78bdl bal 0912 91u2u3 kj 33 9)9
bdl bal 0912 91u2u3 kj 33 9)
Wenn ich nun das Skript auf die Datei ausführe, erhalte ich:
Code: (dl
)
1
2
3
4
5
bal 0912 91u2u3 kj 33 9
bal 0912 91u2u3 kj 33 9
bal 0912 91u2u3 kj 33 9
bal 0912 91u2u3 kj 33 9
bal 0912 91u2u3 kj 33 9
Soweit, so gut. Ich möchte aber solche "einfachen" Sachen lieber als perl-Einzeiler schreiben, wie z.B.
Code: (dl
)
perl -ne 's/^\w+(.*)\)$/$1/g' test.txt
Das funktioniert allerdings nicht. Wo liegt mein Denkfehler???
D'OH
Daniel
Daniel