碰到到的难题急：抽取多行字符串

zengxiaosheng

#! /usr/local/bin/perl -w  
my $ititle;                                    
my $dip;                                         
$ititle ="ALARM 610 A2/BTS \"MMC2BSCR10/GB/0\"U 061213 1315
:EXTERNAL ALARM
:FAN
:GUANDUA
:END";                        
print $ititle;                                       
  Sample Text
if ($ititle =~ /如何写正则表达式？？？/)  
{                                                     
  $dip = $1;                                                                              
}                                                     
print $dip;

说明： 1）变量$ititle的值在“EXTERNAL ALARM”至“END”之间的信息会变，之间行数不定；
       2）要得到变量$dip值为：“EXTERNAL ALARM”至“END”之间的信息；
       3）求助if语句里面的条件怎么写？
知道的联系我：zengxiaosheng@boco.com.cn   谢谢。

alexru

~/ /s

ulmer

原帖由 zengxiaosheng 于 2006-12-13 19:40 发表
#! /usr/local/bin/perl -w  
my $ititle;                                    
my $dip;                                         
$ititle ="ALARM 610 A2/BTS \"MMC2BSCR10/GB/0\"U 06121 ...

hello,

my $string =<<_TXT_;
ALARM 610 A2/BTS \"MMC2BSCR10/GB/0\"U 061213 1315
:EXTERNAL ALARM
:FAN
:GUANDUA
:DYNAMICAL RECORDS
:MORE
:END
_TXT_

# Fetching lines between :EXTERNAL ALARM and :END
my $patternStart = ':EXTERNAL ALARM';
my $patternEnd   = ':END';
if ($string =~ /$patternStart(.*)$patternEnd/s) {
    print $1;
}

--ulmer

zengxiaosheng

语句：if ($string =~ /$patternStart(.*)$patternEnd/s)
跟我的if($string=~ /.*EXTERNAL\s+ALARM\n(.*)\n:END)类似；
我做了测试，只能提取到之间的第一行“：FAN”，因为“.*”不能匹配换行符；
这谢谢ulmer，看看还有什么好方面吗？

apile

不加//s..无法跨\n进行匹配..LZ要注意喔..
加了/s後..就可以跨行了...
ulmer的方法没错..

suandewo

//s,
学会了，谢谢！

xiaoyafeng

不知道为什么大家都这么喜欢用/s?个人感觉不是一个好习惯.为什么不用f/f操作符?
while (<DATA>) {
if (/:EXTER/../:END/) {
print ;
}
}


__DATA__
:EXTERNAL ALARM
:FAN
:GUANDUA
:END

flw

原帖由 xiaoyafeng 于 2006-12-14 18:14 发表
不知道为什么大家都这么喜欢用/s?个人感觉不是一个好习惯.为什么不用f/f操作符?
while (<DATA>) {
if (/:EXTER/../:END/) {
print ;
}
}


__DATA__
:EXTERNAL ALARM
:FAN
:GUANDUA
:END

如果是文件的话就最好用它，
但是如果本来就在一个字符串里了，那就不用了。
另外，Perl 的正则表达式太方便了，导致很多人用正则表达式用多了，习惯什么事情都用正则表达式来解决。其实这不是个好习惯。
比如说判断输入的命令是不是 quit 就用 /quit/，其实不精确，精确的写法是 /^quit$/ 甚至是 /^\Q$cmd$/（如果 quit 不是个直接量的话） 其实最后还是 $input eq $cmd 这样最简洁。
再比如说分离字符串，substr 几乎没人用，但是我觉得 substr 适当地用用要比全用正则效果好。还有 index 函数，几乎被人遗忘了。
另外 pack/unpack 在很多时候表现也要比正则表达式好。

Namelessxp

原帖由 xiaoyafeng 于 2006-12-14 18:14 发表
不知道为什么大家都这么喜欢用/s?个人感觉不是一个好习惯.为什么不用f/f操作符?
while (<DATA>) {
if (/:EXTER/../:END/) {
print ;
}
}


__DATA__
:EXTERNAL ALARM
:FAN
:GUANDUA
:END

__DATA__
和
f/f

可否详细介绍下

xiaoyafeng

原帖由 flw 于 2006-12-14 18:21 发表

如果是文件的话就最好用它，
但是如果本来就在一个字符串里了，那就不用了。
另外，Perl 的正则表达式太方便了，导致很多人用正则表达式用多了，习惯什么事情都用正则表达式来解决。其实这不是个好习惯。
比 ...

regex很耗内存,尤其是$&,$1之类,如果字符串很大还是不要用吧