таки Perl

helios

Да, в данной реализации был. Модуль memorize запоминает ответы функции (сопоставляет входные данные значению, которое вернула функция). Таким образом, программист на перл решает задачку линейно.

а у сишника значит на это мозгов не хватило? Ну а причём тут перл? ЕМНИП такой спор уже был на UFO, на С таки быстрее получается (всегда ваш, К.О.)

Почитай Camel Book[1], за несколько дней с перлом освоишься. А дальше сам увидишь, надо ли оно тебе.

[1] http://en.wikipedia.org/wiki/Programming_Perl

Наврал. Переклинило меня что-то. Быстрый старт - это не верблюд, а лама[1].

[1] http://en.wikipedia.org/wiki/Learning_Perl

да? а если вывести hello world, тоже 1 вернёт?

Угу. Постов цать назад я даже пример приводил: таки Perl (комментарий)

а у сишника значит на это мозгов не хватило? Ну а причём тут перл? ЕМНИП такой спор уже был на UFO, на С таки быстрее получается (всегда ваш, К.О.)

Пока Сишник будет писать кеш, перлист уже весь коньяк выпьет.
А перл тут при том, что данный пример иллюстрирует 2 из 3х добродетелей (высокомерие и леность), так свойственных Perl программистам.

Быстро сделав свою работу, вы будете с нетерпением ждать, когда, например, программисты, реализующие клиентскую часть проекта, напишут и отладят свой код. Вы будите скучать от безделья, нервничать от осознания того, что вас сдерживают и проект движется черепашьими темпами. Придется пить валерьянку.

Полностью согласен. Думал, Я один такой :)

perl это самый удобный язык для написания скриптов работающих с бд

не могли бы вы привести кусочек такого кода. интересно сравнить, как оно выглядит по отношению к SQLAlchemy

Perl удобен тем, что он заточен под работу со списками. А таблицы это, по-сути и есть списки.

или
localtime=~/Sat/ and print «Shalom»;
что лучше читается

стараюсь избегать конструкций if...else. как-то не по-перловски :)

TMTOWTDI ^_^

А есть ведь ещё unless!

Более того, есть ещё и until :)

А что, тоже вариант — будет орать пока не наступит пятница :)

echo "Luke, I am your father" | perl -e '
if ( <> =~ /Luke, I am your father/ )
{
    print "N";
    print "o" until time % 2
}'

helios

Пока Сишник будет писать кеш, перлист уже весь коньяк выпьет.

у сиплюсплюсника ваще-то есть STL, там разве такого нет?

helios

А перл тут при том, что данный пример иллюстрирует 2 из 3х добродетелей (высокомерие и леность), так свойственных Perl программистам.

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

for(i=0; i<n; i++)
  sum=a+b, a=b, b=sum;

будет работать медленнее вашего?

Да что вы хотите доказать?
То что на си можно написать так, что оно будет решать задачу быстрее?
Ну да, это очевидно --> спор глупый.
Другое дело, что на Сях писать намного-намного геморнее.

Bad_ptr

Да что вы хотите доказать?

разве это не очевидно? То, что автор перлового скрипта болен LISP'ом головного мозга, а LISP'овые конструкции одинаково плохо ложатся как на perl, так и на C.

Bad_ptr

То что на си можно написать так, что оно будет решать задачу быстрее?
Ну да, это очевидно --> спор глупый.

нет. также можно написать и на perl'е, если не быть психически больным LISP'ом.

Bad_ptr

Другое дело, что на Сях писать намного-намного геморнее.

этот код можно выполнять и в PHP, только $ перед каждой переменной надо поставить. Вот сравнивать PHP и perl - согласитесь, куда как корректнее.

А оно скомпилируется?

Intermediate Perl

Ненужен. После Lama book надо идти программировать. Когда возникнут вопросы - курить Camel book. На вопросы, на которые не отвечает Camel book, надо искать ответы в perldoc. Всё.

`date`

Зло. Не делай так. Не делай этого никогда.

Вы не видели индусокода на перле?

стараюсь избегать конструкций if...else

Я надеюсь, ты пишешь код только для локалхоста?

перл еще долго будет умирать

ОК, ОК. Курю Ламабук и выполняю упражнения:

#!/usr/bin/perl

use warnings;

@ponies = qw< Applejack Rarity Fluttershy Rainbow Pinkie Twilight >;

print "Enter some numbers in the range of 1-6:\n";
chomp (@numbers = <STDIN>);

foreach (@numbers) {
        print "Pony: $ponies[$_-1]\n";
}

А оно скомпилируется?

Да, запускается без ошибок.

Странно. А мне казалось что должно быть «Odd number of elements in hash assignment». Или это warning?

Кстати о варнингах, пока что при попытке use strict он натычет во все переменные и требует явно указать package. А я пока не знаю что такое package ._.

perldoc -f my

представь себе, нет.

Мне искренне жаль твоих коллег и я молю всех богов, чтобы мне не пришлось работать в тех конторах, где работал ты.

Суть в том, что у тебя переменная никак не объявлена. Она встречается в скрипте первый раз, и чисто теоретически может принадлежать как пакету main, так и ещё кому-то. Неважно, что больше у тебя никого нет - strict на то и strict, чтобы делать всё по правилам.

print "Поня" . "тно";

Просто где-то вычитал на ЛОРе что правильно писать на перле с use warnings и use strict, а в ламабуке про strict и области видимости пока ничего не говорили (дополз до главы 4 только).

бороду я твою заметил, если это ты ;)
может теперь все-таки скажешь что-нибудь по делу.
часто пишу что то в роде

my $var;
...
$var && do {
...
} || do {
...
}

но

if(my $var = ...) {
...
} else {
... $var ...
}

warning`ов тоже нет.

$ cat tmp.pl
%a = {1 => 2, 3 => 4};
print '%a is ' . %a;

print "\n";

%b = (1=>2, 3=>4);
print '%b is ' . %b;

$ perl tmp.pl
%a is 1/8
%b is 2/8

%a = {1 => 2, 3 => 4};

что-то здесь не так. в ключе будет строково представление ссылки на хеш со значением undef. это некорректное выражение

Reference found where even-sized list expected at - line 2.

Добавил строчку use Pony::Object; в начало.

Ага. Там еще трабла с конкатенацией строки и хеша. Но я такой код специально вбросил. Чтобы показать, то не все так в перле прозрачно и аккуратно выглядит, как говорят некоторые товарищи в этом треде.

А зачем «do»? Можно просто блок писать.

perl -e 'time % 2 && { print "yes" } || { print "no" }'

Случай редкий и заметный (use strict; use warnings;, вашужмашу!).

Оки, вот зачем оно нужно ^__^

Хотя пока объявление переменных прямо «по ходу» выглядит удобно... А со strict отдельно придется?

use strict; делает твой код «строгим». Это полезно во многих ситуациях. Например:

my $from = <>; # ввёл "helios"
say "Hello $form"; # получил "Hello "

Одна мелкая опечатка может стоить часов дебага. А с use strict программа даже не запустится - укажет на место ошибки.

Отключать use strict; (no strict) следует только тогда, когда планируешь совершить что-нибудь дьявольское :) (а ля «снятие печати Кромвеля до первого уровня»).

Также my полезна, когда хочешь использовать переменную только в какой-то области видимости (область видимости - блок {}).

Например:

$i = 2;

for my $i ( 0..9 )
{
    say "Ку!";
    my $j = $i;
}

# после цикла $i всё так же 2,
# а $j всё так же не определён.

так можно без блоков
time % 2 and print «yes» or print «no»;

а у тебя не блоки, а анонимные хеши получились :)

Не понял посыла мессаджа.
use strict вообще не в тему, use warning не спасет от преобразования хэша в строку.
А вот Data::Dumper в обоих случаях поведет себя корректно.

иногда отключаю no strict 'refs' чтобы сделать вполне безобидное
*($name) = sub {...};

а у тебя не блоки, а анонимные хеши получились :)

Есть такое :)

sub _{{{{{ print for fun }}}}}_

опечатка *{$name} = sub {...};

gosha@bugtop:~$ perl -e 'use warnings; %a = {1 => 2, 3 => 4};'
Name "main::a" used only once: possible typo at -e line 1.
Reference found where even-sized list expected at -e line 1.

Смысл в том, что warning вылезет и ты не ошибёшься в скобках.

> Просто где-то вычитал на ЛОРе что правильно писать на перле с use warnings и use strict, а в ламабуке про strict и области видимости пока ничего не говорили (дополз до главы 4 только).

тем не менее, привыкай к директиве «use strict;» с самого начала, сильно сэекономит тебе время в будущем. в последних версиях (5.12+), кстати, она включена по дефолту:

$ perl -e 'use v5.10; print $x'
$ perl -e 'use v5.10; use strict; print $x'
Global symbol "$x" requires explicit package name at -e line 1.
Execution of -e aborted due to compilation errors.
$ perl -e 'use v5.12; print $x'
Global symbol "$x" requires explicit package name at -e line 1.
Execution of -e aborted due to compilation errors.
$ _

ты как обычно не читаешь что тебе пишут

use warning не спасет от преобразования хэша в строку.

имеется в виду print «str» . %b;

без my и strict где-то на 500 строке все превращается в кашу :)

ты как обычно не читаешь что тебе пишут

Why so serious? :)

имеется в виду print «str» . %b;

Вас смущает, что хеш в скалярном контексте возвращает capacity? А то, что списки возвращают по сути то же самое, Вас не смущает?