topeg+2007-11-03 14:50:25--

Code (perl): (dl )

1
2
3
4
5
6
7

#...
 open(LESEN,"<","C://Freunde/$Dateiname");
 #ist wo für jede Datei deren Inhalt abgespeichert wird
 my @inhalt=<LESEN>;
 # inhalt zusammenfügen:
 my $Data=join(' ', @inhalt);
}

1
2

# slurpe Inhalt der Datei
my $Data = do{ local (@ARGV,$/) = "C:/Freunde/$Dateiname"; <>};