projects
/
ferlib2koha.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
bcba200
)
read users from ISVU CSV export
author
Dobrica Pavlinusic
<dpavlin@rot13.org>
Mon, 15 Aug 2011 13:52:09 +0000
(15:52 +0200)
committer
Dobrica Pavlinusic
<dpavlin@rot13.org>
Mon, 15 Aug 2011 13:52:09 +0000
(15:52 +0200)
isvu-import.pl
[new file with mode: 0755]
patch
|
blob
diff --git a/isvu-import.pl
b/isvu-import.pl
new file mode 100755
(executable)
index 0000000..
6a67057
--- /dev/null
+++ b/
isvu-import.pl
@@ -0,0
+1,18
@@
+#!/usr/bin/perl -w
+
+use strict;
+use DBI;
+use Data::Dump qw/dump/;
+use Algorithm::CheckDigits;
+use Text::Unaccent;
+
+my $c = DBI->connect("dbi:CSV:","","", { RaiseError => 1, f_ext => '.csv', f_encoding => 'utf-8' }) || die $dbi::errstr;
+
+my $s = $c->prepare(qq{
+select * from brucosi_2011_ISVU
+});
+$s->execute;
+
+while( my $row = $s->fetchrow_hashref ) {
+ print "# row = ",dump($row),$/;
+}