perl skript ..

S

smileysam

Guest
Teď se snaží kopírovat obsah jednoho souboru do jiného.
Kód nefunguje a visí a obsah není zkopírován do souboru 2
Mám vložit kód.Veškeré připomínky budou užitečné.díky.

# Zkopírovat jeden soubor do jiného.
$ len = $ # ARGV 1;
print ($ len);
print ( "$ argv [0] \ n");
print ( "$ argv [1] \ n");
if ((open (fileptr1, $ ARGV [0])) == 0)
(
die ( "Chyba při otevírání souboru");
)
jiné
(
print ( "Soubor 1 otevřen \ n");
)
print ( "Teď tady");
if ((open (fileptr2 ,">>".$ argv [1])) == 0)
(
die ( "Chyba při otevírání souboru");
)
jiné
(
print ( "Soubor 2 otevřen \ n");
)
while (fileptr1 ne "")
(
$ input = <fileptr1>;
print ($ input);
vytisknout fileptr2 ($ input);
)
close (fileptr1);
close (fileptr2);

 
Tento kód funguje ok.

Kód:eek:pen (IN, $ ARGV [0]) | | die "Can't open $ argv [0] pro čtení: $!";

open (OUT, "> $ argv [1]") | | die "Nelze vytvořit $ argv [1]: $!";while (<IN>) (

vytisknout $ _;

)close (IN) | | die "Cant zavřít $ argv [0]: $!";

close (OUT) | | die "Cant zavřít $ argv [1]: $!";
 

Welcome to EDABoard.com

Sponsor

Back
Top