Discussion :

[Nadaa]

Bonjour tt le monde ,

Je debute en programmation en perl, je dois code un script qui me permet de recuperer une valeur apres excution de la commande "ls -l" je dois recuperer la taille d'un fichier et envoyer un email si la taille est tres grande.
POuvez vous me dire comment je peux ecrire un script perl qui execute la commande 'ls -l' et donne en retour la taille fichier par fichier?
Mile merci par avance,

[djibril]

Bonjour tt le monde ,

Je debute en programmation en perl, je dois code un script qui me permet de recuperer une valeur apres excution de la commande "ls -l" je dois recuperer la taille d'un fichier et envoyer un email si la taille est tres grande.
POuvez vous me dire comment je peux ecrire un script perl qui execute la commande 'ls -l' et donne en retour la taille fichier par fichier?
Mile merci par avance,

Tu peux parcourir en Perl un repertoire et donc recuperer tous les fichiers de ce dernier.
Il existe des fonctions qui te permettront d'avoir la taille de tes fichiers (fonctions stat).
T'as aussi le module MIME::Lite qui permet d'envoyer des mails, donc ton souci est faisable rapidement. Je vais pas faire le script car si tu debute, il est important que tu cherche un peu.
Regarde dejà dans la FAQ, on y a parlé du parcour de repertoire
sinon y a aussi les cours que David a ecrit qui t'aideront aussi pour debuter : lien dans ma signature.

Quand tu aura fais cela, on pourra t'aider pour les mails.
courage

[Nadaa]

Je te remercie pour ta reponse, ce que je voulais en fait recuperer lea taille lister apres execution de 'ls -l' en gros je ne sais pas comment acceder a la colone ou il y a la valeur de la taille d un fichier..

[Nadaa]

la commande ls -l c est un exemple en fait j aimerais reuperer la valeur de OFFSET colonne apres execution de la commande "watch ntpq -p"

[djibril]

dans ce cas, tu fais

Code :

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

@commande_ls = `ls -l`;

tu parcours le tableau et pour chaque case tu traite avec les regex ou split.
peux tu nous montrer ceque t'as en faisant ls -l!!

[Nadaa]

j ai ce resultat:


remote refid st t when poll reach delay offset jitter
==========================================
palm 0.0.0.0 16 u - 256 0 0.000 0.000 4000.00
blackberry 0.0.0.0 16 u - 256 0 0.000 0.000 4000.00
*LOCAL(0) LOCAL(0) 10 l 8 64 377 0.000 0.000 0.008



et j aimerais recuperer la valeur du offset, en utilisant un script en perl..

[vic]

Salut,

si tu veux juste la taille du fichier, tu peux faire simplement :

Code :

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

$taille = -s "/nom/de/fichier";

Pour récupérer la N-ième colonne, tu peux utiliser plutot :

Code :

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

<commande> | tr -s ' ' | cut -d ' ' -f N

(remplace N par le numéro de la colonne).