如何使文本中的@name被perl识别为字符串？

sousi

文本文件中有1行内容如下：addc A, @R0 ;ADDC A, Rn
我希望该行文本通过split后变成addc;A,;@R0;;ADDC;A,;Rn
代码为：
#!perl -w
$info="addc A, @R0  ;ADDC A, Rn";
@source=split("\\s+",$info);
foreach(@source) {print "$_ ";}
输出为：
addc A, ;ADDC A, Rn
如果将$info的双引号改为单引号，可以得到我想要的，但是如果从文本里读又如何操作？
请各位出出主意，先谢谢大家！

alexru

#!/usr/bin/perl -w
use strict;

my $info="addc A, \@R0  ;ADDC A, Rn";
my @source=split(/\s+/,$info);
foreach(@source) {print "$_ ;";}

beikerray119

s/\b/;/g

sousi

原帖由 alexru 于 2007-1-10 16:30 发表
#!/usr/bin/perl -w
use strict;

my $info="addc A, \@R0  ;ADDC A, Rn";
my @source=split(/\s+/,$info);
foreach(@source) {print "$_ ;";}

我是从文本中读到的这一行,不可以加转义字符\的.

Namelessxp

原帖由 sousi 于 2007-1-10 16:23 发表
文本文件中有1行内容如下：addc A, @R0 ;ADDC A, Rn
我希望该行文本通过split后变成addc;A,;@R0;;ADDC;A,;Rn
代码为：
#!perl -w
$info="addc A, @R0  ;ADDC A, Rn";
@source=split("\\s+&qu ...

你真的试过吗？还是你的做什么事情前都要问下别人会有什么结果

t.pl

1. 
   
2. #!perl -w
   
3. while(<>) {
   
4.         print "$_ ";
   
5. }
   

复制代码

t.txt

1. 
   
2. addc A, @R0 ;ADDC A, Rn
   
3. addc A, @R1 ;ADDC A, Rn
   
4. addc A, @R3 ;ADDC A, Rn
   

复制代码

t.pl t.txt

[ 本帖最后由 Namelessxp 于 2007-1-10 18:57 编辑 ]

sousi

谢谢楼上的哥们批评，我测试的时候用的是字符串变量，想当然的认为读一行文本也会出现问题的。