<上一主题下一主题> 返回列表回复发帖

丸子

VIP会员

恋人：单身

Rank: 16

帖子: 2553
积分: 4557
经验: 6560 点
威望: 120 点
金钱: 65430 NG
魅力: 234350
性别: 男
来自: 空网
注册时间: 2010-10-9

我们约会吧!

1^#

打印

字体大小: tT

发表于 2001-12-29 19:39 | 只看该作者

【转帖】小工具，把目录下的图片生成页面

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);

收藏分享评分开心人人

回复引用人人网开心网

订阅 TOP

丸子

VIP会员

恋人：单身

Rank: 16

帖子: 2553
积分: 4557
经验: 6560 点
威望: 120 点
金钱: 65430 NG
魅力: 234350
性别: 男
来自: 空网
注册时间: 2010-10-9

我们约会吧!

2^#

发表于 2002-1-7 02:21 | 只看该作者

Re:【转帖】小工具，把目录下的图片生成页面

晕倒，大家对这个没兴趣？？？

回复引用人人网开心网

TOP

流星999

职业作家

恋人：单身

Rank: 8 Rank: 8

帖子: 2300
积分: 2300
经验: 2300 点
威望: 2 点
金钱: 1609 NG
魅力: 736
性别: 男
来自: 福建
注册时间: 2001-9-11

我们约会吧!

3^#

发表于 2002-1-7 21:22 | 只看该作者

Re:【转帖】小工具，把目录下的图片生成页面

我有兴趣呀~

★极度の空间★http://xingkong.tk

回复引用人人网开心网

TOP

丸子

VIP会员

恋人：单身

Rank: 16

帖子: 2553
积分: 4557
经验: 6560 点
威望: 120 点
金钱: 65430 NG
魅力: 234350
性别: 男
来自: 空网
注册时间: 2010-10-9

我们约会吧!

4^#

发表于 2002-1-7 21:47 | 只看该作者

Re:【转帖】小工具，把目录下的图片生成页面

那你知道如何用吗？

回复引用人人网开心网

TOP

流星999

职业作家

恋人：单身

Rank: 8 Rank: 8

帖子: 2300
积分: 2300
经验: 2300 点
威望: 2 点
金钱: 1609 NG
魅力: 736
性别: 男
来自: 福建
注册时间: 2001-9-11

我们约会吧!

5^#

发表于 2002-1-8 21:52 | 只看该作者

Re:【转帖】小工具，把目录下的图片生成页面

我试试~~~

★极度の空间★http://xingkong.tk

回复引用人人网开心网

TOP

丸子

VIP会员

恋人：单身

Rank: 16

帖子: 2553
积分: 4557
经验: 6560 点
威望: 120 点
金钱: 65430 NG
魅力: 234350
性别: 男
来自: 空网
注册时间: 2010-10-9

我们约会吧!

6^#

发表于 2002-1-8 22:09 | 只看该作者

Re:【转帖】小工具，把目录下的图片生成页面

可以了吗?

回复引用人人网开心网

TOP

安迪该用户已被删除我们约会吧!	7^# 发表于 2002-1-22 15:55 \| 只看该作者 Re:【转帖】小工具，把目录下的图片生成页面提示: 作者被禁止或删除内容自动屏蔽
	回复引用人人网开心网 TOP

<上一主题下一主题> 返回列表