perl one liner问题，循环打印一行里面所有匹配结果

Kotokz

最近自学perl，正好同事让我帮忙写个命令来拿一些数据，所以就想用perl练习练习
结果不太顺利。。思路死胡同了，向大家学习学习

假设n个文件，里面都是数字＋小写字母组成的单词，要把所有单词取出来并且跟文件名一起打印出来。

文件例子如下

1. cat abc.txt
   
2. 123abc2993kkdi2999baccc29301mdkci

复制代码

1. cat cde.txt
   
2. 222dsb333nkn444kwjekj

复制代码

与其打印结果如下

1. abc.txt abc kkdi baccc mdkci
   
2. cde.txt dsb nkn kwjekj
   

复制代码

1. erl -ne 'printf $ARGV if/[a-z]+/;print " ",$1 while /([a-z]+)/g' *.txt
   
2. abc.txt abc kkdi baccc mdkcicde.txt dsb nkn kwjekj
   
3. 
   
4. perl -nle 'printf $ARGV if/[a-z]+/;print " ",$1 while /([a-z]+)/g' *.txt
   
5. abc.txt abc
   
6. kkdi
   
7. baccc
   
8. mdkci
   
9. cde.txt dsb
   
10. nkn
    
11. kwjekj

复制代码

l参数的结果让我吐血啊。。。

Kotokz

最后被迫用多一个awk解决问题。。

求perl版解决方案。。。

Kotokz

1. perl -nle '$a="";printf $ARGV if/[a-z]+/;$a .= " $1" while /([a-z]+)/g;print $a if $a' *.txt
   
2. abc.txt abc kkdi baccc mdkci
   
3. cde.txt dsb nkn kwjekj

复制代码

加了一个变量。。。哎，犯傻了

Kotokz

1. perl -lne '@matches = /([a-z]+)/g;print join(" ",$ARGV,@matches) if @matches' *.txt
   
2. abc.txt abc kkdi baccc mdkci
   
3. cde.txt dsb nkn kwjekj

复制代码

kernel69

自问自答啊，学习了
回复 4# Kotokz


   

jason680

回复 4# Kotokz

how about this ...

# perl -lane '{s/\d+/ /g;print "$ARGV $_"}' abc.txt cde.txt
abc.txt  abc kkdi baccc mdkci
cde.txt  dsb nkn kwjekj

Kotokz

回复 6# jason680

谢谢,学习了


   

rubyish

谢谢,学习了