Changes between Version 1 and Version 2 of jazz/13-08-14

Timestamp:

Aug 14, 2013, 10:10:10 PM (11 years ago)

Author:

jazz

Comment:

--

jazz/13-08-14

@@ -1 +1 @@
 = 2013-08-14 =
 
+{{{
+#!html
+<br /> register /home/dvryaboy/src/pig/trunk/piggybank.jar;<br /> DEFINE LogLoader<br /> org.apache.pig.piggybank.storage.apachelog.CombinedLogLoader();<br /> DEFINE DayExtractor<br /> org.apache.pig.piggybank.evaluation.util.apachelogparser.DateExtractor('yyyy-MM-dd');<br /> 
+}}}
+{{{
+#!html
+<br /> %default LOGS 'access_log.small'<br /> %default GEO 'GeoLiteCity.dat'<br /> 
+}}}
+{{{
+#!html
+<br /> #!/usr/bin/env perl<br /> use warnings;<br /> use strict;<br /> use Geo::IP::PurePerl;</p>
+<p>my ($path)=shift;<br /> my $gi = Geo::IP::PurePerl->new($path);</p>
+<p>while (<>) {<br /> chomp;<br /> if (/([^\t]*)\t(.*)/) {<br /> my ($ip, $rest) = ($1, $2);<br /> my ($country_code, undef, $country_name, $region, $city)<br /> = $gi->get_city_record($ip);<br /> print join("\t", $country_code||'', $country_name||'',<br /> $region||'', $city||'', $ip, $rest), "\n";<br /> }<br /> }<br /> 
+}}}
 {{{
 #!html