Xavier Noria schreef:
Detecting whether something holds in an array is the job of grep:
my $numbers = grep /\A$RE{num}{real}\z/, @data;
next unless $numbers == @data;
Alternative:
die if grep !/\A$RE{num}{real}\z/, @data;
my $numbers = scalar @data;
--
Affijn, Ruud
Gewoon
Paul and Paul,
Thank you very much !
I heard that OO module usually doesn't export anything,
but I just wanted the difference between use and use base.
Now almost everything is clear for me !
Just one thing, this code seems to work.
Munia,
Thank you very much !
Now everything is clear for me.
I know no use strict 'subs' allows bare word,
but I didn't know Perl would automatically quotes bareword ;)
Thank you again.
Rob,
- Original Message -
From: Rob Dixon [EMAIL PROTECTED]
To: Perl List beginners@perl.org
Cc: Mike Blezien [EMAIL PROTECTED]
Sent: Sunday, July 15, 2007 7:49 PM
Subject: Re: Parsing large XML file
Mike Blezien wrote:
we need to parse some very large XML files, approx.,
Mike Blezien wrote:
Rob Dixon wrote:
Mike Blezien wrote:
we need to parse some very large XML files, approx., 900-1000KB's
filesize. A sample of a typical XML file can be view here that would
be parsed: http://projects.thunder-rain.com/uploads/01.xml
I was planning on using the
On 7/21/07, Jack Minoshima [EMAIL PROTECTED] wrote:
snip
I know no use strict 'subs' allows bare word,
but I didn't know Perl would automatically quotes bareword ;)
snip
That is a simplification. The following code contains nothing but barewords:
perl -le 'print STDOUT STDOUT'
Only the
Rob,
- Original Message -
From: Rob Dixon [EMAIL PROTECTED]
To: Perl List beginners@perl.org
Cc: Mike Blezien [EMAIL PROTECTED]
Sent: Saturday, July 21, 2007 12:12 PM
Subject: Re: Parsing large XML file - Revisited
Mike Blezien wrote:
Rob Dixon wrote:
Mike Blezien wrote:
[snip]
On Jul 19, 11:01 am, [EMAIL PROTECTED] wrote:
How do I write a multiple file perl program? I dont want to conflict
with any real module names that were built in or are on CPAN. I just
want to spread some subs onto some other files.
Thanks. The conflicting names were not as big a deal. The
Hi ,
i did not understand the obj13-lib.pl part and second thing is,i
am also new to perlThe following code gives you the sum,avg and
the new array..i am taking the input directly from the command line
for the first 10 nums...
Hope this helps..If not..then i will also be looking at the
Paul Lalli wrote:
On Jul 18, 6:43 am, [EMAIL PROTECTED] (kapil.V) wrote:
su-2.05b# df -h .
Filesystem Size Used Avail Capacity Mounted on
/dev/ad0s1e 136G 102G 23G 82% /home
From my script I do:
my $du = qx#df -h \.#;
($total,$used) = $du =~
I've just recently begun using BioPerl. I've set up a local version
of Blast, and am writing a script to automate the whole process.
However, when using $hit-strand() to get the strand information
from one of my hits, it sometimes returns an invalid subsequence.
I've traced this back to
On 7/20/07, [EMAIL PROTECTED] [EMAIL PROTECTED] wrote:
I've just recently begun using BioPerl. I've set up a local version
of Blast, and am writing a script to automate the whole process.
However, when using $hit-strand() to get the strand information
from one of my hits, it sometimes returns
If I have a script that reads a password from STDIN. I want to not
display the character in the terminal when its being typed.
Can I print a backspace escape sequence? Or redirect STDOUT?
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
On 7/22/2007 12:42 AM, yitzle wrote:
If I have a script that reads a password from STDIN. I want to not
display the character in the terminal when its being typed.
You can do something like
print passwd: ;
system stty -echo;
chop(my $passwd=STDIN);
system stty echo;
print \n;
or use a module
If I have a script that reads a password from STDIN. I want to not
display the character in the terminal when its being typed.
Can I print a backspace escape sequence? Or redirect STDOUT?
perldoc -q password
will give you some ideas and I only think that Term::ReadKey is part of
the standard
Works nice! Thanks!
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
16 matches
Mail list logo