本文和大家重点讨论一下Perl字符串的一些基本操作,比如Perl字符串数组元素赋值:@tmp=qw(aaabbbkkk9000);相当于@tmp=(“aaa”,“bbb”,“kkk”,“9000)。至于其他操作请看本文详细介绍。
Perl字符串操作
Perl字符串数组元素赋值:@tmp=qw(aaabbbkkk9000);相当于@tmp=(“aaa”,“bbb”,“kkk”,“9000);
◆Perl字符串比较,绝不能用==,要用eq
[macg@localhostPerltest]$vitip.pl
#!/usr/bin/Perl
print"input:";
while(chomp($input=<>)){
print"yourinputis$input\n";
if($input=="q"){print"chooseq\n";last;}
elsif($input=='n'){print"inputis$input\n";next;}
else{print"inputok,tryagain\n";}
print"input:";
}
[macg@localhostPerltest]$./tip.pl
input:x
yourinputisx
chooseq
◆Perl字符串用==是最常犯的错误
即使是整形,也尽量用eq,少用==
while(chomp($input=<STDIN>))
{
for($i=1,$found=0;$i<=$int_num;$i++)
{
if($input==$i){$found=1;}
else
Doyouwanttochangeeth0:2'sipaddress?回车
Argument""isn'tnumericinnumericeq(==)at./address.plline77,<STDIN>line2.
对整形变量$input==$i,如果$input是回车,并不走else,而是报错
正确的做法是:不论整形Perl字符串,都用eq
while(chomp($input=<STDIN>))
{
for($i=1,$found=0;$i<=$int_num;$i++)
{
if($inputeq$i){$found=1;}
}
whichinterfaceyouwanttoconfig?choiceanumber1234q:1
Doyouwanttochangeeth0'sipaddress?
◆Perl字符串几种连接运算符
运算符,常用于输出
print"純金",$v1;
print$str,"\n\n";
.运算符和,类似也是Perl字符串相加但,通常只用于print而.可以用在任何Perl字符串相加的地方
print'12345大家來跳舞'."helloworld";
結果變成:
12345大家來跳舞helloworld
x运算符号
print"OK"x4;
結果變成:
OKOKOKOK
◆为什么Perl字符串相加只能用.不能用+
因为可能+就是真加了(数字相加),而不是Perl字符串合并
$v1=99;
$v2='121';
print$v1+$v2;
$v1=99;
$v2='121';
print$v2.$v1;
220
12199
◆Perl字符串的连接可以连接整形和字符形,整形也被当作字符型处理,没有printf里的%d问题
$min=1;
$date="date"."0".$min;
print$date,"\n";
[root@ntrackermac]#./tip.pl
date01
uc轉成大寫,lc轉成小寫
$str="abCD99e";
$str=uc($str);
$str="abCD99e";
$str=lc($str);
[macg@localhostPerltest]$./tip.pl
ABCD99E
[macg@localhostPerltest]$./tip.pl
abcd99e