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

关于pErl的字符串

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

用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";

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

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

$b = [@a]; push @$b, shift @a while @a; 顺便说两句: 这不叫字符串多值, 这叫 Array Reference (数组引用, 引用数组 ... ) Perl 不会将 string 当成 char array 的. perl 没有 char 这种变量形态 如可以, 请避用 $a $b (或 @a @b ) , 这两个变...

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

Perl字符串比较和整数比较 Perl字符串比较操作符 操作符描述 lt小于 gt大于 eq等于 le小于等于 ge大于等于 ne不等于 cmp比较,返回1,0,or-1 PS:切记整数比较操作符和Perl字符串比较不可同日而语。 整数比较操作符 操作符描述 大于 ==等于 =大于...

这个要看字符的本来编码是什么,只要记住perl内部是用utf8的就可以了,split函数可以完成你想要的功能的 utf8输入utf8输出 @m = split("", $str); print "$_\n" for @m; 假设输入gb2312 输出gb2312,就需要先转为utf8输出的时候再转回去 use Enc...

大小写字母转换: 函数 uc (uppercase) 将所有的小写字母转成大写; 函数 lc (lowercase) 将所有的大写字母转成小写; Perl提供了四个内置的函数类,从而能够轻松地改变字符和字的大小写。函数uc()会用大写返回其所有的参数,而lc()会用小写返回...

网站地图

All rights reserved Powered by www.bcmx.net

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