kleines zipping-prog: files zippen - #72447 (Allgemeines zu Perl)

topeg

2006-12-09 22:56

User since
2006-07-10
2611 Artikel
BenutzerIn

user image

statt:

Code: (dl )

1
2
3

$usage = "cp /dev/null $workdir/$file";
#system ("$usage");
print $usage;

solltest du:

Code: (dl )

unlink(workdir/$file);

verwenden, das ist schneller und einfacher. :-)