tnfh.net
当前位置:首页 >> pErl 字符串相等 >>

pErl 字符串相等

#!/usr/bin/perl -wuse strict; open IN,"b.txt"; print OUT "Simple{","\n";while(){chomp;if(/"(.*)"/){ my $len=(len...

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字符串比较不可同日而语。 整数比较操作符 操作符描述 大于 ==等于 =大于...

用 $a=ord($cnt); ord函数是把字符串转换成数字,chr把数字转换成字符串

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

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

open $A, 'A.txt';open $B, 'B.txt';while ($m = ) {$n = ;chomp $m;chomp $n;print X($m,$n), "\n";}sub X{my ($m, $n) = @_;my $r;for (0..length($n)) {$r .= substr($m, $_, 1) eq substr($n, $_, 1)?'0':'1';}$r;}

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

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

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

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