Informationen A-Z

<% my $info_output; my $info_input; my @infosys = &file_load("../se_data/_infosys/infosys.txt"); $c = 0; my @schonda; foreach (@infosys) { my $zufall = rand(@infosys); @value = split (/\x09/,$infosys[$zufall]); if ($value[3] eq "V" && $schonda[$zufall]==0 ) { $info_input .= qq($value[2]
); $c++; $schonda[$zufall] = 1; last if $c==5; } } $info_output .= qq($info_input); $info_output; %>
mehr