[Bio] / Sprout / SproutQuery.pm Repository:
ViewVC logotype

View of /Sprout/SproutQuery.pm

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (download) (as text) (annotate)
Wed Mar 15 20:26:39 2006 UTC (13 years, 8 months ago) by hwang
Branch: MAIN
added files for first version of data mining. Need to change these to return a tuple

package SproutQuery;

use strict;
use Tracer;
use Sprout;
use ERDB;
use SFXlate;

my $sprout = SFXlate->new_sprout_only();
my $erdb = $sprout->{_erdb};
my $dbh = $erdb->{_dbh};

sub get_field {

    my($table, $field, $limit) = @_;

    my $rv = $dbh->SQL("SELECT $field FROM $table");
    return map { $_->[0] } @$rv;

}

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3