perl如何合并文本

xiaomm250

假設(shè)一個(gè)文件目錄下有很多個(gè)txt文件,
但是并不知道文件名.也就是說這些文件名是很雜亂的.
比如:1.txt  2.txt ab.txt dwer.txt等.
對(duì)于1.txt里面如果某一行有perl,
則把這行輸入到 newfile.txt,如果某一行沒有perl,則不輸入
對(duì)于2.txt里面如果某一行有perl,
則把這行輸入到 newfile.txt,如果某一行沒有perl,則不輸入
.....................
把所有的該目錄下面的txt文件都這么搞一下.

請(qǐng)問用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. }

復(fù)制代碼

回復(fù) 1# xiaomm250


   

xiaomm250

pitonas 發(fā)表于 2014-04-23 12:40
這么搞一下回復(fù) 1# xiaomm250

沒有任何運(yùn)行結(jié)果

xiaomm250

pitonas 發(fā)表于 2014-04-23 12:40
這么搞一下回復(fù) 1# xiaomm250

while(<>)
這個(gè)<>里面為什么啥都沒有呢?


我發(fā)現(xiàn)你的是正確的,只是我的文本里面沒有包含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);
    

復(fù)制代碼

這是我的代碼,比較傻的那種代碼

xiaomm250

pitonas 發(fā)表于 2014-04-23 12:40
這么搞一下回復(fù) 1# xiaomm250

代碼太簡(jiǎn)寫了,
我翻了小駱駝才明白,
原來(lái)<>從@ARGV里面讀取數(shù)據(jù)

skyyy90

學(xué)習(xí)了，豁然開朗。。。:wink:

xiaomm250

skyyy90 發(fā)表于 2014-04-23 14:25
學(xué)習(xí)了，豁然開朗。。。

怎么豁然開朗了呀?能說說嗎?

jason680

回復(fù) 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