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
Пример 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]";
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/");
1. устанавливаем Active Perl
2. Пуске — выполнить — ppm
3. Находим нужные модули, помечаем для установки и устанавливаем через Ctrl + Enter
Чтобы отключить ошибку требуется в файле :
C:\Perl\lib\LWP\Protocol\https.pm
сменить :
$ssl_opts{SSL_verify_mode} ||= 1;
на :
$ssl_opts{SSL_verify_mode} ||= 0;