分享互联网

Trubo Linux 10下为Perl安装DBD::Mysql模块by jondy(jondy@tom.com)用到以前写的Windows下的perl连mysql的脚本才发现没有安DBI模块，在Windows下安装模块用PPM就可以了，很方便而在linux没有ppm这个文件linux下使用perl -MCPAN来安装模块，具体用法查看帮助perl -MCPAN -hperl -MCPAN

#!/usr/bin/perluse strict;use warnings;use Tk;use Tk::HList;use Tk::Adjuster;use DBI;use encoding euc-cn;my ($login,$server,$username,$password,$database,$db,$sql,$query,$percent_done,@tmp);my $

#!c:/perl/bin/perl.exe#   jondy #   http://blog.youkuaiyun.com/jondynetuse strict; use Tk; my $mainbg = "sendmail.dat";my $main = new MainWindow; $main->title(Perl SendMail 1.0;); $main->geometry("39

#!/usr/bin/perl# jondy# http://blog.youkuaiyun.com/jondynetuse MIME::Base64;use Tk;use Tk::LabFrame;my $main = new MainWindow;$main->title(Base64编码互换程序);$main->geometry("300x150");$main->LabFrame(-lab

#!/usr/bin/perl      ###################################### jondy       ## QQ:222411      ## http://zhack.blog.163.com/  ################################################            ## 这是一个简单的登陆baidu和g

#!/usr/bin/perl -wuse Tk;use Tk::DragDrop;use Tk::DropSite;use Tk::HList;use strict;use vars qw($top $f $lb_src $lb_dest $dnd_token $drag_entry);$top = new MainWindow;$top->Label(-text => "Drag items

名 称：PerlTidy的中文问题出 处：中国Perl协会 FPC作 者：[[chiesa]] 审 效：[[alexe]]Perlchina提醒您：请保护作者的著作权，维护作者劳动的结晶。 （作者最后更新：2005/9/12）"PerlTidy":http://search.cpan.org/~shancock/Perl-Tidy-20031021/. 是perl代码的美化工具。常见使用方法：pe

#!/usr/bin/perl      ###################################### jondy# QQ:222411# http://blog.youkuaiyun.com/jondynet#####################################use strict;use warnings;use IO::Socket; my $host = "221.

资料来源摘自perlpacktut，初学perl的时候，想必大家对於pack与unpack都不是很了解，因此本人撷取perldoc里面的文章，为各位简单说明pack与unpack的使用方法：首先定义一下pack与unpack：pack可视为将一系列的片段的数值打包在一起，可用於对dev档案、socket、memory的读写，因为这些需要一块完整的memory，而且需要事先打包成特定格式；而unpa