• Lerosua on Twitter

    t
    Web Designers

  • 订阅

    抓虾
    google reader
    bloglines
    鲜果

  • 分类目录

  • 功能

    • « | Main | »

    折腾perl脚本

    By lerosua | 三月 11, 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' -delete
}

    Topics: patch | 评论关闭

    Comments are closed.