荔园在线

荔园之美,在春之萌芽,在夏之绽放,在秋之收获,在冬之沉淀

[回到开始] [上一篇][下一篇]


发信人: icefire (懒懒的心懒懒的我), 信区: Program
标  题: [转载] [转寄] Perl CGI脚本系列(1)--随机连接
发信站: BBS 荔园晨风站 (Sun Nov 22 19:16:22 1998), 站内信件

【 以下文字转载自 icefire 的信箱 】
【 原文由 icefire.bbs@melon.gznet.edu.cn 所发表 】
发信人: Anton (庭草无人随意绿), 信区: CGI
标  题: Perl CGI脚本系列(1)--随机连接
发信站: 华南网木棉站 (Thu Nov 19 17:34:57 1998), 转信

#! /usr/local/bin/perl
#该句在UNIX服务器上必须,可用"which perl"指令得到Perl解释器
#的绝对路径
#该脚本与本网站提供的"友情加盟"结合使用最佳.

# 变量的定义
$linkfile = "/home/path/database.txt";
#此为随机链接的数据文件,内容是一些主页地址.也可以
#借用"友情加盟"的database.txt.
# 选项
$uselog = 0;
# 1 = YES; 0 = NO
$logfile = "/home/path/rand_log";
#此值为"1",使用日志文件;反之,不使用.
#################################################################
#切记把此文件放置于系统的"cgi-bin"目录,并使其属性为755,即:"chmod 755
randlnk.pl".
#调用方式为:"<a href="http://your.host.com/cgi-bin/randlnk.pl">".
#################################################################
$date = `date +"%D"`; chop($date);
open (LINKS, "$linkfile");
srand();
# kick rand
$nlines=@file=<LINKS>;
# inhale file & get
# of lines
print "Location: $file[int rand $nlines]\n\n";
# print a random line
close (LINKS);
if ($uselog eq '1') {
   open (LOG, ">>$logfile");
   print LOG "$ENV{'REMOTE_HOST'} - [$date]\n";
   close (LOG);
}
exit;
 --------------------------------------------
 | 在看得到的地方,我的眼睛和你在一块...... |
 | 在看不到你的地方,我的心和你在一块...... |
 --------------------------------------------

※ 来源:.华南网木棉站 bbs.gznet.edu.cn.[FROM: 202.116.174.100]
--
※ 转寄:.华南网木棉站 bbs.gznet.edu.cn.[FROM: linux.szu.edu.cn]
--
※ 转载:.BBS 荔园晨风站 bbs.szu.edu.cn.[FROM: 192.168.0.22]


[回到开始] [上一篇][下一篇]

荔园在线首页 友情链接:深圳大学 深大招生 荔园晨风BBS S-Term软件 网络书店