Archive for 三月 11th, 2009
折腾perl脚本
星期三, 三月 11th, 2009这两天没写程序，倒是和脚本较上劲了。主要是在ubuntu.cn论坛里收了ee的两个perl脚本。一个发图的，一个是将文件当成附件发送邮件的。
问题的关键是ubuntu和arch里的perl环境不一样。而arch的perl实在是太BT了。
这是ee的截图并上传脚本的帖子：
http://forum.ubuntu.org.cn/viewtopic.php?f=120&t=125239
arch环境中要运行它必须降级相关的perl模块，分别是perl-libwww-5.800 perl-www-mechanize-1.24
下面这个是ee的发送邮件附件脚本的帖子：
http://forum.ubuntu.org.cn/viewtopic.php?f=21&t=133299
arch源中我没找着Mail::Sender模块，于是自己搞了个PKGBUILD来安装它。
# $Id: PKGBUILD,v 1.11 2008/03/24 16:16:28 sergej Exp $
# Maintainer: Sergej Pupykin
# Contributor: Francois Charette
# PKGBUILD writer : lerosua
pkgname=Mail-Sender
pkgver=0.8.16
pkgrel=2
pkgdesc="Automates web page form & link interaction"
arch=(’i686′ ‘x86_64′)
url="http://search.cpan.org/Mail-Sender"
license=(’GPL’ ‘PerlArtistic’)
depends=(’perl-uri’ ‘perl-html-parser’ ‘perl>=5.10.0′)
options=(’!emptydirs’)
source=(http://search.cpan.org/CPAN/authors/id/J/JE/JENDA/Mail-Sender-$pkgver.tar.gz)
md5sums=(’e5d88236202b3d39567ade7d560797b0′)
build() {
cd $startdir/src/Mail-Sender-$pkgver
PERL_MM_USE_DEFAULT=1 perl Makefile.PL INSTALLDIRS=vendor || return 1
make || return 1
make install DESTDIR=$startdir/pkg || return 1
find $startdir/pkg -name ‘.packlist’ -delete
find $startdir/pkg -name ‘*.pod’ [...]