Opened by maco at 2005-03-24 22:00
User since
2005-02-22
27 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2005-02-22
27 Artikel
BenutzerIn
Also ich teste das erstmal in einem eigenständigen Skript und implementiere das dann in meinem Programm. Hab es nun so gelöst:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
#!/usr/bin/perl
use strict;
use CGI::Carp qw( fatalsToBrowser );
print "Content-type: text/plain\n\n";
my @recordset =qw/test auftr 1/;
my @artenum = qw/1 2 3 4/;
my $artvalue = $recordset[2];
print "<form name='form1'>
<select name='status' size='1'>
<option value=$artvalue>$artvalue</option>";
foreach (@artenum) {
if (!($artvalue eq $_)){
print "<option value=$_>$_</option>";
}
}
print "</select></form>";