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
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 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!
__
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
- 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
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
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
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
- 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%02d%02d\_$hour\:$min\
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';
>
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
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
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
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
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,
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
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 ($\
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.
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
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
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
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
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:
==
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
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
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
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
30 matches
Mail list logo