Select Code to Download

http://www.mysite.com/sorting.pl?page=2

200607140809.html (yyyy-mm-dd-hh-mm),

<!--topic:Metallic Coating-->
<!--title:Galvanizing for Corrosion Protection - A Specifier's Guide t
+o Reinforcing 
...
Corrosion and repair of corrosion damage aremulti-billion dollar probl
+ems. Observations on numerous structures show that corrosion of reinf
+orcing steel is either a prime factor, or at least an important facto
+r, contributing to the staining, cracking and spalling of concrete st
+ructures. These effects of corrosion often require costly
repairs and continued maintenance during the life of the structure. 
</p>

#!/usr/bin/perl -wT

...


opendir(DIRE, "/home/lenn287/public_html/diary")|| er_msg("cant open d
+irectory: $!"); #UPDATED

my @files_exist = reverse sort  map { $_ =~ s/^(\d+)\.html$/$1/; $_} 
     grep { /^\w+.\.html$/} readdir DIRE;

my @files_exist = reverse sort  map { $_ =~ s/^(\d+)\.html$/$1/; $_} 
     grep { /^\d+.\.html$/} readdir DIRE;
...
my $first_file = $page*5;
my $last_file = $page*5+4;
my @FILES;

for($first_file; $first_file<=$last_file;$first_file++) {
  push @FILES, $file->($files_exist[$first_file]);
}

for my $f($first_file..$last_file) {
  push @FILES, $file->($files_exist[$f]);
...