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

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

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

具体函数我不清楚是否可以直接实现,但是可以通过变相实现。 #!/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作为Integer`声明塑料点击看详细暗淡作为字符串,B为整数`声明的字符串,b为整形点击看详细静态C作为字符串'静态声明的字符串。

$string1 = '1111'; $string2 = '2222'; $string = $string1,$string2, print $string,"\n"; $string = $string1.$string2, print $string; 结果: 1111 11112222 ,是运算符 . 是连接两个字符串

" + - * / " 的类型为: String, $str eq '*' 数字才是,$num == 9 foreach (split(//,$line)) { unless (/^ [0-9 \+ \* \/ -]+$ /x) { # No space allowed, as 3 + 2 print "Input error!"; last OUTERLOOP; }

ref可以判断是否是SCALAR类型。 但是:$a = "123"和$a=123是一样的。不知道你要具体判断哪种。

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