Perl DBH get last id
Perl DBH get last id SIMPLES with DBH Mysql my $sth = $dbh->do(“$SQL”); my $id = $dbh->{‘mysql_insertid’};
Perl Hex to Binary to Decimal Conversions
Perl Hex to Binary to Decimal Conversions Dec to Hex Use function sprintf(“%x”, DECNUMBER) or sprintf(“%X”, DECNUMBER) for hexadecimal numbers with capital letters. $decvalue = 200; $hexvalue = sprintf("%x", $decvalue); ## gives c8 $hexvalue = sprintf("%X", $decvalue); ## gives C8 Dec to Oct Use sprintf(“%o”, DECNUMBER ) $decvalue = 200; $octval = sprintf( "%o", $decvalue […]
PERL XOR 2 HEx values
PERL XOR 2 HEx values Need to XOR to hex values… try this. $NEW_VAL = hex(80) ^ hex(9D);
Convert IP to HEX in Perl – one liner
Convert IP to HEX in Perl – one liner Strip out the IP.. $IP=”192168016012″; $IP = sprintf “%*vX”, “:”, $IP; Vector hex conversion of IP
Perl – Fork and Kill a System Process on Timeout
Perl – Fork and Kill a System Process on Timeout [perl] $pid = open(PIPE, “$command |”) or die $!; eval { local $SIG{ALRM} = sub { die “TIMEOUT” }; alarm($timeout); while (<PIPE>) { $data = $_; }; close(PIPE); alarm(0); }; if ($@) { die $@ unless $@ =~ /TIMEOUT/; kill 15, $pid; close(PIPE); $? ||= […]
Amazon – Ubuntu CPAN Perl Install
Amazon – Ubuntu CPAN Perl Install If you experiencing any issues with installing, upgrading or managing CPAN perl libraries on a refreshley deployed Amazon EC2 instance make sure you have your build essentials!! Run: sudo apt-get install build-essential