convert-simple.pl000064400000000211152462305500010044 0ustar00#!/usr/bin/perl # disable I/O buffering (this is essential) $| = 1; while(<>) { # add 'bla' in front of the string print "bla".$_; } convert-geoip.pl000064400000000337152462305500007667 0ustar00#!/usr/bin/perl use Geo::IP; my $gi = Geo::IP->new(GEOIP_STANDARD); $| = 1; while(<>) { chomp($_); $country = $gi->country_code_by_addr($_); if ($country eq '') { $country = '?'; } print "$_ ($country)\n"; }