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

数字比较运算符: , =, ==, != 字符串比较运算符: lt, gt, le, ge, eq, ne cmp: 比较字符串,返回 -1, 0 或者 1。 : 比较数字,返回 -1, 0 或者 1。 =~:用正则表达式来匹配,匹配的话返回True。 !~:和 =~ 相反,不匹配返回True。 数字比较...

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

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;}

看你想要怎样的比较结果啊cmp 函数相等的时候返回0,大于小于1,小于返回0,可能意义搞错了吧

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

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

参见perl正则表达式的理论,匹配的结果为布尔型,替换的结果为数值型(成功的话),就可以得到这个问题的解决办法:my $var = 'TCTCATGTGAAAAACTATATCAATAATATAAAAACA';my $count = ($var =~ s/A/#/g);print $count;进一步扩展这种用法,将你需...

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