Pastable version of Take Last modified file in my FTP server

<pre class='prettyprint' language='perl'>#!/usr/bin/perl  
# Load the Net::FTP package 
use Net::FTP;

$host = 'http://refactormycode.com/';
$path = '/httpdocs/rep/';

$ftp = Net::FTP-&gt;new($host, Timeout =&gt; 60, Passive =&gt; 1)
	or die &quot;Cannot contact $host : $!&quot;;
$ftp-&gt;login('****', '*****')
	or die &quot;Can't login ( $host) : &quot; . $ftp-&gt;message;

print &quot;Login eseguito\n&quot;;

$ftp-&gt;cwd($path)
	or die &quot;Can't change directory ($oath):&quot; . $ftp-&gt;message;
print &quot;Switching to dir $path\n&quot;;

#Take filelist and sort by last modified field
@filelist = $ftp-&gt;dir();
@filelist = sort {(stat($a))[9] &gt;= (stat($b))[9]} @filelist;

#Take the first element 
$file =  $filelist[0];

#Extract filename form $file
$_ = $file;
m/^(.*)(\d+:\d+\s)(.*)$/;	
$filename = $3;

print &quot;Download &quot; . $filename . &quot;...&quot;;
$ftp-&gt;get($filename)
	or die &quot;$!&quot;;
print &quot;done\n&quot;;

#I want to untar in backup directory
print &quot;Create folder...&quot;;
system('mkdir backup');
#system(&quot;mv $filename backup/&quot;);
print &quot;done\n&quot;;

print &quot;unpacking....&quot;;
$command = &quot;tar xvf &quot; . $filename . &quot; -C backup/&quot;;
system($command);
print &quot;done\n&quot;;

print &quot;Delete old file...&quot;;
$command = &quot;rm &quot; . $filename;
system($command);
print &quot;done\n&quot;;</pre>
<a href="http://www.refactormycode.com/codes/541-take-last-modified-file-in-my-ftp-server" style="color:#fff" title="As seen on RefactorMyCode.com"><img alt="Small_logo" src="http://www.refactormycode.com/images/small_logo.gif" style="border:0" /></a>

Refactor :my => 'code'

Recent

Popular

Pastable version of Take Last modified file in my FTP server