Perl 应用实例

cas

第一次Perl项目中经常用到脚本
　　①创建目录



#@ARGV传入要创建的目录
&create_directory(shift);
sub create_directory(){
my $directory= shift;
my $mask=0755;  #权限--Windows可以不用
unless(-e $directory){
mkdir($directory);
}
}
#函数定义
mkdir(FILENAME, MODE); (UNIX)
mkdir(FILENAME); (Windows)
　　②获取当前文件相关目录信息
　　　◆获取当前文件名：　__FILE__ 　　※（包含完整的路径名）
　　◆获取当前文件所在目录：dirname(__FILE__)　　※（获取再上层目录可再加dirname）
　　③获取当前行号：__LINE__
　　④文本编码解码：



use Encode;
#将shiftjis转换成utf-8格式，保存到文件中
$encode_str="This is a shiftjis string!";
#打开文件
open TESTFILE,"E:\\$testfile" or die "can't open file $testfile";
print TESTFILE encode("utf-8",decode("shiftjis",$encode_str));
#关闭文件
close TESTFILE;
　　⑤读取目录下的所有文件的内容



my $fileDir="E:\\testDir";
#打开目录
opendir FILEDIR,$fileDir or die "Can't open dir $fileDir";
#读取目录下的所有文件
foreach my $file (readdir FILEDIR){
#包含. ..本目录和上级目录
unless ($file eq "." or $file eq ".."){
open FILE,"<$fileDir\\$file" or die "can't open file $!";
#读取文件内容
while(<FILE>){
print $_;
}
close FILE;
}     
}
　　⑥读取目录下文件及子目录下文件



use File::Next;
eval {
　　my $javaSourceDir="E:/testDir";
　　my $files = File::Next::files($javaSourceDir);
　　#加入过滤器 读取.java文件，去除.svn 文件  
   #my $files = File::Next::files({file_filter =>\&file_filter, descend_filter => \&descend_filter},$javaSourceDir);   
while ( defined( my $file = $files->() ) ) {
next unless ( -e $file );
print "$file\n";
}
};
if ($@) {
print "ERROR","文件读取失败。【详细：$@】\n";
}
sub file_filter {
# Called from File::Next:files.
# Only select video files that end with the following extensions.
/Constants\.(java)$/
}
sub descend_filter {
# Called from File::Next:files.
# Skip subfolders that either end in ".frames" or are named the following:
$File::Next::dir !~ /.svn$/
}
　　⑦Perl连接Access数据库



use DBI;
my $dbfile="F:\\perl.accdb";
my $connstr="dbi:ODBC:driver=microsoft access driver (*.mdb, *.accdb);dbq=$dbfile";
my $dbh;    #Database connection対象
my $sth;    #statement
#创建连接
eval{
$dbh=DBI->connect($connstr)  or die $DBI::errstr;
};
if($@){
die "创建连接失败！";
}
#SQL语句
my $query="insert into java_result values(?,?)";
#statement
$sth=$dbh->prepare($querySql) or die "Can't prepare statement: $DBI::errstr";
#执行语句
$sth->execute($var,$var2);
while ( my $row = $sth->fetchrow_arrayref ) {
for(my $i=0;$i<12;$i++){
print "$row->[$i]\n";
}
}
die $sth->errstr if $sth->err;
#释放连接
$dbh->disconnect;
　　
　　
　　￣□￣｜｜
　　zkaction
　　2013-12-12