- 博客(10)
- 资源 (2)
- 收藏
- 关注
翻译 对列表以可计算的(特定的)字段来排序
翻译了一下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 2695
原创 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关注的人