ChinaUnix.net
相关文章推荐:

perl 正则 替换

$a="abcd"; $b=$a; $b=~s/a/1/; 怎么能不用$b=$a;这一步?

by lovebbs - Perl - 2010-03-17 19:50:57 阅读(1361) 回复(2)

相关讨论

举例: abc,dfg,0x1234; abc,fgh,tyu; 我需要把fgh替换成0x1234的反。 我把0x1234匹配到了$2,替换时直接写(~$2 & 0xffff)。perl直接把括号里的这些给放到那里了。 我想要的是他的结果。不知道如何替换? 哪位大侠帮帮我!谢谢了

perl替换位运算

by rettylee - Perl - 2011-05-03 14:08:56 阅读(3882) 回复(7)

print map { (split)[6] . "\n" } grep {/from=/\1/} ; 编译出现 can't call method "sed" without a package or object reference at ... sed的用法错在了哪里? [ 本帖最后由 whn3375 于 2007-3-6 12:39 编辑 ]

by whn3375 - Perl - 2007-03-06 20:49:02 阅读(2689) 回复(10)

本帖最后由 xiaozi0lei 于 2013-05-17 11:37 编辑 请教一个问题: #!/usr/bin/perl -w open FILE,"log"; open F2,"+){ s@\(a\)@@; print F2; } close F2; close FILE; log中的内容为 (a) 输出结果为: #这里是个空行,原先的(a)匹配上后被替换为空,但是为什么在下一行会多出来一个a) a) 请教大家,帮帮忙,我想了好久都没想明白。我的目的就是把匹配到...

by xiaozi0lei - Perl - 2013-05-17 17:13:59 阅读(4633) 回复(22)

比方说我想从qwertyuiop中用s///替换wer变成其他颜色的wer,可以吗,求大侠指点~

替换文本正则表达式

by justwalking - Perl - 2010-04-26 16:10:53 阅读(1754) 回复(1)

$_="huge dinosaur"; $_=~s/\w+$/($`!)$&/; my $a=$_; $_=~s/^(\w+\s+)/($`!)$&/; my $a2=$_; print "$_\n"; print "$a\n"; print "$a2\n"; 如何让第二次替换是基于huge dinosaur也就是最开始的字符串进行替换,而不是对于第一次替换后的字符串进行替换

by 落羽飘寻 - Perl - 2011-05-18 12:59:06 阅读(3087) 回复(5)

只是语法转换,不考虑源代码是否有逻辑错误。 假设两种语言的语法在功能是相同的,所有的源代码语法都有对应的目标代码语法表现形式。

by Perlvim - Perl - 2012-04-20 10:55:09 阅读(2085) 回复(18)

本帖最后由 sosolitude 于 2013-03-29 15:43 编辑 待替换文件中[code]/usr/bin/snmpwalk -v __Version__ -r 3 -t 3 -c __CommUser__ -r 10 -Cc -O U -O 0 __IP__ system [/code]替换脚本中变量[code]comm="ny@ban&sn#mp"[/code]想把__CommUser__替换成 ny@ban&sn#mp 替换脚本中的替语句[code]perl -p -i -e "s/__CommUser__/'${comm}'/g"[/code]替换后结果[code]/usr/bin/snmpwalk -v __Version__ -r 3 -t 3 -c 'ny&sn#mp' -r ...

by sosolitude - Perl - 2013-04-01 14:31:27 阅读(1158) 回复(2)

文件1.txt Entrez_Gene_Id Tumor_Sample_Barcode 182 TCGA-02-0043-01A-01W 220 TCGA-02-0089-01A-01W 220 TCGA-02-0028-01A-01W 286 TCGA-02-0083-01A-01W 286 TCGA-02-0028-01A-01W 287 TCGA-02-0015-01A-01W-0318-08 287 TCGA-08-0354-01A-01W-0318-08 287 TCGA-02-0064-01A-01W-0206-08 301 TCGA-02-0028-01A-01W 310 TCGA-02-0083-01A-01W-0206-08 324 TCGA-02-0015-01A-01W-0318-08 472 TCGA-02-0010-01A-01W-0189-08 472 ...

by xingzhou823 - Perl - 2013-03-19 07:04:26 阅读(1539) 回复(6)

我想把字符串aaaa...abbbbb的最后一个a替换成c,a个数有限但是未知,请问大牛们怎么实现啊

by gangwmsn - Perl - 2012-07-31 18:22:18 阅读(6178) 回复(14)

大家好。本人遇到一个perl替换问题。由于比较菜。解决不料此问题。到此请教各位大侠。 问题如下: 一 有一个文件,文件路径为d:\autocfg\compare\gcell.txt 文件内容如下: BSCName,CELLID,CELLNAME,TYPE,MCC BSC7,0,HG-BJ425-0,GSM900,460,00 BSC7,1,HG-MINIBJM177-0,GSM900,460,00 BSC7,2,HG-BJ371-0,GSM900,460,00 BSC5,0,HG-BJ477-2,GSM900,460,00 BSC5,1,HG-BJ739-0,GSM900,460,00 BSC5,2,HG-BJM504-1,GSM900,460,00 BSC4,0,H...

by zenistzw - Perl - 2012-03-01 15:58:05 阅读(1867) 回复(1)