perl 常用模块使用例子------欢迎大家补充。

devel · 发表于 2003-12-7 20:57:26

（2）发送html内容[php]
#!/usr/bin/perl

use Mail::Sender;

open(IN, "< ./index.html") or die("");

$sender = new Mail::Sender{
                  smtp => 'localhost',
                  from => 'xxx@localhost'
                  };

$sender->Open({
            to => 'xxx@xxx.com',
            subject => 'xxx',
            msg => "hello!",
            ctype => "text/html",
            encoding => "7bit",
            });

while(<IN>)
{
$sender->SendEx($_);
}
close IN;
$sender->Close();

print $Mail::Sender::Error eq "" ? "send ok!\n" : $Mail::Sender::Error;[/php]
发送带有图片或其他信息的html邮件，请看`perldoc Mail::Sender`
中的“Sending HTML messages with inline images”及相关部分。

devel · 发表于 2004-1-8 21:00:15

40 Image::Magick
提供者：
http://www.imagemagick.org/www/perl.html

#!/usr/local/bin/perl

use Image::Magick;

my($image, $x);

$image = Image::Magick->new;

$x = $image->Read('girl.png', 'logo.png', 'rose.png');

warn "$x" if "$x";

$x = $image->Crop(geometry=>'100x100"+100"+100');

warn "$x" if "$x";

$x = $image->Write('x.png');

warn "$x" if "$x";
复制代码

The script reads three images, crops them, and writes a single image as a GIF animation sequence. In many cases you may want to access individual images of a sequence. The next example illustrates how this is done:

#!/usr/local/bin/perl

use Image::Magick;

my($image, $p, $q);

$image = new Image::Magick;

$image->Read('x1.png');

$image->Read('j*.jpg');

$image->Read('k.miff[1, 5, 3]');

$image->Contrast();

for ($x = 0; $image->[x]; $x++)

{

   $image->[x]->Frame('100x200') if $image->[x]->Get('magick') eq 'GIF';

   undef $image->[x] if $image->[x]->Get('columns') < 100;

}

$p = $image->[1];

$p->Draw(stroke=>'red', primitive=>'rectangle', points=>20,20 100,100');

$q = $p->Montage();

undef $image;

$q->Write('x.miff');

Suppose you want to start out with a 100 by 100 pixel white canvas with a red pixel in the center. Try

$image = Image::Magick->new;

$image->Set(size=>'100x100');

$image->ReadImage('xc:white');

$image->Set('pixel[49,49]'=>'red');

Or suppose you want to convert your color image to grayscale:

$image->Quantize(colorspace=>'gray');

Here we annotate an image with a Taipai TrueType font:

$text = 'Works like magick!';

$image->Annotate(font=>'kai.ttf', pointsize=>40, fill=>'green', text=>$text);

Other clever things you can do with a PerlMagick objects include

$i = $#$p"+1"; # return the number of images associated with object p

push(@$q, @$p);  # push the images from object p onto object q

@$p = ();       # delete the images but not the object p

$p->Convolve([1, 2, 1, 2, 4, 2, 1, 2, 1]); # 3x3 Gaussian kernel
复制代码

devel · 发表于 2004-4-8 18:15:58

41.Data::SearchReplace

use Data::SearchReplace ('sr');
sr({ SEARCH => 'searching', REPLACE => 'replacing'}, \$complex_var);
# or OO
use Data::SearchReplace;
$sr = Data::SearchReplace->new({ SEARCH => 'search for this',
REPLACE => 'replace with this' });
$sr->sr(\$complex_var);
$sr->sr(\$new_complex_var);
# if you want more control over your search/replace pattern you
# can pass an entire regex instead complete with attributes
sr({ REGEX => 's/nice/great/gi' }, \$complex_var);
# you can even use a subroutine if you'd like
# the input variable is the value and the return sets the new
# value.
sr({ CODE => sub { uc($_[0]) } }, \$complex_var);

复制代码

use Data::SearchReplace qw(sr);
sr({SEARCH => 'find', REPLACE => 'replace'}, \@data);
sr({REGEX => 's/find/replace/g'}, \%data);
sr({CODE => sub {uc($_[0])} }, \@data);

复制代码

sgm277 · 发表于 2007-2-25 10:00:05

为啥我make的时候提示我make不是内部或外部命令呢?我是在windows下装的perl.高手给指点一下

yuio654 · 发表于 2007-11-7 16:38:31

这帖不顶对不住楼主！！！

lxmxn · 发表于 2008-3-20 06:41:37

Post by sgm277;1653958
为啥我make的时候提示我make不是内部或外部命令呢?我是在windows下装的perl.高手给指点一下

因为你的系统搜索路径下根本就没有make这个命令，所以会报错，可以下载Win版的nmake来代替make。

Google "Download nmake"
or

xkdcc · 发表于 2011-4-28 17:36:43

太XX的帖子了！
顶！

xkdcc · 发表于 2011-4-28 17:38:01

搞不懂为啥帖主显示为“封禁”？

		自动登录	找回密码
密码			注册

perl 常用模块使用例子------欢迎大家补充。

本帖子中包含更多资源