请教提取信息

Eva326

大家好！小白请教一个提取信息的问题，
文件如下：

AAAA
112ASDFGH

[USE]
Time: Mon.13
user: James
detail: xxxx

[USE]
Time: June.01
user: Dan
AA
BBB

（Time: 和 user: 后面有空格）
希望通过[USE]关键字提取绿色部分的信息，tab分隔得到：
Mon.13    James
June.01    Dan

hztj2005

楼主这样：
首先，读入整个文件到$mydoc;
然后，@mysec=split("[USE]",$mydoc);  #就是用[USE]把真个文件分为多个片段。
再 foreach $sec(@mysec)
{
  if(  $sec=~ m/Time.+)/)  #或许要  =~ m/Time.+)$/
{
    $neettime= $1;
}

if(  $sec=~ m/user.+)/)  #或许要  {
    $needuser= $1;
}
$res=$neettime.$needuser;



}

sunzhiguolu

1. import io.Source
   
2. import util.matching.Regex
   
3. 
   
4. var ok = false
   
5. var n = 0
   
6. val matching = new Regex(raw"\A(?:Time|user)")
   
7. for(s <- Source.fromFile(args(0)).getLines){
   
8.         if(s.startsWith("[USE]")){
   
9.                 if(n > 0) println("")
   
10.                 ok = true
    
11.                 n = 0
    
12.         }else{
    
13.                 if(ok){
    
14.                         val lst = s.split(": ")
    
15.                         val v = matching.findFirstIn(lst(0))
    
16.                         if(v.isDefined)        print(s"${lst(1)}\t")
    
17.                         n += 1
    
18.                         ok = n <= 2
    
19.                 }
    
20.         }
    
21. }

复制代码

sunzhiguolu

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. my @aData = ();
   
6. my $ok = 0;
   
7. while(<DATA>){
   
8.         chomp;
   
9.         if(/\A\[USE]/){
   
10.                 print(join("\t", splice(@aData, 0)), "\n") if(@aData);
    
11.                 $ok = 1, next;
    
12.         }
    
13.         push(@aData, $1) if(/\A(?:Time|user):\s+(.*)/);
    
14. }
    
15. print(join("\t", splice(@aData, 0)), "\n") if(@aData);
    
16. 
    
17. __DATA__
    
18. [USE]
    
19. Time: Mon.13
    
20. user: James
    
21. detail: xxxx
    
22. 
    
23. [USE]
    
24. Time: June.01
    
25. user: Dan
    
26. AA
    
27. BBB
    

复制代码

Scala 没有 next 操作符 太操蛋了。

hztj2005

sunzhiguolu 发表于 2017-05-17 10:12

perl?你这用的什么语言啊？

jason680

回复 1# Eva326

$ perl get_key.pl
    Usage  : get_key.pl Segment file
    Example: get_key.pl USE FILE
   
    ---- file: FILE ---------
    [USE]
    Time: Mon.13
    user: Dan


$ perl get_key.pl USE FILE
Mon.13    James
June.01    Dan


$ cat get_key.pl
use strict;
use warnings;

sub message{
  print<<EOF;
    Usage  : $0 Segment file
    Example: $0 USE FILE
   
    ---- file: FILE ---------
    [USE]
    Time: Mon.13
    user: Dan
   
EOF
  exit(1);
}

message() if(@ARGV < 2);
my $sKey = shift;

my $sSeg = "";
my %hSeg = ();
while(<>){
  s/^\s+|\s+$//g;
  #chomp;
  if(m/^\[/){
    if($sSeg eq $sKey){
      print "$hSeg{Time}\t$hSeg{user}\n";
    }
    s/^\[|\]\s*//g;
    $sSeg = $_;
    %hSeg = ();
  }
  else{
    my($sKey, $sVal) = split(/\s*:\s*/, $_, 2);
    if(defined $sVal){
      $hSeg{$sKey} = $sVal;
    }
  }
}

if($sSeg eq $sKey){
  print "$hSeg{Time}\t$hSeg{user}\n";
}

sunzhiguolu

回复 5# hztj2005
Scala 啊。