perl -n -e 已验证命令行方式正确 但在perl中执行报错

enna56

有这样一条去重复行的命令，我在命令行输入，无报错且结果正确，

perl -n -e 'if (/^\s*$/){print;next};if (exists($hash{$_})) {next} else {$hash{$_}=1;print}' /tmp/digdig/apache/tosfstat1tmp > /tmp/digdig/apache/11111.txt

可是当我要把它放在perl里面的时候，

#!/usr/bin/perl

use strict;
use Time::Local;
use warnings;

perl -n -e 'if (/^\s*$/){print;next};if (exists($hash{$_})) {next} else {$hash{$_}=1;print}' /tmp/digdig/apache/tosfstat1tmp > /tmp/digdig/apache/11111.txt

会报错如下：
-bash-4.1$ ./del_conflict.pl
Bareword found where operator expected at ./del_conflict.pl line 28, near "11111.txt"
        (Missing operator before txt?)
syntax error at ./del_conflict.pl line 28, near "n -e "
Execution of ./del_conflict.pl aborted due to compilation errors.
-bash-4.1$

不知这是要设置什么嘛

多谢~~

zhlong8

你这么写应该叫 shell 脚本，而不是 Perl 脚本

lokchungk

You should do something like this

1. #!/usr/bin/perl -n
   
2. use Time::Local;
   
3. if (/^\s*$/){print;next};if (exists($hash{$_})) {next} else {$hash{$_}=1;print}

复制代码

enna56

回复 2# zhlong8

嗯嗯  是滴  请问要怎么把这种shell中的命令  改在可以在perl里面执行呢？


   

enna56

回复 3# lokchungk


是要这样吗

my $tosfstat1tmp = $localdir."tosfstat1tmp";
open (FILEHANDLE_1tmp,$tosfstat1tmp) or die "cannot open logFile: $tosfstat1tmp";

while(<FILEHANDLE_1tmp>){
my %hash;
if (/^\s*$/){print;next};if (exists($hash{$_})) {next} else {$hash{$_}=1;print}
}
close (FILEHANDLE_1tmp);


这里的print要怎么可以重定向到另一文件里面哪？我上面这样做的话，只是打印出$tosfstat1tmp的内容，也没有去重复行

   

lokchungk

1. >cat test.pl        
   
2. #!/usr/bin/perl -ln
   
3. print && (/^\s*$/ ? () : $h{$_}++ ) if ! exists $h{$_}
   
4. >cat test.txt
   
5. abc
   
6. def
   
7. 
   
8. abc
   
9. def
   
10. ghi
    
11. ghi
    
12. jkl
    
13. >perl test.pl < test.txt
    
14. abc
    
15. def
    
16. 
    
17. ghi
    
18. jkl
    

复制代码

quanpai

用 system 或者 ``

1. #!/usr/bin/perl
   
2. 
   
3. my $output = `ls -lrt`;
   
4. print $output;
   
5. 
   
6. system("ls -lrt > output.txt");

复制代码

enna56

回复 7# quanpai


好的好的  多谢偶~~