perl的基本构件:数字和字符串(一) perl字符串长度函数

perl的简单转义列表:
\n 换行
\r 回车
\t 制表符
\b 退格
\u 将下一个字符改为大写
\i 将下一个字符改为小写
\\ 直接量反斜杠字符
\' 用单引号('')括起来的字符串中的直接量'
\" 用引号括起来的字符串中的直接量"

qq 相当于双引号 q相当于单引号实例如下:
print qq(I said "Go then," and he said "I'm gone" \n);
print q(Jesse's and tom's);

界限符:<>(){}//......

标量:
变量名:a-z A-Z 数字或下划线_ 但是首字符不能使数字
变量区分大小写
标量变量使用的时候 不必进行声明或者初始化 如果使用数字 perl默认值为0
如果使用别的字符串 其默认值为" " 即空值.

特殊变量:
$_ 默认值
$_ = "what a country pao!";
print ;

#/usr/bin/perl -w 指的是perl的开关告诉perl遇到警告就通知你;

字符运算符: .表示连接
$a="mei qi";
$b="lu ya";
$c=$a . $b

重复字符串:x print "_" x 90;

带名字的运算符:
int(1.34)=1
length(meiqi)=5
lc("HELLO")=hello 转换成小写字母
uc(hello)=HELLO 返回和lc相反的结果
cos(50) 返回弧度50的余玄角
rand(5) 返回0到该数值之间的一个随机数

<>运算符 标准输入:

#!usr/bin/perl
print "What size is your shoe? ";
$size=<STDIN>;
print "Your shoe size is $size,Thank you";

[root@CHN-YX-1-01 perl]# cat hello.pl
#!usr/bin/perl
print "What size is your shoe? ";
$size=<STDIN>;
chomp $size; #chomp删除任何结尾处的任何换行符 它返回被删除的字符数1 但是如果没有字符删除 默认为0
print "Your shoe size is $size,Thank you";

递增和递减:
$counter=$counter + 1;
print $counter;

$counter=100;
$counter++;
print $counter;

#!/usr/bin/perl
$counter=100;
$counter--;
print $counter;

赋值追加运算符实例:
[root@80sa test]# cat test.pl
#!/usr/bin/perl

$line="hello world";
$line.=",at the end";
print $line;
[root@80sa test]# perl test.pl
hello world,at the end

#same as $y=$y*$x
$y*=$x;
print $y;

$r%=67;
print $r;

学习利息小实例:

[root@80sa test]# cat test.pl
#!/usr/bin/perl

print "Monthly deposit amount?";
$pmt=<STDIN>;
chomp $pmt;

print "Annual Interest rate? (ex. 7% is .0.7) ";
$interest=<STDIN>;
chomp $interest;

print "Number of months to deposit?";
$mons=<STDIN>;
chomp $mons;

$interest/=12;

$total=$pmt * (( 1 + $interest) ** $mons -1 )/ $interest;
print "After $mons months,at $interest monthly you \n";
print "will have $total .\n";