2010-01-18T08:24:23 Brenner

Code: (dl )

1
2
3
4
5
6
7
8
9
10
11

open(IMPORTDFSFILE,"import.xml");
my @lines = <IMPORTDFSFILE>;

open(EXPORTDFSFILE,">exporttest.xml");
select (EXPORTDFSFILE);
print @lines;
close(EXPORTDFSFILE);


close(IMPORTDFSFILE);
exit(0);

Zum Thema open kann ich dir folgendes empfehlen: http://reneeb-perlblog.blogspot.com/search/label/open