9 open(my $n, '<', 'subvision-numbers.txt');
12 my ( $number, $pn, $imei, $name ) = split(/ /,$_);
13 $pn2name->{$pn} = $number;
16 my $dbh = DBI->connect("dbi:Pg:dbname=zc","dpavlin","", { RaiseError => 1 });
17 my $sth = $dbh->prepare( "select * from sub_bakaceva" );
23 while( my $row = $sth->fetchrow_arrayref ) {
25 $ym =~ s{(\d\d\d\d-\d\d).*}{$1};
27 my $name = $pn2name->{$pn} || die "no name for $pn";
29 if ( ! defined( $out->{$name}->{$ym} ) ) {
30 my $filename = "www/export/$ym-$name.csv";
32 open( $out->{$name}->{$ym}, '>', $filename );
33 print {$out->{$name}->{$ym}} join(',', @{ $sth->{NAME} }) . "\n";
36 print {$out->{$name}->{$ym}} join(',',@$row) . "\n";