Вход на сайт
Perl Скрипт:
56 просмотров
Перейти к просмотру всей ветки
Привет, мне нужно, что-бы он вычитывал только 10 Файлов, а не все, из папки.
Знает кто как это сделать?
Спасибо
Валентин
#!/usr/bin/perl
#Fehlerausgabe an Browser
use CGI::Carp qw(fatalsToBrowser,0);
require "setup/setup.pl";
print "Content-type: text/html\n\n";
opendir(DIR,"$htmlpfad/aangebote",0);
@filesa = grep {/^\d{1,}.+?\.html$/i} readdir DIR;
closedir(DIR,0);
$anzahla = @filesa;
if ($anzahla > 0) {
print "Angebote";
print "<ul>";
foreach $anza (@filesa) {
open(F,"$htmlpfad/aangebote/$anza",0);
$ada = join('',<F>,0);
close(F,0);
$ada =~ s/(<title>)(.+?)(<\/title>)/$2/is;
print "<li><a href=\"$htmlverz/aangebote/$anza\">$2</a>";
}
print "</ul>";
}