Changes between Version 5 and Version 6 of Tutorials/a0Basic/Tutorial3

Timestamp:

Nov 16, 2005, 6:56:31 AM (20 years ago)

Author:

pkamat

Comment:

Added sample Perl script to retrieve data from idb1

Tutorials/a0Basic/Tutorial3

@@ -34 +34 @@
 [[Image(Matlabexample.PNG)]]
 
+
+Sample Perl script that gets data from the database:
+{{{
+#! /usr/bin/perl
+#
+# Script: getdata.pl
+# A simple script that gets all the rows from a single table in the database.
+#
+# ./getdata.pl <db_name> <table_name> <outputfile>
+#
+# Example: ./getdata.pl zmac1_2005_04_28_00_46_10  sender_otg_senderport  out.txt
+#
+# To use this script replace the XXXX in DBUSER and DBPASS
+# with correct username and password for idb1.
+#
+#
+use DBI();
+
+$DBHOST = "idb1";
+$DBNAME = $ARGV[0];
+$DBUSER = "XXXX";
+$DBPASS = "XXXX";
+$QUERY = "select * from $ARGV[1]";
+$OUTFILE = $ARGV[2];
+
+$dsn = "DBI:mysql:database=$DBNAME;host=$DBHOST";
+
+#Connect to the DB
+$dbh = DBI->connect($dsn, $DBUSER, $DBPASS, {'RaiseError' => 1});
+
+# Prepare and execute query
+my $qry = $dbh->prepare($QUERY);
+$qry->execute();
+
+open(out, ">$OUTFILE");
+
+#Print the column names
+print out "@{$qry->{'NAME'}} \n";
+
+#Print the data
+while (my @ref = $qry->fetchrow()) {
+        print out "@ref \n";
+}
+
+$qry->finish();
+# Disconnect from the database.
+$dbh->disconnect();
+}}}