Learning Perl 學習筆記

標籤：perl

1.檔案讀寫與命令列參數

#!/usr/bin/perl

use strict;

if (@ARGV < 2){

    die  "USAGE: perl $0 inputfile outfile\n";

}

my ($infile) = @ARGV[0];

my ($outfile) = @ARGV[1];

open my $infile_fh,‘‘, "$infile" || die("Can‘t open the file!");

open my $outfile_fh, ‘>>‘, "$outfile"|| die("Can‘t open the file!");

while(<$infile_fh>){

    #chomp;

    print $outfile_fh  $_;

}

close($outfile_fh);

close($infile_fh);

本文出自 “yiyi” 部落格，請務必保留此出處http://heyiyi.blog.51cto.com/205455/1596188

Learning Perl 學習筆記