perl控制流介绍(if条件，while,for循环,foreach)

1. 语句块：
{ }之间的部分即为BLOCK语句块。

2. 条件语句：
if ( expression ) BLOCK;

if ( expression )
BLOCK1
else BLOCK2;

if ( expression1 )
BLOCK1;
elsif ( expression2 )
BLOCK2;
else
BLOCK3;

#倒置的if语句
expression if ( test_expression );

涉及到的关系运算符：
数字值比较：==, >, <, >=, <=, != ；注意用数字值比较运算符比较字符串时，字符串当作0处理；
字符串比较： eq, gt, lt, ge, le, ne；(undef被当作假来处理)
逻辑运算符：&&, ||, 和! ； and, or, not等。

3. 循环：
while (expression)
BLOCK;
do

BLOCK
while(expression);

for( initialization; test; increment)
BLOCK;

foreach $each (@list)
BLOCK;

4. 其他

last：最后一次了，跳出当前BLOCK，紧接BLOCK之后的代码往下。
next：这一次到此为止，对本BLOCK开始下一轮。
标号：类似于goto。
last 和 next 通常和 if 倒置语句或者标号结合使用，实现跳转。
exit语句： exit 0; 结束当前的Perl程序，返回OS；
注意：Perl中没有switch语句，使用if-else来模仿。

Perl文件读取的经典用法分享
用Open()函数打开文件打开文件的常用方法是:open(FH,"$filename")ordie"Couldn'topen$filenameforreading:$!";open()函数通常带有两个参数，第一个为文件句柄，用于指向

perl大文件读取处理的模块介绍
该模块用perl的数组代表一个文件，文件的每一行对应数组的一个元素，第一行为元素0，第二回为1，...文件本身实际并不加载到内存，对数组元素的操

perl跳过首行读取文件的实现代码
#!/usr/bin/perlopen(READ,"$file");readlineREAD;#skipthefirstlinewhile(READ){my($id,$axis1,$axis2,$axis3,$value)=split//;$line=sprintf("%d%d%d%d%d%d",$id,$axis1,$axis2,$axis3,$value,$axis1+$axis2);prin