Dotaz: Jak v perlovskom scripte poslam mail?

[cooler]

Dobry den,

pisal som si jeden skriptik v perle a narazil som na to, ze neviem ako poslat mail.Chcel som to pomocou system("mail Jozko@Mrkvicka.cz"),ale tam je problem,ze on este ocakava stlacenie klavesy ^D a toto neviem ako vyriesit.V man mail som nenasiel ako sa tomu vyhnut a poslat mail iba jednym prikazom.

Mozte mi poradit? .. Dakujem

Odpovědi

[unchallenger]

A jaký pak má být obsah toho mailu, když mu žádný nedáš? ;-) Buď mailu musíš dát na standardní vstup soubor, který má být obsahem mailu (nebo ho tam napsat ručně a ukončit ^D). Takže buď system "mail ... <soubor"; nebo open FH, "|mail ..."; No a vůbec nejlepší je použít modul Net::SMTP.

[cooler]

No mne staci poslat prazdny mail, iba subject.Ale ono to furt chce to ^D a to neviem jak mu zadat. Mozes mi presne napisat ten prikaz na poslanie mailu iba s niejakym subjectom? Diqi moc

[unchallenger]

Opakuji: použij Net::SMTP, k tomu je. To nechce žádné ^D, to chce na standardním vstupu ten soubor, který se má poslat. Když má být prázdný, použij např. </dev/null.

[cooler]

Tak som to skusal podla navodu na webu a aj tak mi to nejde.Asi som lama :O(

[unchallenger]

#!/usr/bin/perl
use warnings;
use strict;
use Net::SMTP;
my $smtp = Net::SMTP->new('localhost');
$smtp->mail($ENV{USER}.'@localhost');
$smtp->to($ENV{USER}.'@localhost');
$smtp->data();
$smtp->datasend("Subject: Uz me nestvi\n");
$smtp->datasend("\n");
$smtp->datasend("Nebo te hacknu\n");
$smtp->dataend();
$smtp->quit();

Je to příklad z Net::SMTP(3).

[cooler]

No tak ja som si furt nevedel poradit s $ENV{USER}.Som myslel,ze to treba nahradit adresou.Takze v new definujes mailhost a v smtp->mail definujes na jaku domenu to ma prist a v smtp->to pre akeho usera?Potom preco tam mas 2x @localhost ? Nehnevaj sa,ale som z tej syntaxie uplny debil,nechapem logiku :O))

[unchallenger]

Četls Net::SMTP(3)? Asi ne. Argument new() je počítač (SMTP server), přes který se to má poslat. Arguent mail() (odpovídá MAIL FROM:<...> v SMTP dialogu) je kdo to posílá. Argument to() (odpovídá RCPT TO:<...> v SMTP dialogu) je komu se to posílá. Následuje hlavička mailu, volný řádek, tělo mailu (to vše nepoviné) + dataend(). $ENV{'USER'} je jméno uživatele, takže ten příklad vždy pošle mail sám sobě. @localhost tam mám proto, aby odesilatel i adresát byly plně kvalifikované adresy (pro jistotu).

[......]

obdivuji tvoji božskou trpělivost.....já už bych vytek jak nevím co a hodil flintu do žita

[cooler]

Diqi ti moc.. ja som si cital to Net::SMTP, ale som to niejak z toho nepochopil.A chcem sa naucit v perle,tak diqi este raz za trpezlivost

[b0rmann]

perldoc MIME::Lite jednodussi uz to nebude

[......]

bože člověče nauč se perl a nebo se na to vykvákni a napiš to v bashi dyť je to jednoduchý.....nastuduj hlavičky emailů a bude ti to jasné