Perl

[Perl] POO et utilisation d'une method dans un print ou un shell exec

Recherche :

Sujet(s) à lire :
- [Perl] patterns avec un object

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [Perl] POO et utilisation d'une method dans un print ou un shell exec

burgergold

5$? va chez l'diable!

bon la semaine dernière j'étais venu pour un problème similaire.

J'ai une classe, qui a des méthodes

Code :

#!/dfs/system/prod/aix/rs_aix433/bin/perl/current/bin/perl
use strict;
use lib "/dfs/projects/sdcbrm/projects/aparcheck/dev/";
use aparcheck::apar;
my $apar = new aparcheck::apar( "oslevel" => "4.3.3",
"number" => "IY49899",
"date_204" => "",
"date_internet" => "",
"severity" => "",
);
#my @result_all = `instfix -d /dfs/system/prod/aix/rs_aix433/apar -p -k $apar->number 2>&1`;
print $apar->number . "\n";
print "$apar->number" . "\n";

Le résultat est le suivant:

yaberge2@info1 ==> test.pl
IY49899
aparcheck::apar=HASH(0x2003b480)->number

mais voila, quand j'exécute mon instfix, je veux qu'il utilise ma méthode, mais celui-ci utilise aparcheck::apar=HASH(0x2003b480)->number et non sa valeur, comme ceci

instfix -d /dfs/system/prod/aix/rs_aix433/apar -p -k aparcheck::apar=HASH(0x2003b480)->number 2>&1

je cherche comment utiliser ma méthode directement mais la doc sur la POO se fait rare...

Publicité

pospos

Tu lance le truc avec un system() ?
Pourkoi tu fais pas ca:

Code :

system("instfix -d /dfs/system/prod/aix/rs_aix433/apar -p -k ". $apar->number ."2>&1" );

burgergold

5$? va chez l'diable!

pospos a écrit :

Tu lance le truc avec un system() ?
Pourkoi tu fais pas ca:

Code :

system("instfix -d /dfs/system/prod/aix/rs_aix433/apar -p -k ". $apar->number ."2>&1" );

je le lance pas avec system parce que j'ai besoin de récupérer le résultat

pospos

tu le lance avec koi? un `` ?

dans ce cas tu peux faire:

Code :

my $cmd = "instfix -d /dfs/system/prod/aix/rs_aix433/apar -p -k " . $apar->number . "2>&1";
my @out = `$cmd`;

burgergold

5$? va chez l'diable!

pospos a écrit :

tu le lance avec koi? un `` ?

dans ce cas tu peux faire:

Code :

my $cmd = "instfix -d /dfs/system/prod/aix/rs_aix433/apar -p -k " . $apar->number . "2>&1";
my @out = `$cmd`;

c'est certain qu'ainsi ca fonctionne, mais ca me semble tjrs chiant de devoir faire ce genre de manipulation en 2 lignes lorsque ca devrait marcher avec une seule.

en attendant, j'utilise directement la référence de mon hash et non ma méthode

$apar->{number} au lieu de $apar->number

merci quand meme

pospos

tu te prend la tete pour pas grand chose!
Le fait de pouvoir le faire en une ligne c'est bien seulement si c'est plus rapide à faire et/ou plus facile à lire et à maintenir.

FORUM HardWare.fr

Programmation

Perl

[Perl] POO et utilisation d'une method dans un print ou un shell exec

Sujets relatifs
script shell pour concatener un ensemble de fichier.	Comment faire un shell_exec avec un utilisateur donné ?
C-Shell sous linux : question bete :/ par un bete lol	[Perl] patterns avec un object
Utilisation d'un ping	[Perl] Fichier dans un dossier ou sous-dossier
[Perl] Concaténer 2 arrays	Shell tcsh, script pour tests... Pour les pros de tcsh
[perl] un bon livre en perl ?
Plus de sujets relatifs à : [Perl] POO et utilisation d'une method dans un print ou un shell exec

Page générée en 0.053 secondes