- 论坛徽章:
- 0
|
#!/usr/bin/perl -w
#输出HTML档头
print"Content-type:text/html\n\n";
my $name=`ls /home/Dove/defect_week >/home/Dove/filename.txt`; //取文件名保存到filename.txt中
open(IN,"/home/Dove/filename.txt" ;
chomp(@a=<IN>;
foreach (@a) {
print "<a href='http://192.168.0.1/cgi-bin/check?s4=CAIXIAOG+2+yes+%2Fhome%2FDove%2Fdefect_week%2F$_&sel4=&submit=Search>$_</a>\n<br>";
} //循环打印文本数据,并且为每一条数据添加链接
close(IN);
问题是:在浏览器中查看时只能显示filename.txt文本中的一部分数据,有一部分没有显示出来,但在后台终端运行时,所有的数据都能正确显示,请问这是什么原因?谢谢
有没有更好的方式处理?因为我要把文本中的数据逐条取出来进行处理增加超链,希望大虾们多多指导 |
|