You're most welcome!
Yes, Komodo appears to just be alerting you about <DATA>, but should certainly know better, since there's a __DATA__ section.
Try the following:
use strict;
use warnings;
use File::stat;
chomp( my @fileNames = <*.bak> );
my @sortedFileNames = map $_->[0],
sort { $b->[1] <=> $a->[1] }
map { my $stat = stat $_; [ $_, $stat->mtime ] }
grep /^backup_\d\d_\d\d_\d{4}.bak$/, @fileNames;
shift @sortedFileNames;
if (@sortedFileNames) {
print "$_\n" for @sortedFileNames;
#unlink @sortedFileNames;
}
This stats each file for the modification time, using it in the sort. Also, note that a file glob's used to read directory files...
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.
|