|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Alexei Chernyshov 2:5020/400 02 Jun 2001 22:26:04
To : All
Subject : print @var[&variant];
--------------------------------------------------------------------------------
Как можно выполнить печать массива
print @var[&variant];
если &variant имеет значение с запятыми 1,2,4,7
Если &variant имеет одно число, то все работает.
А если несколько через запятую, то фиг.
Есть ли какие способы?
sub variant {
$query = $ENV{'QUERY_STRING'};
$query =~s/p1=00&p2=00/00/;
$query =~s/p1=01&p2=01/01/;
$query =~s/p1=01&p2=02/02,03,04/;
$query =~s/p1=01&p2=03/03/;
Я-то собственно хотел по результатам GETa $query =~s/p1=00&p2=00/00/;
выдавать на экран куски кода.
00 или группу из 02,03,04 и т.д. меняя GET на нужную комбинацию и
вставляя в @var[]
--- ifmail v.2.15dev5
* Origin: SKIF engineering (www.skif.vrn.ru) (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
