http://www.celsobarriga.com Wasting bandwidth in style! Fri, 29 May 2009 15:58:44 +0000 http://backend.userland.com/rss092 en At one time, I needed to encode and decode strings in Base64 but I was on a very old Perl version that does not include the MIME::Base64 core module, nor am I able to install the said module. So, here's the source for encoding and decoding Base64 ripped from the ... http://www.celsobarriga.com/2009/05/28/base64-encoding-and-decoding/ Look what I did last weekend! I went for a tandem skydive at Pepperell, MA on May 24th, 2009. What a rush; it was an awesome experience! http://www.celsobarriga.com/2009/05/25/skydiving-video/ #include <stdio.h> #include <string.h> int main(void) { char str[80]; int i; printf("Enter a string: "); fgets(str, 10, stdin); /* remove newline, if present */ i = strlen(str)-1; if( str[ i ] == '\n') str[i] = '\0'; printf("This is your string: ... http://www.celsobarriga.com/2009/02/26/read-string-from-stdin-using-fgets/ Here's how to determine the dates when the Daylight Savings Time changes for a given year (I keep forgetting how to do this.): zdump -v /etc/localtime|grep 2008 /etc/localtime Sun Mar 9 06:59:59 2008 UTC = Sun Mar 9 01:59:59 2008 EST isdst=0 gmtoff=-18000 /etc/localtime Sun Mar ... http://www.celsobarriga.com/2008/02/01/how-to-determine-dst-time-changes/ Here's how to cleanly uninstall any Perl module: #!/usr/local/bin/perl use ExtUtils::Packlist; use ExtUtils::Installed; $ARGV[0] or die "Usage: $0 Module::Name\n"; my $mod = $ARGV[0]; my $inst = ExtUtils::Installed->new(); foreach my $item (sort($inst->files($mod))) { print "removing $item\n"; unlink $item; } my $packfile = $inst->packlist($mod)->packlist_file(); print "removing ... http://www.celsobarriga.com/2008/01/10/uninstall-perl-module/ I found this command useful in finding out which top 10 processes are hogging my CPU resources. Note that this command is specific to the Red Hat flavor of Linux. See the man page for ps for the correct output format to use for your specific platform: ps -eo pcpu,pid,user,args | ... http://www.celsobarriga.com/2007/08/29/find-out-the-top-10-cpu-hogs/ Here's another logging routine, this one is written in Bourne shell: #!/bin/sh log_message() { echo `date "+%m/%d/%y %H:%M:%S %Z"` "$1" | tee -a aaa.out } log_message "Hello there" log_message "Goodbye" Sample output: 08/28/07 23:16:13 EDT Hello there 08/28/07 23:16:13 EDT Goodbye http://www.celsobarriga.com/2007/08/28/bourne-shell-logging-routine/ To set up root password the first time: $ mysqladmin -u root password NeWPasSwORd To change an existing root password: $ mysqladmin -u root -p oldpassword newpass Enter password: To change a normal user password: $ mysqladmin -u dbuser-p oldpassword newpass http://www.celsobarriga.com/2006/08/23/setting-mysql-password/ The following will sort an array of IP addresses in @in and the sorted IP addresses will be in @out. @out = sort { pack('C4' => $a =~ /(\d+)\.(\d+)\.(\d+)\.(\d+)/) cmp pack('C4' => $b =~ /(\d+)\.(\d+)\.(\d+)\.(\d+)/) } @in; What this does is it forms a ... http://www.celsobarriga.com/2006/07/13/sorting-ip-addresses/ Here's how to find out your external IP address courtesy of this hint: http://www.macosxhints.com/article.php?story=20060602180942480 curl --silent http://checkip.dyndns.org | awk '{print $6}' | cut -f 1 -d " http://www.celsobarriga.com/2006/06/07/find-external-ip-address/