Если необходимо иметь несколько версий Perl, если нужна слишком новая или слишком старая версия, которой нет в дистрибутиве, то можно воспользоваться perlbrew.
for my $element (@spisok1) {
$seen{$element} = undef;
}uihkjh
dsfkljsdklf
Value : A1
dfdsuse strict;
use warnings;
use utf8;
open( F1, "text.txt" );
my @raw = <F1>;
chomp (@raw);
foreach my $line (@raw) {
my ($val) = $line =~ m/^\bValue\b\s+:\s+([A-Z0-9]+)$/o;
next unless $val;
if ( $val eq "A1" ) {
print "$line \n";
}
}
close(F1);my @a = qw( a b c d );
my @b = qw( c d e f );
my @c = array_diff( @a, @b );
say for (@c)a
b
e
fuse feature 'say';
use Array::Utils qw(:all);
my @a = qw( a b c d );
my @b = qw( c d e f );
my @c = intersect( @a, @b );
say for (@c)c
dcat 1.txt
100
2323
2390238
32322323
9002cat 2.txt
34
4343
434
2390238
32322323
9002#!/usr/bin/env perl
use strict;
use warnings;
use utf8;
use File::Slurp;
use Array::Utils qw(:all);
my @arr1 = read_file( '1.txt', chomp => 1 );
my @arr2 = read_file( '2.txt', chomp => 1 );
# Получилось 2 массива.
# Теперь сравниваем их c помощью use Array::Utils qw(:all);
# И вычисляем разницу
# Получаем элементы из массива @аrr1, которые не входят в массив @arr2
my @minus = array_minus( @arr1, @arr2 );
for my $i (@minus){
print "$i \n";
}100
2323@minus записать в файл да и все. use strict;
use warnings;
use utf8;
use feature 'say';
use LWP::Simple;
use HTTP::Request::Common qw(GET);
use open ':std', ':encoding(UTF-8)';
my $ua = LWP::UserAgent->new;
my @add = qw(http://rbc.ru http://habrahabr.ru http://some_dead_site_.net http://yahoo.com);
my %http = map {$_ => 1} @add;
while (1) {
for my $address (keys %http) {
my $req = GET $address;
my $res = $ua->request($req);
if ( $res->{'_msg'} eq 'OK' ) {
say "С сайтом $address - все ок";
}
else {
say "Сайт $address - лежит. Удаляем из списка";
delete $http{$address};
}
}
say "######Спим 20 секунд######";
sleep 20;
}С сайтом http://yahoo.com - все ок
Сайт http://some_dead_site_.net - лежит. Удаляем из списка
С сайтом http://habrahabr.ru - все ок
С сайтом http://rbc.ru - все ок
######Спим 20 секунд######
С сайтом http://yahoo.com - все ок
С сайтом http://habrahabr.ru - все ок
С сайтом http://rbc.ru - все ок
######Спим 20 секунд######my %child;
my $n = $dbh->prepare('SELECT * FROM `table` where key =? ');
$n->execute($value);
my $all = $n->fetchall_arrayref( {} );
foreach my $item (@$all) {
print $item->{'arid'};
}($fsname, $fstype) = m/\S+ (\S+) (\S+)/;open my $file, '> /tmp/my-agi.log';
print $file "Скрипт запустился";use Data::Dumper;
use Log::Log4perl qw(:easy);
Log::Log4perl->easy_init( { level => $ON, file => ">>/var/lib/asterisk/agi-bin/test.log" } );
DEBUG "START";
my $AGI = new Asterisk::AGI;
my %input = $AGI->ReadParse();
DEBUG "cid" . Dumper($AGI);BEGIN {
use Cwd 'chdir'; # Запуск скрипта из крона
use File::Basename;
chdir dirname $0; # Меняем путь
}cd *путь к директории где лежит файл*; /usr/bin/perl *путь к файлу*perl -e '@arr=`ps ax`; print for ( @arr); 'perl -e 'use IPC::Open3; my $pid = open3 ( *HIS_IN, *HIS_OUT, *HIS_ERR, "ls", "-thall"); my @outlines = <HIS_OUT>; print "STDOUT:\n", @outlines, "\n";'