【求助】提取文本数据

jason680

回复 1# Tina0910

$ perl get_key.pl
    Usage  : get_key.pl keyword file
    Example: get_key.pl ID FILE

$ perl get_key.pl ID FILE
ID REINVENTING GOVERNMENT MOVEMENT; MANAGEMENT

ID PUBLIC ENTREPRENEURSHIP; GOVERNMENT; MANAGEMENT; DEMOCRACY; MOVEMENT
ID GOVERNMENT; STATE; MANAGEMENT

$ cat get_key.pl
use strict;
use warnings;

sub message{
  print<<EOF;
    Usage  : $0 keyword file
    Example: $0 ID FILE
EOF
  exit(1);
}

message() if(@ARGV < 2);
my $sKey = shift;
my $sOut = "\n";
my $sSeg = 0;
my $sMatch = 0;
while(<>){
  if(m/^\s*$/){
    print "$sOut" if $sSeg;
    $sOut = "\n";
    $sSeg = 0;
    $sMatch = 0;
  }
  else{
    $sSeg = 1;
  }
  $sMatch=0 if(/^\S/);
  if(m/^$sKey /){
    $sOut = $_;
    $sMatch = 1;
    next;
  }
  if($sMatch){
    $sOut .= $_;
  }
}
print $sOut if($sOut ne "");

   

jason680

回复 8# Tina0910

>> ...如果源文件是abc.txt, ... 想输入ID的内容到result.txt.

$ perl get_key.pl
    Usage  : get_key.pl keyword file
    Example: get_key.pl ID FILE

$ perl get_key.pl ID abc.txt > result.txt

$ cat result.txt
ID REINVENTING GOVERNMENT MOVEMENT; MANAGEMENT

ID PUBLIC ENTREPRENEURSHIP; GOVERNMENT; MANAGEMENT; DEMOCRACY; MOVEMENT
ID GOVERNMENT; STATE; MANAGEMENT