Тема: [Perl] Новичкам: задаем вопросы
Показать сообщение отдельно

  #812  
Старый 06.12.2008, 20:13
ZAMUT
Members of Antichat - Level 5
Регистрация: 24.10.2007
Сообщений: 256
Провел на форуме:
6905523

Репутация: 1174
По умолчанию
Код:
for(1..$#a/2+1) { push (@b, shift @a); }
Последний раз редактировалось ZAMUT; 06.12.2008 в 20:21..
 
Ответить с цитированием