I'd suggest starting with buying a good book: Learning Perl should be a good choice. Pick it up, read it, read it again, try to solve your problem. After doing that, if you're still stuck, I'd be more happy to help.
Update: Seems like fellow monks prefer spoon-feeding replies even for such a question. Well so be it :-)
Update2: Please don't allow people to submit something like linux-2.4.xx.tar.gz to your cgi script :-)
#!/usr/bin/perl -w use strict; use Mail::Sendmail; #put your smtp server instead of localhost in the next line unshift @{$Mail::Sendmail::mailcfg{'smtp'}} , 'localhost'; my $initial = "qwertyuiopasdfghjklzxcvbnmqwertyuiopasdfghjklzxcvbnmqwe +rtyuiopasdfghjklzxcvbnmqwertyuiopasdfghjklzxcvbnmqwertyuiopasdfghjklz +xcvbnmqwertyuiopasdfghjklzxcvbnmqwertyuiopasdfghjklzxcvbnmqwertyuiopa +sdfghjklzxcvbnmqwertyuiopasdfghjklzxcvbnm"; while(length $initial){ # while line is not empty my $msg = substr $initial, 0, 100, ""; # chop 100 chars my %mail = ( "To" => 'abstract@mirage', # the address you want to send to "From" => 'abstract@mirage', # your email address "Subject" => 'This is a test message!', # the subject "Message" => $msg); # attempt to send the message sendmail(%mail) or die "Error sending email: $Mail::Sendmail::error\n"; }
In reply to Re: Parsing Form Input
by abstracts
in thread Parsing Form Input
by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |