perl 找关键词，存下该行

nelly1

大家好！

我想请教下如何实现以下功能：找到text中的关键词，并存下该行，

例如：
keywords: nmos
text:
M0 (net1 net2 0 0) nmos
M1 (net2 net3) pmos
M2 (net4 net5 0) nmos
最后希望得到一个array_nmos里面还有M0，M2

我的想法是，先在text里找匹配的nmos,然后存下nmos所在行，再split，取第一列存入数组。
foreach (@type)  #type是关键词nmos所在的数组
{
chomp;
if ($netlist=~/{$type}/)
{
##取有nmos(就是type数组里的一个)这行，放入line,这句不会写。。。。。。
push $line,$1;
my (@array_nch) = (split(/\s+/, $line))[0];

多谢大家！！
PS顺便想问下,perl里的case语句要怎么写？？？

yinyuemi

回复 1# nelly1

说的不是很清楚，试试：

1. use Data::Dumper;
   
2. %hash1 = map{$_,1}@type
   
3. while(<txt>){
   
4.    chomp;
   
5.    my($s,$key) = (/^(\S+)\s\(.*\)\s(\S+)$/);
   
6.    push @{$hash2{$key}},$s if $hash{$key} == 1
   
7. }
   
8. 
   
9. print Dumper \%hash2;
   

复制代码

yizhengming

perl -ne 'BEGIN{$keywords = "nmos"};push @{$keywords},(split)[0]."\n" if /\b$keywords\b/;END{print @{$keywords}}' DATA
_____DATA_____
M0 (net1 net2 0 0) nmos
M1 (net2 net3) pmos
M2 (net4 net5 0) nmos

cdtits

1. $key = 'nmos';
   
2. @words = map  { ($v) = /(\w+)/; $v }
   
3.          grep { /$key/ } <DATA>;
   
4. print "$key\t: ", join("\t", @words), "\n";
   
5. 
   
6. __DATA__
   
7. M0 (net1 net2 0 0) nmos
   
8. M1 (net2 net3) pmos
   
9. M2 (net4 net5 0) nmos

复制代码

nelly1

回复 2# yinyuemi

不是很懂。。特别是push那句，能给解释下么，多谢

nelly1

cdtits 发表于 2012-08-02 10:21

为什么这里要加那句map??

xiyoulaoyuanjia

你需要先看看map的基础用法也～
回复 6# nelly1


   

nelly1

回复 7# xiyoulaoyuanjia
恩，看了，但是 Grep 以最后一个“$TYPE" 的值为准,如果我的type是一个数组呢？应该怎么改啊。。


   

yinyuemi

回复 5# nelly1

push那句code可以生产一个hash，值为arrary的引用
举个例子吧：

1. perl -MData::Dumper -le '@arr=(1..10);print Dumper \@arr;
   
2. map{push @{$hash{$_%2}},$_}@arr;
   
3. print Dumper \%hash'
   

复制代码