Category Archives: Perl

http://perldoc.perl.org/Term/ANSIColor.html use Term::ANSIColor; print color ‘bold blue’; print “This text is bold blue.\n”; print color ‘reset’; print “This text is normal.\n”; print colored (“Yellow on magenta.”, ‘yellow on_magenta’), “\n”; print “This text is normal.\n”; print colored ['yellow on_magenta'], ‘Yellow on … Continue reading →

my @fields = ( “country_name”, “region_name”, “city_name”, ); while (my $row = $sth->fetchrow_hashref) { my %row = %$row; printf $format, @row{ @fields }; }

If you’re using HTML::TreeBuilder, you might find a memory leak when creating lots of trees. You must explicitly delete the trees because HTML::Tree does not use weak refs. Here’s how to delete the ref: use HMTL::TreeBuilder; my $formatter = HTML::FormatText->new(); … Continue reading →

Redirecting STDERR to STDOUT in Perl: open STDERR, ‘>&STDOUT’; Reassign raw file handles: *STDERR = *STDOUT; Redirect all output to a logfile: open(LOG,”>/tmp/foo.log”); *STDERR = *LOG; *STDOUT = *LOG; Example: #!/usr/bin/perl use strict; use warnings; warn “regular error”; open STDERR, … Continue reading →

How to go directly from string to an array using Perl Regex extraction: my ($first, $second, $third) = ( $string =~ /not(.*?)this(.*?)stuff(.*?)/ );

Perl Profiling can be done by using the DProf debugging switch: # perl -d:DProf test.pl hello # ls test.pl  tmon.out # dprofpp tmon.out Total Elapsed Time = 0.009982 Seconds User+System Time = 0.009982 Seconds Exclusive Times %Time ExclSec CumulS #Calls … Continue reading →

To remove the first entry in the urllist, do this: o conf urllist shift This will make CPAN use the next FTP site in the queue.