需要Perl正则表达式拆分帮助

Question

我正在尝试分割这样的记录

123.45.67.89/24 - String - Other string details (/25-/30)

分为3个变量，分别包含"123.45.67.89","24"和"String - Other string details (/25-/30)"

#!/usr/bin/perl -w

use Data::Dumper;

$file = "Network_Usage.clean";

open (Network_Usage,$file);

while (<Network_Usage>) {
        chomp;
        my $row = $_;
        my @array = $row =~ /((([0-9]{1,3})\.{0,1}){4})\/([0-9]{1,2}) - (.*)/;
        print Dumper ( @array);
        exit;
}

close (Network_Usage);

但是我得到这个结果：

root@host:~/# ./split.pl 
$VAR1 = '123.45.67.89'; 
$VAR2 = '89'; 
$VAR3 = '89'; 
$VAR4 = '24'; 
$VAR5 = '';

事件，如果它正在为我完成工作（我可以使用$VAR1,4,5 ）。 我想知道在$VAR2/3接收结果出错了。

Answer 1

我能找到的最简单的解决方案是限制结果，因此仅让split()起作用两次：

my @arr = split /[\/\s-]+/, $s, 3

它产生：

0  '123.45.67.89'
1  24
2  'String - Other string details (/25-/30)'

Answer 2

您可以使用非捕获组来避免两次捕获89 。 只需在您不想捕获的组的开头添加?: 。 尝试将正则表达式更改为以下内容：

/((?:(?:[0-9]{1,3})\.{0,1}){4})\/([0-9]{1,2}) - (.*)/
   ^  ^

Answer 3

这个正则表达式可以工作：

([0-9]{1,3}[\.]?[0-9]{1,3}[\.]?[0-9]{1,3}[\.]?[0-9]{1,3}[\.]?)\/([\d]+) - (.*)

工作正则表达式示例：

http://regex101.com/r/sC2uN3

火柴：

MATCH 1
1.  `123.45.67.89`
2.  `24`
3.  `String - Other string details (/25-/30)`

Answer 4

也许您可以在正则表达式匹配中使用它：

#!/usr/bin/perl

use warnings;
use strict;

my $t="123.45.67.89/24 - String - Other string details (/25-/30)";

if ($t =~ /(\d+\.\d+\.\d+\.\d+)\/(\d+)\s+(.*)/){
    print "$1\n"; #Prints "123.45.67.89"
    print "$2\n"; #Prints "24"
    print "$3\n"; #Prints "- String - Other string details (/25-/30)"
}

Answer 5

如果-和/始终是记录分隔符，则还可以使用split函数：

my $filename = "Network_Usage.clean";
open (my $network_file, '<', $file);

while (my $row = <$network_file>) {
        chomp;
        my @array = split /[\/\s-]/, $row; 
        print Dumper @array;
}

close($network_file);

关于风格的几点说明：

1. 通常在while条件内分配$row
2. 通常不建议使用BAREWORD文件句柄