Bash Befehl in Perl Script starten

**Dom** · 08.02.06, 15:04

Hallo zusammen,

ich möchte in einem Perl Script das die Mail Adresse via ldap ausliest einen Bash Befehl ausführen.

Das Script dieht wie folgt aus.

Code:

#!/usr/bin/perl
# Parameter: Username, PDF File
use MIME::Entity;
### get the ARGS
$to = 'ldapsearch -LLL cn= $ARGV[0] mail -h 192.168.0.1 -x | grep mail | cut -d" " -f2-';
$pdffile = $ARGV[1];
### set some vars
$mailpipe = '| /usr/lib/sendmail -t -oi';
$from = "root";
$subject ="PDF File";
$inhalt = "Your PDF print";
# create the mail
my $mail = MIME::Entity->build( Type    => 'text/plain',
                                From    => $from,
                                To      => $to,
                                Subject => $subject,
                                Data    => $inhalt
                              );
# attach the pdf file
$mail->attach( Path     => $pdffile,
               Type     => 'application/pdf',
               Encoding => 'base64'
             );
# open mailpipe and send the mail
open MAIL, "$mailpipe" or die "Could not open mailpipe \"$mailpipe\" !\n";
$mail->print(\*MAIL);
close MAIL;

Es soll halt

Code:

 ldapsearch -LLL cn= $ARGV[0] mail -h 192.168.0.1 -x | grep mail | cut -d" " -f2-

ausgeführt werden.

In der Varibale $ARGV[0] steht der Benutzername drin.

Wie kann ich diesesen Befehl im Script ausführen?

Danke schon einmal.

MfG
Dominic

**smoon** · 08.02.06, 15:13

Sollte mit system funktionieren. Siehe auch `perldoc -f system'. Also etwa so:

Code:

system ("ldapsearch -LLL cn= " . $ARGV[0] . "mail -h 192.168.0.1 -x | grep mail | cut -d\" \" -f2-");

**Dom** · 08.02.06, 16:18

Moin,

besten dank für die fixe Antwort.
Werde es morgen mal direkt probieren.

MfG
Dominic

**Dom** · 09.02.06, 06:47

Hallo.,

leider klappt es nicht.
Er gibt mit immer ein 0 als wert zurück.
Oder muss ich das ganze anders Eintragen, da die E-Mail Adresse die die LDAP Abfrage liefert ja in die Varibale $to geschrieben werden soll?

MfG
Dominic

**Dom** · 09.02.06, 07:12

Hallo,

wenn ich mit einfach mal ein Script zum testen erstelle und die Variable $ARGV[0] mit einem Namen fülle den es in LDAP gibt, gibt er mir auf der Console folgendes aus.

Code:

pdftest:# ./ldaptest
test@domain.de
0pdftest:#

Also er schreibt mit unten in die letzte Zeile ganz an den Anfang diese 0.
Wie bekomme ich die wech. Ich denke das ist der Fehler, dass er mir als E-Mail adresse diesen 0 Wert zurück gibt.

Mein Testscript sieht woe folgt aus.

Code:

#!/usr/bin/perl
# Parameter: Username, PDF File
use MIME::Entity;
### get the ARG
$ARGV[0] = "test";
$to = system("ldapsearch -LLL cn=" . $ARGV[0] . " mail -h 192.168.0.1 -x | grep mail | cut -d\" \" -f2-");
print $to

Danke schon einmal.

MfG
Dominic

**marce** · 09.02.06, 07:30

Aus Sicht des Scirpts völlig in Ordnung - system endete erfolgreich, also Rückgabewert 0.

in dem Fall verwendest du besser qx anstatt system...

http://de.selfhtml.org/perl/funktion...aufrufe.htm#qx
http://de.selfhtml.org/perl/funktion...ufe.htm#system