perl 字符串 *** 作_语言综合

概述 字符串数组元素赋值：@tmp=qw(aaa bbb kkk 9000);相当于@tmp= (“aaa”, “bbb”,“kkk”,“9000); 字符串比较，绝不能用== ,要用eq [macg@localhost perltest]$ vi tip.pl #!/usr/bin/perl print"input:"; while(chomp($input=<>)) { print"y 字符串数组元素赋值：@tmp=qw(aaa bbb kkk 9000);相当于@tmp= (“aaa”,“bbb”,“kkk”,“9000);

字符串比较，绝不能用== ,要用eq

[macg@localhost perltest]$ vi tip.pl

#!/usr/bin/perl
print"input:";
while(chomp($input=<>)) {
print"your input is $input \n";
if ($input=="q") { print "choose q \n";last;}
  elsif ($input=='n') {print "input is $input \n";next;}
      else { print "input ok,try again\n";}
print "input:";
  }

[macg@localhost perltest]$ ./tip.pl
input:x
your input is x
choose q

字符串用==是最常犯的错误

即使是整形，也尽量用eq,少用==

while(chomp($input=<STDIN>))
{
for($i=1,$found=0;$i<=$int_num;$i++)
  {
   if ($input==$i) { $found=1;}
         else

Do you want to change eth0:2 's ip address ? 回车

Argument "" isn't numeric in numeric eq (==) at ./address.pl line 77,<STDIN> line 2.
对整形变量$input==$i，如果$input是回车，并不走else,而是报错

   正确的做法是：    不论整形字符串，都用eq
while(chomp($input=<STDIN>))
{
for($i=1,$found=0;$i<=$int_num;$i++)
  {
   if ($input eq $i) { $found=1;}
  }
which interface you want to config ? choice a number 1 2 3 4 q:1
Do you want to change eth0 's ip address ?

    字符串几种连接运算符
    ，运算符，常用于输出
print "�金 ",$v1;
print $str,"\n\n";

    .运算符     和,类似也是字符串相加  但,通常只用于print 而.可以用在任何字符串相加的地方
print '12345 大家�跳舞' . " hello world";
�果�成：
12345 大家�跳舞 hello world

   x运算符号
print "OK" x 4;
�果�成：
OKOKOKOK

    为什么字符串相加只能用.  不能用+
因为可能+就是真加了（数字相加），而不是字符串合并

$v1 = 99; $v2 = '121'; print $v1 + $v2;	$v1 = 99; $v2 = '121'; print $v2 . $v1;
220	12199

字符串的连接可以连接整形和字符形，整形也被当作字符型处理，没有printf里的%d问题

$min=1;

$date="date "."0".$min;
print $date,"\n";

[root@ntracker mac]# ./tip.pl
date 01

uc �成大�,lc�成小�

$str="abCD99e"; $str = uc($str);	$str="abCD99e"; $str = lc($str);
[macg@localhost perltest]$ ./tip.pl ABCD99E	[macg@localhost perltest]$ ./tip.pl abcd99e