Perl 正则分组

最新推荐文章于 2021-01-25 10:31:46 发布

scan724

最新推荐文章于 2021-01-25 10:31:46 发布

阅读量1.2k

点赞数

分类专栏： Perl开发

本文链接：https://blog.csdn.net/zhaoyangjian724/article/details/41652187

版权

Perl开发专栏收录该内容

46 篇文章 30 订阅 ¥39.90 ¥99.00

订阅专栏

这篇博客展示了如何在Perl中使用正则表达式进行分组操作。通过实例代码，解释了如何通过括号`()`来捕获匹配的内容，并演示了如何访问和处理这些捕获的分组，例如提取CPU型号和处理数字序列。

摘要由CSDN通过智能技术生成

[oracle@jhoa perl2]$ cat a1.pl 
   open(CPU,"<","/home/oracle/perl2/a1");
    while (<CPU>) {
       chomp;
       if( /^model name.*: (.*$)/) {
          $cpu_number += 1;
          print "\$cpu_number is $cpu_number\n";
          print "\$1 is $1\n";
          $cpu_model="$1";
          $cpu_model =~ s/\s+/ /g;
       }
    }
[oracle@jhoa perl2]$ cat a1
model name	:         Intel(R) Core(TM) i3-2100 CPU @ 3.10GHz model name xxxxxxxxx



$aaa="1234,5677,3333";
$aaa=~/\d+,(\d+),\d+/;    #现在$1中就是5677
print $1."\n";
$bbb="2223,4241,45452";
$bbb=~/(\d+),\d+,\d+/; #现在$1中是2223
print $1;

根据()括号 判断

[oracle@jhoa perl2

了解本专栏