www.bcmx.net > 关于pErl的字符串

关于pErl的字符串

ne $a = "a"; $b = "b"; print 1 if $a eq $b; print 2 if $a ne $b;

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

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

可以用index,例如: $str1="20090414095014"; $str2="20090414"; print index($str1,$str2); 运行结果是: E:\ygb>perl a.pl 0 如果返回-1表示没有,其实数表示$str2在$str1中的位置

数据库读出来的数据=$recordset $checkbox1 = "abc" $checkbox2 = "def" &check_box(1) if $recordset=~/$checkbox1/; &check_box(2) if $recordset=~/$checkbox2/;

@a = ('P','e','r','l'); $s = join('',@a); print $s;

具体函数我不清楚是否可以直接实现,但是可以通过变相实现。 #!/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...

perl中只有3种变量(或者需要一个确切的词,因为我是在国外学的):标量,数组和hash,分别是$ @ %来表示,因为perl变量是无类型的,所以一个标量即可以表达整数,浮点数,字符或字符串。比如 my $number=1; my $char='c'; my $string="good" 也...

就你那么写,使用双引号代替单引号就可以了,也就是: perl -i -pe "s/$oldso/$sonum1/" $sonum1.* 因为shell里面和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

网站地图

All rights reserved Powered by www.bcmx.net

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