Opened by StefanJ at 2006-03-30 19:27
User since
2006-03-29
1520 Artikel
BenutzerIn
2006-03-29
1520 Artikel
BenutzerIn
Eine einfache Implementation wäre, wenn du die komplette Datei in einem Array einliest, und dann von der ersten Zeile vom Zeilenanfang eine Substitution machst, und dort dann dein gewünschten Text einfügst.
Ob das unbedingt ein so guter weg ist sei mal dahingestellt. Die komplette Datei muss auch komplett im Speicher eingelesen, und neu geschrieben werden.
Ob das unbedingt ein so guter weg ist sei mal dahingestellt. Die komplette Datei muss auch komplett im Speicher eingelesen, und neu geschrieben werden.
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
#!/usr/bin/perl -w
die "Zu wenig Parameter\n" if @ARGV <= 0;
for (@ARGV)
{
open READ, "<", $_ or die $!;
@f = <READ>;
close READ;
$f[0] =~ s/^/Hiermit füge ich oben etwas hinzu\n/;
open WRITE, ">", $_ or die $!;
print WRITE @f;
close WRITE;
}
Nicht mehr aktiv. Bei Kontakt: ICQ: 404181669 E-Mail: perl@david-raab.de