如何读取某个目录下的所有文本，将其改名成网页链接？

czyf2001

需要实现读取某个目录下的所有文件，然后将列出，并且改名为链接的形式？
谢谢！

czyf2001

#!/usr/bin/perl
use strict;

system("ls  |sort >; /webroot/yonghu/yhfile.dat"
my @yhlist;
my $root="/webroot/yonghu";
open($root,"<yhfile.dat" ||die("文件不存在";;
while(<yhfile.dat>
{
#
# 将yhfile.dat中的文件全部命名为<a href="${root}/xxx.html">;       
#
}
close($root);
system("rm -f /webroot/yonghu/yhfile.dat";

中间注释处怎么实现啊？
第一次使用perl哦！谢谢！

czyf2001

顶！

czyf2001

怎么没人啊？

apile

可能太簡單了所以沒人理..

while(<yhfile.dat>
{
  s/[\r\n]//g;
  print "<a href=\"${root}/$_\">;\n";
}

只是一個大概..你得自己做點修改..

ulmer

Using nativ Perl code instead of shell such as ls, pipe | etc...


For example:

1. 
   
2. 
   
3. #!/usr/bin/perl -wT
   
4. use strict;
   
5. 
   
6. my $path = '/var/www'; # put your path here
   
7. opendir DIR, $path or die "could't open $path: $!\n";
   
8. while (defined(my $file = readdir(DIR))) {
   
9.     # do your task here. f.g.print only text file
   
10.     print  qq(<a href="$file">;$file</a>;\n)
    
11.         if -T "$path/$file";
    
12. }
    
13. closedir DIR;
    
14. 
    

复制代码

Best,
    Ulmer

superdoctor

楼上的，readdir是不是还需要排除.和..？

ulmer

[quote]原帖由 "superdoctor"]楼上的，readdir是不是还需要排除.和..？[/quote 发表：


if you want, you can modify it any more!!!

1. 
   
2. next if $file eq '.' or $file eq '..';
   

复制代码

lc1111

请问怎么样！在文件目录出添加lable

多谢！比较急！我也有同样的问题。我想美化一下我的web输出！