While Schleife & Filehandle Fehler (gelöst) - #154543 (Allgemeines zu Perl)

rosti

2011-11-29 21:58

User since
2011-03-19
3218 Artikel
BenutzerIn

hi ;)

untenstehend noch eine kleine Übung. Das Script macht nicht ganz das, was Deine Aufgabenstellung war, ist jedoch ein schönes kleines Beispiel dafür, was Perl mit Dateien so machen kann... Aufgabe: Kriege raus, was genau macht das Script (und warum).

Code (perl): (dl )

#!/usr/bin/perl


use strict;
use warnings;
use IO::File;

if(not @ARGV){
        print qq(use $0 file1 file2 ...\n);
}
else{
        my $fh = IO::File->new;
        $fh->open("fsum.txt", O_CREAT|O_RDWR|O_TRUNC) or die "Kann Datei 'fsum.txt' nicht anlegen, $!";
        while(<>){ $fh->print($_) }
        $fh->close;
}