uawdijnntqw1x1x1
IP : 216.73.216.74
Hostname : www.vorobey-market.ru
Kernel : Linux www.vorobey-market.ru 3.10.0-514.el7.x86_64 #1 SMP Tue Nov 22 16:42:41 UTC 2016 x86_64
Disable Function : None :)
OS : Linux
PATH:
/
home
/
..
/
usr
/
src
/
..
/
libexec
/
..
/
src
/
..
/
src
/
..
/
share
/
perl5
/
vendor_perl
/
Module
/
..
/
Munin
/
Node
/
Utils.pm
/
/
package Munin::Node::Utils; # $Id$ use strict; use warnings; use Exporter (); our @ISA = qw/Exporter/; our @EXPORT_OK = qw/ set_difference set_intersection /; ### Set operations ############################################################# sub set_difference { my ($A, $B) = @_; my %set; @set{@$A} = (); delete @set{@$B}; return sort keys %set; } sub set_intersection { my ($A, $B) = @_; my %set; @set{@$A} = (1) x @$A; return sort grep $set{$_}, @$B; } 1; __END__ =head1 NAME Munin::Node::Utils - Various utility functions =head1 SYNOPSIS use Munin::Node::Utils qw( ... ); =head1 SUBROUTINES =over =item B<set_difference(\@a, \@b)> Returns the list of elements in arrayref \@a that are not in arrayref \@b. =item B<set_intersection(\@a, \@b)> Returns the list of elements common to arrayrefs \@a and \@b. =back =cut # vim: ts=4 : et
/home/../usr/src/../libexec/../src/../src/../share/perl5/vendor_perl/Module/../Munin/Node/Utils.pm