请教如何用perl编写cgi把文本也网页形式输出

crazymarz

UID: 14197
帖子: 165
积分: 379
在线时间: 1 天 13 小时

1^# crazymarz 发表于 2006-12-25 00:51

请教如何用perl编写cgi把文本也网页形式输出

请教如何用perl编写cgi把文本也网页形式输出
我想把服务器上的一个文本文件在我的网页上输出用下面的方式没有作用,请问是我的程序问题还是不该这么做, 能否给我提供一个例子使用的是appach,谢谢
#!/usr/bin/perl

$filename=/usr/local/bin/snort.txt
open(FILE,"$filename");
@array=<FILE>;
close(FILE);
print"Content-type:text/html\n\n";

print<<EOF
<html>
<body>
@array
</body>
</html>
EOF

请高手指导谢谢

hfahe

UID: 36097
帖子: 160
积分: 368
在线时间: 1 天 11 小时

2^# hfahe 发表于 2008-12-10 14:19

用正则进行替换

cnhacktnt

UID: 40772
帖子: 111
积分: 255
在线时间: 17 小时

3^# cnhacktnt 发表于 2006-12-26 03:38

[quote]#!/usr/bin/perl<b.
[quote]#!/usr/bin/perl

[color=red]$filename="/usr/local/bin/snort.txt";[/color]
open(FILE,"$filename");
@array=<FILE>;
close(FILE);
print"Content-type:text/html\n\n";

[color=red]print<<EOF;[/color] # 这里 EOF 后有分号的
<html>
<body>
@array
</body>
</html>
EOF[/quote]
呵呵，猜想这位朋友肯定经常写 bash 脚本：-）

crazymarz

UID: 14197
帖子: 165
积分: 379
在线时间: 1 天 13 小时

4^# crazymarz 发表于 2006-12-27 19:22

现在刚刚开始学习，想找找.
现在刚刚开始学习，想找找本有perl的cgi编程例子的书，请问有没有推荐