Is this correct, I want to remove leading and trailing white space,
Thanks
Dave
--------------
foreach $item (param()) {
my $value = param($item);
$value =~ s/^\s+//;
$value =~ s/\s+$//;
}
better??
foreach $item (param()) {
my $value = param($item);
$value =~ s/^\s+(.*)\s+$/$1/;
}
-------------
#!/usr/bin/perl
use CGI qw/:standard/;
use CGI::Carp qw(fatalsToBrowser);
use POSIX 'strftime';
$mailprog = '/usr/lib/sendmail';
# Retrieve Date
$date = strftime('%A, %B %1d, %Y %I:%M %p',localtime) ,"\n";
# my %in = {};
# remove any extra spaces at the front or back
foreach $item (param()) {
my $value = param($item);
$value =~ s/^\s+//;
$value =~ s/\s+$//;
}
$email = param('email');
$realname = param('name');
*====================================================*
* Cora Connection Your West African Music Source *
* http://www.coraconnection.com/ *
* Resources, Recordings, Instruments & More! *
*====================================================*
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
