zentara wrote:
> On Mon, 09 Oct 2006 07:44:01 -0400, [EMAIL PROTECTED] (Mathew)
> wrote:
>
>> zentara wrote:
>>> On Mon, 09 Oct 2006 06:18:58 -0400, [EMAIL PROTECTED] (Mathew
>>> Snyder) wrote:
>>>
zentara wrote:
> This is perfect for jokes.
> How about:
Those are just bad...real
Hello,
Do you know if there is a screen reader accessible Windows GUI (like
Win32::GUI, WXPerl, WinForms...) that supports UTF-8 and can be used in a
perl program?
Win32::GUI is accessible for screen readers but I don't think it supports
UTF-8. WinForms I don't think that can be used in a perl pr
How can I iterate through an array and if I find a match do something
without doing that thing for every element in the array. I've been
trying to do it with foreach, but that isn't working.
--
Charles Farinella
Appropria
I am sure someone else can do it better, but how about the following?
foreach (@rray){
if (/match/) {print "yay";}
}
On 10/10/06, Charles Farinella <[EMAIL PROTECTED]> wrote:
How can I iterate through an array and if I find a match do something
without doing that thing for every element in th
Eric Waguespack wrote:
I am sure someone else can do it better, but how about the following?
foreach (@rray){
if (/match/) {print "yay";}
}
Thanks, this will work for printing as you suggest. What I'm trying to
do is replace this:
==
On 10/10/06, Charles Farinella <[EMAIL PROTECTED]> wrote:
How can I iterate through an array and if I find a match do something
without doing that thing for every element in the array. I've been
trying to do it with foreach, but that isn't working.
It's hard to say for sure why it's not worki
Tom Phoenix wrote:
It's hard to say for sure why it's not working, without seeing what
you're trying to do. But maybe you want to use the 'last' operator to
exit the foreach once you find a match? 'last' is documented in the
perlfunc manpage.
I believe that's just what I'm looking for, thanks
hii,
I want to capture all the http packets having all the response information
like message type(GET/POST),etc. Also if the method is POST then postbody
also I want to capture. I am using Net::Pcap for achieving this. The filter
string that I am using is "port 80". But the output I am getting is
there is also grep
perl -e '@rray = ("this", "is", "a", "test", "spam"); print (grep
/bad|yuk|ugly|spam/, @rray)'
On 10/10/06, Charles Farinella <[EMAIL PROTECTED]> wrote:
Tom Phoenix wrote:
> It's hard to say for sure why it's not working, without seeing what
> you're trying to do. But
sorry, now I am spamming :)
perl -e '$tring="spam"."ringtones"."text"; if ( $tring =~ m/qwerty/
){print "spam\n"}'
perl -e '$tring="spam"."ringtones"."text"; if ( $tring =~
m/spam|ringtones|etc/ ){print "spam\n"}'
spam
On 10/10/06, Eric Waguespack <[EMAIL PROTECTED]> wrote:
there is also grep.
i want to process the attached file and i want to replace the $data[1] with equivalent month is strings.i have this code but it giving me errors... i only try the january case at least.
#!c:/perl/bin/perl
use warnings ; use strict ; use POSIX 'strftime'; my $file = "c:/Perl/test.csv" ; { local ($\
this sounds like a perfect use for a hash
%month = (
1 => "Jan",
2 => "Feb",
);
print $month{"1"}, "\n";
On 10/10/06, Goke Aruna <[EMAIL PROTECTED]> wrote:
i want to process the attached file and i want to replace the $data[1] with
equivalent month is strings.
i have this code but
Just a quick easy one, while printing localtime, how do I get it to
print the full minutes and seconds, i.e. :02??
Thanks,
Tim
my $date;
my ($sec,$min,$hour,$mday,$mon,$year) = (localtime) [0,1,2,3,4,5];
$year=$year+1900;
$mon=$mon+1;
$date = sprintf("%02d%02d%02d\_$hour\:$min\:$sec", $year,$mon,
The same you your doing $year, $mon, $mday use %02d which tells
sprintf to add leading zeros as need to keep the size correct. So
\_$hour\:$min\:$sec becomes \_%02d\:%02d\:%02d and you add the $hour,
$min and $sec after the $mday.
If you have any problems or questions, please let
On Tue, Oct 10, 2006 at 01:46:10PM -0500, Eric Waguespack wrote:
> this sounds like a perfect use for a hash
>
> %month = (
>1 => "Jan",
>2 => "Feb",
> );
>
> print $month{"1"}, "\n";
A data structure indexed by small, consecutive integers? Smells like an array
to me.
--
Paul Joh
Hi,
I've written the following script to substitute names
for codes into a phylogenetic tree (newick format-file
attached) using a global hash with codes as key and
names as values...it seems to be working up to the
second to last line where I make the substitution...I
am able to make the substitu
On 10/10/06, Kathryn Bushley <[EMAIL PROTECTED]> wrote:
s/(.*).$code.(.*)/$1.$id_global{$code}.$2/;
I haven't looked at all of your program in detail, so there may be
other fixes needed; but this substitution jumped out at me. It doesn't
look as if you really need $1 and $2; and it looks as if
Hi,
I've written the following script to substitute names
for codes into a phylogenetic tree (newick format-file
attached) using a global hash with codes as key and
names as values...it seems to be working up to the
second to last line where I make the substitution...I
am able to make the substitu
Goke Aruna wrote:
>
i want to process the attached file and i want to replace the $data[1] with
equivalent month is strings.
i have this code but it giving me errors... i only try the january case at
least.
#!c:/perl/bin/perl
use warnings ;
use strict ;
use POSIX 'strftime';
my $file = "c:/Per
Goke Aruna wrote:
> i want to process the attached file and i want to replace the $data[1] with
> equivalent month is strings.
>
> i have this code but it giving me errors... i only try the january case at
> least.
>
> #!c:/perl/bin/perl
> use warnings ;
> use strict ;
> use POSIX 'strftime';
>
Tim Wolak wrote:
Just a quick easy one, while printing localtime, how do I get it to
print the full minutes and seconds, i.e. :02??
Thanks,
Tim
my $date;
my ($sec,$min,$hour,$mday,$mon,$year) = (localtime) [0,1,2,3,4,5];
$year=$year+1900;
$mon=$mon+1;
$date = sprintf("%02d%02d%02d\_$hour\:$min\
- Original Message -
From: "Kathryn Bushley" <[EMAIL PROTECTED]>
Newsgroups: perl.beginners
To:
Sent: Tuesday, October 10, 2006 3:17 PM
Subject: saving surrounding text in substitution
Hi,
I've written the following script to substitute names
for codes into a phylogenetic tree (new
Tim Wolak wrote:
> Just a quick easy one, while printing localtime, how do I get it to
> print the full minutes and seconds, i.e. :02??
>
> Thanks,
> Tim
>
> my $date;
> my ($sec,$min,$hour,$mday,$mon,$year) = (localtime) [0,1,2,3,4,5];
> $year=$year+1900;
> $mon=$mon+1;
> $date = sprintf("%02d%0
John W. Krahn wrote:
> Goke Aruna wrote:
>>i want to process the attached file and i want to replace the $data[1] with
>>equivalent month is strings.
>>
>>i have this code but it giving me errors... i only try the january case at
>>least.
>>
>>#!c:/perl/bin/perl
>>use warnings ;
>>use strict ;
>>us
Chris Charley wrote:
>
> (I've re-writteen your entire code below.You how much simpler it could be.)
>
> #!/usr/bin/perl
> use strict;
> use warnings;
> use Bio::Seq;
> use Bio::SeqIO;
>
> #initialize id and fasta files
> my $codefile = $ARGV[0];
> my $treefile = $ARGV[1];
>
> #open alignment l
- Original Message -
From: ""John W. Krahn"" <[EMAIL PROTECTED]>
Newsgroups: perl.beginners
To: "Perl Beginners"
Sent: Tuesday, October 10, 2006 4:43 PM
Subject: Re: saving surrounding text in substitution
Chris Charley wrote:
(I've re-writteen your entire code below.You how much
Hello all,
Any of you perl gurus have experience on listening to port? Specifically
port 514 owned by syslog. I'd like to parse and dump whatever it
received into database. I searched CPAN, got Sys::Syslog, but pls
correct me, is it only for reading whatever the syslog already wrote?
Net::Dev::To
Hi David,
I fresh beginner in perl and I'd like to know how what
started you in doing perl. What are other benefits of
learninng perl and what use will it be in the future.
Can you also provide other learning sites.
Thank you in advance for your help!
__
Is it possible to calculate the File SIZE which is from HTTP. i.e if I
wanted to know
file size of http://www.yahoo.com/images/a.gif from PERL..
Thanks
Anish
--
No virus found in this outgoing message.
Checked by AVG Free Edition.
Version: 7.1.408 / Virus Database: 268.13.2/471 - Release Date
hi,
i need to parse the content on a page (which are basically headers ) and
verify certain content is returned or not by my server . i am using IE
automation i tried using
Content();
VerifyText($string, [iflags])..but getting "Undefined subroutine
&main::Content called at main.pl line 35." this
30 matches
Mail list logo
