Opened by Arasiel at 2004-08-06 11:43
User since
2003-08-04
2145 Artikel
ModeratorIn + EditorIn
2003-08-04
2145 Artikel
ModeratorIn + EditorIn
@Renee: An deinen Beispielen stoert mich etwas, dass immer die Datei komplett in den Speicher gelesen wird. Ich habe teilweise mit Logdateien >100 MB zu tun, da wuerde Perl so leicht die Graetsche machen.
Ich schreibe Skripte auch lieber so, dass sie ihr Argument auf der Kommandozeile erhalten und nicht fest kodiert, und Ausgaben werden auf STDOUT geschrieben. So laesst sich das Programm sowohl mit Eingabe- und Ausgabedatei aufrufen (meinprogramm eingabe.dat > ausgabe.dat) als auch in einer Pipe (irgendeinprogramm | meinprogramm | weiteresprogramm). Aber ich bin eben auch Kommandozeilen-User ...
Hier mein Vorschlag:
Ich schreibe Skripte auch lieber so, dass sie ihr Argument auf der Kommandozeile erhalten und nicht fest kodiert, und Ausgaben werden auf STDOUT geschrieben. So laesst sich das Programm sowohl mit Eingabe- und Ausgabedatei aufrufen (meinprogramm eingabe.dat > ausgabe.dat) als auch in einer Pipe (irgendeinprogramm | meinprogramm | weiteresprogramm). Aber ich bin eben auch Kommandozeilen-User ...
Hier mein Vorschlag:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
#!/usr/bin/perl
use strict;
use warnings;
$/ = "\n[";
while (<>) {
next unless /is Changed to/;
chomp;
s/\s*\n\s*/; /g;
s/^\[?/[/;
print $_, "\n";
}