LINUX.ORG.RU

Информация о пользователе perl5_guy

Регистрация

ID: 161940
Nick: perl5_guy
Полное имя: o217@yandex.ru
Дата регистрации:
Последнее посещение:
Статус:

Огорчают примеры выкладываемых на ЛОР perl5-скриптов. Надеюсь смогу кому-нибудь помочь добры^Wсоветом.

#!/usr/bin/env perl

use English;

format =
.

BEGIN {
  open f,"<$0";
  s(.*)((<f>)[-1])e;

  AUTOLOAD {
      $AUTOLOAD=~/(:)\1/;
      @ARG = ( $', @_);
      !wantarray ? formline(<<pop) : @_;
~^*
@_
pop
  }
  s/\S{0,}/*{"::\${^MATCH}"}=\&{"::$&"}/eg;
}

END {
    write or die;
}

Just Another Perl Hacker

Статистика

Первая созданная тема:
Последняя созданная тема:
Первый комментарий:
Последний комментарий:
Число комментариев: 142

Раздел Число тем
Новости 1
Форум 1

Сообщения пользователя