Charles K. Clarkson wrote:
> Try:
>
>$q->param('jahr', );
>my ($jahr) = $q->param('jahr') =~ /\d{4}/;
>print $jahr;
>
>--
>prints:
>1
>--
>
>Now try it this way:
>
>$q->param('jahr', );
>( my $jahr = $q->param('jahr') ) =~ /\d{4}/;
>print $jahr;
>
>--
>prints:
>
Wait a second
Jan Eden wrote:
>Hi all,
>
>I finally decided to use the taint mode in all my CGI scripts. But I
>experience a strange problem. The following two lines read a file
>depending on the parameter 'jahr':
>
>my ($jahr) = $q->param('jahr'); my %monate = %{do $jahr} or die $!;
>
>This worked. Now, with
