问一个 多行 批配 的 问 题

zhlong8

你是想匹配那一行以下的所历内容吗？

整个字符串 =~ /The following packages have unmet dependencies:(.*)\z/s

用 s 模式 . 才能匹配 \n 内容在 $1 中

jason680

hi ,

想 问 一个 多行 批配 的 问题, 字符串如下 :
The following packages have unmet dependencies:
...
hepower 发表于 2011-04-21 16:58

$ cat package.txt
xxxx
123
456

The following packages have unmet dependencies:
    pp-anzu-dev-dev: Depends: pvp-anzu-dev-dev-eng but it is not going to be installed
      pvp-anzu-dev-dev-eng has broken dependencies to:
        mw-default-capabilities-xml-anzu-bc18-ed
        fw-amss-fs-anzu
        app-pccompanion-iso-ed

The before packages have unment dependencies:
xxxx
xxxx
xxxx

$ cat get_packages.pl

1. use strict;
   
2. use warnings;
   
3. 
   
4. local $/="\n\n";
   
5. while(<>;){
   
6.   if(m/^The following packages/){
   
7.     print;
   
8.   }
   
9. }

复制代码

$ perl get_packages.pl package.txt
The following packages have unmet dependencies:
    pp-anzu-dev-dev: Depends: pvp-anzu-dev-dev-eng but it is not going to be installed
      pvp-anzu-dev-dev-eng has broken dependencies to:
        mw-default-capabilities-xml-anzu-bc18-ed
        fw-amss-fs-anzu
        app-pccompanion-iso-ed

$