www.bcmx.net > 如何用PErl实现字符串插入

如何用PErl实现字符串插入

用perl中的截取函数substr 用法 substr($a,0,4)其中$a是要切的,如你说的474.....,从第0位起向 后切四个字符 perl -e 'my $a=474000895745; my $b=substr($a,0,4);print "$b\n";' 4740

做个marker,从文件中每读入一行就让marker加1.当marker跟你的x行相同的时候。插入你需要插入的内容。 举个简单的例子: open IN,"f:/a.txt"||die $!; #读入文件 open OUT,">f:/b.txt"||die $!; #输出文件 $marker=0; $x=5; #要插入的行 while()...

$a="abc"; $b="123"; $c="$a$b"; # $c="abc123"; $c=$a.$b; # $c="abc123";

$| = 1; print "Input string: " ; chomp ( my $str = ); print reverse split //, $str;

用perl中的截取函数substr 用法 substr($a,0,4)其中$a是要切的,如你说的474.....,从第0位起向 后切四个字符 perl -e 'my $a=474000895745; my $b=substr($a,0,4);print "$b\n";' 4740

$str = 'XXXXX{AAAAA},{BBBBBB},{CCCCCCC}';@data = $str =~ /{([^\{]+)}/g;print "@data"; #AAAAA BBBBBB CCCCCCC 顺便也答一下, 您那 $str =~s/}/}\n/g 不行, 是因为 \n 在这里变成了 escape n ( 即告诉 regex 如果见到 n, 请不当它是特殊字符...

$a = "abc"; $b = "def"; print $a . $b ; # abcdef

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

具体函数我不清楚是否可以直接实现,但是可以通过变相实现。 #!/usr/bin/perl -w use strict; my $string = "China"; my @Array; for(my $i = 0; $i < length($string); $i++){ $Array[$i] = substr($string,$i,1); } for(my $i = 0; $i < @Arra...

不知道你想把加上换行后的值保存在什么样类型的变量里。 1.结果保存在标量里: my $str = "hello world"; my $rst = join "\n",split(/ /, $str); print "$rst"; 输出结果: hello world 2.结果保存在列表里 my $str = "hello world"; my @rst =...

网站地图

All rights reserved Powered by www.bcmx.net

copyright ©right 2010-2021。
www.bcmx.net内容来自网络,如有侵犯请联系客服。zhit325@qq.com