Perl 学习记录1 Perl的基本构件：数字和字符串

lfjigu

　　1.安装perl
http://www.perl.com/download.csp
下载windows版本的perl   ActivePerl
　　2.命令行下输入 perl -v 打印出perl版本
　　3.文档资料: 安装目录\Perl\html
　　4.注释
代码行上的 # 符号后面的一切均被视为注释行。注释是指 P e r l将对它加以
忽略的一些东西。
#！是不同的。它后面的路径名
/ u s r / b i n / p e r l是到达perl 解释程序的路径。
　　5.P e r l中的分号是个语句分隔符。
print "Hello,World!\n";程序行结尾处的\ n告诉P e r l将一个新的空行插入到它输出的短语的后面。短语前后的引号和 \ n告诉P e r l，这是个文字串，不是另一个函数。
　　6.在P e r l中，数字和字符串就是谈话的基本单位，这些基本单位称为标量。
对标量可以进行增加、减少、查询、测试、集中、清除、分隔、折叠、排序、保存、加载、输出和删除等操作。
P e r l中的标量能够代表直接量数据，它在程序的生命期内是不变的。有些编程语言将这些值称为常量或直接量。P e r l拥有两种不同类型的标量常量，它们都称为直接量。一种是数字直接量，一种是字符
串直接量。
P e r l中还有另一些类型的标量是变化的，它们称为标量变量。变量可以在你对它进行操作时用来存放数据。
P e r l拥有两种不同类型的标量常量，它们都称为直接量。一种是数字直接量，一种是字符串直接量。
　　7.美元符号称为类型标识符，用于告诉 P e r l该变量包含标量数据。
P e r l中的变量名，比如哈
希变量、数组、文件句柄和标量，必须符合下列规则：
· 变量名可以包含字母（a至z , A至Z）字符、数字或类型标识符后面的一个下划线字符（_） 。
不过，变量名的第一个字符不能是数字。
· 变量名是区分大小写字母的。这意味着变量名中的大写和小写字母都是有特定意义的
　　P e r l与某些其他编程语言不同，P e r l中的标量变量在你使用它们之前，不必预先进行声明或
初始化。若要创建一个标量变量，只要使用它就行了。当使用一个未经初始化的变量时，P e r l将
使用它的默认值。如果它被用作数字时（如数学运算中的数字） ，P e r l将使用0（零）这个值；如
果它被用作字符串（几乎其他任何地方都使用） ，那么Perl将使用“ ”这个值，即空字符串。
　　8.特殊变量$_
P e r l拥有一个特殊变量，它的值可以用作“默认值” 。对于许多运算符和函数来说，该变
量称为$变量。
　　9.开关 - w告诉P e r l，只要遇到警告就通知你。
#!/usr/bin/perl -w
　　10.并置运算符，用圆点（ .）来代表。
$a = "hello" ;
$b = " world";
$c = $a . $b ;
　　11.如果P e r l在双引号字符串中找到了一个变量，那么它将被内插替换。这就是说，双引号字符串中的变量名将被它的实际值代替
为了防止变量查找的字符串被内插替换，可以使用单引号（它不进行任何形式的内插替换） ，也可以在变量标识符的前面加上一个反斜杠
　　12.如果P e r l不能清楚地指明变量名在何处结束和字符串的其余部分从何处开始，那么可以使用花括号将变量名括起来。使用这个句法， P e r l就能够找到可能模糊的变量名
$dateday = "hello";
print "${data} world";
　　13.重复运算符 x。运算符x配有两个参数，一个是要重复的字符串，另一个是该字符串重复的次数
$line = "- " x 70 ;
字符-被重复70次赋给$line
　　14.< S T D I N >表达式从键盘读取信息，直到用户按下 E n t e r键为止。
#!/usr/bin/perl -w
　　print "你穿多大的鞋？";
$size = <STDIN>;
print "您的鞋的尺码是 $size";
　　在大多数情况下，你不希望在字符串的结尾处出现换行符。若要删除换行符，可以像下面这样使用c h o m p运算符
#!/usr/bin/perl -w
　　print "你穿多大的鞋？";
$size = <STDIN>;
chomp $size;
print "您的鞋的尺码是 $size,谢谢";
　　15.例子
#!/usr/bin/perl -w
　　print "每月存款金额？" ;
$pmt = <STDIN> ;
chomp $pmt ;
　　print "每年的利率是多少？ (例如 . 7 is 0.07)" ;
$interest = <STDIN> ;
chomp $interest ;
　　print "存款总月数？" ;
$mons = <STDIN> ;
chomp $mons ;
　　# 一级方程式需要每月利息
$interest /= 12;
　　$total = $pmt *((1 + $interest) ** $mons -1 )/$interest ;
print "当过了$mons个月，每月利息为$interest \n";
print "您总共有 $total.\n";