�Z?�Ѩ쩳?ԣ?�H

�Z?�Ѩ쩳?ԣ?�H

{$i.user_name}

#===============================
# mysql to excel
# lastmodify at 2005-1-5
# copyright by hoowa
#=============================
use strict; #从严语法检查评定
use DBI; #数据库引擎
use Unicode::Map; #Unicode引擎
#use Spreadsheet::WriteExcel; #Excel报表引擎
use Spreadsheet::WriteExcel::Big; #大文件Excel报表引擎

 

{$i.user_name}

warn qq~
mysql to excel

��?2016?�E�~?�Ĥ@����?��??�v????

{$i.user_name}

作者:hoowa

��?2015-2016?�~�줤�U?��������??�v????

{$i.user_name}

by hoowa.sun

sql: $ARGV[1]
~;

my $dbh =
DBI->connect(“DBI:mysql:mysql_compression=$trans_compress;
database=$dbname;host=$hostname”,$username,$password);
my $sth = $dbh->prepare(“$ARGV[1]”) || die $dbh->errstr;
my $rows = $sth->execute() or die $sth->errstr;

warn “rows: $rows found. “;

my @cols_name = @{$sth->{NAME}};
if ($#cols_name > $#cols) {
print “table $ARGV[1] fields out of allow!!(max num. >
“.($#cols+1).”) “;
exit;
}

warn “write to: $ARGV[0] “;

#生成GB2312编码系统
my $map = Unicode::Map->new(“gb2312”);
#发生报表
my $report = Spreadsheet::WriteExcel::Big->new(“$ARGV[0]”卡塔尔(قطر‎ || die
“不可能生成报表文件:$!”;
#创设报表的职业表
my $sheet = $report->add_worksheet(data_report);
#始建格式
my $title_style = $report->add_format();
$title_style->set_size(11); $title_style->set_bold();
$title_style->set_align(center);
#伊始化数据指针
my $sheet_col = 0;

#创制表格
for (my $i=0;$i<=$#cols_name ;$i++) {
$sheet->set_column($cols[$i], length($cols_name[$i])+4);
$sheet->write_unicode($sheet_col,$i,$map->to_unicode($cols_name[$i]),$title_style);
}
$sheet->freeze_panes(1, 0);#冻结行

while (my @row = $sth->fetchrow_array) {
$sheet_col++;
for (my $i=0;$i<=$#cols_name ;$i++) {
next if ($row[$i] eq );
$sheet->write_unicode($sheet_col,$i,$map->to_unicode($row[$i]));
}
}

warn “all done!!! “;

#结束
END {
$report->close() if ($report);
$dbh->disconnect();
}

那一个脚本是使用Perl生成excel
xls文件的工具。信任一些模块,你能够在linux下利用,爆发xls文件。使用办法是命令行+参数。特别方…

2016?����?�v5��??��?

  • Designer Name O
  • Designer Name P
  • Designer Name Q
  • Designer Name R
  • Designer Name S
  • Designer Name T

#深入分析来内容
if ($#ARGV != 1) {
print qq~syntax: my2excel.pl “[where expression]”
~;
exit;
}
$ARGV[1]=~ s/”//g;

��?2015-2016?�~�����U?��������??�v????

{$i.user_name}

my $hostname=192.168.1.133;
my $username=user;
my $password=pass;
my $dbname=db;
my $trans_compress=1; #别的非生机勃勃的数关闭数据库到程序间传输压缩

 

{$i.user_name}

my @cols=(A:A,B:B,C:C,D:D,E:E,F:F,G:G,H:H,I:I,J:J,
K:K,L:L,M:M,N:N,O:O,P:P,Q:Q,R:R,S:S,T:T,U:U,
V:V,W:W,X:X,Y:Y,Z:Z,AA:A,BB:B,CC:C,DD:D,EE:E,
FF:F,GG:G,HH:H,II:I,JJ:J,KK:K,LL:L,MM:M,NN:N,
OO:O,PP:P,QQ:Q,RR:R,SS:S,TT:T,UU:U,VV:V,WW:W,
XX:X,YY:Y,ZZ:Z);

�@�@�Z?�ѬO��??�v�W�̦��W���k�H�C�o���O�u�O�F�v��??�K��?�A�o���ͬ�??�N�n��@�T?���A?��??�᭻�A?�ӯe??�B�C???�T?�����i?�A�i�H�ݨ�@?�F?�H�~�B��[�u??�����Z?�ѡC
�@�@�ۻ���?
�@�@�Z?�ѬO�@����k?�O�@?��?���A�n���M�o�]��?�Q��өv�ݤ��A��?�~�H�C���O�Z?�Ѩs��?���\?�l�O�H�i�H?��r�������@�G�C�u?�ӥ����D�̹��Z?�ѡA�v??�ӥ����D���ۻ��O��??���A�����D��?�A��???���]�m?��?�n���@�K�T�m�~��?�n�^�C�o�^?���͡A?�J??�A??�]��??�A?�ŦX��N��?��?��C�v??��?�ѥH??�v���A�ҥH�Z?�ѥi��t���h�]�O???�l�C
�@�@�t�~�A�Z?��??�i�ण�C�C�Ѥ_??��]��?�G�A�Z�a�H���M?�l�������C�v?��??���Z�t�v�B???�D�A���O�p?�l�A���O�Z?�ѬO?�ҥ~�A����N��??���Z���?�A??���j�������]�m�³�??�n���|�^�A?����?����chang�A���O?zh?ng�A�Z?��?���O�L?�a�ڨ�?���̰����A���N�O?�A�o��?�l�O�a�ڨ��̰����C
�@�@20�@?80�~�N�A?���??�k?�x�a?�Q??�A�ۯ}���a�A�X�g�F�j�������媫�C���u�a?��?�O��??�A�b��¬ӫ�???�k?�x�����~�������Z�Z?�Ȥ@�y���A�Y�O�Z?�ѥͫe��?��?�ȡA�q�@�U�N���D�Z?�Ѫ��y?�B�����F�C��?�Ѫ��O�A?��?�ȥX�g?�M��L??�~�@?�A�����o��?�`�A?���@?�A?�H����u���ءC�ثe�A?��?�ȳQ�����O�ަb�媫��?��?�Ш��C���~?�a��?��??���`�C
�@�@?�M�v�ƨ����U��?���A�����O��r??�A�}?���@?�i�H���Z?�Ѫ�?���y?�U?�A�ר�O�O�o�P?�N���H?�o?�����C�y?��??���@�T?���X�ۡm?�N�j�H��?�n�A�O�����v�~??���A�A?���ܦh�M��¤��ŦX���a��A�u�i�H�ݧ@���¤H���Q�H�A�i�H�׫ܧC�C�ӥB��?�����Z?�ѳQ?�o??���a�A?��?����r�G���O�h�v��A�r�`���}�A�c?�����A�]??�`�C���u���i���A?�T?���@��?�Z?�Ѥj�[��?�A���Ұ�?�C
�@�@?�v�W?���L�T?�A�H?��?�������Z?�ѡA���O���ʥF?�w��?�u�C��p�A�m��Z��??�n�Q??�O��N�ۦW�j?�a?�����@�~�C?���O�Z?�Ѱ򥻦P?�N�A?�p�G�u�O�L?�@���A��?������Z���O�Z?�Ѫ��i��ʴN�ܤj�F�C�Ѥ_��?�w?��?�ҽk�F�A�i�H�ݤ@�U���H?�����m��Z��??�n�]�U?�^�G?�T?����?�����ӦZ�����ζH��?�M���A���̲ŦX�v?��??���Z?�Ѫ��^?�S���A�ҥH��?�N?���u��???�T?���N�O�y?�Z?�Ѫ��C�i�O??�b�_�A?�T?�O���O��N��?����?�C���H���u�䤤�X?���Ӵ�ۥH�Φˤl��?�k�A??���ȬO���H�Z���@�~�A�ӥB?�T?�]?��??��r�A�ҥH��??�w?���N�O�Z?�ѡC
�@�@?���@���J���]�Q??���i��O���ӪZ?�Ѫ��u�e��y���A�̵ۦW���N�O��???�۸]��?�٨��j��C
�@�@�j��?��17�̥H�W�A�O??�۸]�Ĥ@�j��A�Q����???�C���@��?�k�O�A?�L�j��?�O���ӪZ?�Ѫ��ۻ��J�誺�A�z�ѬO�׫�?�L�j�򪺬O���v�ӫҡA�Z?��??��ׯ�?���X??�U�C���ӥj�H��??�A��?������?�H��?�q?�Y�Ǥ覡�A��p��?�B�J�����A��ۤv���ζH�d�b�򯪨�?�C���O�@��??�A?�ۤv��?�������w����򯪨��W���}���h?�A�ר䦹?�Z?��?�u�O�ӦZ�A�o�������p���j??�O?��?�A�_??���v�ư����������u�C
�@�@�Z?�Ѥp?�Ԧb�|�t?���ͬ�?�A?������?�x���]���o���칳�C���O���w??���A?�s���O�Z�@½�ת��A�ҥH�]��??��b�h�j�{�פW�ϬM�Z?�Ѫ��u�e�C
�@�@?��?�H
�@�@�m�s��?�n??�G���ӦZ?�K��A�����\?�A?���k������I�C���Z?�Ѱh��?�w?�~?80�A����?���H�]��?�o�o��?80?���H�A�]?�Z?�ѫܵ��_�O?�A�u?�o������C
�@�@��N??�a��??���m�~�x���n�n��???�@?�����?�Ѥj�o�ӦZ?�q����d?�表�A�u�O��@�D�`��?���C�D�n���ƬO���뤭��������q����A����?�ԮڤW����?�g�C���Z�A�ͤz�A�Τ@?�d?�l?��?���ǡA�Τ�?�X�A�M�Z?��?�áA����?�J�j�p��?�l�A�A�ͤz�A�A��?�l�N�A�N��?��?�n�`�N����N�o???�w�A�n�N�X�զ�C�̦Z�Υ�?��H�A�A?�A??��3�ѡA?�~�O���~�C�Υ��~?�~��A�u?�i�H�ϥ�?�չ�C
�@�@??��@��k?�`?�C����ƭˬO����?�o�A�N�O?��@?�{�ӳ�?�F�C�o���k�I�ӥ����D���o���v?�A�]���_�O?�C�u?�ӥ����D�]���@?���e��A�O��N�@��?�s���m?���?�n��???���C��k��???�G�C��C���??��A�M�W�T��T�馬������᥽�A��?�\?�C�u?3��N���ġA�i�ϥ�?���աC?????�A�N�O???�妳?�I?�H�C
�@�@�Z?�Ѭۻ��O�~?��???�t��?�P�o���I�l�𤤩v?�ͤF?�P���߲z�_?�C��\�^�ƩO�H��?�F??�͡A�Z?�ѳQ��½�F�A�߱��ܮt�A�A�[�W�f�h��i�A�ҥH�]?�߱��O?��?�F�A?�G�@�U�l��???�A�������F80�h?�H��?�l�C�𤤩v�h�ݱ��?�A�L�w???�F��?���Ʀ~?�����աA�@???�j�Y�@�a�G��?�p��?�ѡA�M�H�e?���O�P�Y?�H�C�𤤩v�j??�ߡA�L?�o���O�ۤv�ϱo��??���F???�l�A�ҥH�D�`?���C
�@�@�k�Ӫ��\��
�@�@�Z?��?�Y���\�A��?�Y���\�A�j�a�]�ܷQ�d�M���C���O�ܥi���A?�譱���v��?�b�O�ӵ}�ʤF�A��?�ˬO���@��??�C
�@�@��?�O�Z?�ѳ�?�������A�o?�ӫҦZ�j����??�O�b?����?���C��?��?�ۦW�������u���]��?���S��b�u�^�A?�D��s�����P�桨�A�u?�N�M�Z?�Ѧ�?�t�C?�O���@�~��?���~��?���X�@?��30�h�窺�j?�R�A��??��?����A�K?��???�Z?�ѡC�Z?��?�s?�⥦������A�s??��?�R������ΡA�t�W�s�î����i��@�D?��C�Z?�ѦY�F?��?�f�A�]?��?�R���o�Ŧ��P??�A?�Y?�W?�����P�桨�C?���A?�D��?��?�F�C��?�u�O???�Ӥw�A��N?����???�C
�@�@��N?��??�_?�i?�q�A��?���i?�^�t??�����Φ��C�Ҧp�A��N�ܥi��?������A�Ϊ�?�Y�K���]�ܨu?�C���O�A?����??��?���������C
�@�@�m?���n���E�Q��??�F��N?�����b?�ӫҪ�?���b����?�C�䤤���G
�@�@����?���A�N�O�N��?�F �@�@??�B�A�O�Ϊ�?�M?�����尵���F
�@�@���`���A�⭱���M�W�e�A�M�W?���o�סA�M�Z���F
�@�@?�m?�A�N�O�[??���p��?�ߡF �@�@????�A�N�O��?���F
�@�@�����A�N�O���N�e�}�F �@�@���S?�A�N�O���p�J��F
�@�@�歹�A�Ϧצ�?�l��??�[�W��?�@?�I�i�N�F �@�@��??�A�p���׷L���C�W�F
�@�@�覿�ơA�N�O���]�סF �@�@��?�A�N�O???�F �@�@�P�H?�A�N�O�Υ��N??�F
�@�@?�ĭL�A�N�O?����?�F �@�@�p�Ѷp�A?�שM����?�M�F
�@�@?��??�A�N�O�[?�ת�?��?�����C
�@�@?���i�H�ݥX?��?���������C�ӫҴN�O�@�D��Y�@�f�]??�}�{�֪��C
�@�@?���b�O�Z?�Ѫ��I�l�𤤩v��?�Y?���C�Z?�ѭn�Q������?�۵M��?��A���O�Z?�Ѫ�?������?���j�a�Q�H�o���\���סA?��o���v�ЫH����?�C�Z?�ѬO?�@?����ЫH�{�A��?����Ю{?��Z��?��?�l�N??�s�פF�A�Z?�ѥX?�a�A?�F�ӫҦZ�]?��?��A�ҥH�o�ܥi��]�Y���A�Ϊ�?�b�@�w?��?�Y���C�ӥB�o?�Q��Y����?���?�C�o��?�U�O�ѤU�T�O�C��?�A???��??�Q?�M�A��?�y���b��??��?���A�]�D���?�Ʀܩx?�t�a�������C
�@�@�m�s�v�x?�n??�F??�@?�G�ơA�i�H�ݱo�X���U�H??�W���b�t�a?�ϸT�O�O�A�G�ƪ��D�H���O??�w�A??�L?���s�v�j�ҡA��?�{�X�t�C�Y????�ݤW�@?�סA??�w?�G��?��\�^�ơH�ӤW�T�O�A�A?�׭���?���H��??�^���G��?�O�Q�[�r�����ϡC��??�w�v�F�K�K�@���G����A?�[�u���ơC���_�O��?�|?�l�j�Y�_?�C�@?�I??�S�ݤW�@??�A?�N�O����??��?�סC??�w�S?�G��??�׭���?���H��??�^�G��?�O�[�r����?�C��??�w�j���@?�G����?�A�A�a�[��r��?�H�A???�O��?�r�����C��
�@�@�m?�v�q?�n???�F�@?�G�ơA��?�s?�w���H�A??�O�k�B?�A�L�o�l�Z�A?�u�b?�P���A�p�U?�F�@?�ϡC?�G?�Ȥ���?�s��?���a�뮨���äF�@?�סA�^?�Z�N�V�Z?��??�A??�w?�ϸT�O�O�C�ĤG�ѡA�Z?��?�F?�w?�G�����߰ڡA�v?�A�a�ͤF�@?�I�l�C��?�w��?�C�Z?��?��??�G�����׬O?����?���ڡH��?�w�@�v?�X�@���N���A�ߧY����?�o�C�Z?�Ѯ}�}�a?�G���ڪ��T�O�O�A����O���`?��?�͡A�a��?�ճߨƪ�?���b����S??�C��?�A�@�y�A�H�Z?�ȦY?�A�A�n�n�n??�@�U?�ȩO�I���M�Z�N���?�i?����?�F?�w�C��??���藍�_??�A?�¤�Z��??�L�C
�@�@�K?�ۡm�o�@?�G���𪺨��Ǥk�ʡn�A?��?�S�j?�X��?���X��

{$i.user_name}

$|=1;

图片 1

Designer Name Order H to N

那些脚本是采用Perl生成excel
xls文件的工具。依赖一些模块,你能够在linux下行使,产生xls文件。使用形式是命令行+参数。非常便利。
#!/usr/bin/perl

2016�~����?�v���{??

页面前碰着比混乱,你能够观看众多选项卡,并且有四个选项卡,点击每种选项,内容发生变化,况兼颜色也转移。

��?2016?���T�ĤT����?��??�v????

Designer Name Order A to G

 ??����>>

页面效果:

{$i.user_name}

admin

网站地图xml地图