ynkf.net
当前位置:首页 >> pErl 替换一段字符串 >>

pErl 替换一段字符串

$s1="ABC"; $s2="XYZ"; $s3="LMN"; push @array, $s1,$s2,$s3;foreach (@array){s/\w+/Hello/g; print"$_\n";}

$a=hahahaha"sb"hahahah; $a=~s/"//g;

精通perl精通正则 use strict;use strict;my $string="fdasaaaaaaaa fasfasf4gtr";print $string,"\n";$string=~s/\/\/g; #对进行转义\> # .代表任意字符 #*代表任意个数 #?代表非贪婪匹配print $string;

#! /usr/bin/perl -w # changing all of 'adf' of every line within the file named 123 of the current directory to 'AWW'. open( _123_, "

T07/T08/T09 $aa=1; while ($aa

就你那么写,使用双引号代替单引号就可以了,也就是: perl -i -pe "s/$oldso/$sonum1/" $sonum1.* 因为shell里面和perl一样,单引号里面的$不解释,双引号的要解释

唔.. 你举的例子有点含糊 aaa 也是字符吧. 那你是想弄走 $ 和 > ? 还是想弄走"非数字" ? 还是你只想得到最後的数字 ? 你是想表达 "$aaa" ( $aaa 是一个变数) ? 还是 '$aaa' ( $aaa 一个字串) ? 就你问的而言, 我会写成 $str = "$aaa>1"; $str =~...

open F, "1.txt" or die $!;#把以上内容放到1.txt@array=;foreach(@array){if(/T(\d)\dC/ or /T(\d)\d+$/){s/$1/1/;} print "$_";}

while() { substr($_,$pos,$len)=$yourstring; print $outfile $_; }

网站首页 | 网站地图
All rights reserved Powered by www.ynkf.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com