Onderwerp: [Perl] system() or exec(), zonder return value ajb...

Hallo allemaal,
even een PERL vraagje...

Ik heb een scriptje wat bepaalde commando's uitvoert, maar op het stukje code hieronder gaat het mis:

Code:

                $retval = system("/usr/lib/mailman/bin/rmlist -a $list");
                if($retval != 0) { $retval = system("/usr/lib/mailman/bin/rmlist $list"); }
                if($retval != 0) { system("/bin/echo"); }

Dit is een stukje uit een foreach, dus daar haalt ie de $list value vandaan.

In principe zou dit moeten werken, echter: "rmlist -a" geeft een ERROR return terug als er geen archief gevonden is. Hij voert zijn taak wel uit, maar geeft een error return terug: perl script FAALT en exit.

Ik probeer dus nu het zo te maken dat ie:
rmlist -a --> geen archief? --> rmlist zonder -a --> anders doe niets

Dit werkt echter niet... exec heb ik ook geprobeerd, werkt ook niet echt.
Hij stopt gewoon na dat stukje code.

Enig idee hoe ik dit commando kan laten uitvoeren zonder een return value, zodat de plugin van hierboven niet faalt en alles met een SUCCESS afgerond wordt?

is het niet zo bij perl en exec dat op moment hij je een commando niet uit kan voeren je gelijk een or erachter kan zetten als tweede argument.

Code:

exec("/usr/lib/mailman/bin/rmlist -a $list") or exec("/usr/lib/mailman/bin/rmlist $list");

heb even snel voor je op perldoc nog zitten kijken
The exec function executes a system command and never returns-- use system instead of exec if you want it to return. It fails and returns false only if the command does not exist and it is executed directly instead of via your system's command shell (see below).

Oorspronkelijk geplaatst door Mikey

heb even snel voor je op perldoc nog zitten kijken
The exec function executes a system command and never returns-- use system instead of exec if you want it to return. It fails and returns false only if the command does not exist and it is executed directly instead of via your system's command shell (see below).

Dat dacht ik dus ook, maar... blijkbaar faalt ie wel...

Oorspronkelijk geplaatst door raqtweak.com

Dat dacht ik dus ook, maar... blijkbaar faalt ie wel...

bij falen kun je or gebruiken, dit is terug te vinden in perldoc (exec())

Oorspronkelijk geplaatst door Mikey

bij falen kun je or gebruiken, dit is terug te vinden in perldoc (exec())

Dit heb ik ook geprobeerd, precies zoals jij zei... Maar, werkt niet. Haal ik alle exec()'s weg, werkt het...

Code:

if ( ! system("/usr/lib/mailman/bin/rmlist -a $list") ) {
        system("/usr/lib/mailman/bin/rmlist $list");
}

of

Code:

system("/usr/lib/mailman/bin/rmlist -a $list") &&
        system("/usr/lib/mailman/bin/rmlist $list");

Maar als ik jou was, zou ik de eerste kiezen.

Alhoewel mij niet helemaal duidelijk is wat je nou met je return value bedoeld. Is dat de output of de exit value van je commando?

Heb het uiteindelijk met:

my $remove = `command`;
opgelost... dat werkt wel...

Oorspronkelijk geplaatst door raqtweak.com

In principe zou dit moeten werken, echter: "rmlist -a" geeft een ERROR return terug als er geen archief gevonden is. Hij voert zijn taak wel uit, maar geeft een error return terug: perl script FAALT en exit.

Letterlijk "ERROR"? Werkt iets als:

Code:

my $retval = `/usr/lib/mailman/bin/rmlist -a $list`;
if($retval == "ERROR") {
    `/usr/lib/mailman/bin/rmlist $list`;
}
print "done\n";

Of geeft het commando een statuscode (0, 1, 99, 100) terug? In dat geval kan je de $? raadplegen, iets als:

Code:

my $retval = `/usr/lib/mailman/bin/rmlist -a $list`;
if($? == -1) {
    `/usr/lib/mailman/bin/rmlist $list`;
}
print "done\n";

http://perldoc.perl.org/functions/system.html

//Edit: blijkbaar iets te lang met mn antwoord bezig geweest

Oorspronkelijk geplaatst door raqtweak.com

Heb het uiteindelijk met:

my $remove = `command`;
opgelost... dat werkt wel...

???

Wat heb je nu gedaan dan? Laat het eens in de context zien.

de output van het commando komt in $remove, die kun je vervolgens uitlezen.

iets als if (!$remove) kun je vervolgens gebruiken om volgende acties uit te voeren.

Almar. Ik begrijp wat die regel doet. Maar ik vraag mij af hoe hij de rest heeft opgelost. Daarmee bedoel ik:

- Wordt er gecontroleerd op de output van het commando?
- Wordt de exit code van het commando gebruikt.
- Hoe zien de condities van het if statement er uit?

In bovenstaande post heb ik termen voorbij zien komen die, IMHO, niet correct worden gebruikt. Het kan daarom zijn dat het nu toevallig werkt, maar dat zijn gekozen oplossing niet correct is. Vandaar mijn vraag hoe nu het hele stukje code eruit ziet.