This is bad $year+1900; :) use File::stat through Path::Tiny, use Time::Piece , the convenience is very convenient :) and the error checking exeptions are free sub cftsain {
use Time::Piece qw/ localtime /;
use Path::Tiny qw/ path /;
my( $source, $destination, $testxt ) = @_;
my $sourceStat = path( $source )->stat;
my $destStat = eval { path( $destination )->stat };
if( not $destStat ) {
path( $source )->copy( $destination );
} else {
my $sourceMtime = $sourceStat->mtime;
my $destMtime = $destStat->mtime;
if( $sourceMtime > $destMtime ) {
path( $source )->copy( $destination );
}
}
if( index( lc( $source ), 'ky2.gif' ) > -1 ) {
out_exclusive(
$testxt,
localtime( $sourceStat->mtime ),
localtime( $destStat->mtime ),
);
}
} ## end sub cftsain
-
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.
|