#!/usr/bin/perl
$path_files = "/home/user/";
$site = "http://linuxforum.ru/";
@file =`find $path_files -name "*.pl"`;
open (FH1, "> /home/user/index.html");

for $line (@file)
{
$pos = rindex ($line, "/");
$name = substr ($line, $pos+1);
($author, $nam) = split ("_", $name);
$poss = rindex ($nam, ".");
$na = substr ($nam, 0, $poss);
$author =  "автор" . " " . $author . " " . "книга" . " " . $na;
$line =~ s/$path_files//;
$path = $site . $line;
print FH1 "<a href=$path>$author</a>", "\n";
}
close (FH1);

#!/usr/bin/perl
my $path_files = "/var/log/";
my $site = "linuxforum.ru/";
my @file =`find $path_files -name "*.log"`;
@file = sort @file;

sub fold
{
$l = @_;
$data = @_ [0];
open (FHH1, "> $data");
$d = $data;
$d =~ s/$path_files//;
($ra, $raz) = split ("/", $d);
print FH1 "<a href=http://$site$d>раздeл $ra</a>", "<br>";
foreach ($1)
{
$data1 = @_ [1];
$data2 = @_ [2];
print FHH1 "<a href=http://$data1>$data2</a>", "<br>";
}
close (FHH1);
}

$pa = $path_files . "index.html";
open (FH1, ">  $pa");
for $line (@file)
{
$pos = rindex ($line, "/");
$name = substr ($line, $pos+1);
($author, $nam) = split ("_", $name);
$poss = rindex ($nam, ".");
$na = substr ($nam, 0, $poss);
$author =  "автор" . " " . $author . " " . "книга" . " " . $na;
$line =~ s/$path_files//;
$path = $site . $line;
if (split ("/", $line) > 1)
{
($n1, $n2, $n3) = split ("/", $line);
$pat = $path_files . $n1 . "/" . "index.html";
fold ($pat, $path, $author);
}
print FH1 "<a href=http://$path>$author</a>", "<br>";
}
close (FH1);