Параметры вызова скриптов пакетов deb

Posted in Новости on июня 26, 2013 by admin

preinst — install, upgrade, abort-upgrade
postinst — configure, abort-upgrade, abort-remove, abort-deconfigure
prerm — remove, upgrade, faled-upgrade, deconfigure
postrm — remove, purge, upgrade, failed-upgrade, abort-install, abort-upgrade, disappear

Tags:

Возвращаем из subroutine массив с данными perl

Posted in Новости on июня 20, 2013 by admin

Пример sub :

sub test {
my @arr = ("1", "2", "3", "4");
};

Чтобы вернуть массив, мы возвращаем ссылку на него :

sub test {
my @arr = ("1", "2", "3", "4");
reutrn \@arr;
};

Далее в скрипте присваиваем ссылку переменной :

my $ref = &test();

и разыменовываем ссылку на массив, тем самым получая содержимое массива :

my @arr_ref = @$ref;

Итоговая тестовый скрипт выглядит так :

#!/usr/bin/perl

use strict;
use warnings;

sub test { my @test = ("1", "2", "3", "4"); return \@test;};
my $ref = &test();
print "@$ref[1]"; # обращаемся к элементам массива напрямую из разыменованной ссылки

Также можно использовать операторы разадресования :

#!/usr/bin/perl

use strict;
use warnings;

sub test { my @test = ("1", "2", "3", "4"); return \@test;};
my @ref = @{&test()};
print "$ref[1]";

Tags: , ,

Скрипт синхронизации локального каталога Windows 7 с удаленным Linux сервером по ssh

Posted in Новости on июня 19, 2013 by admin

1. Качаем утилиту pscp.exe ( http://www.chiark.greenend.org.uk/~sgtatham/putty/download.html ) и копируем в C:\Windows\

2. пишем простенький скрипт :


#!C:\perl\bin\perl.exe

use strict;
use warnings;

my $HOST = "";
my $PASSWORD = "";

system("pscp.exe -pw $PASSWORD *.pm root\@$HOST:/root/");

Tags: , ,

установка модулей XML::LibXML и LWP::UserAgent в Windows 7

Posted in Новости on июня 17, 2013 by admin

1. устанавливаем Active Perl
2. Пуске — выполнить — ppm
3. Находим нужные модули, помечаем для установки и устанавливаем через Ctrl + Enter

Tags: , ,

perl SSL verify failed LWP::UserAgent Windows 7

Posted in Новости on июня 17, 2013 by admin

Чтобы отключить ошибку требуется в файле :

C:\Perl\lib\LWP\Protocol\https.pm

сменить :

$ssl_opts{SSL_verify_mode} ||= 1;

на :

$ssl_opts{SSL_verify_mode} ||= 0;

Tags: ,