например, есть у нас небольшая текстовая база bd.txt, вида
id|url
Мы обращаемся к скрипту и передаем ему номер id
вот что делается дальше:
my $id=$in{\'id\'};
open(MYBD, "
my @bd=
;
close MYBD;
my @rec=grep(/$id\\|/, @bd);
if ($rec[0]=/$id\\|(\\S+)/){
print "Location: $1\\n\\n";
}
else {print "Location: http://mysite/error.html";}
во как.
