stevee has asked for the wisdom of the Perl Monks concerning the following question:
Greetings learned monks,
I am using CGI.pm. Through the wisdom of fellow monks I sorted out an issue I had yesterday about getting a re-direct to work. The first item you "print" should be the redirect to make it work. However, due to a requirement change, I need to set a cookie before I action the redirect.
The following code fragment does not work, i.e. a cookie is set but no redirect takes place because there has been a "print" before the "redirect".
use strict; use warnings; use CGI; my $q = CGI->new; my $cookie = $q->cookie(-name=>'lizzy', -value=>'Lizzy', -expires=>'+12h'); #my $r=CGI->new; print $q->redirect( -uri => 'http://perl.about.com/' ); print $q->header(-cookie=>$cookie);
Does anyone have any ideas how I can set the cookie and get the redirect to work?