Parent Directory | Revision Log
export skipta za Filipa (Exchange)
1 | #!/usr/local/bin/perl -w |
2 | |
3 | use DBI; |
4 | |
5 | my $mydbh = DBI->connect("DBI:Pg:dbname=informatika","","") || die $DBI::errstr; |
6 | $mysth = $mydbh->prepare(" |
7 | select ime,prezime,alias||'\@pliva.hr' from osobe,e_mail where e_mail.osoba_id=osobe.id |
8 | ") || die $mydbh->errstr(); |
9 | $mysth->execute() || die $mysth->errstr(); |
10 | |
11 | print "#",join("\t",@{ $mysth->{NAME} }),"\n"; |
12 | while (@myarr = $mysth->fetchrow_array() ) { |
13 | print join(",",@myarr),"\n"; |
14 | } |
ViewVC Help | |
Powered by ViewVC 1.1.26 |