copy a picture....

[Kristofer Wolff]

hi all,

i tryed to copy a picture with:

open(NEU, ">./template/pictures/$IN{new_template_name}$suf") or err("Fehler
beim anlegen einer Datei.");
                open(ALT, "<$IN{selectedtemplate}") or err("Fehler beim öffnen einer
Datei.");
                        while ($Bytes = read(ALT,$Buffer,1024))
                        {
                                binmode NEU;
                print NEU $Buffer;
                }
                close(ALT);
                close(NEU);
                unlink("$IN{selectedtemplate}") or err("Fehler beim löschen der Datei:
$IN{selectedtemplate} nach Umbenennung in $IN{new_template_name}");


but i've got an error opening the file than...

any suggestion ?

_______________________________________________
Perl-Win32-Web mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-web