perl 匹配之后字符串变为数字
while(<FM>){#chomp;if($_=~/(\[.*\])/g){//匹配含有中括号的内容print$_;//字符串变成数字了为什么？$str=$_;$str...
while (<FM>){
#chomp;
if($_ = ~ /(\[.*\])/g){ //匹配含有中括号的内容
print $_; //字符串变成数字了为什么？
$str = $_;
$str =~ s/$1//g;
}
else
{
$str = $_;
}
@array = split (/(\t)/, $str);
$str = @array[1];
$hash{$str} = @array[0];
} 展开
#chomp;
if($_ = ~ /(\[.*\])/g){ //匹配含有中括号的内容
print $_; //字符串变成数字了为什么？
$str = $_;
$str =~ s/$1//g;
}
else
{
$str = $_;
}
@array = split (/(\t)/, $str);
$str = @array[1];
$hash{$str} = @array[0];
} 展开
展开全部
=~ 是一个运算符，你要连到一块写，你写= ~这样的话，就是给这个变量赋值了。
追问
谢谢
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
