数据库技术成长之路......

如下代码需要完成，匹配一字符串$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 "$

使用正则表达式： $str =~s////*([//*]*?[^//*]*)*?/*///s*|--[^/n]*//g;