- 03
- Fri
Perl DBH get last id
Perl DBH get last id SIMPLES with DBH Mysql my $sth = $dbh->do(“$SQL”); my $id = $dbh->{‘mysql_insertid’};
- 03
- Wed
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 […]
- 03
- Tue
PERL XOR 2 HEx values
PERL XOR 2 HEx values Need to XOR to hex values… try this. $NEW_VAL = hex(80) ^ hex(9D);
- 03
- Sat
Map Hex Array to Ascii
Map Hex Array to Ascii Where @values are an array of hex values my @ascii_vals = map (chr, map(hex,@values));
- 03
- Sat
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
- 03
- Sat
Add preceding zero to perl IP string
Add preceding zero to perl IP string ### Add preceding zero to IP address so that the address is 192.058, not 192.58 $IP=~s/(\d+)/substr”00$1″,-3/eg;
- 03
- Sat
UNIX Perl – Get local IP with ifconfig
UNIX Perl – Get local IP with ifconfig Replace ETH0 with the interface you need.. my $IP = `ifconfig eth0| awk ‘/dr:/{gsub(/.*:/,””,\$2);print\$2}’`; $IP =~ s/\s+$//;
- 03
- Tue
Extract Table from SQL Dump – MYSQL
Extract Table from SQL Dump – MYSQL The script below creates individual table exports from a SQL dump. ./MyDumpSplitter.sh yourfile.sql your_table_name [code] #!/bin/sh # http://kedar.nitty-witty.com #SPLIT DUMP FILE INTO INDIVIDUAL TABLE DUMPS # Text color variables txtund=$(tput sgr 0 1) # Underline txtbld=$(tput bold) # Bold txtred=$(tput setaf 1) # Red txtgrn=$(tput setaf 2) # […]
