一只感冒的老猫

这几天净捣鼓收取邮件的问题了,一开始用了些基本的模块,很多问题解决不了,查找了文档才有点眉目.先说说环境:Cygwin+Perl5.8+Mail::POP3Client+MIME::Parser+MIME::Entity+Time::HiResMail::POP3Client  封装了基本的Net::POP3,使用起来更简单MIME::Parser是MIME::Entity的子类,就是

#!c:/perl/bin/perl.exeuse LWP::Simple;#use LWP::Debug qw(+);use warnings;use strict;use Data::Dumper;my $new_throme_url = q(http://build.chromium.org/buildbot/snapshots/chromium-rel-xp/LATEST);my $use

配置文件:===================================================[AUTO_FTP_DOWN]#远程下载FTPIPHOST_IP_DOWN=127.0.0.1#远程下载FTP用户名HOST_USER_DOWN=11#远程下载FTP密码HOST_PWD_DOWN=11#远程FTP下载目录,从这个目录GET文件ROMOTE_DOWN_PATH=/

采用perl 5.10版本,DBD::Oracle 1.22 export ORACLE_USERID=test/test@test102 #########################################          for ORACLE client########################################export ORA

 #!/usr/bin/perl$|++;foreach (1..10){ print "/rthis is ", $_; sleep (1);}

use Errno qw(EWOULDBLOCK);   eval{   alarm($time_out);     #发送包   $succ_bytes=$socket->send("$_") || die "send date err! $!";      print "发送字节数为:$succ_bytes/n";   #接收包            #从包头读取包总长度       

 #!/usr/bin/perl -w# socket_cli.plx# usage # socket_cli.plx 同一个文件重复运行次数 发送socket包存放的文件 [从文件第几行开始运行]use strict;use IO::Socket;use Benchmark;my $addr = 127.0.0.1;my $port = 40169;my $for_num = $

 Perl安装到非默认路径的方式:perl Makefile.PL PREFIX=/lib/path Perl非默认路径模块的引用:Perl:use lib /lib/path;Shell:export PERLLIB=$PERLLIB:/lib/path perl -V可以查看@INC中的默认路径 这个路径卸载Config.pm文件中

 #!/usr/bin/perl -wuse strict; # always use strict, its a good habituse Getopt::Std; # see "perldoc Getopt::Std"my %options;getopts(f:hl, /%options); # read the options with getopts# uncommen

 #!/bin/perluse DBI;$dbname = "JSBSS_TEST";$user   = "oss";$passwd = "as1a1nf0";$dbh    = "";$dbh    = DBI->connect( "dbi:Oracle:$dbname", $user, $passwd )  or die "Cant connect to Oracle database: $

#!/usr/bin/env perluse strict;use Net::OICQ::TextConsole;#print "Crypt::OICQ version $Crypt::OICQ::VERSION, Net::OICQ version $Net::OICQ::VERSION/n";print "暴力扫描QQ用户列表密码!/n===========================

 #!/usr/bin/perl -wuse strict;use Parse::RecDescent;use Data::Dumper;sub chomp_str{    my ( $str ) = @_;        $str=substr($str,0,index($str,"/t"));        return $str;}my $grammar = q{    one_da

 #!/opt/perl/bin/perl -wuse strict;use Digest::MD5 qw(md5 md5_hex md5_base64);#校验文件函数sub calc_md5_hex() {    my ($file_name, $ctx, $md5);        ( $file_name ) = @_;     open (FILEHANDLE,$file_n

 #!c:/perl/bin/perl -wuse strict;use File::Find;my $file_num=0;sub l_time {    my ( $__in_time ) = @_;    my ($__now_time);    eval{    my ( $sec, $min, $hour, $mday, $mon, $year, $wday, $yday,

 ===============================#!/usr/bin/perl -wuse strict;our $max_child = 20;$|=1;my $grp_pid = getpgrp();foreach my $item (1..80){        my $p_count = `ps -ef|grep ${grp_pid}|grep

学习的原因就是觉得Perl比较强大,虽然现在不是很流行,不过作为Unix标准配置绝对是推荐的好工具,只希望perl6能够挽回当年的辉煌

#!c:/perl/bin/perl.exe##################################################################################   下载各大报纸电子版#   get_e-paper.pl -n paperName#   -l      显示当前支持报纸,即-n后可以支持的paperName##############