Sprint if inside of popup_menu in CGI? 1

[travs69]

I'm trying to do something like
popup_menu(start_hour,[sprintf("%02d", (0..31))]

without making a array of 0..31 formated the way I like in advance.

Any advice?

Thanks.

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Travis - Those who say it cannot be done are usually interrupted by someone else doing it; Give the wrong symptoms, get the wrong solutions;

 

[Kirsle]

popup_menu (start_hour, [ [COLOR=red]([/color]sprintf("%02d", (0..31))[COLOR=red])[/color] ]);

?

Cuvou.com | My personal homepage

perl -e '$|=$i=1;print" oo\n<|>\n_|_";x:sleep$|;print"\b",$i++%2?"/":"_";goto x;'

 

[travs69]

Nope.. that acts exactly the same. CGI just prints a single option of 00.

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Travis - Those who say it cannot be done are usually interrupted by someone else doing it; Give the wrong symptoms, get the wrong solutions;

 

[Kirsle]

Well,

>perl
my $var = sprintf("%02d", (0..31));
print "$var\n";
__END__
00

Maybe sprintf doesn't take arrays? Therefore only operates on the first item there (the 0) and quits.

>perl
my @var = ( (sprintf("%02d", (0..31))) );
use Data::Dumper;
die Dumper(\@var);
__END__
$VAR1 = [
          '00'
        ];

Cuvou.com | My personal homepage

perl -e '$|=$i=1;print" oo\n<|>\n_|_";x:sleep$|;print"\b",$i++%2?"/":"_";goto x;'

 

[Kirsle]

l>perl
my @var = map { sprintf("%02d", $_) } (0..31);
use Data::Dumper;
die Dumper(\@var);
__END__
$VAR1 = [
          '00',
          '01',
          '02',
          '03',
          '04',
          '05',
          '06',
          '07',
          '08',
          '09',
          '10',
          '11',
          '12',
          '13',
          '14',
          '15',
          '16',
          '17',
          '18',
          '19',
          '20',
          '21',
          '22',
          '23',
          '24',
          '25',
          '26',
          '27',
          '28',
          '29',
          '30',
          '31'
        ];

Cuvou.com | My personal homepage

perl -e '$|=$i=1;print" oo\n<|>\n_|_";x:sleep$|;print"\b",$i++%2?"/":"_";goto x;'

 

[travs69]

Thank you very much Kirsle.. that mysterious map function shows up yet again. I really need to learn more about it.




~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Travis - Those who say it cannot be done are usually interrupted by someone else doing it; Give the wrong symptoms, get the wrong solutions;

 

[Kirsle]

Map's pretty handy. It takes one input array on the right, and returns an array out the left.

Cuvou.com | My personal homepage

perl -e '$|=$i=1;print" oo\n<|>\n_|_";x:sleep$|;print"\b",$i++%2?"/":"_";goto x;'