Thursday, December 04, 2008

Mit CGI.pm einen Parameter auf "undef" setzen.

Damit ich nicht immer wieder testen muss, wie man mit CGI.pm einen Parameter auf undef setzt, poste ich es schnell mal hier...

Weder $cgi->param( 'name', undef ) noch $cgi->param( -name => 'name', -value => undef ) funktioniert. Aber das hier:

#!/usr/bin/perl

use strict;
use warnings;
use CGI;
use Data::Dumper;

my $cgi = CGI->new;

my %params = $cgi->Vars;

print Dumper \%params;

if( is_invalid( $params{name} ) ){
warn "ungueltig";
$cgi->param( -name => 'sid', -values => [] );
}

my %test = $cgi->Vars;
print Dumper \%test;

2 comments:

Aristotle said...

$cgi->delete( 'name' )

ReneeB said...

Danke, "RTFM" sollte ich mir manchmal an den Bildschirm kleben...