I am trying to make a simple perl program that reads 20 characters upstream from the codon ATG in a given sequence. The following is what I have. I just dont know how to make the program read 20 characters upstream from the ATG codon.
Code:
print "\nThis program will read 20 characters upstream from the codon ATG in the given sequence.\n
Please, input your sequence: ";
my $sequence = <>;
chomp $sequence;
if ($sequence=~ m/ATG/g) {
print "The sequence is $sequence";
} else {
print "The given sequence doesn not contain ATG.\n"
}
exit;
Hi friends,
What are the possible ways to connect to DB2 database from Perl (on unix).
I need to connect to DB2 and get records for further processing. Can you please suggest the best possible way. I heard about DBI/DBD, if you have some sample scripts please post them too.
Thanks in advance. (3 Replies)
Hi,
I am extracting SQL queries into a file and the file is as follows
*********************************************************
select BatchKey ,restartStatus ,batchContextBuffer ,batchPgmId ,StartKey ,
EndKey ,Mcbatchcontrol_ver
from
qsecminload.Mcbatchcontrol_t where RefId = :1 ... (5 Replies)
use strict;
print "Enter last 4 digits of phone number:";
chomp(my $number=<>);
die "Invalid number: '$number'\n" unless $number=~/^\d{4}$/;
my @d=split(undef,$number);
my %map={
2=>"",
3=>"",
4=>"",
5=>"",
6=>"",
7=>"",
8=>"",
9=>"",
};
my $r=$map{$d}.$map{$d}.$map{$d}.$map{$d};... (1 Reply)
I need a small and simple clarification...
Can someone tell me whether PERL is a programming language or not.
Also, can shell scripts also considered as programming language or not.
Also, please tell me the exact difference between programming language and scripting.
Please help.... (3 Replies)
Can someone please tell me what the big deal about perl is?
i have been doing shell programming for quite a number of years and I have to say, there's very little if any thing that I can't do in shell programming. i just need to investigate how to do it.
so, my question is, does deep... (1 Reply)
Hi, everyone!!
i am new to perl programming.. plz help me.
#!C:/perl/bin
use warnings;
use strict;
use Text::CSV_XS;
my @rows = "";
my $row;
my $count;
my $fh;
my @fields = "";
my $csv = Text::CSV_XS->new ({binary =>1}) or
die "cannot use CSV:" .Text::CSV->error_diag ();
open... (3 Replies)
I am having a text file with
Vivek 50
Ram 34
Hulk 45
Vivek 23
Ram 23
Vivek 55
Now I need a perl script to display the fields of 1st column & the 2nd column with summation (& avoid the duplicates).
Vivek 128
Ram 57
hulk 45
Plz help me... (1 Reply)
Hi,
i am very beginer to perl, I am reading one xml file and i am creating hash table for that file. i written code like this
#!/usr/bin/perl
use warnings;
use strict;
use XML::LibXML::Reader;
#Reading XML with a pull parser
my $file;
open( $file, 'formal.xml');
my $reader =... (8 Replies)
how to link the linux files in perl on the local webpage ????
suppose we have some results and want to get them published on the local webpage of our internal site. how this can be done using HTML and perl together , so that the results are published directly on the webpage.
thanks
kullu (0 Replies)
Dears,
I want to print filename and count of each file in perl but failing to implement.
`find $srcFolder -maxdepth 1 -type f -name "*$workDate*$fileExt" -exec sh -c ' && printf "$workDate|%s|%s\n" "$(wc -l<"$0")" *$workDate*$fileExt' {} \ >> /Sadique/filelog.out \\; 2> /dev/null`;
... (2 Replies)
Discussion started by: sadique.manzar
2 Replies
LEARN ABOUT DEBIAN
go::model::evidence
GO::Model::Evidence(3pm) User Contributed Perl Documentation GO::Model::Evidence(3pm)NAME
GO::Model::Evidence - evidence for an association
SYNOPSIS
my $ev_l = $association->evidence_list;
foreach my $ev (@$ev_l) {
print "Evidence for association %s : %s
",
$association->gene_product->symbol,
$ev->code;
}
DESCRIPTION
evidence for an association
see http://www.geneontology.org/GO.evidence.html for a list of evidence codes
code
Usage - $ev->code("IEA");
Returns -
Args -
gets/sets the evidence code
see http://www.geneontology.org/GO.evidence.html
seq_acc
Usage -
Returns -
Args -
gets/sets the sequence accesion GO::Model::Xref
ALPHA CODE - API may change
used to set the GO::Model::Xref list from a text string. eg
$ev->seq_acc("SGD:RRP41; SGDID:L0003550");
will actually add two GO::Model::Xref objects
This method doesnt really belong in the GO::Model::* hierarchy as it contains parsing code. Its a minor hack mainly due to the fact that
this data is still denormalized in the database.
add_seq_xref
Usage -
Returns -
Args -
equivalent to WITH column in gene_association files, and evidence_dbxref tables in db
add_pub_xref
Usage -
Returns -
Args -
xref
Usage -
Returns -
Args -
gets/sets the literature or sequence reference GO::Model::Xref
NOTE: at some point we may want to deprecate this method and persuade API client code to call
$ev->literature_xref
instead, to make explicit the fact that this is a literature reference as opposed to a sequence reference
xref_list
Usage -
Returns - GO::Model::Xref listref
Args -
returns all (sequence and literature) references
xref
Usage -
Returns -
Args -
deprected - sets first pub_xref_list
valid_codes
Usage - print join("; ", GO::Model::Evidence->valid_codes);
Returns - string array
Args -
list of valid evidence codes
perl v5.14.2 2013-02-07 GO::Model::Evidence(3pm)
04-14-2012
Perl programming help
