Changeset 5190 for trunk/PS-IPP-MetaDB/scripts/mdb-find-new

Timestamp:

Sep 29, 2005, 12:12:15 PM (21 years ago)

Author:

jhoblitt

Message:

output result of find_new() as CSV

File:

• trunk/PS-IPP-MetaDB/scripts/mdb-find-new (modified) (4 diffs)

trunk/PS-IPP-MetaDB/scripts/mdb-find-new

@@ -3 +3 @@
 # Copyright (C) 2005  Joshua Hoblitt
 #
-# $Id: mdb-find-new,v 1.1 2005-09-29 21:28:45 jhoblitt Exp $
+# $Id: mdb-find-new,v 1.2 2005-09-29 22:12:15 jhoblitt Exp $
 
 use strict;
@@ -12 +12 @@
 
 use PS::IPP::MetaDB;
+use Text::CSV;
 
 use Getopt::Long qw( GetOptions :config auto_help auto_version gnu_getopt );
@@ -34 +35 @@
 pod2usage( -msg => "Required options: --dsn --user", -exitval => 2 )
     unless defined $dsn and defined $dbuser;
-#pod2usage( -msg => "Required options: --exp_id --class_id", -exitval => 2)
-#    unless defined $exp_id and defined $class_id;
 
 PS::IPP::MetaDB->init(
@@ -43 +42 @@
 );
 
+my @rows;
 if (defined $exp_id) {
-    PS::IPP::MetaDB->find_new(
+    @rows = PS::IPP::MetaDB->find_new(
         exp_id      => $exp_id,
         class_id    => $class_id,
     );
 } else {
-    PS::IPP::MetaDB->find_new();
+    @rows = PS::IPP::MetaDB->find_new();
+}
+
+my @fields = qw( exp_id class_id camera class url );
+my $csv = Text::CSV->new();
+
+print "# ", join(", ", @fields), "\n";
+foreach my $hashref (@rows) {
+    $csv->combine(@$hashref{@fields});
+    print $csv->string, "\n";
 }