Perl 应用实例

第一次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