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

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

$s1="ABC"; $s2="XYZ"; $s3="LMN"; push @array, $s1,$s2,$s3;foreach (@array){s/\w+/Hello/g; print"$_\n";}

暗淡作为字符串'声明一个字符串,点击看详细昏暗B作为Integer`声明塑料点击看详细暗淡作为字符串,B为整数`声明的字符串,b为整形点击看详细静态C作为字符串'静态声明的字符串。

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

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

$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