月光软件站 - 编程文档 - 网站制作 - 写个在服务器端生成"缩略图"的脚本,嗯,原创阿```

网站制作

本类阅读TOP10

·IIS 安装配置全攻略
·html基础学习笔记（2）
·html基础学习笔记（1）
·用VS.NET打开网上下载的.NET web项目出错的解决办法
·如何在网页上实现进度条
·限制TextArea区的文字输入数量
·HTML 4.0 语言快速参考
·在weblogic上配置SSL
·页面垂直居中的两种方法
·Zope/Plone内容管理系统的探讨与应用－内容管理系统（CMS）的概述

→ 分类导航

VC语言	Delphi
VB语言	ASP
Perl	Java
Script	数据库
其他语言	游戏开发
文件格式	网站制作
软件工程	.NET开发

写个在服务器端生成"缩略图"的脚本,嗯,原创阿```

作者：未知来源：月光软件站 加入时间：2005-2-28　月光软件站

#!/usr/bin/perl

$identify=      "/usr/local/ImageMagick/bin/identify";
$convert=       "/usr/local/ImageMagick/bin/convert";
$composite=     "/usr/local/ImageMagick/bin/composite";

$convdir=       "./pics";       #源路径
$objcdir=       "./picd";       #目标路径

$tmp=           "/tmp/.conv.tmp";
$white=         "/root/white.jpg";

opendir(OD,$convdir);
@allds=readdir OD;
closedir OD;

foreach $alldf(@allds){
        if($alldf ne "." && $alldf ne ".."){
                system("$convert $convdir/$alldf  -resize 100x100 $tmp");
                open(SO,"$identify $tmp|");
                $allso=<SO>;
                close SO;
                @alls=split(/ +/,$allso);
                @wh=split(/x/,$alls[2]);
                $wh[1]=~s/\+[0-9]//g;
                if($wh[0]>$wh[1]){
                        $offset=(100-$wh[1])/2;
                        system("$composite -geometry +0+$offset $tmp $white $objcdir/$alldf");
                }else{
                        $offs=(100-$wh[0])/2;
                        system("$composite -geometry +$offset+0 $tmp $white $objcdir/$alldf");
                }
        }
}

这段代码的作用,是把"源路径"里的所有图片,转换成不大于100x100的缩略图片,然后加上背景(white.jpg),保存在"目标路径里"
关键是有这个：gif源图缩小了还是动态的
convert 1-8-51-32-357532324.gif -resize 50x50 ysl.gif

相关文章：

相关软件：