最近因为工作需要，需要用到perl语言对csv文档进行解析
标量数据
1.数字，所有数字的内部格式都相同
2.字符串 可以用.操作符连接''hello''.''world" 等同于"helloworld"
标量变量
1.区分大小写
2.$fred = 1；print $fred；
defined($test)判断某个字符串是undef
qw缩写可以省略''
%哈希 @数组 $变量
结构体 use constant{ }
函数 use sub{ }
连接数据库
use DBI；库函数
my %oDbHash{$strDatabaseName}{hDb} = DBI->connect();
my $oDbHash{$strDatabaseName}{hSqlxxxxSelect}=oDbHash{$strDatabaseName}{hDb} ->prepare(sql);
$oDbHash{$strDatabaseName}{hSqlxxxxSelect}->do();
$oDbHash{$strDatabaseName}{hSqlxxxxSelect}->execute();
$oDbHash{$strDatabaseName}{hSqlxxxxSelect}->fetchrow_array(); #按行读取存入@row
$oDbHash{$strDatabaseName}{hDb} -> disconnect();
undef(oDbHash);
文件操作
if(open(DATA,'>',$strReportFile))
{
print DATA "<HTML>\n";
print DATA qq{<style type="text/css">\n}; #qq用来防止字符串里有""
}else{
die "report file failed,$!\n";
}
扫一扫
2045
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
