Parent Directory | Revision Log
export skipta za Filipa (Exchange)
1 | dpavlin | 1.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 |