Solved

Set the modification and/or creation time of a file using Perl

Posted on 2004-08-18
1
1,285 Views
Last Modified: 2008-01-09
After using the Net::FTP module to copy files locally, I'd like to set the time and date of creation/modification to the same as that on the server.  I don't believe there's an option to do so using the Net::FTP module, so I'd like to manually set it after the transfer.  Any suggestions?
0
Comment
Question by:kesteloot
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
1 Comment
 
LVL 13

Accepted Solution

by:
gripe earned 125 total points
ID: 11833681
You can use the utime() function to modify creation times after your transfer and use the 'mdtm' method (from Net::FTP) to capture the mtime of the file before the transfer.

Example:

#!/usr/bin/perl

use warnings;
use strict;
use Net::FTP;

my $ftp = Net::FTP->new('ftp.host.com', Debug => 1)
    or die "Could not connect: $@";

$ftp->login("user", "password")
        or die "Could not login ", $ftp->message;

my $mtime = $ftp->mdtm("your.file.txt");
print $mtime;

$ftp->get("your.file.txt");
utime $mtime, $mtime, 'your.file.txt';
 
0

Featured Post

On Demand Webinar - Networking for the Cloud Era

This webinar discusses:
-Common barriers companies experience when moving to the cloud
-How SD-WAN changes the way we look at networks
-Best practices customers should employ moving forward with cloud migration
-What happens behind the scenes of SteelConnect’s one-click button

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

I've just discovered very important differences between Windows an Unix formats in Perl,at least 5.xx.. MOST IMPORTANT: Use Unix file format while saving Your script. otherwise it will have ^M s or smth likely weird in the EOL, Then DO NOT use m…
Checking the Alert Log in AWS RDS Oracle can be a pain through their user interface.  I made a script to download the Alert Log, look for errors, and email me the trace files.  In this article I'll describe what I did and share my script.
Explain concepts important to validation of email addresses with regular expressions. Applies to most languages/tools that uses regular expressions. Consider email address RFCs: Look at HTML5 form input element (with type=email) regex pattern: T…
Six Sigma Control Plans

717 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question