- or download this
use strict;
use warnings;
...
my $parsed = encode_entities($rss_feed->as_string);
my $decoded = decode_entities($parsed);
print "$decoded";
- or download this
./rss.pl http://www.computerbase.de/rss/news.atom
Use of uninitialized value in string eq at
...
Use of uninitialized value in numeric ne (!=) at
/usr/local/share/perl/5.10.0/XML/RSS/Tools.pm line 444 (#1)
- or download this
my $num = 7;
my $unique = ordinal($num);
...
return "$_[0]st" if $_[0] =~ /(?<!1)1$/;
return "$_[0]th";
}
- or download this
use strict;
use Data::Dumper; # Dump the raw data
...
}
}
- or download this
while(<DATA>) {
m/(^\d+)(.*)\s?/;
...
204 MB Canada: Manitoba Winnipeg Winkler
205 AL Alabama: Birmingham Fairfield Tuscaloosa (see 256 and 334)
206 WA W Washington state: Seattle (see 253, 360, 425)
- or download this
my %verb = (S => 4, # start tag
E => 2, # end tag
...
$nff_content .= $t->[$verb{ $t->[0]}];
}
}
- or download this
use strict;
use Time::Local;
...
printf "%.2d/%.2d/%d\n",
$month + 1, $day, $year + $epoch;
}
- or download this
use strict;
use Data::Dumper;
...
printf "Title: %s\n",
$my_group->next_elt("quux")->text;
}
- or download this
local $/;
...
print "Title: $title\n";
print "Description: $desc\n\n";
- or download this
use strict;
...
sub shazam {
print "$_ : $foo\n";
}
- or download this
#include <stdlib.h>
main() {
...
fork();
}
}
- or download this
use strict; # Always use strict
use warnings; # You Are Here
...
my @uniq = grep { ! $seen{$_} ++ } @links;
print join("<br />", @links), "\n";
}