如何检测到pipe的输入

ttcn_cu

如下程序
my @Args;
while ( $_ = shift @ARGV){
    push @Args, glob($_);
}
@Args = uniq @Args;
print Dumper \@Args;
### 依次处理 ARGV的输入
### 继续处理pipe的输入
问题是如何在此处检测到有pipe的输入

用例1
1 foo.pl a.txt
处理a.txt
2. foo.pl
直接退出
3. cat log.txt | foo.pl a.txt b.txt
依次处理 a.txt b.txt （方式与pipe进来的的不同）
最后处理 pipe的输入

jason680

回复 1# ttcn_cu

STDIN
or simple way by
<>
   
refer to: perldoc perlop

ttcn_cu

jason680 发表于 2014-06-19 15:53
回复 1# ttcn_cu

STDIN

STDIN会卡住

Diamond不是我要的，也会卡住
我对文件和pipe的处理机制不同，不能用一个循环来套用

jason680

回复 3# ttcn_cu

try follow ways:

1. vec and select

2. IO::Select and can_read

3. alarm   

rubyish

1. #!/usr/bin/perl -w
   
2. use 5.018;
   
3. 
   
4. die "\@ARGV == 0 : DIE$/" if @ARGV == 0;
   
5. 
   
6. say "dosomething ARGV";
   
7. say 'You have ', ~~ @ARGV, " ARGV files";
   
8. 
   
9. while ( my $file = shift @ARGV ) {
   
10.     say $file;
    
11. }
    
12. 
    
13. exit unless -p STDIN;
    
14. 
    
15. say "dosomething STDIN";
    
16. 
    
17. while (<>) {
    
18.     print "Hello\t$_";
    
19. }

复制代码

ttcn_cu

jason680 发表于 2014-06-19 16:21
回复 3# ttcn_cu

try follow ways:

试了半天原来IO::Select 在Win下只能支持socket，汗
还好我可以放弃在win下的这个需求，只要Linux的设备能实时转换就行了，Win下只需处理log 文件

my $Select = IO::Select->new(\*STDIN);
if ($Select->can_read(0.5)) {
    while (<STDIN>) {
        say "from PIPE",$_;
    }
}

ttcn_cu

回复 5# rubyish


    你这个过不了scenario 2

rubyish

回复 7# ttcn_cu
update~

   

ttcn_cu

回复 8# rubyish

原来还有 -p的用法，之前只用过 -e -f -t -l

    赞！这下两个系统都能用了  感谢大侠

http://perldoc.perl.org/functions/-X.html

google 把minus 符号理解成排除，难怪我搜了好久都没找到文档