[Omaha.pm] simple syntax question

Jay Hannah jay at jays.net
Thu Aug 5 01:49:13 CDT 2004


On Jul 28, 2004, at 9:36 PM, Hugh Jarce wrote:
> Ryan Stille wrote:
>> $tmp1 = $FORM->param('respond_email');
>> $tmp2 = $FORM->param('name');
>> $tmp1 =~ s/\n|\r//g;
>> $tmp2 =~ s/\n|\r//g;
>> $FORM->param(-name=>'respond_email',-value=>$tmp1);
>> $FORM->param(-name=>'name',         -value=>$tmp2);
>
> I suppose you could hide the temporary in a function like this:
>
> sub remove_newlines {
>     my $t = shift;
>     $t =~ tr/\r\n//d;
>     return $t;
> }
>
> allowing you to write code like this (untested):
>
> $FORM->param(-name  => 'name',
>              -value => remove_newlines( $FORM->param('name') ) );

Or even something like

foreach ($FORM->param) {
    my $t = $FORM->param($_);
    $t =~ tr/\r\n//d;
    $FORM->param($_, $t);
}

j



More information about the Omaha-pm mailing list