Category Archives: Perl

Objective-C decisions vs Perl descisions

Posted on November 13, 2011 by danmassey99

I’m comparing Objective-C decision making with our beloved Perl decision making. Objective-C supports the if, else, else if & switch. Lets write some Objective-C code and write the Perl in parallel. #import <Foundation/Foundation.h> int main (int argc, const char * … Continue reading →

Posted in C, Perl | Tagged , , , , | Leave a comment

Perl FTP Recursive Binary Issue

Posted on October 26, 2011 by danmassey99

Another day….. Today’s kick in the nether regions was using Net::FTP::Recursive  which was defaulting to ascii transfer mode when doing a bulk website transfer. The issue was not with the text (html type) files but with the images. I believe … Continue reading →

Posted in FreeBSD Administration, Perl | Tagged , , | Leave a comment

FreeBSD Quotas – bulk updates (using Perl)

Posted on October 14, 2011 by danmassey99

Another day, another 63 pence (according to xe.com), and another potentially mind numbing repetitive FreeBSD admin operation. Todays request was to increase all of the web quotas to 1GB on a web server which has variable quotas set on a … Continue reading →

Posted in FreeBSD Administration, Perl | Tagged , , , , , | Leave a comment

Perl match in scalar and list context (regex)

Posted on October 13, 2011 by danmassey99

Sometimes it takes a throw-away comment in a book for a whole stack of jumbled info to just slot into place. The ‘Sixth Sense’ is on the telly and my wife is asking why she ‘didn’t notice it’ (the fact … Continue reading →

Posted in Perl | Tagged , , , | Leave a comment

Perl array remove duplicate values – Update

Posted on October 13, 2011 by danmassey99

Great news! I used the function from yesterdays post in a production script today. the script searches a log file on a 60 min basis and grab usernames and passwords, removes the dupes and enters the usernames and passwords to … Continue reading →

Posted in Perl | Tagged , | Leave a comment

Removing duplicates from a Perl array – really this time

Posted on October 12, 2011 by danmassey99

My last post got a bit sidetracked and i didn’t do a simple removal of dupes from an array. As I said last time, hashes cannot have duplicate keys, so the easiest way to do this is to simply create … Continue reading →

Posted in Perl | Tagged , , , , | Leave a comment

Perl and ‘uniq’ – de-duping arrays and other tricks

Posted on October 11, 2011 by danmassey99

There comes a time when everybody needs to de-dupe an array, or just simulate the UNIX uniq command. Here at $dayjob, for example, we do quite a lot of UNIX shell commands to look up the number of times has … Continue reading →

Posted in Perl | Tagged , , , , | Leave a comment

Perl DBI MySQL failover databases

Posted on October 9, 2011 by danmassey99

Further to the last post on Eval, here is how we can try server A, then if it fails, use server B instead. The hub of the issue is ‘or die’ , ‘or warn’ and ‘or’. Here is my test … Continue reading →

Posted in MySQL, Perl | Tagged , , | Leave a comment

Trapping Errors with Eval

Posted on October 9, 2011 by danmassey99

The end game of this task is to modify some MySQL based logging so it will try to connect to a central logging server, and if that fails, log to the local server, the update the central server when it … Continue reading →

Posted in Perl | Tagged , , | Leave a comment

Upgrading Perl 5.10 to 5.12 on FreeBSD

Posted on October 6, 2011 by danmassey99

So a customer asked to use the latest version of Perl on one of our web servers. Its Running FreeBSD 8.0 with Apache2.2 and Perl 5.10. The FreeBSD ports collection does not upgrade 5.10 to 5.12 with a normal upgrade … Continue reading →

Posted in FreeBSD Administration, Perl | Tagged , , | Leave a comment