Changes between Version 5 and Version 6 of jazz/13-08-14

Timestamp:

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

Author:

jazz

Comment:

--

jazz/13-08-14

@@ -21 +21 @@
 <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
+<br /> #!/usr/bin/env bash<br /> tar -xzf geo-pack.tgz<br /> PERL5LIB=$PERL5LIB:$(pwd) ./geostream.pl $1<br /> 
+}}}
  *
 {{{