Mailinglist Archive: opensuse-de (2495 mails)

[illsen@xxxxxxxxxxxx (Ilja Pavkovic)]

Hallo,

> Ich habe eine größere Datei, in der schön sauber untereinander in den
> Zeilen Daten stehen. Nun soll folgendes passieren:
> 
> Die Datei soll aufgespalten werden in einzelne Dateien, die jeweils eine
> Zeile enthalten. Der Dateiname soll z.B. daten.001, daten.002 etc. heißen.
#!/usr/bin/perl

if(scalar @ARGV =! 1) {
    die "usage: $0 datei\n";
}

$n = 0;
$File = $ARGV[0];
open FH, $File || die "$0: Could not open file $File.\n";
while(defined($line = <FH>)) {
        $newFile = sprintf (".000",$File,++$n);
        open FH2, ">$newFile" || die "Could not open file $newFile.\n";
        print FH2 $line;
        close FH2;
        $n++
}
close FH;
exit 0;

--
Um aus der Liste ausgetragen zu werden, eine Mail an majordomo@xxxxxxxx
schicken, mit dem Text: unsubscribe suse-linux