下面的CODE在IE看没事,在NETSCAPE看就不行
有人知道是什么回事嘛?
这里可以看DEMO
ihome.ust.hk/~ee_lkm/
----------------------------------------------
#!/usr/local/bin/perl5
#list.pl
use CGI qw(:standard);
print `rm allfilelist `,"\n";
print `ls -F1 .. > allfilelist`;
print " \n";
print '
';
print "\n";
print "<\head>";
#print start_html("file list"),
print "\n";
print "
ihome file list
\n";
open (content, "allfilelist");
@a =
;
foreach $i(@a)
{
chomp ($i);
print "$i
\n";
}
close (content);
print "\n";
print "\n";
