Perl基础知识

   最近刚刚开始接触perl的知识，简单的写点它的基本知识

字符重复操作符 小写字母x

例子
“fred” x 3     //结果是 “fredfredfred”

------------------------------------------------------------

标量的赋值
$fred = 17;         //��$fred的值设为17
$barney = ‘hello’;  //��$barney的值设为5个字符组成的字符串’hello’
$barney = $fred +3; //��$barney设为$fred 当前值加上3后的结果即20

-------------------------------------------------------------

获取用户输入
<STDIN>

例子

$line = <STDIN>;
if ($line eq "\n") {
  print "That was just a blank line!\n";
} else {
  print "That line of input was: $line";
}

-------------------------------------------------------------
chomp 操作符 （只能用在一个变量上，而且该变量的内容为字符串）

例子

$text  = "a line of text\n";
chomp($text)

-------------------------------------------------------------

列表直接量

(1,2,3)        //包含1、2、3这三个数字的列表
("fred",4.5)   //两个元素，"fred"和 4.5
(1..100)       //100个整数构成的列表
(1..5)         //与(1,2,3,4,5)相同
(1.7..5.7)     //同上
(5..1)         //空列表 仅向上计数
(0,2..6,10,12) //与(0,2,3,4,5,6,10,12)相同
……

--------------------------------------------------------------

qw 简写

qw! fred barney betty wilma dino !
qw{ fred barney betty wilma dino }
这两个例子是以!和{}来做为定界符
perl还允许你用其他任何标点符号作为定界符

--------------------------------------------------------------

列表的赋值

($fred,$barney,$dino) = (“flintstone”,”rubble”,undef);
($fred,$barney) = qw< flintstone rubble slate granite>;

--------------------------------------------------------------

pop和push操作符
pop 用来取出数组中最后一个元素，同时返回该元素值

push
@array = 5..9;
$fred = pop(@array);    # $fred 变成9 @array现在是(5,6,7,8)
$barney = pop @array;    # $barney 变成8 @array现在是(5,6,7)
pop @array;           # @array现在是(5,6)
push(@array,0);        # @array现在是(5,6,0)
push @array,8;       # @array现在是(5,6,0,8)
push @array,1..10;       # @array 得到了10个新元素
@others = qw/ 9 0 2 1 0/;
push @array, @others;   # @array 又得到了5个新元素

--------------------------------------------------------------

shift 和unshift 操作符

pop和push操作符是处理数组的尾端
unshift和shift 操作符是处理数组的开头

@array = qw# dino fred barney #;
$m = shift(@array);            //$m 变成 “dino”, @array 现在是 (“fred”,”barney”)
$n = shift @array;              //$n 变成 “fred”, @ array 现在是 (”barney”)
shift @array;                   //@ array 现在变空了
$o = shift @array;              //$o 变成undef,@array还是空的
unshift (@array, 5);                //@array 现在仅包含一个元素的列表(5)
unshift @array, 4;             //@array 现在是(4,5)
@others = 1..3;
unshift @array, @others;        //@array 变成了 (1,2,3,4,5)

froeach控制结构（能逐项遍历列表中的值，依次迭代）

foreach $rock (qw/ bedrock slate lava /) {
    print “one rock is $rock.\n”;           //依次打印三种石头的名字
}

----------------------------------------------------------------

Perl 的“老地方”：$_
假如你在forecah循环的开头省略了控制变量，perl就会使用它的“老地方”变量$_

foreach (1..10) { #默认会用 $_ 迭代
    pirnt “I can count to $_!\n”;
}

$_ = “Yabba dabba doo\n”;
print; # 默认打印 $_

后面会继续写一些关于perl的知识，请感兴趣者继续关注，互相交流谢谢。