- 1
- 2
- 3
- 4
foreach $line (@data) {
@alldata = 0;
unshift @alldata;
@alldata = split(/\|/, $line);
=()= / Говнокод #5550
0
Инициализация массива.
Запостил: 
da4ever,
(Updated )
Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
- "PHP" (6228)
- Куча говна (4362)
- Кресты (2940)
- ЙажаСценарий (2225)
- Си диез (2081)
- Jawa (1688)
- Няшная (1341)
- Змея (894)
- Школоло (781)
- mysql_real_escape_string (579)
- Бухгалтерия (547)
- ДействиеСценарий (419)
- Beri bash i ebash (300)
- Яuбy (294)
- Субъективный Си (290)
- =()= (267)
- Школоло (200)
- Сборный (158)
- Метатабличный (91)
- Хламидомонада (75)
- Ябло (Свежее) (49)
- Goвно (37)
- Koko (17)
- HTML (1)
t-5
не обложайтесь в этот раз!
строка 3: ничего не делает, unshift()у нужен аргумент, чего добавлять в начало. (теоретически должно варнингом ругнутся.)
строка 4: заменить содержимое массива результатом split()
весьма странное говно.
но все равно 2ая и 3я строчки не имеют смысла из-за 4ой.
а то например здесь рисуют что можно и так: http://perl.ericdlarson.com/session2/sld011.htm
Useless use of unshift with no values at -e line 1.