PERL入门之一

perl的文档帮助命令：
#perldoc perl    
#perldoc perlfunc 函数分册
#perldoc perlop 运算符分册
#perldoc perlfaq 答疑分册
#perldoc -tf print 查询单个函数

打开文本编辑器，正确无误地键入下面这个Perl程序：
#!/usr/bin/perl
print "hello perluser!/n"
#!这个程序行应该是文件中的第一行。
保存文件为hello.pl/plx
cmd 到当前目录 perl hello
如果该命令不能运行，请进行下列检查：
1.如果看到出错消息Bad command or file name或者perl : command not found，那么表示
perl程序不在你的执行路径上。必须确定 perl程序究竟安装在什么地方，并将该目录添
加给你的shell中的path变量。
2.如果看到出错消息can’t open perl script hello : A file or directory does not exist（无法打
开perl脚本hello：文件或目录不存在） ，那么你可能没有进入早些时候保存 hello文件所
在的这个目录，也许你将该文件保存到另一个目录中了。
3.如果看到syntax error这样的错误，那么perl能够正常启动运行，但是无法确定 hello文件
中究竟有什么。也许键入的文件内容有错误，也可能使用了一个文字处理程序，它将格
式应用到保存的文件中了。可以使用 UNIX的cat命令，或者DOS的type命令，来核定文
件中的内容。如果键入的内容有误，你应该对所有内容进行检查，引号和所有标点符号
都很重要。
# 在perl中是注释；
#! 它后面的路径名/usr/bin/perl是到达perl解释程序的路径。

在Perl中，数字和字符串就是谈话的基本单位，这些基本单位称为标量。标量是Perl的单个名词，它们可以代表一个单词、一个记录、一个文档、一行文本或者一个字符.
变量可以在你对它进行操作时用来存放数据。可以改变变量的内容，因为它们只是作为它们代表的数据的句柄而存在的。
在双引号中，如果需要插入另一个引号，则必须使用反斜杠转义符。
给字符串加双引号和单引号的主要差别是：使用单引号的字符串含义是非常直观的，单
引号字符串中的每个字符就是表示它自己的含义。在双引号中的字符串中， Perl要查看是否存
在变量名或转义序列。转义序列是一些特殊字符串，你可以将难以键入和以后难以识别的字
符嵌入字符串。
标量变量：以美元符号称为类型标识符，用于告诉Perl该变量包含标量数据。
$cat $tiger
Perl中的标量变量在你使用它们之前，不必预先进行声明或初始化。
文件头说明：
#!/usr/bin/perl -w
这一行是到达Perl解释程序的路径,开关-w告诉Perl，只要遇到警告就通知你。

并置运算符(.),相当于链接运算符; $a . $b 将字符串$a和$b连接在一起。
$a = "ta"; $b = "ble";
c = &a.&b; print &c;  输出等同于 print "&a &b"; table;

&name = "yuriEbi";
print "abc &name";输出abc yuriEbi;
print 'abc &name; 输出 abc &name; 或者 print "abc /$name";

&{parameter name},在输出""中,{}确定参数的起始和结束。
int() 返回整数值； length("");返回字符串长度；
lc()返回小写字母;uc() 返回大写字母;
rand()返回0到参数之间的随机值，默认0-1之间；
$abc++(--) 递增 递减

当你将它用于一个文本字符串，而该文本字符串是以字母字符开始，后随字母字符或数字，
那么这个运算符就具有一种非常特殊的作用。字符串的最后一个（最右边的）字符被递增。
如果它是个字母字符，它将成为序列中的下一个字母；如果它是个数字，那么该数字将递增 1。
$a = 999;
$a++;
print "/n $a";
$a = "c9";
$a++;
print "/n $a";
$a = "zzz";
$a++;
print "/n $a";
测试看结果。

尖括号运算符（< >） ，有时也称为菱形运算符，主要用于读写文件。
<STDIN>表达式返回从键盘读取的这行信息：
print "请输入您的姓名:/n";
$n = <STDIN>;
print "您输入的名称是:$n."

chomp运算符能够删除它的参数结尾处的任何换行符。它返回被删除的字符数，这个数字
通常是1，但是，有时如果没有字符需要删除，那么返回的是 0。<STDIN>是以enter键结束
所以输出多了换行符好。
print "请输入您的姓名:/n";
$n = <STDIN>;
chomp $n;
print "您输入的名称是:$n."
语句$ a = $ a + 3；可以简化为 $ a += 3。

#!/usr/bin/perl -w
#计算银行存款
#这个程序将根据利率、存款和时间等信息来计算储蓄帐户的利息

print "客户最初存钱数：";
$pmt = <STDIN>;
chomp $pmt;

print "/n存款年利率(7% 就是 0.07):";
$interest = <STDIN>;
chomp $interest;

print "/n客户要存钱多少月：";
$months = <STDIN>;
chomp $months;

#每个月的月利率
$interest /= 12;

$total = $pmt * (((1+$interest)**($months-1))/$interest);

print "/n ${pmt}元存储${months}个月,在月利率是${interest}时,客户将有${total}元的利息收入。/n";