xtrh.net
当前位置:首页 >> pErl中suBstr >>

pErl中suBstr

substr 方法 返回一个从指定位置开始,并具有指定长度的子字符串。 参数 start 必眩所需的子字符串的起始位置。字符串中第一个字符的索引为 0。 length 可选项。返回的子字符串中包含的字符数。 备注 如果 length 为 0 或负数,将返回一个空字符

open F,"1.txt"; #画面上文件open O,">2.txt"; #保存到2.txt@array=;$count=0;foreach (@array){s/\s+//g;if(/[A-Z]+/){@new=split(undef,$_);}foreach (@new){ $count++; if($count>=10 and $count=30 and $count=60 and $count

用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='01-06 02:16:42.781 16033 16040 V ImageCapturewithZoom: The set zoom is 1'; print substr($str,length($str)-1,1);#如果只是想要最后一个数字 if($str=~/set zoom is (\d)+/){ print $1;#如果想要固定格式后面的数字 }

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

测试通过的程序如下: $code="%e3%81%82%e3%81%84111%e9%9d%92"; $n=3; $i=0; $j=0; $new=''; while ($i

my $s = "The black cat climbed the green tree"; my $color = substr $s, 4, 5; # black my $middle = substr $s, 4, -11; # black cat climbed the my $end = substr $s, 14; # climbed the green tree my $tail = substr $s, -4; # tree my ...

if(substr('xxoo',$var)>0)或者 if($var=~/xxoo/)

把你的程序稍作修改你就知道为什么了 #!perl -w use strict; my $big="This is true"; my $small="is"; my @where; my $wh=0; my $n = 10; while($n--) { push @where, $wh; my $sub = substr($big,$wh); print "$n: substr:$sub"; $wh=index($s...

确保安装 nginx 时 ./configure 有加入 --with-http_perl_module 这一项,然后...{my $red = substr($url, $inx+9,); my $len = index($red, "\x...

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