免费注册 查看新帖 |

Chinaunix

  平台 论坛 博客 文库
最近访问板块 发新帖
查看: 1524 | 回复: 5

如何使文本中的@name被perl识别为字符串? [复制链接]

论坛徽章:
0
发表于 2007-01-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+",$info);
foreach(@source) {print "$_ ";}
输出为:
addc A, ;ADDC A, Rn
如果将$info的双引号改为单引号,可以得到我想要的,但是如果从文本里读又如何操作?
请各位出出主意,先谢谢大家!

论坛徽章:
0
发表于 2007-01-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 "$_ ;";}

论坛徽章:
0
发表于 2007-01-10 16:35 |显示全部楼层
s/\b/;/g

论坛徽章:
0
发表于 2007-01-10 17:35 |显示全部楼层
原帖由 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 "$_ ;";}


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

论坛徽章:
0
发表于 2007-01-10 18:56 |显示全部楼层
原帖由 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. #!perl -w
  2. while(<>) {
  3.         print "$_ ";
  4. }
复制代码

t.txt

  1. addc A, @R0 ;ADDC A, Rn
  2. addc A, @R1 ;ADDC A, Rn
  3. addc A, @R3 ;ADDC A, Rn
复制代码

t.pl t.txt

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

论坛徽章:
0
发表于 2007-01-11 23:13 |显示全部楼层
谢谢楼上的哥们批评,我测试的时候用的是字符串变量,想当然的认为读一行文本也会出现问题的。
您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

DTCC2020中国数据库技术大会

【架构革新 高效可控】2020年12月21日-23日第十一届中国数据库技术大会将在北京隆重召开。

大会设置2大主会场,20+技术专场,将邀请超百位行业专家,重点围绕数据架构、AI与大数据、传统企业数据库实践和国产开源数据库等内容展开分享和探讨,为广大数据领域从业人士提供一场年度盛会和交流平台。

http://dtcc.it168.com


大会官网>>
  

北京盛拓优讯信息技术有限公司. 版权所有 16024965号-6 北京市公安局海淀分局网监中心备案编号:11010802020122
中国互联网协会会员  联系我们:huangweiwei@it168.com
感谢所有关心和支持过ChinaUnix的朋友们 转载本站内容请注明原作者名及出处

清除 Cookies - ChinaUnix - Archiver - WAP - TOP