 Zeile einfügen (1. Zeile in Datei)
|
Seitenanfang |
| Hallo, ich bräuchte mal eure Unterstützung. Ich muss innerhalb eines Ordners in allen Dateien (txt) eine Zeile einfügen. Allerdings muss diese Zeile ganz oben eingefügt werden. Hat jemand eine Idee?
Danke! Traxx
Datum: 14.10.2006-04:07
|
re: Zeile einfügen (1. Zeile in Datei)
|
Seitenanfang |
#!/usr/bin/perluse strict;
use warnings;
use Tie::File; my $dir = '/path/to/directory/';
opendir DIR, $dir or die $!;
my @files = grep{/\.txt$/}readdir DIR;
closedir DIR; for my $file(@files){
my $path = $dir . $file;
tie my @array,'Tie::File',$path or die $!;
$array[0] = "Neue Zeile\n";
untie @array;
}
Datum: 14.10.2006-09:17
|
re: Zeile einfügen (1. Zeile in Datei)
|
Seitenanfang |
renee, ich denke, du meinst eher
unshift @array, "Neue Zeile\n";
es hieß ja "zeile oben einfügen" und nicht "erste zeile überschreiben"
Datum: 14.10.2006-14:53
|
re: Zeile einfügen (1. Zeile in Datei)
|
Seitenanfang |
| Danke für eure Hilfe. Ich habe es leider mit Perl noch nicht hinbekommen. Aber mit vbs habe ich es jetzt hinbekommen. Werde aber weiter testen das auch mit Perl zu schaffen.
Datum: 14.10.2006-15:17
|
re: Zeile einfügen (1. Zeile in Datei)
|
Seitenanfang |
| stimmt...
Datum: 14.10.2006-16:08
|
