关于如何输入指定文件的问题

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. }
    

复制代码

这段代码不能执行，到第四行退出了。
    不知道关于@ARGV的用法是怎样的？

zhaodelu1

试了一下可以执行啊，@ARGV!=2意思是命令行参数个数不等于2，在第四行退出是因为你命令行参数指定的不对，按你的脚本应该是这样./script.pl source_file target_file

raoweijian

zhaodelu1 发表于 2013-04-08 16:02
试了一下可以执行啊，@ARGV!=2意思是命令行参数个数不等于2，在第四行退出是因为你命令行参数指定的不对，按 ...

现在会了。。 之前以为是perl  XXX.pl
然后再输入文件。。