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

pErl 替换一段字符串

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

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

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

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

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

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

对于一些常用的匹配方式有时候不需要去编写复杂的匹配模式,正则表达式的\w \s \d \b与量词的组合能帮我们解决很多事情。 \w 匹配一个字母、数字或下划线字符,相当于[a-zA-Z_0-9] \s 匹配一个空字符 \d 匹配一个数字 \b 匹配单词的首尾 这些修...

首先获取.text文件名列表,你可以事先将名字写到一个文件里,如name.txt (linux下直接ls) #!/usr/bin/perl open NAME,"name.txt"; while (){ chomp $_; open IN,"$_"; @a=; open OUT,">$_"; foreach $b(@a){ chomp $b; $b =~ s/aaa/bbb/g; pri...

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

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