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);
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);