Help for this page

Select Code to Download


  1. or download this
    opendir(DIRE, "/home/lenn287/public_html/diary");
my @files_exist = reverse sort  map { $_ =~ s/^(\d+)\.html$/$1/; $_} 
     grep { /^\w+.\.html$/} readdir DIRE;
closedir DIRE;
  2. or download this
    open my $FH,'<', '/home/lenn287/public_html/diary/'.$file_name.".html"
+;
  3. or download this
    for($first_file; $first_file<=$last_file;$first_file++) {
  4. or download this
    for my $f ($first_file .. $last_file) {