Perl Upload Script - #151379 (Perl/CGI)

Molaf

2011-08-09 14:50

User since
2007-10-11
119 Artikel
BenutzerIn
[default_avatar]

Noch was:
Zeile ~ 31 (die Darstellung der Zeilennummer läuft bei mir etwas und ich zähle jetzt nicht alles Codezeilen durch).

Statt dem Aufruf des externen Programms 'cp' mit

Code (perl): (dl )

system ("cp $old, $new");

wäre es besser Du nimmst das copy aus File::Copy, was ja extra deswegen eingebunden wurde:

Code (perl): (dl )

copy( $old, $new );