Nie jesteś zalogowany.
Jeśli nie posiadasz konta, zarejestruj je już teraz! Pozwoli Ci ono w pełni korzystać z naszego serwisu. Spamerom dziękujemy!
Ogłoszenie
Prosimy o pomoc dla małej Julki — przekaż 1% podatku na Fundacji Dzieciom zdazyć z Pomocą.
Więcej informacji na dug.net.pl/pomagamy/.
#1 2007-06-06 16:33:56
adi - Użytkownik
- adi
- Użytkownik
- Zarejestrowany: 2006-03-29
Perl przekazanie argumentu
Jak przeazac argument do funkcji?
Funkcja test.pl wyglada tak:
1. #!/usr/local/bin/perl
2. print "Content-type: text/htmlnn";
3. open (MAIL, "|/usr/lib/sendmail -t");
4. print MAIL "To:$FROMn";
5. print MAIL "From: xxx@xxx.pln";
7. print MAIL "Subject: Sendmail testnn";
8. print MAIL "This is a test of sendmailn";
9. close (MAIL);
10. print "Message sentn";
11. exit;
Chcialbym aby przy wywolaniu:
perl test.pl aaa@xxx.pl
zmienna $FROM w 4 linii zostala zastapiona: aaa@xxx.pl
Offline
