如下代码需要完成,匹配一字符串$data中-o后的1,2,3,4,并把结果保存入变量:$t1。
my $data ='1,3,4,5, -o 1,2,3,4 -q sdfsdjlfjlsdjfl';
if ( $data =~ m/-o (/S+) -(/S+)/) {
print "args:/n";
print "$1/n";
my $t1 = $1;
print "$t1";
}
如下代码需要完成,匹配一字符串$data中-o后的1,2,3,4,并把结果保存入变量:$t1。
my $data ='1,3,4,5, -o 1,2,3,4 -q sdfsdjlfjlsdjfl';
if ( $data =~ m/-o (/S+) -(/S+)/) {
print "args:/n";
print "$1/n";
my $t1 = $1;
print "$t1";
}