举例: abc,dfg,0x1234; abc,fgh,tyu; 我需要把fgh替换成0x1234的反。 我把0x1234匹配到了$2,替换时直接写(~$2 & 0xffff)。perl直接把括号里的这些给放到那里了。 我想要的是他的结果。不知道如何替换? 哪位大侠帮帮我!谢谢了
print map { (split)[6] . "\n" } grep {/from= && /6 09:/} sed {s/from=<\(.*\)>/\1/}
本帖最后由 xiaozi0lei 于 2013-05-17 11:37 编辑
请教一个问题:
#!/usr/bin/perl -w
open FILE,"log";
open F2,"+
$_="huge dinosaur"; $_=~s/\w+$/($`!)$&/; my $a=$_; $_=~s/^(\w+\s+)/($`!)$&/; my $a2=$_; print "$_\n"; print "$a\n"; print "$a2\n"; 如何让第二次替换是基于huge dinosaur也就是最开始的字符串进行替换,而不是对于第一次替换后的字符串进行替换
只是语法转换,不考虑源代码是否有逻辑错误。 假设两种语言的语法在功能是相同的,所有的源代码语法都有对应的目标代码语法表现形式。
本帖最后由 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 ...
文件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 ...
大家好。本人遇到一个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...