Size: a a a

2016 July 26

PV

Pingvin Valentin in use Perl or die;
Ох уж эта безопасность.
Придётся подправить свои костыли, а то подозреваю они перестанут от таких внезапных поворотов работать
источник

NK

ID:137363116 in use Perl or die;
Вышел SugarSync-API-0.07. Нравиться мне SugarSync. На него дампы БД идут c использованием ruby. Теперь возможно переделаю. Появилась фишка как в Dropbox - application($appid).
Аргументы конструктора: $user, $pass, $akeyid, $pacckey, $appid
источник

NK

ID:137363116 in use Perl or die;
Еще вышел Win32-GUI-1.13. И это после 2 лет. Как вижу предыдущая 1.12 была от 03.06.2015. Кто нибудь использовал?
источник

NK

ID:137363116 in use Perl or die;
Обновление Catalyst-Runtime - 5.90111
Fix'ят с завидной регулярностью, начиная с 5.90100 от 2016-07-20
источник

NK

ID:137363116 in use Perl or die;
Классный модуль Date-Utils-0.21
jwday($julian_date) - Возвращает день недели для даты по юлианскому календарю, воскресенье - 0(Чтоб их....).

gregorian_to_julian($year, $month, $day) - Тут все понятно.    
julian_to_gregorian($julian_date) - Тоже ясно как пень.
is_gregorian_leap_year($year) - Проверка на высокостность.  
# -> Моя реализация =) (!($year % 4) and ($year % 100))
or !($year % 400)

get_month_number ($month_name) - Номер месяца по наименованию. Месяца сами указываем в стиле Moo =).  
get_month_name ($month) - Месяц по номеру.

validate_year($year) - Угу  

validate_month($month) - Ясно. Причем можно и наименование указать.  

validate_month_name($ month_name) - Тоже понятно  

validate_day($day) - А здесь осторожно. Проверка того лишь что число от 1 до 31    
validate_date ($year, $month, $day)
- Тоже осторожнее с датой. Просто вызывает validate_day
источник

NK

ID:137363116 in use Perl or die;
HTTP-Caching-0.01_02 - реализация кэширования для HTTP/1.1
источник

NK

ID:137363116 in use Perl or die;
Очень Alpha 02
источник

NK

ID:137363116 in use Perl or die;
Принцип такой: Запрос проверяется с кэшем. Если найден, то вернет ответ с кеша, иначе выполнит запрос. Проверяет коды ответов HTTP:
304 вернуть с кэша
200 выполнить запрос
500 выполнить запрос или что то не так...

Пример:
my $chi_cache = CHI->new(
   driver          => 'File',
   root_dir        => '/tmp/HTTP_Caching',
   file_extension  => '.cache',
   l1_cache        => {
       driver          => 'Memory',
       global          => 1,
       max_size        => 1024*1024
   }
);

my $ua = LWP::UserAgent->new();

my $http_caching = HTTP::Caching->new(
   cache         => $chi_cache,
   cache_type    => 'private',
   forwarder     => sub { return $ua->request(shift) }
);

my $rqst = HTTP::Request->new( GET => 'http://example.com' );

my $resp = $http_caching->make_request( $rqst );
источник

NK

ID:137363116 in use Perl or die;
Еще раз, Win32-GUI  кто нить юзал?
источник

PV

Pingvin Valentin in use Perl or die;
ID:137363116
Еще раз, Win32-GUI  кто нить юзал?
Я под виндой только tk юзал
источник

PV

Pingvin Valentin in use Perl or die;
но самый главный вопрос нужно ли оно тебе?
источник

PV

Pingvin Valentin in use Perl or die;
пилить гуи на перле
источник

NK

ID:137363116 in use Perl or die;
Все для фана😄
источник

NK

ID:137363116 in use Perl or die;
источник

NK

ID:137363116 in use Perl or die;
Приветствую
источник

NK

ID:193222807 in use Perl or die;
здаров
источник

NK

ID:137363116 in use Perl or die;
Сразу скажу, я изучаю Perl. Просто он нравиться😄
источник

NK

ID:137363116 in use Perl or die;
А чем занимаешься?
источник

V

Voldemar in use Perl or die;
Pingvin Valentin
пилить гуи на перле
я пилил. сделал консольный вариант для народа. сказали запилить гуи, а то сложна и нипанятна. полуркал, нашел Тк и оно завелось нормально.
источник

NK

ID:137363116 in use Perl or die;
Voldemar
я пилил. сделал консольный вариант для народа. сказали запилить гуи, а то сложна и нипанятна. полуркал, нашел Тк и оно завелось нормально.
А где посмотреть?
источник