- 博客(10)
- 资源 (2)
- 收藏
- 关注
RSS订阅翻译 对列表以可计算的（特定的）字段来排序
翻译了一下Perl Cookbook的第四章，第4.15章节。主要是为了自己以后能回顾。当然有很多的地方词不达意，如果发现，请斧正:)----------------------------------------------------------------------------------------对列表以可计算的（特定的）字段来排序 (关键词Schwartzian Transform)
2007-08-31 15:55:00
1245
原创 从百度下载mp3
一个很有限的下载功能，没怎么扩展。目的就是从百度下载一下mp3代码：把下载的url存到本地的一个 文本文件里：# !/usr/bin/perl # Script one :get_the_url.pl#use LWP::Simple;my $url = "http://mp3.baidu.com/m?f=ms&rn=&tn=baidump3&ct=134217728&word=%D0%ED%CE
2007-08-30 17:35:00
1209
原创 记录错误程序
昨天快下班的时候发现发邮件的程序出现了问题。原因是：同事每次需要我发送的邮件量月30多封，而我的程序每分钟只发送20封甚至更少。我又是放到crond里跑的，所以问题就出现了，crond没有等上个程序运行完毕又开始了下一个作业！(OMG)之前做过将perl程序做成deamon的东西，之后我就想是不是因为一分钟间隔太长了，所以又把程序做成了deamon，时时在跑。但是随后我发现，这样问题仍旧没有解决，
2007-08-28 12:27:00
863
原创 MySQL-python安装测试
下载源码包解压，vi README之后进行安装： $ tar xfz MySQL-python-1.2.1.tar.gz $ cd MySQL-python-1.2.1 $ # edit site.cfg if necessary $ python setup.py build $ sudo python setup.py install # or su first编译的时候没有成功，之
2007-08-24 15:28:00
3319
原创 日期计算小函数
给calc_mon传一个月数的参数，打印对应那个月对应的天。比如，想看2个月前的日期，调用：cacl_mon(-2);use POSIX qw(strftime mktime);print cacl_mon(-2);sub cacl_mon { my $m = shift; my $op = $m >= 0 ? "+" : ""; ($sec,$min,$hour,$mday,$mon,$y
2007-08-08 18:47:00
1022
原创 perl集合操作
参考：perl cookbook@a = qw(1 2 3 4 5 8 6);@b = qw(2 3 5 6 8 9 10);@c{@a} = ();(not exists $c{$_}) && push @only_in_b,$_ for @b;$union{$_}++ && $isect{$_}++ for (@a,@b);@u = keys %union;@i = keys %ise
2007-08-07 13:39:00
2389
原创 Catalyst安装
介绍文档里说有起码有三种安装方式，但是因为我用cpan每每不成功，干脆用下载的方式搞定了。(前提：Perl 5.8.1+)1.下载 CatInABox.tar.gz2.解压之后，进入源码目录，一定要看看README.运行 ./start.sh这个是设置环境变量的。3.echo $PATH,检测一下源码已经能被perl找到。4.自己建立一个工作目录，比如/root/web/test/，进入。5.运行
2007-08-01 20:14:00
2694
原创 Perl FTP实践
同样是advprog上的一个例子，确实好用。#!/usr/bin/perluse Net::FTP;$ftp = Net::FTP->new("ftp.digital.com");die "Could not connect: $!" unless $ftp;$ftp->login(anonymous, me@foo.com); # Guest User; email as passwd
2007-08-01 11:33:00
1018
原创 POP3收信的perl客户端
看advprog里面的Perl代码，自己试验了一下，很好用。主要是把新浪邮箱里我不关心的邮件统统删除。#!/usr/local/bin/perluse Net::POP3;$m = Net::POP3->new(pop.sina.com.cn); # Name of POP serverdie "Could not open account" unless $m;$n = $m->login(
2007-08-01 11:30:00
1984
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人