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

pErl 替换一段字符串

my $s = ''; my $d = '';open $H, $file;while () { tr/$s/$d/; print;}

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

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

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

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

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

my %data; open f1, "1.txt" or die "Can't open F1"; while ( chomp ( my $line = ) ) { $line =~ s/\s+(\d+)$//; $data{$line} = $1; } close f1; open f2, "2.txt" or die "Can't open F2"; while ( chomp ( my $line = ) ) { my @temp = spl...

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

自己运行去理解。 #!/usr/bin/perl use strict; # "$var[0]" 为数组@var的第一个元素。 # "$var\[0]" 将字符"["转义,等价于"$var". "[0]",$var被变量替换,[0]保持不变。 # "${var}[0]" 亦等价于"$var" ."[0]"。 # "$\{var}"则取消了大括号的...

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