public

aallan / locations.pl

Last active 2014-01-01

#!/usr/bin/perl
 
use strict;
 
print "Reading schat.csv\n";
unless ( open ( FILE, "<schat.csv") ) {
	print "Cannot open file for read\n";
	exit;
}
 
my @foo = <FILE>;
chomp( @foo );
close FILE;
 
print "Checking for locations directory\n";
mkdir "locations" unless -d "locations";
 
print "Processing...\n";
my %locations;
foreach my $foo ( @foo ) {
  $foo =~ s/"$//;
  $foo =~ s/^"//;
  $foo =~ s/","/,/g;
	my @bar = split ",", $foo;
 
  if( exists $locations{$bar[2]} ) {
  	$locations{$bar[2]} += 1;
  } else {
  	$locations{$bar[2]} = 1;
  }
	
  unless ( open ( FILE, ">>locations/$bar[2].csv") ) {
  	print "Cannot open $bar[2].csv for write";
	  exit;
  }	
	print FILE "$foo\n";
	close(FILE);
}
 
my $total = 0;
foreach my $key (sort keys %locations) {
	print "$key,$locations{$key}\n";	
	$total = $total + $locations{$key};
}
print "Total = $total\n";
 
exit;