Comment faire pour ajouter de la date du système à un nom de fichier en perl ?

Comment faire pour ajouter de la date du système à un nom de fichier en perl ?

Que je suis très nouveau à la programmation perl , pouvez-vous me donner un exemple simple pour la requête ci-dessus.

  • Êtes-vous créer de nouveaux fichiers ou vous avez déjà des fichiers à renommer? Qu'avez-vous essayé jusqu'à présent?
  • ont u essayé de R&D le problème vous-même. un rapide google pourrait aider u out!
InformationsquelleAutor JustCoder | 2013-08-30
  1. 1

    Cela peut aider u out!

    #!/usr/bin/perl
my $date=`date +%Y%m%d`;
chomp($date);
my $source_file="/tmp/fileName_.tgz";
my $destination_file="/misc/fileName_" . $date . ".tgz";
print "$source_file\n";
print "$destination_file\n";
system("sudo mv /tmp/fileName_.tgz /misc/fileName_$date.tgz");

    ou essayez cette

    my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
$year += 1900; 

my $out = "$dir/$host-$mday-$mon-$year"

    ou cette un

    # grab the current time
my @now = localtime();

# rearrange the following to suit your stamping needs.
# it currently generates YYYYMMDDhhmmss
my $timeStamp = sprintf("%04d%02d%02d%02d%02d%02d", 
                        $now[5]+1900, $now[4]+1, $now[3],
                        $now[2],      $now[1],   $now[0]);

# insert stamp into constant portion of file name.
# the constant portion of the name could be included 
# in the sprintf() above.
my $fileName = "File$timeStamp.log";
    • Votre premier exemple, s'appuie sur un programme externe appelée "date" et n'est donc pas portable. Votre deuxième exemple contient un bug (le mois de mal). Tous vos exemples ignorer l'existence de POSIX::strftime() qui permettrait de faire tout cela beaucoup plus facile.
    InformationsquelleAutor Digital Alchemist
  2. 4

    La strftime() fonction de la POSIX module donne un moyen facile d'obtenir une date dans le format que vous souhaitez.

    #!/usr/bin/perl

use strict;
use warnings;
use 5.010;
use POSIX 'strftime';

my $date = strftime '%Y-%m-%d', localtime;
say $date;

    Vous pouvez alors utiliser cette chaîne de caractères dans le nom de fichier de votre fichier. Si vous renommez un fichier, vous pouvez utiliser move() de la File::Copy module.

    InformationsquelleAutor Dave Cross