[疑惑]变量内容中的字符串含有@，如何打印出来

mantou

请教给位，从一串文本中读入行
12   afafaf@cn.com   faaa

然后我用@jj=split(/\s+/,$_);
print $jj[2];  时， @cn 没了，被转义。 一下糊涂了如何处理， 各位不吝啬指导下。

yashiro_lj

@cn没被转义，你print $jj[1]看看就知道了

mantou

$tt="
  616     m00702497@cn.com            192.168.1.130     0017-a4e2-fee3
  624     s00718421@cn.com            192.168.1.227     0021-9be9-5726
  702     a00708504@cn.com            192.168.1.210     0015-58ea-973e
";

my @ii=split "\n",$tt;
foreach(@ii){
        @jj=split(/\s+/,$_);
        printf "-->%s\n", $jj[2];
}

这个就会， 不知道啥原因。要高手解释下

Perl_Er

$tt="
  616     m00702497@cn.com            192.168.1.130     0017-a4e2-fee3
  624     s00718421@cn.com            192.168.1.227     0021-9be9-5726
  702     a00708504@cn.com            192.168.1.210     0015-58ea-973e
";
改为下面的试试，@在双引号里面就转义了。
$tt='
  616     m00702497@cn.com            192.168.1.130     0017-a4e2-fee3
  624     s00718421@cn.com            192.168.1.227     0021-9be9-5726
  702     a00708504@cn.com            192.168.1.210     0015-58ea-973e
';

mantou

如果$tt 里面的内容本身不是这样给出的, 是从其他代码的输出. 怎么办?

MMMIX

原帖由 Perl_Er 于 2009-6-9 21:53 发表
$tt="
  616     m00702497@cn.com            192.168.1.130     0017-a4e2-fee3
  624     s00718421@cn.com            192.168.1.227     0021-9be9-5726
  702     a00708504@cn.com            192.168.1.210     0015-58ea-973e
";
改为下面的试试，@在双引号里面就转义了。

那叫插值，不叫转义。

MMMIX

原帖由 mantou 于 2009-6-9 22:36 发表
如果$tt 里面的内容本身不是这样给出的, 是从其他代码的输出. 怎么办?

直接 print 就可以了，Perl 不会做递归插值：

perl -ne '$" = "\n"; @a = split; print "@a\n"'
a b@c 1 2 3
a
b@c
1
2
3

mantou

thanks, 脚本之前我已经完成,就是用的直接print的方式可以.但是不太明白, 是不是被赋予给另外一个变量,就可能被以插值的形式,赋给另外一个变量.是吧

Perl_Er

对插值！