LINUX.ORG.RU

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

Регистрация

ID: 161940
Nick: perl5_guy
Дата регистрации:
Последнее посещение:
Статус:

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

Пишите письма! o217 на яндексе

#!/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

Статистика

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

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

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