1 |
#!/usr/bin/perl |
2 |
|
3 |
use warnings; |
4 |
use strict; |
5 |
|
6 |
use lib 'lib'; |
7 |
|
8 |
use Jifty; |
9 |
use Data::Dump qw/dump/; |
10 |
|
11 |
BEGIN { Jifty->new; }; |
12 |
Jifty->web->request(Jifty::Request->new); |
13 |
Jifty->web->response(Jifty::Response->new); |
14 |
|
15 |
my $data_file = 'data/gradovi.txt'; |
16 |
|
17 |
my $town = A3C::Model::Town->new; |
18 |
|
19 |
open(my $fh, '<', $data_file ) or die "can't open $data_file: $!"; |
20 |
while(<$fh>) { |
21 |
chomp; |
22 |
my @d = split(/;/,$_,3); |
23 |
my ($id,$msg) = $town->load_or_create( |
24 |
name => $d[0], |
25 |
municipality => $d[1], |
26 |
county => $d[2], |
27 |
); |
28 |
|
29 |
warn "$id ", $d[0], $msg || '', "\n"; |
30 |
} |