perl习惯用法

【1】标量上下文中的数组返回数组中元素的数量
@foo = qw(water pepsi coke lemonade);
$a = @foo;
$b = $#foo;
print "$a/n";  #4
print "$b/n";  #3

 

【2】标量上下文中的数组返回数组中元素的数量
@mydata = qw(oats peas beans barley);
if (@mydata){ #4 is true
 print "The array has elements!/n";
}

 

【3】输出@foo中元素的数量
print scalar(@foo); # scalar这个特殊的伪函数强制@foo在一个标量上下文中进行计算

 

【4】localtime函数，根据它所在的上下文，可以用两种完全不同的方法来运行。在标量上下文中，localtime函数返回一个格式化很好的当前时间字符串。例如，print scalar (localtime)这个代码，它输出的结果将类似于Thu Sep 16 23:00:06 1999。在列表上下文中，localtime将返回能够描述当前时间的一个元素列表：
($sec,$min,$hour,$mday,$mon,$year_off,$wday,$yday,$isdat) = localtime;
字段   值
$sec    秒，0 ~ 59
$min    分，0 ~ 59
$hour    时，0 ~ 23
$mday    月份中的日期， 1 ~ 2 8、2 9、3 0或3 1
$mon    年份中的月份， 0 ~ 11（这里请特别要小心）
$year_off   1900年以来的年份。将1900加上这个数字，得出正确的4位数年份
$wday    星期几，0 ~ 6
$yday    一年中的第几天，0 ~ 364或365
$isdst    如果夏令时有效，则为真
不要将19附加给localtime返回的年份。它返回的年份是1900的偏移量。比如，在1999年，年份是99;在2000年中,它是100,将1999与该值相加，可以在2000年以后正确地产生年份。perl不存在2000年问题，但是，如果简单地将19(或20)附加给该年份，就会导致程序中产生2000年问题。

 

【5】遍历数组
@flavors = qw(chocolate vanilla strawberry mint sherbert );
for($index=0; $index<@flavors; $index++) {  # @flavors是在标量上下文中计算的，计算的结果是5
 print "My favorate flavor is $flavors[$index] and ...";
}

 

【6】遍历数组，迭代器
foreach $cone (@flavors) {  # $cone设置为@flavors中的各个值
 print "I'd like a cone of $cone/n";
}
迭代器并不只是设置为列表中的每个元素的值，它实际上是对列表的元素的引用，如果修改该循环中的cone，就能修改@flavors中的对应元素

 

【7】标量转换成数组
@words = split(/ /, "The quick brown fox");
#@words包含了各个单词，即The、quick、brown和fox，

while(<STDIN>) {
 ($firstchar) = split(//, $_);
 print "The first character war $firstchar/n";
}
     第一行用于读取来自终端的数据，每次读一行，并将$_设置为等于该行。第二行使用空模式来分割$_。split函数返回来自$_中的这个行的每个字符的列表。该列表被赋予左边的列表，而该列表的第一个元素则被赋予$firstchar，其余均放弃。

@music = ('White Album,Beatles',
   'Graceland,Paul',
   'A boy Named Sue,Goo Goo Dolls');
foreach $record (@music) {
 ($record_name, $artist) = split(/,/,$record);
}

 

【8】要用数组来创建一个标量，也就是进行split的反向操作，可以使用join函数
$numbers = join(',', (1..10));
这个例子将字符串1，2，3，4，5，6，7，8，9，10 赋予$numbers.

$message = "Elvis was here";
print "The string /"message/" consist of:",
        join('-',split(//, $message));
输出将是：The string "message" consist of:E-l-v-i-s- -w-a-s- -h-e-r-e

 

【9】给数组重新排序，Sort函数将一个列表作为它的参数，并且大体上按照字母顺序对列表进行排序，然后该函数返回一个排定顺序的新列表。原始数组保持不变
@chiefs = qw(clinton bush reagan carter ford nixon);
print join(' ',sort(@chiefs));
它的默认排序次序是ASCII顺序。这意味着以大写字母开头的所有单词均排在以小写字母开头的单词的前面。用ASCII顺序对数字进行排序的方式与你期望的不一样，它们不按值来排序。例如，11排在100的前面。在这种情况下，必须按非默认顺序来进行排序。

 

【10】飞船运算符<=>,如果它左边的操作数小于右边的操作数，那么它返回-1，如果左边的操作数大于右边的操作数，则返回0
@numbers = qw(3 4 1 2 3 6 9 10 22 33 100);
@sorted = join(' ',sort {return(1) if ($a > $b);
                return(0) if ($a == $b);
                return(-1) if ($a < $b); } @numbers);
print @sorted;
等价于
@numbers = qw(3 4 1 2 3 6 9 10 22 33 100);
@sorted = join(' ',sort { $a <=> $b } @numbers);
print @sorted;
<=>只应该用来比较数字值，若要比较字母字符串，请使用cmp运算符

 

【11】reverse函数能够对字符串的字符进行倒序操作，返回倒序后的字符串
@lines = qw(I do not like green eggs and ham);
print join(' ',reverse @lines),"/n";
print join(' ',reverse sort @lines);
输出：
ham and eggs green like not do I
not like ham green eggs do and I

 

【12】打开文件,既接受绝对路径名，也接受相对路径名
->unix：
open(Myfile, "/usr/local/nav/exp.txt") || die;
->windows：(也接受UNC路径名，如//fileserver/sharename ---open(REMOTE,"//fileserver/common/foofile")||die;   )
open(Myfile,"C://Windows//users//exp.txt") || die;
或者
open(Myfile,"C:/Windows/users/exp.txt") || die;
->Macintosh(路径名是按卷、文件夹，然后文件这样的顺序来设定的，各个元素之间用冒号分开)
open(Myfile,"System:Utils:config")

 

读取文件句柄
$line = <Myfile>;
标量变量中的尖括号运算符能够读取来自文件的一行输入。当该文件被读完时，尖括号返回值undef。

若要读取和输出整个文件，可以这样
while(defined($a=<Myfile>)) {
 print $a;
}
不过有更简洁的方式：
while(<Myfile>){
 print $_;
}
while循环将负责把输入行赋予$_，并确保文件句柄尚未耗尽（称为文件结束）。这个奇特的运行特性只有在while循环中才能发生，并且只有在尖括号运算符是条件表达式中的唯一表达式时才能发生。

 

在大多数情况下，将整个文件读入一个数组（如果文件不是太大，只有对小型文件，才能将整个文件读入数组变量，否则会out of memory），是处理文件数据的一种非常容易的方法．
open(Myfile,"testfile") ||　die "opening testfile: $!";
@stuff = <Myfile>;
close(Myfile);
foreach(reverse(@stuff)) {
    print scalar(reverse($_));
}

 

【13】写入文件
open(NEWFH,">output.txt") || die "Opening output.txt: $!";
open(APPFH,">>logfile.txt") || die "Opening logfile.txt: $!";
close函数通知操作系统说，你已经完成写入操作，数据应该移到磁盘上的永久性存储器中：
close(NEWFH);
close(APPFH);

print函数实际上可以用于将数据写入任何文件句柄,语法：print filehandle LIST
open(LOGF,">>logfile") || die "$!";
if ( ! print LOGF "This entry was written at", scalar(localtime), "/n") {
 warn "Unable to write to the log file: $!";
}
close(LOGF);  #名字为logfile的文件被打开，以便进行附加操作。print语句将一条消息写入LOGF文件句柄。print的返回值被检查核实，如果记录项无法输出，便发出警告消息。然后文件句柄被关闭。

同时打开多个句柄：一个简单的文件拷贝
open(SOURCE,"soucefile) || die "$!";
open(DEST,">distinationfile") || die "$!";
print DEST <SOURCE>;
close(DEST);
close(SOURCE);

 

【13】在改写文件之前用于检查该文件是否存在,或者用于核实用户的输入信息，也可以用于确定需要的目录是否存在以及是否可以进行写入操作：

print "save data to what file?";
$filename = <STDIN>;
chomp $filename;
if ( -s $filename) {
     warn "$file contents will be overwritten!/n";
     warn "$file was last updated ",-M $filename, "day ago./n";
}