perl（1）

输出 print“...”

@home=（，，） $home[i] 等号右侧则为[]

%home=(“1”=>”xiaohong”,) $home{“1”}

keys%home返回hash表的key值

values%home返回value值

返回值为@，顺序不一定是定义的顺序，因为hash表不在乎顺序

while(($key,$value)=each %hash)

{

print“$key => $value n”;

}

exists($home{“xiaohuang”})是否存在小黄

delett$home{“xiaohong”} 从hash表中删除小红

调用用户定义子过程，前面加或不加& $fido=&fetch()

perl-e ‘print “hello worldn”;’

chop不加区别地去处字符串地最后一个字符,并将 结果返回

chomp仅删除结束标记(通常是“n”)同时返回被删除的字符数

“”.”” .号连接字符串

“”x3 字符串重复三次

未赋值变量的值为undef

defined函数判断是否有值

数组最后一个元素的索引 ：$#数组名

qw（）相当于“”

pop函数在数组末尾取出数组元素$=pop（@array）

push函数在数组末尾压入数组元素push（@array，0）

shift函数在数组开头移除数组元素$=shift（unshift函数在数组开头添加数组元素unshift(@array,0)

reverse逆转数组@a1=reverse（@a2）

sort函数将数组按ASCII码进行排序

定义子程序

submarine{}参数可用$_[0],$_[1]等表示，参数数组为@_

子程序中定义私有变量

submax{

my($m,$n);

}

<STDIN><STDOUT>

./*.pl参数由@ARGV保存，程序自身名称被保存在$0中

printf“%d %sn”,$name1,$name2

12.3f表示小数有12位，包括小数点，小数点后为3位

输出百分号用 %%

改变默认输出句柄，用select

正则表达式

.通配符，且只匹配一次

.转义，为点号

*匹配前一项>=0次

+匹配前一项>=1次

？匹配前一项0次或1次

| 选择符，（|t）匹配空格或者tab

（+|t+）匹配空白

[a-zA-Z]匹配一个字母

[0-9]简写d

[A-Za-z0-9_]简写w[ftnr]简写s[^d]为的补集

//i不区分大小写

//s.号可以匹配换行符

//x添加空格

^表示开头

$表示结尾

bb词界描定，/bfredb/可以匹配fred，但不能匹配frederickbbunt可以匹配bunt，buntingbbuntB不可以匹配，可以匹配if（$some=~//） 如果匹配上则为真，匹配不上则为假

my$what=”larry”

if(/^($what)/)

$&:匹配上的那部分字符串将自动存储在$&之中

匹配部分的前一部分存放在$`后一部分被存到$'$`$&$'整个待匹配字符串

/a{5,15}/匹配a5到15无上限

/a{,15}/无下限

s///进行替换