Parent Directory | Revision Log
added Town model with data
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 | } |
Name | Value |
---|---|
svn:executable | * |
ViewVC Help | |
Powered by ViewVC 1.1.26 |