tr///问题

very_99

#!/usr/bin/perl
while(<>){
tr/abc/123/;
print ;
}
或
#!/usr/bin/perl
while(<>){
$_=~tr/abc/123/;
print $a;
}
或
#!/usr/bin/perl
while(<>){
tr/abc/123/;
$a=$_;
print $a;
}

如此3个都是将对我的输入做替换
但是下面的方式就不行了
#!/usr/bin/perl
while(<>){
$a=$_=~tr/abc/123/;
print $a;
}
这样却使$a变成了匹配的次数.很奇怪的哦~   为什么呢?

兰花仙子

1. #!/usr/bin/perl
   
2. while(<>){
   
3. $a=$_=~tr/abc/123/;
   
4. print $a;
   
5. }
   
6. 这样却使$a变成了匹配的次数.很奇怪的哦~   为什么呢?

复制代码

正则表达式匹配结果都是返回一个列表，列表里是匹配命中的值。
$a=...这里强迫将列表位于标量上下文，它的结果就是列表里的元素个数，也就是匹配中的次数了。

very_99

疑惑一下

$a=$_=~tr/abc/123/;
与
$_=~tr/abc/123/;
$a=$_;感觉一样的吧?

兰花仙子

原帖由 very_99 于 2006-4-28 10:09 发表
疑惑一下

$a=$_=~tr/abc/123/;
与
$_=~tr/abc/123/;
$a=$_;感觉一样的吧?

($a=$_)=~tr/abc/123/;
你应该这样写，因为=~优先级高于'='