Hi all,
I don't have underlined the row 382 because it seems irrilevant (for
me) and so I have forget it! Sorry. Thank you,
Vincenza
# store exon
my @exons = @{$transcript-get_all_Exons()};
my ($ontology_exon, $exon_start, $exon_end, $exon_strand);
unless ($transcript-translation){
Hi!
This programm gives out a parsed xmlpage + a unparsed xmlpage..
how can i use the parsed data which i print out with print
processNode($accessions-item($i));
into my sub get_idlist?
use LWP::Simple;
use XML::DOM;
use CGI;
my $cgi = new CGI;
use CGI::Carp qw(fatalsToBrowser);
my
I'm just wondering what is the reason that switch is
not built-in in perl... I can do a switch statement
by using the Switch module, but I'm wondering why it's
not already builtin with the interpreter.
thanks
__
Do You Yahoo!?
Tired of spam?
Hi,
Larry Wall mentions this in the Apocalypse 4 document for Perl 6:
Another argument against having a switch statement in Perl 6 is
that we never had it in the first five versions of Perl. But it would
be incorrect to say that we didn't miss it. What actually happened was
that every time
Felix Li wrote:
Greetings,
It's fairly well known that one should use open with an or die.
Is there really any condition where close fails, making the or
die necessary?
If the handle you're closing is a pipe, close() captures the exit status of
the child process. You should check the
Hi all,
maybe this is not perl related, but I am not sure. I'm connecting to
mysql, and after I'm executing some queries. Sometimes - when query is
too complicated, or I start second complicated query, I get:
DBD::mysql::st execute failed: Lost connection to MySQL server during
query at...
Do
Hameed U. Khan wrote:
print (('January', 'Fubruary', 'March', 'April', 'May ', 'June',
'July', 'August', 'September',
'Ooctber', 'November', 'December')[-1]);
following is the warning and output i am getting.
[EMAIL PROTECTED] ./backwards.pl
print (...) interpreted as function at
I don't think that it is possible to do within perl so I had to enable
these options:
echo 1 /proc/sys/net/ipv4/tcp_tw_reuse
echo 1 /proc/sys/net/ipv4/tcp_tw_recycle
-Original Message-
From: Jim [mailto:[EMAIL PROTECTED]
Sent: Saturday, December 04, 2004 8:27 PM
To: Joshua Berry
Cc:
Hi all
would any know of a link, or doc etc as to how I can get perl to work
with apache (CGI)
This is section of my apache conf file:
===
VirtualHost xyz
DocumentRoot /home/abc/xyz
ScriptAlias /cgi-bin/ /home/abc/cgi-bin/
AccessFileName a.htaccess
Hi all
would any know of a link, or doc etc as to how I can get perl to work
with apache (CGI)
This is section of my apache conf file:
===
VirtualHost xyz
DocumentRoot /home/abc/xyz
ScriptAlias /cgi-bin/ /home/abc/cgi-bin/
AccessFileName a.htaccess
Please, just one copy of the email. Thanks.
On Mon, 6 Dec 2004, Brent Clark wrote:
In my apache log files, I keep getting this:
[Mon Dec 6 17:51:35 2004] [error] [client 192.168.111.214] Premature
end of script headers:
Chris Devers wrote:
Please, just one copy of the email. Thanks.
On Mon, 6 Dec 2004, Brent Clark wrote:
In my apache log files, I keep getting this:
[Mon Dec 6 17:51:35 2004] [error] [client 192.168.111.214] Premature
end of script headers:
It was Monday, December 06, 2004 when Brent Clark took the soap box, saying:
: thanks for your reply
:
: The thing is that I dont get popup box whereby I have to enter the
: username and password (generated by my a.httaccess of apache).
: In terms of the code, this same very code run on my
Hi Brent,
there are a few reasons that come to my mind why the code stopped
working after transferring from another machine:
1) The shellbang line (e.g. #!/usr/bin/perl) does not point to the
actual perl binary on the local machine.
2) A newline problem, i.e. you binary copied from a unix to
Brent Clark wrote:
Chris Devers wrote:
Please, just one copy of the email. Thanks.
On Mon, 6 Dec 2004, Brent Clark wrote:
In my apache log files, I keep getting this:
[Mon Dec 6 17:51:35 2004] [error] [client 192.168.111.214]
Please let me begin by saying I know next-to-nothing about CGI so take this
with a LUMP of SALT:
- Original Message -
From: Matthias Kraatz [EMAIL PROTECTED]
To: Brent Clark [EMAIL PROTECTED]
Cc: Perl Beginners List [EMAIL PROTECTED]
Sent: Monday, December 06, 2004 11:39 AM
Subject: Re:
NAME
beginners-faq - FAQ for the beginners mailing list
1 - Administriva
1.1 - I'm not subscribed - how do I subscribe?
Send mail to [EMAIL PROTECTED]
You can also specify your subscription email address by sending email to
(assuming [EMAIL PROTECTED] is your email address):
There is a MySQL global variable called connect_timeout. Its default value
is 5 minutes. Try searching www.mysql.com doc links for details.
Rgds, GStC.
-Original Message-
From: Ing. Branislav Gerzo [mailto:[EMAIL PROTECTED]
Sent: Monday, December 06, 2004 9:04 AM
To: [EMAIL
this is really meant for beginners-cgi, not this list.
Now, my usual questions:
were you not aware of this list?
if so, why did you post here instead of the CGI list?
--
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
[EMAIL PROTECTED]
I can usually figure out regexes, and this one seems simple, but it still
eludes me--
I'm looking for a regex (or a couple of regexes) to do the following:
blahblah{ab,abcd}blah -- blahblah(ab|abcd)blah
blahblah{a,b,c}blah -- blahblah(a|b|c)blah
If it's not obvious I'm trying to
Bryan R Harris wrote:
I can usually figure out regexes, and this one seems simple, but it
still eludes me--
I'm looking for a regex (or a couple of regexes) to do the following:
blahblah{ab,abcd}blah -- blahblah(ab|abcd)blah
blahblah{a,b,c}blah -- blahblah(a|b|c)blah
Well, you
I can usually figure out regexes, and this one seems simple, but it
still eludes me--
I'm looking for a regex (or a couple of regexes) to do the following:
blahblah{ab,abcd}blah -- blahblah(ab|abcd)blah
blahblah{a,b,c}blah -- blahblah(a|b|c)blah
Well, you can do
I'm looking for a regex (or a couple of regexes) to do the following:
blahblah{ab,abcd}blah -- blahblah(ab|abcd)blah
blahblah{a,b,c}blah -- blahblah(a|b|c)blah
Anybody have a faster way to do this?
__CODE__
#!/usr/bin/perl
use strict;
use warnings;
sub uncommify {
my ($glob) =
I can usually figure out regexes, and this one seems simple, but it
still eludes me--
I'm looking for a regex (or a couple of regexes) to do the
following:
blahblah{ab,abcd}blah -- blahblah(ab|abcd)blah
blahblah{a,b,c}blah -- blahblah(a|b|c)blah
Well, you can do
I can usually figure out regexes, and this one seems simple, but it
still eludes me--
I'm looking for a regex (or a couple of regexes) to do the
following:
blahblah{ab,abcd}blah -- blahblah(ab|abcd)blah
blahblah{a,b,c}blah -- blahblah(a|b|c)blah
Well, you can do
On Mon, 6 Dec 2004, Bryan R Harris wrote:
Can you do this:
$var =~ s/\{([^}]*)\}/$v = $1; $v =~ s!,!|!g; qq!($v)!/ge;
Holy cow, is that legal??!! It took me at least 30 seconds just to
figure out that those commands were inside the s/// command.
See the 'e' at the end of the s///
On Mon, 6 Dec 2004, Chris Devers wrote:
On Mon, 6 Dec 2004, Bryan R Harris wrote:
Can you do this:
$var =~ s/\{([^}]*)\}/$v = $1; $v =~ s!,!|!g; qq!($v)!/ge;
Holy cow, is that legal??!! It took me at least 30 seconds just to
figure out that those commands were inside the
Does anyone know why or where the phrase [Contains o f f e n s i v e
content] is being inserted into these headers? I wouldn't care, except my
employer's spam filter is holding them up for whatever reason, as it might
be, use of the said phrase...
Rgds, G.
-Original Message-
From:
Is there a Perl equivalent of Java String.toArray method?
I need to get an Alpha-Numeric string (16 plus consecutive characters) into
an array or hash of characters to allow manipulation of the individual
characters. The use of substr to extract each characters is unweildy.
Any suggestions
On Mon, 6 Dec 2004, Graeme St. Clair wrote:
Does anyone know why or where the phrase [Contains o f f e n s i v e
content] is being inserted into these headers? I wouldn't care,
except my employer's spam filter is holding them up for whatever
reason, as it might be, use of the said
Dear Graeme,
The problem is with your employers filtering software, as the copy of the
same message I received was unaltered. Perl beginners is not the place
to ask about this.
Jonathan Paton
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
On Mon, 6 Dec 2004, Frank Westfield wrote:
Is there a Perl equivalent of Java String.toArray method?
I need to get an Alpha-Numeric string (16 plus consecutive characters)
into an array or hash of characters to allow manipulation of the
individual characters. The use of substr to extract
Dear Frank,
It is unlikely you need to work on each character individually. The regex
engine built in to perl is designed to do that hard work for you. What are
you trying to achieve?
In the event you DO need to work character by character, you could:
my @array = $string =~ /./g;
Or:
my
Is there a Perl equivalent of Java String.toArray method?
I need to get an Alpha-Numeric string (16 plus consecutive characters) into
an array or hash of characters to allow manipulation of the individual
characters. The use of substr to extract each characters is unweildy.
Any suggestions
I tried everything I could think of to get this to work before pleading for
help!
I need to check if a file is either a TIFF or JPEG graphics file.
(Case-insensitive variations of qualifying suffixes would be .tif, .tiff,
.jpg and .jpeg.) So far I have three difference versions of what seem to be
-Original Message-
From: Joshua Berry [mailto:[EMAIL PROTECTED]
Sent: Monday, December 06, 2004 10:01 AM
To: Jim
Cc: [EMAIL PROTECTED]
Subject: RE: Building Network Redundancy into a Perl Client
I don't think that it is possible to do within perl so I had
to enable these
On Monday 06 December 2004 05:05 pm, Jeffrey Paul Burger wrote:
I tried everything I could think of to get this to work before pleading for
help!
I need to check if a file is either a TIFF or JPEG graphics file.
(Case-insensitive variations of qualifying suffixes would be .tif, .tiff,
.jpg
Hmmm.. I'm new to this list and I just replied to the message and it
seems to have gone directly to Jeffrey, sorry 'bout that...
I did need to add the case-insensitivity to the regex:
/^.*\.[tj][pi][gfe].*$/i
That's better, I think.
-Paul
-Original Message-
From: Paul Ohashi
Yes, I did know it was OT - in fact I nearly put OT in the header. Except
that that might have disturbed whatever was going on, and I wanted to find
if the annotation emanated from the system of one of the list users. Asking
the question on some other list would not have elicited your answer,
Okay, now I have to admit I'm also new to Perl, but I can adapt to change:
/^.*\.[tj][pi][gfe].{0,1}$/i
I threw in the quantifier to avoid what Felix exposed. Now, there's
probably a hole in this somewhere, but it's got to be a small one...
-Paul
-Original Message-
From: Felix
Okay, now I have to admit I'm also new to Perl, but I can adapt to change:
/^.*\.[tj][pi][gfe].{0,1}$/i
I threw in the quantifier to avoid what Felix exposed. Now, there's
probably a hole in this somewhere, but it's got to be a small one...
-Paul
Zeroth: It would better to say
--- Jeffrey Paul Burger [EMAIL PROTECTED] wrote:
I tried everything I could think of to get this to
work before pleading for
help!
I need to check if a file is either a TIFF or JPEG
graphics file.
(Case-insensitive variations of qualifying suffixes
would be .tif, .tiff,
.jpg and
Sorry bout that blank email...
anyway... I thnk this would work
$filename =~ /(?:jpe?g$)|(?:tif?f$)/i
I think this one is wrong because you actually have
two patterns here...
if ($file_name !~ /tif$/i | /jpg$/i) {}
maybe you could try doing it like this..
if($file_name !~ /(tif$)|(jpg$)/i
Bryan R Harris wrote:
I can usually figure out regexes, and this one seems simple, but it still
eludes me--
I'm looking for a regex (or a couple of regexes) to do the following:
blahblah{ab,abcd}blah -- blahblah(ab|abcd)blah
blahblah{a,b,c}blah -- blahblah(a|b|c)blah
If it's not obvious
I can usually figure out regexes, and this one seems simple, but it still
eludes me--
I'm looking for a regex (or a couple of regexes) to do the following:
blahblah{ab,abcd}blah -- blahblah(ab|abcd)blah
blahblah{a,b,c}blah -- blahblah(a|b|c)blah
If it's not obvious I'm
Hello Perl,
I am looking for a Perl module which is used to access FTPd via SSL,
Auth TLS. Is there something called Net::FTP::SSL or others?
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
Thanks, all! Wow... being new to this world and this list, your generous
cameraderie blows me away!
Eric's solution (with the addition of a missing closing parens) works and is
the simplest for this newbie to deal with. Here it is in it's entirety:
if ($file_name !~ /(tif$|tiff$|jpg$|jpeg$)/i {}
Kelvin Wu wrote:
Hello Perl,
Hello,
Perl is busy right now, I'm Lee ;p
I am looking for a Perl module which is used to access FTPd via SSL,
Auth TLS. Is there something called Net::FTP::SSL or others?
A quick search on search.cpan.org brought this up:
The instructions below work on my prototyping machine! Hurray! Thank you
Jonathan! However, now I'm trying to install GD on a production machine that
does not have internet access and the command ppm install
http://theoryx5.uwinnipeg.ca/ppms/GD.ppd; does not execute on this
production machine. How
At 23:48 06/12/2004, you wrote:
On Mon, 6 Dec 2004, Frank Westfield wrote:
Is there a Perl equivalent of Java String.toArray method?
I need to get an Alpha-Numeric string (16 plus consecutive characters)
into an array or hash of characters to allow manipulation of the
individual characters.
Frank Westfield [EMAIL PROTECTED] wrote:
: I have a string of between 16 and 24 consecutive characters
: - no spaces or other non-alphanumeric characters which split
: can work on (as I understand split). I need to process each
: character and reorder the resulting manipulated characters
: into
On Tue, 7 Dec 2004, Frank Westfield wrote:
Sorry if what I said was not clear enough.
I have a string of between 16 and 24 consecutive characters - no
spaces or other non-alphanumeric characters which split can work on
(as I understand split). I need to process each character and reorder
Hi
I am facing problem with File Generation with CGI..
In a CGI Program
if (!-e /home/anish/data.xml) {
print $cgi-p(Entered Hyere);
open OUTPUT, /home/anish/data.xml || die Cannot create the XML File;
print OUTPUT \?xml version\=\1\.0\\?\\n;
print OUTPUT \end\\n;
53 matches
Mail list logo