perl如何合并文本

xiaomm250

假设一个文件目录下有很多个txt文件,
但是并不知道文件名.也就是说这些文件名是很杂乱的.
比如:1.txt  2.txt ab.txt dwer.txt等.
对于1.txt里面如果某一行有perl,
则把这行输入到 newfile.txt,如果某一行没有perl,则不输入
对于2.txt里面如果某一行有perl,
则把这行输入到 newfile.txt,如果某一行没有perl,则不输入
.....................
把所有的该目录下面的txt文件都这么搞一下.

请问用perl如何能办到呢?

pitonas

这么搞一下

1. my $dir = '/your/dir';
   
2. @ARGV = glob "$dir/*.txt";
   
3. 
   
4. open OUT, '>', 'newfile.txt' or die $!;
   
5. 
   
6. while (<>) {
   
7.     print OUT $_ if /perl/;
   
8. }

复制代码

回复 1# xiaomm250


   

xiaomm250

pitonas 发表于 2014-04-23 12:40
这么搞一下回复 1# xiaomm250

没有任何运行结果

xiaomm250

pitonas 发表于 2014-04-23 12:40
这么搞一下回复 1# xiaomm250

while(<>)
这个<>里面为什么啥都没有呢?


我发现你的是正确的,只是我的文本里面没有包含perl的行

q1208c

grep 'perl' *.txt > newfile.txt

xiaomm250

1. open(OUT, '>', 'newfile.txt') or die $!;
   
2. @files=glob('*.txt');
   
3. foreach $file (@files)
   
4. {
   
5.     open(FH,"<$file") or die $!; @filedata=<FH>; close(FH);
   
6.     foreach $line (@filedata)
   
7.     {
   
8.         print OUT $line;
   
9.     }
   
10. }
    
11. close(OUT);
    

复制代码

这是我的代码,比较傻的那种代码

xiaomm250

pitonas 发表于 2014-04-23 12:40
这么搞一下回复 1# xiaomm250

代码太简写了,
我翻了小骆驼才明白,
原来<>从@ARGV里面读取数据

skyyy90

学习了，豁然开朗。。。:wink:

xiaomm250

skyyy90 发表于 2014-04-23 14:25
学习了，豁然开朗。。。

怎么豁然开朗了呀?能说说吗?

jason680

回复 1# xiaomm250

1. using grep
  grep "perl" *.txt > newfile

2. using perl
  ### file: grep.pl ####
  #!/usr/bin/perl
  use strict;
  use warnings;

  my $sKey = shift;
  while(<>){
    print  if(m/$sKey/);
  }
   
  ### command ###
  $ ./grep.pl "perl" *.txt > newfile