PERL – Length
PERL – Length [perl] $RESULT = length(EXPRESSION); [/perl] Perl’s length() function simply returns the length of a perl string in characters [perl] $myString = ‘perl.about.com’; $myLength = length($myString); [/perl] In this example, we’ve created a string with the value perl.about.com. When we run the length function on the string, it will return 14, or the […]
Read MorePass Parameters to Perl Script
Pass Parameters to Perl Script Perl command line arguments stored in the special array called @ARGV. ARGV example Use $ARGV[n] to display argument. Use $#ARGV to get total number of passed argument to a perl script. For example, if your scriptname is foo.pl and you called script as follows: ./foo.pl one two three You can […]
Read MorePerl Split
Perl Split A very useful function in Perl is split, which splits up a string and places it into an array. The function uses a regular expression and as usual works on the $_ variable unless otherwise specified. The split function is used like this: [perl] $info = “Caine:Michael:Actor:14, Leafy Drive”; @personal = split(/:/, $info); […]
Read MoreSpreadsheet::WriteExcel – Carriage Return Issue
Spreadsheet::WriteExcel – Carriage Return Issue Use “\n” though also set text wrap. [perl] my $format = $workbook->add_format(); $format->set_text_wrap() ; [/perl]
Read MoreCPAN – Perl Command Line
CPAN – Perl Command Line There are several ways to get Perl modules from CPAN installed on your unix-based system. Keep in mind that there is always more than one way to do it with Perl, and this is no different. Before embarking upon any installation, it’s a good idea to download the module, unzip […]
Read MorePerl – Execute Command With Timeout
Perl – Execute Command With Timeout [perl] my $command_to_check = “$SSH_CON $host $SSH_CMD”; if (! execute_command($command_to_check)) { next; } sub execute_command($) { ### Executes a command with timeout ### Returns 0 if fails ### Returns 1 on success my $command=shift; my $timeout=30; eval { local $SIG{ALRM} = sub{die;}; my($oalarm) = alarm($timeout); $result=`$command 2>&1`; if ($? […]
Read MoreFlush perl‚ Äôs print buffer – $|=1
Flush perl‚Äôs print buffer – $|=1 If you put a print statement inside of a loop that runs really really quickly, you won‚Äôt see the output of your print statement until the program terminates. The solution to this problem is to ‚Äúflush‚Äù the output buffer after each print statement. Where $| is non zero, it […]
Read MoreGET or POST – Secure
GET or POST – Secure GET is NOT Secure GET is not a secure method of sending data. Don’t use it for forms that send password info, credit card data or other sensitive information. Since the data is passed through as part of the URL, it’ll show up in the web server’s logfile (complete with […]
Read More