Perl - how to copy file in perl?

2 points
Created by:

Using perl it is possible to copy file in following way.

1. Rewrite one file to another file example file:


scalar(@ARGV) == 2 || die('Expected two arguments (file paths).');

$iname = $ARGV[0];
$oname = '>' . $ARGV[1];

open(ifile, $iname) || die('Input file error!');
open(ofile, $oname) || die('Output file error!');

while($line = <ifile>)
        print ofile $line;
        #print $line;

close ifile;
close ofile;


Hey 👋
Would you like to know what we do?
  • Dirask is a friendly IT community for learners, professionals and hobbyists to share their knowledge and help each other in extraordinary easy way.
  • We welcome everyone,
    no matter what the experience,
    no matter how basic the question is,
    this community will help you.