Perl_学习笔记

use strict 定 义严 格模式。

 

use warnings 添加警告验证。

 

use utf8 指定Encoding为UTF-8。

 

 

use File::Basename

File::Basename中常用的方法有fileparse, basename, dirname。

fileparse方法会传回包含路经名称三个部份的串列。

dirname方法传回路经位置。

basename方法传回档案名称。

 

例:

use File::Basename; 

use strict; 

fileparse_set_fstype('MSWin32'); 

my $path='c:/perl/bin/perl.exe'; 

my($fname, $dir, $ext)=fileparse($path, '.exe'); 

print "Location: $dir/nBasename: $fname/nExtension: $ext/n"; 

my($basename)=basename($path, '.exe'); 

print "basename(): $basename/n"; 

my($dirname)=dirname($path); 

print "dirname(): $dirname/n";

 

输出结果：

Location: c:/perl/bin/

Basename: perl

Extension: .exe

basename(): perl

dirname(): c:/perl/bin

 

use Getopt::Long 输入参数用。

 

@array 相当于JAVA的ArrayList

例：

for($i=0; $i<=$#array; $i++) {

print "$array[$i]\n";

}

$#array：这是Perl的一个特殊用法，代表这个阵列最後一个元素的注标。

 

%hash 相当于JAVA的HashMap

例：

foreach $key (keys %hash) {

print "$hash{$key}\n";

}

foreach $value (values %hash)

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