Discussion :

[Baldric de Dol]

Je voudrais connaître la façon de récupérer certaines informations concernant la "structure" d'un fichier

Date d'accès
Nom du dossier ou du "surdossier" qui le contient
Date de création
Heure de création
Nom du fichier

ces 5 infos pour les intégrer dans un fichier plat


d'avance merci

[Jedai]

Tu peux utiliser stat() et le module (inclus dans le CORE) et File::Spec (rel2abs() et splitpath() feront l'affaire).

--
Jedaï

[Baldric de Dol]

pourquoi quand j'essaie d'utiliser la commande -M avec un nom de fichier

le programme me renvoie un message me signifiant que stat() est pas présent (je sais que -M fait appel à stat())

ou alors c'est que je réalise mal ma commande

...

:/

[Jedai]

Quel est le message exact ?
Montre le code !
Sur quel OS, avec quelle version de Perl ?
Quand est-ce qu'on mange ?

--
Jedaï

[Baldric de Dol]

Quel est le message exact ?
Montre le code !
Sur quel OS, avec quelle version de Perl ?
Quand est-ce qu'on mange ?

--
Jedaï

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
#!/usr/bin/perl
use strict;
use warnings;
 
 
my $fichier = "D:\\Documents and Settings\\ROUSSELA\\Desktop\\testi.pl";
 
 
my ($repertoire,$nom_fichier) = $fichier =~ /(.+[\/\\])([^\/\\]+)$/;
 
my $chemin = "D:\\Documents and Settings\\ROUSSELA\\Desktop\\infos";
my $date = ("D:\\Documents and Settings\\ROUSSELA\\Desktop\\infos" -M);
# my $date = ($chemin -m);
 
open (FH, ">>$chemin") || die $!;
 
print FH $fichier;
 
 
close (FH);

This is perl, v5.8.8 built for MSWin32-x86-multi-thread
(with 33 registered patches, see perl -V for more detail)
Copyright 1987-2006, Larry Wall
Binary build 819 [267479] provided by ActiveState

Sur Windows XP SP2

on mange à 21h00

et donc je pense que c'est moi qui ai mal compris comment faire appel à -M

[Jasmine80]

Quand je fais

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
#!usr/bin/perl;
 
use strict;
use warnings;
 
 
 
my $file = "D:/Perl_programs/test.txt";
my $date = (-M $file);
 
print $date;

J'obtiens une valeur numérique : 0.0568.... sans message d'erreur.

Normalement le module stat est installé dans les modules de base. Il doit donc déjà être présent.

C'est étrange de définir le chemin avec des doubles antislash. Mais je viens de tester et cela fonctionne bien.

Par contre si je place le -M après le chemin du fichier, comme tu le fais, j'ai une erreur de compilation.


Ceci fonctionne très bien également

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
my ($dev, $ino, $mode, $nlink, $uid, $gid, $rdev, $size, $atime, $mtime, $ctime, $blksize, $blocks) = stat($file);
 
print $mtime;