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
页:
[1]