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 [...]

[Read more →]

This could also be called how to make an arrays of hashes. The basic idea is to create a list of items that when iterated, returns individual hashes. use Data::Dumper; my @array; push @array, {‘key1′ => ‘value1′, ‘key2′ => ‘value2′}; push @array, {‘key1′ => ‘value1′, ‘key2′ => ‘value2′}; push @array, {‘key1′ => ‘value1′, ‘key2′ => [...]

[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); $ip1 = $ip1[0] * 2**24 + $ip1[1] * 2**16 + $ip1[2] * [...]

[Read more →]