#Du hast Datei mit folgendem Inhalt:
#12345
#67890
#abcde
#fghij#öffnen der datei
$FILE_NAME="c:\\tmp.txt";
if (!open(INFILE, $FILE_NAME))
{
print "$FILE_NAME not found!\n";
exit;
}
#file in das array laden
@FILE=<INFILE>;
#Beispiel:
# von 4. Zeile ab 2. Zeichen 2 Zeichen nach
# 2. Zeile kopieren ab Spalte 4
$QuellSpalte=3;
$QuellZeile=4;
$ZielZeile=2;
$ZielSpalte=4;
$Anzahl=2;
$QuellString=$FILE[$QuellZeile-1];
$ZielString=$FILE[$ZielZeile-1];
substr($ZielString, $ZielSpalte-1, $Anzahl) = substr($QuellString, $QuellSpalte-1, $Anzahl);
#Modifizierten String zurückschreiben
$FILE[$ZielZeile-1]=$ZielString;
#Jetzt kannst DU den File wieder zurückschreiben:
$OutPutFile="c:\\modified.txt";
open($OUTPUT, ">$OutPutFile")
or die "Can't create OutPutFile!";
foreach (@FILE) {
print $OUTPUT $_;
}
close ($OUTPUT);
exit;
Datum: 11.04.2005-16:24
String lesen & kopieren
