AcePerl
view release on metacpan or search on metacpan
Makefile.PL script with the INSTALLSITELIB switch set to the full path
of the directory you want to install into:
perl Makefile.PL INSTALLSITELIB=/path/to/library
Then "make" and "make install" as described before. You will now have
to tell Perl where to find AcePerl. You can do this on a
script-by-script basis, or by defining an environment variable that
will affect all scripts.
To tell a single script where to find AcePerl, add a "use lib" line
to your script. Put it _before_ the "use Ace" line:
use lib /path/to/library;
use Ace;
To change Perl's library search path so that it finds AcePerl
automatically, define the PERL5LIB environment variable in your
.login, .cshrc or .profile script. PERL5LIB is a colon-delimited list
of directories in which Perl will search for included libraries. For
example:
setenv PERL5LIB "/path/to/library";
acebrowser/cgi-bin/moviedb/movie view on Meta::CPAN
#!/usr/bin/perl
# -*- Mode: perl -*-
# file: movie
# Moviedb "movie" display
use strict;
use lib '..';
use vars '$DB';
use Ace 1.51;
use Ace::Browser::AceSubs;
use CGI 2.42 qw/:standard :html3 escape/;
my $movie = GetAceObject();
PrintTop($movie,'Movie');
print_prompt();
acebrowser/cgi-bin/moviedb/person view on Meta::CPAN
#!/usr/local/bin/perl
# -*- Mode: perl -*-
# file: person
# Moviedb "person" display
use strict;
use lib '..';
use vars '$DB';
use Ace 1.51;
use Ace::Browser::AceSubs;
use CGI 2.42 qw/:standard :html3 escape/;
my $person = GetAceObject();
PrintTop($person,'Person');
print_prompt();
AceNotFound() unless $person;
acebrowser/cgi-bin/searches/browser view on Meta::CPAN
#!/usr/bin/perl
use strict;
use vars qw($DB);
use lib '..';
use Ace 1.76;
use CGI::Carp qw/fatalsToBrowser/;
use CGI 2.42 qw/:standard :html3 escape/;
use Ace::Browser::AceSubs qw(:DEFAULT ResolveUrl DoRedirect);
use Ace::Browser::SearchSubs;
my $search_class = param('class');
my $search_pattern = param('query');
my $offset = AceSearchOffset();
examples/ace.pl view on Meta::CPAN
#!/usr/bin/perl
# Simple interface to acedb.
# Uses readline for command-line editing if available.
use lib '..','..blib/lib','../blib/arch';
use Ace 1.66;
use Getopt::Long;
use Text::ParseWords;
use strict vars;
use vars qw/@CLASSES @HELP_TOPICS/;
use constant DEBUG => 0;
my ($HOST,$PORT,$PATH,$TCSH,$URL,$AUTOSAVE,$USER,$PASS,@EXEC);
GetOptions('host=s' => \$HOST,
'port=i' => \$PORT,
examples/authors.pl view on Meta::CPAN
#!/usr/local/bin/perl
# This example will pull some information on various authors
# from the C. Elegans ACEDB.
use lib '../blib/lib','../blib/arch';
use Ace;
use strict vars;
use constant HOST => $ENV{ACEDB_HOST} || 'stein.cshl.org';
use constant PORT => $ENV{ACEDB_PORT} || 200005;
$|=1;
print "Opening the database....";
my $db = Ace->connect(-host=>HOST,-port=>PORT) || die "Connection failure: ",Ace->error;
examples/authors2.pl view on Meta::CPAN
#!/usr/local/bin/perl
# This example will pull some information on various authors
# from the C. Elegans ACEDB.
use lib '../blib/lib','../blib/arch';
use Ace;
use strict vars;
use constant HOST => $ENV{ACEDB_HOST} || 'stein.cshl.org';
use constant PORT => $ENV{ACEDB_PORT} || 200005;
$|=1;
print "Opening the database....";
my $db = Ace->connect(-host=>HOST,-port=>PORT) || die "Connection failure: ",Ace->error;
examples/coauthors.pl view on Meta::CPAN
#!/usr/local/bin/perl
use lib '..';
use Ace;
use constant HOST => $ENV{ACEDB_HOST} || 'stein.cshl.org';
use constant PORT => $ENV{ACEDB_PORT} || 200005;
my $AUTHOR = "Meyer BJ";
$|=1;
print "Trying to establish connection...";
my $db = Ace->connect(-port=>PORT,-host=>HOST);
print "done\n";
examples/draw_seqmap.pl view on Meta::CPAN
#!/usr/bin/perl
use strict;
use lib '.';
use Ace::Graphics::Panel;
use Ace::Graphics::Fk;
unshift @ARGV,'exons.txt' unless @ARGV;
my (%features,@all_features);
while (<>) {
chomp;
next if /^\#/;
chomp;
examples/exons.pl view on Meta::CPAN
#!/usr/local/bin/perl
# This example will pull some information on a sequence
# from the C. Elegans ACEDB.
use lib '../blib/lib','../blib/arch';
use Ace;
use strict vars;
use constant HOST => $ENV{ACEDB_HOST} || 'stein.cshl.org';
use constant PORT => $ENV{ACEDB_PORT} || 200005;
$|=1;
print "Opening the database....";
my $db = Ace->connect(-host=>HOST,-port=>PORT) || die "Connection failure: ",Ace->error;
examples/gif.pl view on Meta::CPAN
#!/usr/local/bin/perl
use lib '..','../blib/lib','../blib/arch';
use Ace;
use constant HOST => $ENV{ACEDB_HOST} || 'stein.cshl.org';
use constant PORT => $ENV{ACEDB_PORT} || 200005;
die <<END if -t STDOUT;
Pipe the output to a file or a GIF displaying program.
Examples:
gif.pl | xv -
gif.pl > output.gif
examples/sequence.pl view on Meta::CPAN
#!/usr/local/bin/perl
# This example will pull some information on a sequence
# from the C. Elegans ACEDB.
use lib '../blib/lib','../blib/arch';
use Ace;
use strict vars;
use constant HOST => $ENV{ACEDB_HOST} || 'stein.cshl.org';
use constant PORT => $ENV{ACEDB_PORT} || 200005;
$|=1;
print "Opening the database....";
my $db = Ace->connect(-host=>HOST,-port=>PORT) || die "Connection failure: ",Ace->error;
examples/upstream.pl view on Meta::CPAN
#!/usr/local/bin/perl
# This example will pull out N base pairs upstream of each predicted
# gene in C. elegans
use lib '../blib/lib','../blib/arch';
use Ace::Sequence::Multi;
use strict vars;
use constant HOST => 'stein.cshl.org';
use constant MAPS => 300000;
use constant GENES => 300001;
$|=1;
my $upstream = shift || die "Usage: upstream.pl <size (bp)>\n";
examples/upstream2.pl view on Meta::CPAN
#!/usr/local/bin/perl
# This example will pull out N base pairs upstream of each predicted
# gene in C. elegans
use lib '..','../blib/arch';
use Ace::Sequence;
use strict vars;
use constant HOST => $ENV{ACEDB_HOST} || 'formaggio.cshl.org';
use constant PORT => $ENV{ACEDB_PORT} || 200005;
$|=1;
my $upstream = shift || die "Usage: upstream.pl <size (bp)>\n";
#!/usr/local/bin/perl -w
# Low level tests of connectivity
######################### We start with some black magic to print on failure.
use lib '../blib/lib','../blib/arch';
use constant HOST => $ENV{ACEDB_HOST} || 'aceserver.cshl.org';
use constant PORT => $ENV{ACEDB_PORT} || 2007;
BEGIN {
$| = 1; print "1..10\n";
print STDERR "Waiting for remote acedb regression database to start up. This may take a few minutes.\n";
}
END {print "not ok 1\n" unless $loaded;}
use Ace qw/STATUS_WAITING STATUS_PENDING/;
use Ace::SocketServer;
#!/opt/bin/perl -w
# Tests of object-level fetches and following
######################### We start with some black magic to print on failure.
use lib '../blib/lib','../blib/arch';
use constant HOST => $ENV{ACEDB_HOST} || 'aceserver.cshl.org';
use constant PORT => $ENV{ACEDB_PORT} || 2007;
BEGIN {$| = 1; print "1..36\n"; }
END {print "not ok 1\n" unless $loaded;}
use Ace;
use constant TEST_CACHE=>0;
$loaded = 1;
print "ok 1\n";
t/sequence.t view on Meta::CPAN
#!/usr/local/bin/perl -w
# Tests of Ace::Sequence and Ace::Sequence::Feature
######################### We start with some black magic to print on failure.
use lib '..','../blib/lib','../blib/arch';
use constant HOST => $ENV{ACEDB_HOST} || 'aceserver.cshl.org';
use constant PORT => $ENV{ACEDB_PORT} || 2007;
BEGIN {$| = 1; print "1..54\n"; }
END {print "not ok 1\n" unless $loaded;}
use Ace::Sequence;
$loaded = 1;
print "ok 1\n";
#!/usr/local/bin/perl -w
# Tests of object-level fetches and following
######################### We start with some black magic to print on failure.
use lib '../blib/lib','../blib/arch';
use constant HOST => $ENV{ACEDB_HOST} || 'aceserver.cshl.org';
use constant PORT => $ENV{ACEDB_PORT} || 2007;
BEGIN {$| = 1; print "1..17\n"; }
END {print "not ok 1\n" unless $loaded;}
use Ace;
$loaded = 1;
print "ok 1\n";
######################### End of black magic.
( run in 0.512 second using v1.01-cache-2.11-cpan-87723dcf8b7 )