DBIx::FileSystemDBIx::FileSystem is a Perl module that allows to manage tables like a filesystem. | |
Download |
DBIx::FileSystem Ranking & Summary
Advertisement
- License:
- Perl Artistic License
- Price:
- FREE
- Publisher Name:
- Alexander Haderer
- Publisher web site:
- http://search.cpan.org/~afrika/DBIx-FileSystem-1.7/FileSystem.pm
DBIx::FileSystem Tags
DBIx::FileSystem Description
DBIx::FileSystem is a Perl module that allows to manage tables like a filesystem. DBIx::FileSystem is a Perl module that allows to manage tables like a filesystem.SYNOPSIS############################################################## # access the data using the access class ############################################################## use DBIx::FileSystem qw( :symbols ); my $fs = new DBIx::FileSystem( dbconn => $DBCONN, dbuser => $DBUSER, dbpasswd => $DBPWD, progdbver => $PROGDBVER ); my %vars = ( column_1 => undef, # columns to read from db column_2 => undef ); my %searchvars = ( column_a => "myvalue", # the WHERE part column_b => 1234, column_c => ); $r = $fs->get_conf_by_var( $dir, $default_filename, $filename_column, %vars, %searchvars ); die $fs->get_err if $r != OK; ############################################################## # implement the interactive configure shell ############################################################## use DBIx::FileSystem qw( mainloop recreatedb ); my %vdirs = ( table_one => { # ... column description here ... }, table_two => { # ... column description here ... }, ); my %customcmds = (); if( $#ARGV==0 and $ARGV eq 'recreatedb' ) { recreatedb(%vdirs, $PROGNAME, $VERSION, $DBCONN, $DBUSER, $DBPWD); }else{ # start the command line shell mainloop(%vdirs, $PROGNAME, $VERSION, $DBCONN, $DBUSER, $DBPWD, %customcmds ); }The upper synopsis shows how to access the data using the access class. The lower synopsis shows the program (aka 'the shell') to manage the database tables given in hash %vdirs. Requirements: · Perl
DBIx::FileSystem Related Software