perl scenarijų ..

[smileysam]

Iam bando kopijuoti turinį vieno failo į kitą.
Kodas neveikia ir pakimba ir turinys yra ne kopijuojami į failą 2
Turiu įterptas kodas.Bet koks komentaras bus naudinga.ačiū.

# Nukopijuoti vieną failą į kitą.
$ len = $ # ARGV 1;
print ($ ilg);
print ( "$ ARGV [0] \ n");
print ( "$ ARGV [1] \ n");
if ((atviras (fileptr1, $ ARGV [0])) == 0)
(
die ( "Klaida atveriant failą");
)
kitas
(
print ( "File 1 atidarė \ n");
)
print ( "Iam here");
if ((atviras (fileptr2 ,">>".$ ARGV [1])) == 0)
(
die ( "Klaida atveriant failą");
)
kitas
(
print ( "Failo atidaryti 2 \ n");
)
while (fileptr1 ne "")
(
$ input = <fileptr1>;
print ($ input);
Spausdinti fileptr2 ($ input);
)
Close (fileptr1);
Close (fileptr2);

 

[btbass]

Šis kodas veikia gerai.

Kodasopen (IN, $ ARGV [0]) | | die "Cannot open $ ARGV [0] skaityti: $!";

open (OUT, "> $ ARGV [1]") | | die "Nepavyko sukurti $ ARGV [1]: $!";while (<IN>) (

Spausdinti $ _;

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

close (out) | | die "Cant uždaryti $ ARGV [1]: $!";