Perl

pb use et require

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : pb use et require

loothoof

Salut à tous.
J'ai un pb:
Voici mon code:

Code :

#!/bin/perl
require "fonctions_divers.pl";
use Mesure;
$date = recup_date();
print ("$date\n" );
my $mesure = Mesure->new("switch-G0-1" );
@tabcharge = $mesure->charge_cpu("/groupware/Projets/Stages/GSTAreseau/projet.ori/fin/rapport_mesures/","/usr/opt/local/bin/snmpwalk","$date" );
print("@tabcharge\n" );

Dans fonctions_divers.pl se trouve la fonction recup_date
Le pb est que sa ne marche pas.
il me marque: Undefined subroutine &main::recup_date called at essai.pl line 7.
Quand je j'enleve use Mesure la il arrive bien à executer recup_date mais pas Mesure->.... (evident)

Je ne c pas quoi faire
Quelqu'un a une idée?

Publicité

pospos

les bibilotheques (fichier .pl que tu require) c'est pas vraiment top...

vaut mieux faire de vrais module .pm!

le probleme vient surement du fait que tu require le meme fichier dans "Mesure"

transforme ta bibliotheque en un vrai module et tu n'aura plus à te soucier de ca!

loothoof

ok merci je vais essayer

loothoof

J'ai a présent un second pb que voici:
J'ai un script perl que je dois effectuer périodiquement,
pour ce faire j'utilise le cron.
Voici le script qui est executé:

Code :

#!/bin/perl
$ch_heure = "/groupware/Projets/Stages/GSTAreseau/projet.ori/fin/script/heure";
chdir ($ch_heure);
#recuperation des mesures programmees
system("ls *.pl>liste_mesures.txt" );
$heure2=$ch_heure."liste_mesures.txt";
open(MES,"$heure2" ) || die "Impossible d'ouvrir liste_mesures.txt";
while(<MES> )
{
#execution des scripts programmes
system("$_" );
}
close MES;
system("rm $heure2" );

Mais voila que j'ai un pb avec le repertoire $ch_heure en effet il me dit (lors de l'execution automatique) not found et du coup j'ai une erreur dans mon chdir. Or quand l'execute a la main le script marche bien.Je voulais savoir s'il y a vais un astuce. Merci.

pospos

ben c'est juste un probleme de repertoire courant: kand tu le lance en cron le repertoire courant n'est pas le meme que kand tu le lance à la main...

essai avec un chemin absolu pour voir

pospos

et essai d'ouvrire un nouveau topic pour chaque nouveau probleme

Taz

bisounours-codeur

avec un sondage pourri, non merci

burgergold

5$? va chez l'diable!

sinon utilise pas des commandes systèmes quand ya des équivalent sous perl

rm -> unlink
ls -> module File::Find

---------------
http://www.boincstats.com/signature/user_664861.gif

loothoof

J'ai mis le chemin absolu et tjs pareil.

pospos

affiche le repertoire courant dans ton script pour voir d'ou ca le lance

Publicité

loothoof

le Voici:
/groupware/Projets/Stages/GSTAreseau/projet.ori/fin/script/heure/mesures_prog
et moi je voudrai aller dans :
/groupware/Projets/Stages/GSTAreseau/projet.ori/fin/script/essai

loothoof

En faite c bizarre car quand je veut ouvrir un fichier dans ce script il me marque erreur de syntax. Pareil qd je veut utiliser une librairie(use).

burgergold

5$? va chez l'diable!

et c'est quoi l'erreur de syntaxe?

---------------
http://www.boincstats.com/signature/user_664861.gif

loothoof

voici les erreurs qu'il me marque

/groupware/Projets/Stages/GSTAreseau/projet.ori/fin/script/heure/mesures
_prog/mesure.pl: use: not found
/groupware/Projets/Stages/GSTAreseau/projet.ori/fin/script/heure/mesures
_prog/mesure.pl: syntax error at line 4: `open' unexpected

Alors que je ne fait pas d'erreur de syntax
voici la syntax:

Code :

use Tk;
open (ECRIRE,"> /groupware/Projets/Stages/GSTAreseau/projet.ori/fin/script/essai/fichier.txt" ) || die "Erreur de creation de fichier.txt" ;
require "chemins.pl";
chdir ("$ch_quo" );
#recuperation des mesures programmees
system("ls *.pl>liste_mesures.txt" );
$quotidien2=$ch_quo."liste_mesures.txt";
open(MES,$quotidien2) || die "Impossible d'ouvrir liste_mesures.txt";
while(<MES> )
{
#execution des scripts programmes
system("$_" );
}
close MES;
system("rm $quotidien2" );

burgergold

5$? va chez l'diable!

c'est ton script au complet ca?

et tu l'exécuté comment? en lancant simplement tonscript.pl ou en faisant perl tonscript.pl

---------------
http://www.boincstats.com/signature/user_664861.gif

loothoof

je l'execute dans le cron en lancant simplement monscrip.pl

burgergold

5$? va chez l'diable!

bin t'a pas de shebang en haut de ton script, alors il peut pas savoir avec quoi le lancer lui

#!/usr/bin/perl

selon où se trouve ton perl

---------------
http://www.boincstats.com/signature/user_664861.gif

loothoof

si si j'ai #!/bin/perl
excuse c mon copier collé qui a merdé

loothoof

Allo !!!! personne pour m'aider?

pospos

visiblement vu les erreurs qu'il te sort il a pas compris que c'etait du perl...

lance le explicitement avec perl et le nom du script en parametre

FORUM HardWare.fr

Programmation

Perl

pb use et require

Sujets relatifs
Problème avec un tableau et un require inclus dedans..	Quel différence entre Require() et Include() ?
[resolu] [facile] require	[php] Différence entre include et require ?
Différence entre le require_once et le include au niveau sécurité ?	On peut faire des require ou include sur des non .php
[PHP] Include/require à distance (résolu, merci!)	[php] "require" imbriqué
[php] require : comment que ça marche exactement	[PHP] require() ou include() ??
Plus de sujets relatifs à : pb use et require

Page générée en 0.077 secondes