Opened by scooby at 2004-08-09 13:50
User since
2004-08-09
5 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2004-08-09
5 Artikel
BenutzerIn
[quote=Crian,09.08.2004, 12:47]
(ungetestet)[/quote]
Dieser Code von dir Crian ist genau das was ich möchte!
Die gleiche Ausgabe soll jetzt auch noch darunter mit VIO kommen. Damit wäre die Datei ja nach ROT und VIO sortiert.
Ich würde die Ausgabe gerne in einer neuen .txt Datei speichern. Weiss leider nur nicht genau wo das "open" und "print" hinkommt?
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
#!/usr/bin/perl
use strict;
use warnings;
my $lastline = '';
while (<>) {
if (m~ROT~ or $lastline =~ m~ROT~) {
print;
}
$lastline = $_;
}
(ungetestet)[/quote]
Dieser Code von dir Crian ist genau das was ich möchte!
Die gleiche Ausgabe soll jetzt auch noch darunter mit VIO kommen. Damit wäre die Datei ja nach ROT und VIO sortiert.
Ich würde die Ausgabe gerne in einer neuen .txt Datei speichern. Weiss leider nur nicht genau wo das "open" und "print" hinkommt?