ACE封印

解决方式：1 删除文件rm -rf /usr/lib/stardict/plugins/stardict_spell.so 2 删除rm -rf ~/.stardict Read More

#!/usr/bin/perluse Net::FTP;$ftp = Net::FTP->new("ftp.cpan.org", Timeout => 30) or die "Could not connect.\n";$username = "anonymous";$password = ""; $ftp->login($username, $password)or die "Could not log in.\n";$ftp->cwd('/pub/CPAN&# Read More

方法一：#!/usr/bin/perl -wuse Net::SMTP;use MIME::Lite;use MIME::Base64;use Authen::SASL;my $from = 'xxx@xxx.com';my $passwd = '*********;my $to = 'xxx@xxx.com';my $messages = "Hello Rainbow!";my $msg = MIME::Lite->new( From => $from, To => $to,# Cc => 'xxx@ Read More

本文将重点涉及多账户用msmtp发信多账户用getmail定时自动收信最基本的procmail投递mutt基本配置mutt个性化配置用Mail-Notification提醒新邮件mutt的使用本文将不涉及发信验证的证书问题fetchmail收信procmail过滤信件字符界面新邮件提醒调用Emacs编辑信Linux下收发邮件的客户端有不少，但我的使用经历让我相信，mutt绝对快速、稳定、高效，而又可以充分定制，远胜于图形界面的工具。mutt并不是一个最优秀的邮件收发工具，却是最优秀的邮件管理工具。它可以调用最优秀的邮件收取工具、发送工具、分拣和投递工具、编辑工具。它本身将邮件显示、排序、类别切 Read More

1. 命令行模式下的发送邮件1.1 安装sendemail2.2 使用sendemail和举例2. 命令行模式下的收取邮件2.1 安装getmail42.2 配置getmail4和简单举例2.3 用munpack从邮件中抽取附件------------------------------------------------------------------------------------------------------------------------------------1. 命令行模式下的发送邮件1.1 安装sendemail 在Ubuntu下可以用新立得软件包管理器搜索安装 Read More

用perl写文本处理程序，或者写服务器端脚本的时候，常常会遇到“Wide character in print” 的警告或者错误。这是因为在程序中处理中文等宽字符时，perl不能识别要处理的内容。首先要知道perl只能处理两种编码：ascii码和utf-8。ascii码是很少的，像中文、日文、韩文等字符要想能被perl处理，只能用 utf-8编码方式。perl就会把那个字符串当做utf-8编码的字符来处理；如果是0，perl就不能认知字符串中除了 ascii码之外的字符，这个时候，就会报出“Wide character in print”的警告或者错误。举个例子，你要在程序中处理‘当历史成为历 Read More

本应用程序设计的几个基本理念是：l 工具箱再利用： 尽可能利用已有的工具；l 简化运行步骤； 不引入过多的业务逻辑，满足的需求越简单越好。所以，我们定义了本应用程序依赖于以下几个工具的运行：l ActivePerl-5.8.4.810-MSWin32-x86l Upload.pll Upload.config我们将主要的执行逻辑都放在Perl源文件Upload.pl中了，配置文件为Upload.config。 这个perl文件将执行的任务是， 按照指定的文件夹目录，自动将该文件夹下的所有文件上传到指定ftp站点的指定目录下。 这个Perl脚本实际是从Uwe Keim的《Perl Script Read More

考虑如下示例：@dates = qw(2001/1/1 2001/07/04 1999/12/25);你想按日期升序对它们进行排序，哪种方法最有效呢？最直观的Schwartzian转换可以这样写：@sorted = map { $_->[0] }sort { $a->[1] <=> $b->[1] or $a->[2] <=> $b->[2] or $a->[3] <=> $b->[3]}map { [ $_, split m</>, $_, 3 ] } @dates;然而，更高效的Guttman-Ros Read More

CategoryStateSGE Letter CodePendingpendingqwpending, user holdqwpending, system holdhqwpending, user and system holdhqwpending, user hold, re-queuehRwqpending, system hold, re-queuehRwqpending, user and system hold, re-queuehRwqRunningrunningrtransferringtrunning, re-submitRrtransferring, re-submitR Read More

优化方法首先，Perl是一门解释性语言，而不是类似于C/C++等编译语言。某些相似操作之间性能的差距可能非常巨大。现在让我们考虑清单 1 和清单 2 中的代码。这两段代码都是将两个字符串连接为一个字符串，一个是通过普通的连接方法实现，而另外一个是通过生成一个数组并使用 join 方法进行连接。 清单 1. 连接字符串，版本 1 my $string = 'abcdefghijklmnopqrstuvwxyz';my $concat = '';foreach my $count (1..999999){ $concat .= $string;} 清单 2. 连接字 Read More