|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Alexei Chernyshov 2:5020/400 03 Jun 2001 13:54:10
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/;
выдавать на экран куски кода.
меняя GET на нужную комбинацию (00 или группу из 02,03,04 и т.д.)
и вставляя в @var[]
--
-------
Алексей Чернышов
Инженерная фирма СКИФ
www@skif.vrn.ru
--- ifmail v.2.15dev5
* Origin: SKIF engineering (www.skif.vrn.ru) (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
