用perl批量下butterfly的附件
来源:互联网 发布:centos 6.4 编辑:程序博客网 时间:2024/05/06 06:08
还是存在服务器保险点,记录下,主要就是从t_attachment表抓 已成为2进制的附件,数据库为mysql
#!/usr/bin/perl -w
use strict;
use warnings;
use DBI;
use File::Basename;
use File::Spec;
use Encode;
use Encode::CN;
my $database="MMMMMM";
my $host="xx.xx.xx.xx";
my $port =3306;
my $pmsfprojno="PMSF0000879";
my $dsn = "DBI:mysql:database=$database;host=$host;port=$port";
my $dbh =DBI->connect($dsn ,"root",'');
my $drh = DBI->install_driver("mysql");
$dbh->do("set names utf8;") ;
my $sth =$dbh->prepare("select f_file_name,f_content from t_attachment where hs_foreign_oid = ( select hs_uuid from t_usr_pmsf where hs_serial_no='$pmsfprojno' ) and t_attachment.hs_is_deleted=0 ");
$sth->execute;
while (my $ref = $sth->fetchrow_hashref()) {
my $filename =basename $ref->{'f_file_name'} ;
$filename =qq(C:\\$filename );
$filename= encode("gbk", decode("utf8", $filename));
my $filecontent = $ref->{'f_content'} ;
open OUTF, ">$filename" ;
binmode(OUTF);
print OUTF $filecontent ;
close(OUTF);
}
$sth->finish;
$dbh->disconnect();
- 用perl批量下butterfly的附件
- 记录下我当时post butterfly的perl代码
- Linux下用perl批量替换文本文件的内容
- perl 在butterfly的HDS中加用户
- 用perl脚本发送带附件的邮件
- 用perl脚本发送带附件的邮件
- 用Perl自动发送带有附件的电子邮件
- butterfly 安装目录下的文件small tips
- 记录下Butterfly似Bug非Bug的特性
- perl发html+附件的邮件
- perl常用的批量改名
- Butterfly
- Butterfly
- Butterfly
- 简单的java附件批量发送系统
- perl模块之MIME::Lite发送有附件的邮件
- perl模块之MIME::Lite发送有附件的邮件
- perl模块之MIME::Lite发送有附件的邮件
- int main(int argc,char* argv[])详解 (转载、疑问)
- IUP vc9编译
- Centos 5.5上安装 Apache php mysql(Lamp)
- linux网络编程:用C语言实现的聊天程序(异步通信)
- jWMS仓库管理系统
- 用perl批量下butterfly的附件
- 淡出效果
- python学习第八章
- 《Effective C++》条款02:尽量以const,enum,inline替换#define
- 正则表达式匹配字符含义
- HTTP协议的C语言编程实现实例
- mysql procedure游標控制的一個例子
- 航为问答天下ipa
- 电路设计中容易忽略的几个问题