DBIx::DBStag 0.08 |
Date Added: June 18, 2010 | Visits: 347 |
|
||||||||
|
DBIx::DBStag is a Perl module for Relational Database to Hierarchical (Stag/XML) Mapping. SYNOPSIS use DBIx::DBStag; my $dbh = DBIx::DBStag->connect("dbi:Pg:dbname=moviedb"); my $sql = q[ SELECT studio.*, movie.*, star.* FROM studio NATURAL JOIN movie NATURAL JOIN movie_to_star NATURAL JOIN star WHERE movie.genre = sci-fi AND star.lastname = Fisher USE NESTING (set(studio(movie(star)))) ]; my $dataset = $dbh->selectall_stag($sql); my @studios = $dataset->get_studio; # returns nested data that looks like this - # # (studio # (name "20th C Fox") # (movie # (name "star wars") (genre "sci-fi") # (star # (firstname "Carrie")(lastname "Fisher"))))) # iterate through result tree - foreach my $studio (@studios) { printf "STUDIO: %sn", $studio->get_name; my @movies = $studio->get_movie; foreach my $movie (@movies) { printf " MOVIE: %s (genre:%s)n", $movie->get_name, $movie->get_genre; my @stars = $movie->get_star; foreach my $star (@stars) { printf " STARRING: %s:%sn", $star->get_firstname, $star->get_lastname; } } } # manipulate data then store it back in the database my @allstars = $dataset->get("movie/studio/star"); $_->set_fullname($_->get_firstname. .$_->get_lastname) foreach(@allstars); $dbh->storenode($dataset); exit 0; Or from the command line: unix> selectall_xml.pl -d dbi:Pg:dbname=moviebase SELECT * FROM studio NATURAL JOIN movie NATURAL JOIN movie_to_star NATURAL JOIN star USE NESTING (set(studio(movie(star)))) Or using a predefined template: unix> selectall_xml.pl -d moviebase /mdb-movie genre=sci-fi.
|
| License: Freeware | Size: 133.12 KB |
|
Libraries
-
DBIx::TableHash 1.05
DBIx::TableHash is a Perl module that can tie a hash to a mysql table + SQL utils. SYNOPSIS use DBIx::TableHash; my $DBHash = DBIx::TableHash->create_or_die (my $Params = { DBIDriver => mysql, Database => mydatabase, HostName =>... |
17.41 KB | |
|
Libraries
-
DBIx::EnumConstraints 0.01
DBIx::EnumConstraints is a Perl module that generates enum-like SQL constraints. SYNOPSIS use DBIx::EnumConstraints; my $ec = DBIx::EnumConstraints->new({ name => kind, fields => [ [ k1, a, b ] , [ k2, b ] ] }); # get enum field... |
10.24 KB | |
|
Libraries
-
DBIx::CGITables 0.001
DBIx::CGITables is a Perl module for easy DB access from a CGI. SYNOPSIS use DBIx::CGITables; my %parameters=(); my $query=DBIx::CGITables->new(%parameters)); $query->search_execute_and_do_everything_even_parse_the_template(); This module... |
20.48 KB | |
|
Libraries
-
PBJ::JNI 0.1
PBJ::JNI is a Perl module with full access to and from Java virtual machine from Perl. SYNOPSIS use PBJ::JNI::JavaVM; my ($env, $jvm, @vm_opts); my ($cls, $fid, $mid, $out); # Create the Java VM @vm_opts = ("-Xrs", "-Xcheck:jni"); $jvm... |
14.34 KB | |
|
Libraries
-
DBIx::SQL::Abstract 0.07
DBIx::SQL::Abstract is a Perl module that provides a convenient abstraction layer to a database. SYNOPSIS use DBIx::SQL::Abstract; my $dbh = DBIx::SQL::Abstract->new( %dbcfg ); Building SQL Abstractions. my($query, @bind) =... |
4.1 KB | |
|
Libraries
-
DBIx::DBStag::Cookbook 0.08
DBIx::DBStag::Cookbook is a Perl module for building and querying databases from XML. SYNOPSIS stag-autoddl.pl stag-storenode.pl selectall_xml.pl This will give an outline of how to build a normalised relational database from XML source... |
133.12 KB | |
|
Libraries
-
DBIx::SQLCrosstab 1.17
DBIx::SQLCrosstab Perl module creates a server-side cross tabulation from a database. SYNOPSIS use DBIx::SQLCrosstab; my $dbh=DBI->connect("dbi:driver:database" "user","password", {RaiseError=>1}) or die "error in connection $DBI::errstrn";... |
72.7 KB | |
|
Libraries
-
DBIx::Migration::Directories 0.05
DBIx::Migration::Directories is a Perl module to install/remove/upgrade/downgrade SQL schemas. SYNOPSIS use DBIx::Migration::Directories; use DBI; my $dbh = DBI->connect(db:something:some=where, user, pass); my $m =... |
28.67 KB | |
|
Libraries
-
XML::DB::Database::Exist
XML::DB::Database::Exist is a Perl module with XML:DB driver for the eXist database. SYNOPSIS use XML::DB::Database::Exist; This is the eXist XML-RPC driver. It is intended to be used through the XML:DB API, so that it is never called... |
35.84 KB | |
|
Libraries
-
DBIx::XMLServer 0.02
DBIx::XMLServer is a Perl module to serve data as XML in response to HTTP requests. SYNOPSIS use XML::LibXML; use DBIx::XMLServer; my $xml_server = new DBIx::XMLServer($dbh, "template.xml"); my $doc = $xml_server->process($QUERY_STRING);... |
29.7 KB |
|
Programming
-
RailsTidy 0.1
RailsTidy project is a plugin for Ruby On Rails.. |
11.26 KB | |
|
Programming
-
Strings edit 1.9
Strings edit is a library that provides I/O facilities for integer, floating-point, Roman numbers, and strings. Both input and output subroutines support string pointers for consequent stream processing. The output can be aligned in a fixed size... |
54.27 KB | |
|
Programming
-
BScript 0.3
BScript is a (yet another) BASIC interpreter. It is free software and open-sourced, licensed under the terms of the GNU General Public License version 2 or later. You can use BScript to teach BASIC to your students, write understandable shell... |
112.64 KB | |
|
Programming
-
Kits JavaScript Brainf*ck Interpreter 0.01
Kits JavaScript Brainf*ck Interpreter is a rather fast interpreter for the Brainf*ck esoteric programming language.. Kit's JavaScript Brainfuck Interpreter v0.01 |
5.12 KB | |
|
Programming
-
dis6502 0.12
dis6502 is a flow-tracing disassembler for the 6502, originally written by Robert Bond and supporting Atari binary files. Robert posted dis6502 to the Usenet newsgroup net.sources on 9-Oct-1986, and to comp.sources.unix 7-Jun-1988. Udi... |
19.46 KB | |
|
Libraries
-
Module::MakefilePL::Parse 0.12
Module::MakefilePL::Parse is a Perl module to parse required modules from Makefile.PL. SYNOPSIS use Module::MakefilePL::Parse; open $fh, Makefile.PL; $parser = Module::MakefilePL::Parse->new( join("", ) ); $info = $parser->required;... |
8.19 KB | |
|
Libraries
-
sqlpp 0.06
sqlpp Perl package is a SQL preprocessor. sqlpp is a conventional cpp-alike preprocessor taught to understand SQL ( PgSQL, in particular) syntax specificities. In addition to the standard #define/#ifdef/#else/#endif cohort, provides also... |
10.24 KB | |
|
Libraries
-
App::SimpleScan::Substitution::Line 2.02
App::SimpleScan::Substitution::Line is a line with optional fixed variable values. SYNOPSIS my $line = App::SimpleScan::Substitution::Line->new(" this "); # Use only this value when substituting " ". $line->fix(substituite =>... |
54.27 KB | |
|
Libraries
-
PDL::Graphics::TriD 2.4.3
PDL::Graphics::TriD is a PDL 3D interface. SYNOPSIS use PDL::Graphics::TriD; # After each graph, let the user rotate is and # wait for him to press q, then make new graph line3d($coords); # $coords = (3,n,...) line3d($coords,$colors); #... |
2.1 MB | |
|
Libraries
-
SmartColorWell 1.2
SmartColorWell is a cross-platform open-source ColorWell class for REALbasic 4 or greater. The SmartColorWell control stores a color value and displays that color in a simulated BevelButton that when pressed allows the user to change the color... |
21.5 KB |
