【转帖】小工具，把目录下的图片生成页面
code:[/SIZE]
#!c:/perl/bin/perl
# 把目录下的图片文件合到一个HTML页面中。
# 限win32平台。
# 列出目录中的图片文件，按后缀排序
$dir = `dir *jpg *jpeg *gif *bmp /oe/b`;
# 获取当前目录的名字，作为该页面的标题
@index = split(/\n/, $dir);
$pwd = `cd`;
@pwds = split(/\\/, $pwd);
$title = pop(@pwds);
# 写文件
open(INDEX, ">index.htm"
;
print INDEX qq[<HTML>
<HEAD><TITLE>$title</TITLE></HEAD>
<BODY bgcolor="#ffffff" text="#000099" link="#660066" vlink="#cc99cc" alink="#33ff99">];
foreach $_ (@index)
{
print INDEX qq[<img src="$_"><br>\n];
}
print INDEX qq[</BODY>
</HTML>];
close(INDEX);
Re:【转帖】小工具，把目录下的图片生成页面
晕倒，大家对这个没兴趣？？？
Re:【转帖】小工具，把目录下的图片生成页面
我有兴趣呀~
Re:【转帖】小工具，把目录下的图片生成页面
那你知道如何用吗？
Re:【转帖】小工具，把目录下的图片生成页面
我试试~~~
Re:【转帖】小工具，把目录下的图片生成页面
可以了吗?
Re:【转帖】小工具，把目录下的图片生成页面
提示:
作者被禁止或删除 内容自动屏蔽
欢迎光临
空网论坛 (http://bbs.kongweb.net/)
作者:
安迪
时间:
2002-1-22 15:55
;