Perl Shell Script

#!/usr/bin/perl
system(„telnet mail.bluewin.ch 25“);
system(„helo [email protected]“);

kann mir jemand vieleicht sagen warum der 2te befehl nicht ausgeführt wird?

danke schonmal
l.g. seta

Hallo,

#!/usr/bin/perl
system(„telnet mail.bluewin.ch 25“);
system(„helo [email protected]“);

kann mir jemand vieleicht sagen warum der 2te befehl nicht
ausgeführt wird?

system() startet ein Programm, hier telnet, und das Programm geht danach erst weiter wenn wenn sich telnet beendet hat. Wenn telnet aber auf Eingaben wartet, warten die beiden (perl und telnet) ewig aufeinander.

Wenn du Mails verschicken willst, schau mal aufs CPAN, da gibts zig Module dafür:
http://search.cpan.org/
Wenn du mit telnet direkt hantieren willst gibt es Net::Telnet.

Grüße,
Moritz

kurz gesagt es kann gar nicht gehen???

ich will das selbst schreiben, weil ich ein gui dazu machen will, also kann mit fertigem nichts anfangen, und ich will ja auch was lernen…

aber danke schonmal
lg.

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

Hallo,

kurz gesagt es kann gar nicht gehen???

Ich weiss nicht genau was du mit „es“ meinst, aber vermutlich geht „es“ schon - nur eben nicht so wie du es bisher probiert hast.

Lies dir mal die perlipc-Manpage durch, da steht einiges darüber wie man Programme fernsteuern kann: http://perldoc.perl.org/perlipc.html

ich will das selbst schreiben, weil ich ein gui dazu machen
will, also kann mit fertigem nichts anfangen,

Den Zusammenhang verstehe ich nicht - wieso kannst du kein Modul benutzen? Das ist doch nicht inkompatibel mit GUI schreiben.

und ich will ja
auch was lernen…

Das ist ein besserer Grund. Dann besorg dir ein gutes Buch und leg los.

Grüße,
Moritz

#!/usr/bin/perl
system(„telnet mail.bluewin.ch 25“);
system(„helo [email protected]“);

kann mir jemand vieleicht sagen warum der 2te befehl nicht
ausgeführt wird?

wenn du sowas wirklich von hand machen willst, brauchst du dafür das modul
Expect.pm, das gibts auf cpan.

und ich will ja
auch was lernen…

Das ist ein besserer Grund. Dann besorg dir ein gutes Buch und
leg los.

ja buch… nur wenn man so anfängt wie ich es grad versuche: sprich, gui + untergeordnete scripte in andrer sprache, und auch gleich die unterschiedene verschiedener sprachen sehn, bräucht ich gleich ne biblothek und aufeinmal kann ich mir die nicht leisten^^

aber danke für die tipps… werd mich dort mal genauer umschauen

l.g. seta

Net::Telnet
ich versteh überhaupt nicht wie ich das:

#!/usr/bin/perl
system(„telnet mail.bluewin.ch 25“);
system(„helo [email protected]“);

mit Net::Telnet richtig umsetzen soll, ich finde da nicht mal nen weg nen Port zu connecten… also ich versteh einfach nicht was die da:
http://search.cpan.org/~jrogers/Net-Telnet-3.03/lib/…
sagen wollen…

könnte mir bitte jemand noch etwas weiterhelfen?

l.g. seta

Huh habs! nur noch eins is mir unklar:
#!/usr/bin/perl -w

use Net::SMTP;

$smtp = Net::SMTP->new(‚mail.bluewin.ch‘);

$smtp->mail($ENV{julia});
$smtp->to(‚[email protected]‘);

$smtp->data();
$smtp->datasend(„Subject: postmaster\n“);
$smtp->datasend("\n");
$smtp->datasend(„A simple test message\n“);
$smtp->dataend();

$smtp->quit;

ich bekomm wirklich mails! mit subject!
nur ich finde jetzt nicht wie ich da nen absender reinbekomme…
l.g.