- 1
- 2
- 3
- 4
foreach $line (@data) {
@alldata = 0;
unshift @alldata;
@alldata = split(/\|/, $line);
Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
−119
foreach $line (@data) {
@alldata = 0;
unshift @alldata;
@alldata = split(/\|/, $line);
Инициализация массива.
da4ever 06.02.2011 18:46 # +2
t-5
не обложайтесь в этот раз!
Lure Of Chaos 06.02.2011 19:55 # +1
Lure Of Chaos 06.02.2011 19:24 # 0
da4ever 06.02.2011 19:48 # 0
Dummy00001 07.02.2011 02:42 # +2
строка 3: ничего не делает, unshift()у нужен аргумент, чего добавлять в начало. (теоретически должно варнингом ругнутся.)
строка 4: заменить содержимое массива результатом split()
весьма странное говно.
Lure Of Chaos 07.02.2011 02:51 # 0
но все равно 2ая и 3я строчки не имеют смысла из-за 4ой.
Dummy00001 07.02.2011 02:53 # 0
Lure Of Chaos 07.02.2011 03:04 # 0
а то например здесь рисуют что можно и так: http://perl.ericdlarson.com/session2/sld011.htm
Мистер Хэнки 07.02.2011 07:54 # 0
Useless use of unshift with no values at -e line 1.
Мистер Хэнки 07.02.2011 07:58 # 0
Dummy00001 07.02.2011 13:54 # 0