Brain Goo

PERL has a built-in function called join() that will concatenate a list with a given string. The official perldoc states:
join EXPR,LIST
Joins the separate strings of LIST into a single string with fields separated by the value of EXPR, and returns that new string. Example:
$rec = join(‘:’, $login,$passwd,$uid,$gid,$gcos,$home,$shell);
From the code example, you can make CSV [...]

[Read more →]

use Data::Dumper;
my @array;
push @array, {‘key1′ => ‘value1′, ‘key2′ => ‘value2′};
push @array, {‘key1′ => ‘value1′, ‘key2′ => ‘value2′};
push @array, {‘key1′ => ‘value1′, ‘key2′ => ‘value2′};
print Dumper(@array);
Will give you:

$VAR1 = {
‘key2′ => ‘value2′,
‘key1′ => ‘value1′
};
$VAR2 = {
‘key2′ => ‘value2′,
‘key1′ => ‘value1′
};
$VAR3 = {
‘key2′ => ‘value2′,
‘key1′ => ‘value1′
};

Snazzy!
Did you find this post useful or have questions or comments?  [...]

[Read more →]

my $ip = ‘1.2.3.4′;
my $block1 = ‘1.2.3.0/27′;

if(checkip($ip, $block1)) {
print STDOUT “$ip is in $block1\n”;
}
else {
print STDOUT “$ip is not in $block1\n”;
}

sub checkip() {
my $ip = shift;
my $block = shift;

@ip1 = split(/\./, $ip);
[...]

[Read more →]