perl 提取 属性的值（不一定是数字)
答案:3 悬赏:60 手机版
解决时间 2021-03-18 06:08
- 提问者网友：欲劫无渡
- 2021-03-17 21:55
perl 提取 属性的值（不一定是数字)
最佳答案
- 五星知识达人网友：想偏头吻你
- 2021-03-17 22:53
my $string = '';
$string =~ /((?<=DefaultValue=")[^"]+)/; #提取DefaultValue的值
print $1 , "
";
$string =~ /((?<=DefaultValue=")[^"]+)/; #提取DefaultValue的值
print $1 , "
";
全部回答
- 1楼网友：忘川信使
- 2021-03-18 00:40
第一步，抓取参数，以此命名变量。第二部，给这个变量写一个正则，抓取他的值；
- 2楼网友：荒野風
- 2021-03-18 00:00
$str ='';
my $attrlist = parse($str);
for (keys(%{$attrlist}))
{
print $_ ," --> ", $attrlist->{$_}, " ";
}
sub parse
{
my $pstr = shift;
my %attr;
while ($pstr =~/(w+)=["]?(w+)["]?/g)
{
$attr{$1} = $2;
}
return \%attr;
my $attrlist = parse($str);
for (keys(%{$attrlist}))
{
print $_ ," --> ", $attrlist->{$_}, " ";
}
sub parse
{
my $pstr = shift;
my %attr;
while ($pstr =~/(w+)=["]?(w+)["]?/g)
{
$attr{$1} = $2;
}
return \%attr;
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯