關(guān)于如何輸入指定文件的問題

raoweijian

1. #!usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. die "$!" if(@ARGV!=2);
   
5. my ($source_file,$target_file);
   
6. $source_file = shift;
   
7. $target_file = shift;
   
8. open IN,"<$source_file" or die "Cannot open source file\n";
   
9. open OUT,">$target_file" or die "Cannot open target file\n";
   
10. while(<IN>){
    
11.     chomp;
    
12.     print OUT "$_\n";
    
13. }
    

復(fù)制代碼

這段代碼不能執(zhí)行，到第四行退出了。
    不知道關(guān)于@ARGV的用法是怎樣的？

zhaodelu1

試了一下可以執(zhí)行啊，@ARGV!=2意思是命令行參數(shù)個(gè)數(shù)不等于2，在第四行退出是因?yàn)槟忝�令行參�?shù)指定的不對(duì)，按你的腳本應(yīng)該是這樣./script.pl source_file target_file

raoweijian

zhaodelu1 發(fā)表于 2013-04-08 16:02
試了一下可以執(zhí)行啊，@ARGV!=2意思是命令行參數(shù)個(gè)數(shù)不等于2，在第四行退出是因?yàn)槟忝�令行參�?shù)指定的不對(duì)，按 ...

現(xiàn)在會(huì)了。。 之前以為是perl  XXX.pl
然后再輸入文件。。