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

如何用PErl实现字符串插入

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

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

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

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

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

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

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

my $a="sdafewe";my @arr=split//,$a;my @sorted =sort @arr; #按照ASCII码排序my @sorted_da_xiao=sort {$b$a} @arr;#按照从大到小排序

$path='C:\Users\' ; #路径opendir D1, "$path" or die $!; @array=grep(!/\.\.?$/, readdir D1); print @array;

一定是你的程序乱了,你的4句print语句是连着的吗?如果连着的不应该出现这种问题。我刚试了你的语句没有问题。 #!/usr/bin/perl$number = 0;$host="HOST";$username="USER";$password="PASS";$list[$number]{$host} = "192.168.1.130";$list[$n...

网站地图

All rights reserved Powered by www.bcmx.net

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