[perl] первый элемент массива

совершенно нечитабельно, даже после с++

my $string = $array[$[];

Покатит?

wfrr

совершенно нечитабельно, даже после с++

Сдаюсь. Я готов поверить что смотрится говном что-то вроде этого:

while (scalar @cue_table) {
    my $string = shift @cue_table;
    my $track = $tracks[0] || "zero";
    $string =~ s/\r\n/\n/g;
    $img_file = dirname($cue_file)."/$1" if (!$img_file and $string =~ /FILE \"(.*)\"[^"]*$/);
    @tracks = ($1, @tracks) if ($string =~ /TRACK +(\d+)/);
    $genre{$track} = $1 if ($string =~ /REM GENRE +(?:\"|)([^\"].+[^\"])(?:\"|)(?:\r|\n)$/);
    $date{$track} = $1 if ($string =~ /REM DATE +(\d+.+)(?:\r|\n)/);
    $performer{$track} = $1 if ($string =~ /PERFORMER +\"(.+)\"/);
    $title{$track} = $1 if ($string =~ /TITLE +\"(.+)\"(?:\r|\n)$/);
}

Однако только что обнаружил (ещё как обнаружил, но речь не про то) что если массив содержит что-то вроде 01, 02, 03, то первая запись присвоит $string соответствующие число.

Пример покажи, потому как

my @arr = qw/01 02 03/;
my ($first) = @arr;
print $first,"\n";

выводит 01

>выводит 01

Кстати да.

array.get(0)

тривиально же

Проверил. Единственная ситуация в которой я наблюдаю подобное поведение это вот этот кусок кода. Решительно ничего не понимаю.

совершенно нечитабельно, даже после с++

совершенно не согласен, особенно про C++.

wfrr

array.get(0)

Хитрый какой. А присвоение? Я уж не говорю про явное обращение к первому элементу массива

> Хитрый какой.

Скорее толстый и зелёный.

Я уж не говорю про явное обращение к первому элементу массива

car же, coolface.jpg

set, и оператор точки, если элемент объект то те хватит. Зойчем эти секасы с скобками собаками и баксами.

А вообще ООП головного мозга (которое кстати делает код ещё более запутанным при грамматном использовании) есть в perl6 (и таки да, он уже есть и вполне готов для релиза в Эстонии).

wfrr

Зойчем эти секасы с скобками собаками и баксами.

Ну... Первый вариант это всего навсего копирование одного массива в другой и скобки тут примерно для это:

my ($track, $next_track, $next_next_track) = @tracks;

кстати делает код ещё более запутанным при грамматном использовании

Ну и кто тут зеленее?

newa = a.slice(0,3)

просто и понятно

>array.operations.standart.get(numbers.decimal.small.zero)

починено для большего ънтерпрайза

а где пример, который выведет 1-то?

ты не ту задачу решил

я решил ту что проще 8) а

Я так не играю. Где красивые индивидуальные ссылки?

pop вроде бы откусит кусок массива, не?

Так в условии задачи про незыблемость массива ничего не говорилось.

Впрочем за что люблю перл, что там любой извращенец реализует свои самые грязные фантазии

break && $string = $_ foreach reverse @array;

Тогда reverse убери. Долго думал как это работает, а когда понял - ужаснулся. Кстати а в perl5 разве допустимо ставить foreach после оператора?

За scalar спасибо, что-то я и правда странное придумал. От foreach я отказался исключительно из-за того что вариант с shift'ом постепенно выкидывает из памяти весь массив по мере потери необходимости в нём. А касательно unshift'а: мне всегда казались диковатыми функции висящие в воздухе (то есть не возвращающие значения или значение которых не проверяется). Даже не знаю который из двух вариантов лучше... (На самом деле я просто забыл про unshift)

от синтаксического сахара часто слипается и получаются запоры, которые со временем перерастают в гимморой.

Тогда reverse убери.

Да, реверс я по инерии поставил. Не нужен.

Долго думал как это работает, а когда понял - ужаснулся.

Да ладно, постфисная завись + управление потоком черед логические операции - обычное дело

Кстати а в perl5 разве допустимо ставить foreach после оператора?

И не только foeach, но и for, while, unless, if. Довольно компактно и прозрачно получается, если надо выполнить всего один рператор

SunBurn

И не только foeach, но и for, while, unless, if.

А вот этого не знал. Мне почему-то казалось что оное позиционируется как фича perl6.