新手问题-处理多个文本文件

szin2012

目录下有多个文件， 暂时知道用<.*>把当前目录下文件取出来放到一个@数组保存， 如要打印出匹配的怎么处理。。

1. #! /usr/bin/perl
   
2.   2 use strict;
   
3.   3
   
4.   4 while  (<*.new>) {
   
5.   5         print "$_\n";
   
6.   6 }

复制代码

这段代码的结果只显示 文件名：1.new　2.new

[root@vim perl]# cat 1.new 2.new
xxx 111111111111111111111111

xxx ######################

假定当前目录下有n个.new文本存在，我想打印出其中包含XXX的行。。

szin2012

知道怎么去匹配 /xxx/ 就是不知道怎么打印处理。

Perlvim

用 sed 最适合

sed /xxx/ *.new
以上语法未经验证，请自己看Sed的文档。

mcshell

1. perl -le '@files = glob "*.new";for $file (@files){open FA,"$file" or die "$!";while(<FA>){/xxx(?{print "$_"})/ };close FA}'

复制代码

如果还想打印所包含的这段文字的文件名 ；输出$file就好