skrypt perla ..

[smileysam]

Teraz stara się skopiować zawartość jednego pliku do innego.
Kod nie działa i zawiesza i treści nie są kopiowane do pliku 2
Mam wklejony kod.Każdy komentarz będzie przydatna.dzięki.

# Skopiować jeden plik na inny.
$ len = $ # ARGV 1;
print ($ len);
print ( "$ ARGV [0] \ n");
print ( "$ ARGV [1] \ n");
if ((open (fileptr1, $ ARGV [0])) == 0)
(
die ( "Błąd otwarcia pliku");
)
w przeciwnym razie
(
print ( "Plik 1 otwarty \ n");
)
print ( "Teraz tutaj");
if ((open (fileptr2 ,">>".$ ARGV [1])) == 0)
(
die ( "Błąd otwarcia pliku");
)
w przeciwnym razie
(
print ( "File 2 otwarty \ n");
)
while (fileptr1 ne "")
(
$ input = <fileptr1>;
print ($ input);
drukuj fileptr2 ($ input);
)
close (fileptr1);
close (fileptr2);

 

[btbass]

Ten kod działa ok.

Kodpen (IN, $ ARGV [0]) | | die "Can't open $ ARGV [0] do odczytu: $!";

open (OUT, "> $ ARGV [1]) | | die" Nie można stworzyć $ ARGV [1]: $! ";while (<IN>) (

print OUT $ _;

)close (IN) | | die "Cant blisko $ ARGV [0]: $!";

close (OUT) | | die "Cant blisko $ ARGV [1]: $!";