johns has asked for the wisdom of the Perl Monks concerning the following question:
#!/usr/bin/perl -w use warnings; use strict; my ($logdir) = '../demo'; opendir LOGDIR, $logdir or die "Cannot open $logdir: $!"; my @fileList = grep !/^\./, readdir(LOGDIR); closedir LOGDIR; my @unsorted = map { [ $_, (stat "$logdir/$_")[7,9] ] } @fileList; my @sorted = sort { $a->[2] <=> $b->[2] } @unsorted; print "content-type:text/html\n\n"; print <<"HTML code"; <html> <head> <META HTTP-EQUIV=REFRESH CONTENT="25"> <title></title> </head> <body bgcolor="#FFFFFF"> <center> <a href="2.pl?image=$sorted[-2][0]">$sorted[-2][0]<br></a> </p> <table width="100%"> <tr> <td align="center" bgcolor="#CCCCFF"> <p class="small"> <font size="2">Some Text</font> </p> </td> </tr> </table> </center> </body> HTML code 1;
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: [error] (26)Text file busy
by Anonymous Monk on Apr 22, 2009 at 21:50 UTC | |
by Anonymous Monk on Feb 16, 2013 at 21:02 UTC | |
|
Re: [error] (26)Text file busy
by ikegami (Patriarch) on Apr 23, 2009 at 00:02 UTC |