mnshome.info
marzenia się spełniają



  Solution: hex dump
23.05.2018 13:57
sub hexdump {
    my ($data, $prefix) = @_;
    my $n = -16;
    $data =~ s/(.{1,16})/sprintf("$prefix%04x: " . '%02x ' x length($1) . "\n", $n+=16, map {ord} split('', $1))/ge;
    return $data;
}
  XS Example (Array ref returns)
15.02.2018 07:57

SV * xdg_mime_list_mime_parents (mime_type)
  const char *    mime_type
INIT:
  AV * results;
  char **parents;
  char **p;
  results = (AV *)sv_2mortal((SV *)newAV());
CODE:
  parents = xdg_mime_list_mime_parents (mime_type);       
  for (p = parents; p && *p; p++) {
    av_push(results, newSVpv(*p, 0));
  }
  free (parents);
  RETVAL = newRV((SV *)results);
OUTPUT:
   RETVAL

  sv_2mortal
09.02.2018 17:52
#!/usr/bin/perl -slw
use strict;
use Inline C => Config => BUILD_NOISY => 1;
use Inline C => <<'END_C',  NAME => 'junk', CLEAN_AFTER_BUILD => 0;

AV* return_an_array() {
    AV* av;
    av = newAV();
    av_push( av, newSViv( 7  ) );
    av_push( av, newSViv( 42 ) );
    return sv_2mortal( av );
}

END_C

my $ref = return_an_array();
use Data::Dumper;
print Dumper($ref);
   Языку Perl исполнилось 30 лет
18.12.2017 08:48

Сообщество разработчиков языка программирования Perl празднует тридцатилетие проекта. 18 декабря 1987 года, увлекающийся программированием лингвист Ларри Уолл (Larry Wall), уже известный в то время созданием программы patch, представил первый публичный релиз интерпретатора Perl.

Язык Perl унаследовал некоторые черты языков Си и AWK, был ориентирован изначально на эффективную обработку текстов и списков, и отличался интегрированной в язык поддержкой регулярных выражений и удобных в использовании хэшей. Позднее Perl вышел за рамки специализированного решения для обработки текстовых данных и был превращён в язык общего назначения, оказавший впоследствии значительное влияние на развитие многих популярных ныне скриптовых языков программирования.

Источник: http://www.opennet.ru/opennews/art.shtml?num=47756

  Статься сборки deb пакетов из CPAN
04.12.2017 19:46

http://pragmaticperl.com/issues/07/pragmaticperl-07-%D1%81%D0%B1%D0%BE%D1%80%D0%BA%D0%B0-deb-%D0%BF%D0%B0%D0%BA%D0%B5%D1%82%D0%BE%D0%B2-%D0%BC%D0%BE%D0%B4%D1%83%D0%BB%D0%B5%D0%B9-perl-%D0%B4%D0%BB%D1%8F-debian-%D0%B8-ubuntu.html

https://habrahabr.ru/post/282217/

  Получение абсолютного имени файла
04.12.2017 13:23
use Cwd ();
use File::Spec ();
use File::Basename qw(dirname);

sub SSL_ca_file {
    my $file = File::Spec->catfile(dirname(__FILE__), "CA", "cacert.pem");
    if (!File::Spec->file_name_is_absolute($file)) {
	$file = File::Spec->catfile(Cwd::cwd(), $file);
    }
    return $file;
}

Author: ABH

  RegExp: точки с запятой внутри кавычек
04.12.2017 13:20

https://regex101.com/

;(?=[^"]*"[^"]*(?:"[^"]*"[^"]*)*$)

Идет проверка четности кавычек. Если она нарушается (проверка второго кластера) то блок всего первого кластера возвращает true и такая точка с запятой захватывается. Иначе - игнорируется.

Недостаток: если где-то допущена ошибка в тексте и есть случайная кавычка то все сломается

  RSysLog request
29.08.2017 10:25

#!/usr/bin/perl -w
use strict;

use Sys::Syslog qw( :standard :extended :macros );


setlogsock({
    type => "udp", # udp, tcp
    host => "nfs.fts.allo",
    port => 514,
});
#my $oldmask = setlogmask( LOG_UPTO(LOG_DEBUG) );
openlog("test_script", "ndelay,pid", LOG_USER);

# ...

syslog(LOG_DEBUG, "Test message");

# ...

closelog();
1;

__END__

# /etc/rsyslog.d/rules.conf
if $syslogtag contains 'test_script' then /var/log/test.log

  Обновление библиотеки openssl на сервере FreeBSD
18.06.2017 22:20

cd /root/dist
wget http://dist.mnshome.info/soft/openssl-1.0.2l.tar.gz
tar -xvf openssl-1.0.2l.tar.gz
cd openssl-1.0.2l
./config --prefix=/usr/local --openssldir=/usr/local/openssl
make
make test
make install
mv /usr/bin/openssl /usr/bin/openssl.old
ln -s /usr/local/bin/openssl /usr/bin/openssl
cpan install Crypt::SSLeay IO::Socket::SSL LWP Net::SSLeay LWP::Protocol::https
lwp-request -m GET https://www.serzik.com
mbutiny -d test

  Установка модулей под ActiveState Perl (ActivePerl) младших версий
23.03.2017 00:09

Недавно столкнулся с проблемой установки модулей для древних версий ActivePerl. Проблема, в частности, возникла с модулем XML::LibXML.

После мытарств с компиллингом MinGW нашел отличное решение. Спасибо что есть люди которые поддерживают ppm репозитории.

Maybe your ppm package manager is not able to find a correct package to your perl version.

You could try to find and install like one this. Maybe one of them works for you.

ppm install http://www.bribes.org/perl/ppm/XML-LibXML.ppd    
ppm install http://theoryx5.uwinnipeg.ca/ppmpackages/XML-LibXML.ppd
ppm install http://trouchelle.com/ppm/XML-LibXML.ppd
ppm install http://ppm.tcool.org/archives/XML-LibXML.ppd
ppm install http://theoryx5.uwinnipeg.ca/ppms/XML-LibXML.ppd

Howto add a new repo too ppm: http://www.bribes.org/perl/ppmdir.html

THUD XYZZY PLUGH FRED WALDO GARPLY
GRAULT CORGE QUUZ QUX BAZ BAR FOO

День памяти перевода часов на летнее время

0
0
0
days
:
0
0
hrs
:
0
0
min
:
0
0
sec

поиск по дате...
поиск по содержимому...
GGCzat 1.00
Tagi
Artefakty
06.05.2016 10:42:36
Создать RESTfull обработчик как модуль
24.06.2017 17:34:47
MNSHOME: Переходить на Centos!
19.08.2015 11:35:42
Переезд разработчиков на тестовый MySQL сервере
28.12.2015 10:44:39
MDScore: Marionette.js
02.06.2015 13:52:56
С Даши за ECB/VTB24
30.10.2017 10:40:53
Создать функционал 2 в 1: mod_perl библиотеку для получения отчета по бэкапам за последние сутки
29.11.2017 10:38:08
Создать простые функции криптования AES256+Blowfish+base64
01.12.2017 10:37:43
SubProject: static-site
Thu, 28 Feb 2019 10:44:39 +0400

Linki zewnętrzne

#OPERA
Czytam
GRY
MnshomeInfo
Monitoring
Photo
Przyjaciele
Serwisy
fla-master

IP

Valid XHTML 1.0 Transitional

Valid CSS!


Copyright © 1998-2017 Serż Minus. All rights reserved


do góry