From dmagnuszewski at mandtbank.com  Tue Oct  3 06:30:55 2006
From: dmagnuszewski at mandtbank.com (DANIEL MAGNUSZEWSKI)
Date: Tue, 03 Oct 2006 09:30:55 -0400
Subject: [Buffalo-pm] Fwd: [pm_groups] Registrations are open for OSDC 2006
Message-ID: <s5222dee.051@comrcm01intgwia.mandtbank.com>

An embedded message was scrubbed...
From: "Scott Penrose" <scottp at dd.com.au>
Subject: [pm_groups] Registrations are open for OSDC 2006
Date: Tue, 3 Oct 2006 11:59:31 +1000
Size: 4863
Url: http://mail.pm.org/pipermail/buffalo-pm/attachments/20061003/8d212619/attachment.mht 

From magog at the-wire.com  Tue Oct 10 19:49:43 2006
From: magog at the-wire.com (Michael Graham)
Date: Tue, 10 Oct 2006 22:49:43 -0400
Subject: [Buffalo-pm] Andy Lester Oct 26 Talk Details
Message-ID: <20061010224943.23e8c9eb@caliope>


(These details are also on the TPM web site: http://to.pm.org/)

 Speaker:   Andy Lester

    Date:   Thursday 26 Oct 2006

    Time:   6:45pm

   Where:   2 Bloor Street West (NW corner of Yonge/Bloor, skyscraper
            with the CIBC logo on top) Floor/Classroom TBA

  ===================================================================

Talk Details:

   Andy Lester has used Perl for over a decade, has written or maintains
   a number of modules you probably use every day, and works on public
   relations for the Perl Foundation.  But for his double-header talk
   for October 26th, Perl is barely a mention.

   First up, Andy will speak on technical debt and how to get out of it.
   Technical debt is that nasty condition companies get into where  the
   codebase is crufty, poorly documented, and hard to test, and everyone
   is terrified of changing anything.  Just like financial  debt, it's
   the compound interest on technical debt that snowballs  until you can
   no longer effectively do projects: technical  bankruptcy. Come learn
   how to pay down your biggest debts before that  happens.

   Second, Andy discusses pragmatic job hunting for technical people.
   He'll talk about how finding and landing a job isn't a matter of
   luck, and how to make yourself stand out in a sea of job applicants.
   Come ready to unlearn the conventional wisdom about all aspects of
   the job hunt, from where to find jobs, how to write a resume, and
   what to do in an interview.  "In my years of hiring programmers, I've
   seen some pretty awful mistakes, and some awfully funny ones," he
   says.  Come learn how to avoid the mistakes and get the job you want.

   This evening of talks is of general interest to programmers,
   sysadmins and other technical people, not just Perl Mongers.  Tell
   your friends!


  ===================================================================

  Note:

            The elevators in the building are "locked down" after 5:30pm
            to people without building access cards.  Leading up to the
            meeting someone will come down to the main floor lobby every
            few minutes to ferry people upstairs.  There will be a
            number of scheduled trips:

                17:30
                18:00
                18:30
                18:45
                19:00

            After 19:00, you can reach the access-card-carrying guy via
            a cell phone number that we'll leave with security in the
            front lobby.  The room and floor numbers will be left with
            security too.

            If any latecomers call up there will be a final group
            elevator run at 19:10.  After that, access will be ad-hoc;
            call up from security and somebody will try to come down and
            let you up.




-- 
Michael Graham <magog at the-wire.com>

From dmagnuszewski at yahoo.com  Fri Oct 13 13:51:02 2006
From: dmagnuszewski at yahoo.com (dmagnuszewski at yahoo.com)
Date: Fri, 13 Oct 2006 20:51:02 +0000
Subject: [Buffalo-pm] October Meeting
Message-ID: <63431476-1160772693-cardhu_blackberry.rim.net-816625789-@bxe035-cell01.bisx.prod.on.blackberry>

All,

According to my calendar, the next meeting will be this upcoming Tuesday (assuming power is restored). Any thoughts on topics? Should we just have a social meeting instead - Mike and I can share our experience at the Pittsburgh Perl Workshop? 

-Dan
Sent via BlackBerry from T-Mobile  


From dmagnuszewski at mandtbank.com  Mon Oct 16 13:58:44 2006
From: dmagnuszewski at mandtbank.com (DANIEL MAGNUSZEWSKI)
Date: Mon, 16 Oct 2006 16:58:44 -0400
Subject: [Buffalo-pm] Perl - Protecting The World's Youth!
Message-ID: <s533ba65.009@comrcm01intgwia.mandtbank.com>

http://arstechnica.com/news.ars/post/20061016-7996.html 



From joshua at wolfnix.net  Tue Oct 17 05:53:18 2006
From: joshua at wolfnix.net (Joshua Ronne Altemoos)
Date: Tue, 17 Oct 2006 08:53:18 -0400
Subject: [Buffalo-pm] Perl - Protecting The World's Youth!
In-Reply-To: <s533ba65.009@comrcm01intgwia.mandtbank.com>
References: <s533ba65.009@comrcm01intgwia.mandtbank.com>
Message-ID: <41ae6ce00610170553r675b1f28h7f8de6a4fcbfa747@mail.gmail.com>

This is a very interesting story, but I am curious on how the script
parsed all the pages, and returned the results..


-- 
Josh Altemoos
joshua at wolfnix.net
-Quis custodiet ipsos custodes
-Veritas vos liberabit


On 10/16/06, DANIEL MAGNUSZEWSKI <dmagnuszewski at mandtbank.com> wrote:
> http://arstechnica.com/news.ars/post/20061016-7996.html
>
>
> _______________________________________________
> Buffalo Perl Mongers Homepage
> http://buffalo.pm.org
>
> Buffalo-pm mailing list
> Buffalo-pm at pm.org
> http://mail.pm.org/mailman/listinfo/buffalo-pm
>

From dmagnuszewski at mandtbank.com  Tue Oct 17 10:55:40 2006
From: dmagnuszewski at mandtbank.com (DANIEL MAGNUSZEWSKI)
Date: Tue, 17 Oct 2006 13:55:40 -0400
Subject: [Buffalo-pm] October Meeting Moved Due To Storm/Power Outages...
Message-ID: <s534e0f9.009@comrcm01intgwia.mandtbank.com>

Due to the storm, and the large number of people still without power
(myself included) we will move the meeting to next Tuesday. Not sure
what is on the agenda yet, so any thoughts would be good...

-Dan


From joshj at linuxmail.org  Thu Oct 19 15:08:15 2006
From: joshj at linuxmail.org (joshj at linuxmail.org)
Date: Thu, 19 Oct 2006 18:08:15 -0400 (EDT)
Subject: [Buffalo-pm] mod_perl question
Message-ID: <Pine.LNX.4.64.0610191753180.21347@solairis.com>

Hi all.

I've got a mod_perl question here. I want to read a config file when
apache (and mod_perl, for that matter) start up. This config file will
show mod perl where to find pages and code and such. I just want the
file read on startup and not everytime a page is accessed. Where would I
do this? I figured that if I put it in the handler() routine then it
would be read every time. But I'm not sure.

Thanks.

-Josh

From magog at the-wire.com  Mon Oct 23 07:29:33 2006
From: magog at the-wire.com (Michael Graham)
Date: Mon, 23 Oct 2006 10:29:33 -0400
Subject: [Buffalo-pm] Reminder - Andy Lester speaking in Toronto this
	Thursday Oct 26
Message-ID: <20061023102933.50a6094f@caliope>


Just a reminder that Andy Lester is coming to Toronto and will be
speaking at the Toronto Perl Mongers meeting this Thursday.  

His topics:  

  * Get Out of Technical Debt Now!
  * The Open Source Programmer's Guide to Getting a Great Job
  
These talks aren't just for Perl mongers - they will be of general 
interest to programmers, sysadmins and other technical people.  All
are welcome - invite your friends!  


Details:

(This info is also on the Toronto Perl Mongers site: http://to.pm.org/)

 Speaker:   Andy Lester

    Date:   Thursday 26 Oct 2006

    Time:   6:45pm

   Where:   2 Bloor Street West (NW corner of Yonge/Bloor, skyscraper
            with the CIBC logo on top) Floor/Classroom TBA

  ===================================================================

Talk Details:

   Andy Lester has used Perl for over a decade, has written or maintains
   a number of modules you probably use every day, and works on public
   relations for the Perl Foundation.  But for his double-header talk
   for October 26th, Perl is barely a mention.

   First up, Andy will speak on technical debt and how to get out of it.
   Technical debt is that nasty condition companies get into where  the
   codebase is crufty, poorly documented, and hard to test, and everyone
   is terrified of changing anything.  Just like financial  debt, it's
   the compound interest on technical debt that snowballs  until you can
   no longer effectively do projects: technical  bankruptcy. Come learn
   how to pay down your biggest debts before that  happens.

   Second, Andy discusses pragmatic job hunting for technical people.
   He'll talk about how finding and landing a job isn't a matter of
   luck, and how to make yourself stand out in a sea of job applicants.
   Come ready to unlearn the conventional wisdom about all aspects of
   the job hunt, from where to find jobs, how to write a resume, and
   what to do in an interview.  "In my years of hiring programmers, I've
   seen some pretty awful mistakes, and some awfully funny ones," he
   says.  Come learn how to avoid the mistakes and get the job you want.

   This evening of talks is of general interest to programmers,
   sysadmins and other technical people, not just Perl Mongers.  Tell
   your friends!


  ===================================================================

  Note:

    The elevators in the building are "locked down" after 5:30pm
    to people without building access cards.  Leading up to the
    meeting someone will come down to the main floor lobby every
    few minutes to ferry people upstairs.  
    
    After 19:00, you can reach the access-card-carrying guy via
    a cell phone number that we'll leave with security in the
    front lobby.  The room and floor numbers will be left with
    security too.


-- 
Michael Graham <magog at the-wire.com>

From dmagnuszewski at mandtbank.com  Mon Oct 23 12:23:55 2006
From: dmagnuszewski at mandtbank.com (DANIEL MAGNUSZEWSKI)
Date: Mon, 23 Oct 2006 15:23:55 -0400
Subject: [Buffalo-pm] October Meeting is Tomorrow @ 7 pm
Message-ID: <s53cde90.048@comrcm01intgwia.mandtbank.com>

All,

We will have our monthly meeting tomorrow at 7pm in Bell 242.
Currently, we have one talk (essentially an extended lightning talk)
scheduled for tomorrow by Ben Bixby:

"It's a module that automates a lot of boilerplate code involved with
writing subs. I posted it to perlmonks.org:

http://perlmonks.org/?node_id=579458 

I'm currently in the process of turning it into a CPAN compatible
distribution. It'll be called "Meta::Attributes" because it uses
attributes for meta programming"

If anyone else would like to talk on a topic, then let me know.

See you tomorrow!

-Dan


From bennymack at gmail.com  Mon Oct 23 07:57:30 2006
From: bennymack at gmail.com (Ben. B.)
Date: Mon, 23 Oct 2006 10:57:30 -0400
Subject: [Buffalo-pm] YAPC::EU Slides
Message-ID: <d0bc3d030610230757q28288432r9836168987037f91@mail.gmail.com>

I found these very interesting. Check out juerd's "undef isn't" if you're bored.

http://wiki.birmingham2006.com/WikiPlan/wiki.pl?SlidesFromTalks

From magog at the-wire.com  Tue Oct 24 08:05:44 2006
From: magog at the-wire.com (Michael Graham)
Date: Tue, 24 Oct 2006 11:05:44 -0400
Subject: [Buffalo-pm] Room Info for Andy Lester's TPM talk (Thurs, Oct 26)
Message-ID: <20061024110544.3216889c@caliope>


Andy will be speaking in classroom 15 on the 8th floor.

Full Announcement:
------------------
Just a reminder that Andy Lester is coming to Toronto and will be
speaking at the Toronto Perl Mongers meeting this Thursday.  

His topics:  

  * Get Out of Technical Debt Now!
  * The Open Source Programmer's Guide to Getting a Great Job
  
These talks aren't just for Perl mongers - they will be of general 
interest to programmers, sysadmins and other technical people.  All
are welcome - invite your friends!  


Details:

(This info is also on the Toronto Perl Mongers site: http://to.pm.org/)

 Speaker:   Andy Lester

    Date:   Thursday 26 Oct 2006

    Time:   6:45pm

   Where:   2 Bloor Street West (NW corner of Yonge/Bloor, skyscraper
            with the CIBC logo on top) 8th floor, classroom 15

  ===================================================================

Talk Details:

   Andy Lester has used Perl for over a decade, has written or maintains
   a number of modules you probably use every day, and works on public
   relations for the Perl Foundation.  But for his double-header talk
   for October 26th, Perl is barely a mention.

   First up, Andy will speak on technical debt and how to get out of it.
   Technical debt is that nasty condition companies get into where  the
   codebase is crufty, poorly documented, and hard to test, and everyone
   is terrified of changing anything.  Just like financial  debt, it's
   the compound interest on technical debt that snowballs  until you can
   no longer effectively do projects: technical  bankruptcy. Come learn
   how to pay down your biggest debts before that  happens.

   Second, Andy discusses pragmatic job hunting for technical people.
   He'll talk about how finding and landing a job isn't a matter of
   luck, and how to make yourself stand out in a sea of job applicants.
   Come ready to unlearn the conventional wisdom about all aspects of
   the job hunt, from where to find jobs, how to write a resume, and
   what to do in an interview.  "In my years of hiring programmers, I've
   seen some pretty awful mistakes, and some awfully funny ones," he
   says.  Come learn how to avoid the mistakes and get the job you want.

   This evening of talks is of general interest to programmers,
   sysadmins and other technical people, not just Perl Mongers.  Tell
   your friends!


  ===================================================================

  Note:

    The elevators in the building are "locked down" after 5:30pm
    to people without building access cards.  Leading up to the
    meeting someone will come down to the main floor lobby every
    few minutes to ferry people upstairs.  
    
    After 19:00, you can reach the access-card-carrying guy via
    a cell phone number that we'll leave with security in the
    front lobby.  The room and floor numbers will be left with
    security too.




-- 
Michael Graham <magog at the-wire.com>
	

From dmagnuszewski at mandtbank.com  Tue Oct 24 13:09:36 2006
From: dmagnuszewski at mandtbank.com (DANIEL MAGNUSZEWSKI)
Date: Tue, 24 Oct 2006 16:09:36 -0400
Subject: [Buffalo-pm] REMINDER - October Perl Mongers Meeting is Tonight!
Message-ID: <s53e3ae0.085@comrcm01intgwia.mandtbank.com>

All,

We will have our monthly meeting tonight at 7pm in Bell 242. Currently,
we have one talk (essentially an extended lightning talk) to be given by
Ben Bixby:


"It's a module that automates a lot of boilerplate code involved with
writing subs. I posted it to perlmonks.org:

http://perlmonks.org/?node_id=579458 

I'm currently in the process of turning it into a CPAN compatible
distribution. It'll be called "Meta::Attributes" because it uses
attributes for meta programming"


If anyone else would like to talk on a topic, then let me know, or come
prepared with something!

-Dan



From dmagnuszewski at mandtbank.com  Tue Oct 24 13:46:13 2006
From: dmagnuszewski at mandtbank.com (DANIEL MAGNUSZEWSKI)
Date: Tue, 24 Oct 2006 16:46:13 -0400
Subject: [Buffalo-pm] REMINDER - October Perl Mongers Meeting is
 Tonight! (Room Change)
Message-ID: <s53e4362.012@comrcm01intgwia.mandtbank.com>

NOTE: The meeting will be held in Bell 224, NOT Bell 242. There is
another meeting in 242 tonight.

-Dan

>>> "DANIEL MAGNUSZEWSKI" <dmagnuszewski at mandtbank.com> 10/24/06 4:09
PM >>>
All,

We will have our monthly meeting tonight at 7pm in Bell 242.
Currently,
we have one talk (essentially an extended lightning talk) to be given
by
Ben Bixby:


"It's a module that automates a lot of boilerplate code involved with
writing subs. I posted it to perlmonks.org:

http://perlmonks.org/?node_id=579458 

I'm currently in the process of turning it into a CPAN compatible
distribution. It'll be called "Meta::Attributes" because it uses
attributes for meta programming"


If anyone else would like to talk on a topic, then let me know, or
come
prepared with something!

-Dan


_______________________________________________
Buffalo Perl Mongers Homepage
http://buffalo.pm.org 

Buffalo-pm mailing list
Buffalo-pm at pm.org 
http://mail.pm.org/mailman/listinfo/buffalo-pm 



From vieweremail at gmail.com  Mon Oct 30 13:47:55 2006
From: vieweremail at gmail.com (G Shankar)
Date: Mon, 30 Oct 2006 16:47:55 -0500
Subject: [Buffalo-pm] Where is the extra newline coming from?
Message-ID: <4a184e3b0610301347p14a8f5deq124a27997061aeed@mail.gmail.com>

Hello all,

I've gotten back to hacking with perl again.  I'm confused by the output of
a little program I'm writing.  It builds a query in the form of a url to
PubMed and parses the returning xml for the 'count' field.  Fine so far.
After that, I'm trying to print out results in a particular format; namely,
query term(gene), tab, count, newline.

But the output is coming out query term(gene), newline,tab, count, newline.
O Great Mongers! Where is the extra newline coming from? I've tried to chop
and chomp both variables ($gene and $NumAbstracts) but to no avail.

Any help would be appreciated.
Thanks,
Ganesh

</code>

#!/usr/bin/perl
use strict;
use warnings;
use LWP;


if ($#ARGV != 0) {
    print "usage: getCitNum geneFileName \n";
    exit;
}

my $geneFile = $ARGV[0];
my @gene=();
my $size;
# Creates the URL to search Pubmed
my $baseurl="http://www.ncbi.nlm.nih.gov/entrez/eutils/esearch.fcgi?";
my $request;
my $response;
my $query;

open( FILE, "< $geneFile" ) or die "Can't open $geneFile : $!";

    while( <FILE> ) {
    next if /^(\s)*$/;  # skip blank lines
    ##chomp;              # remove trailing newline characters
    ##print "pushed ".$_." into array";
       push @gene, $_;    # push the data line onto the array
    }

    close FILE;


$size = scalar @gene;
print "Number of genes: $size.\n";


## iterate through the gene array

foreach my $gene (@gene){

##print "going through the array!","\t", $gene;

##$query=join(" ", $gene);
my $url=$baseurl . "db=Pubmed&retmax=1&usehistory=y&term=" . $gene;
$request=LWP::UserAgent->new();
$response=$request->get($url);
my $results= $response->content;
die unless $response->is_success;
$results=~/<Count>(\d+)<\/Count>/;
## $1 is the symbol for the matched content
   my $NumAbstracts=$1;

print $gene,"\t",$NumAbstracts."\n";

}#end foreach gene array

</code>

</output>

$ perl o3.pl test_f
Number of genes: 8.
Actn1
        5
Actn4
        68
Adfp
        74
Aldh2
        656
"Siahbp1, simi"
        0
1810057F21Rik
        0
2310035N23Rik
        0
2310040G17Rik   0

</output>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://mail.pm.org/pipermail/buffalo-pm/attachments/20061030/6c9a8d2e/attachment.html 

From vieweremail at gmail.com  Mon Oct 30 15:03:05 2006
From: vieweremail at gmail.com (G Shankar)
Date: Mon, 30 Oct 2006 18:03:05 -0500
Subject: [Buffalo-pm] Where is the extra newline coming from?
In-Reply-To: <4a184e3b0610301347p14a8f5deq124a27997061aeed@mail.gmail.com>
References: <4a184e3b0610301347p14a8f5deq124a27997061aeed@mail.gmail.com>
Message-ID: <4a184e3b0610301503j77b0872an301af59043f6dda4@mail.gmail.com>

D'Oh!

Never mind!

Thanks,
Ganesh
On 10/30/06, G Shankar <vieweremail at gmail.com> wrote:
>
> Hello all,
>
> I've gotten back to hacking with perl again.  I'm confused by the output
> of a little program I'm writing.  It builds a query in the form of a url to
> PubMed and parses the returning xml for the 'count' field.  Fine so far.
> After that, I'm trying to print out results in a particular format; namely,
> query term(gene), tab, count, newline.
>
> But the output is coming out query term(gene), newline,tab, count,
> newline.  O Great Mongers! Where is the extra newline coming from? I've
> tried to chop and chomp both variables ($gene and $NumAbstracts) but to no
> avail.
>
> Any help would be appreciated.
> Thanks,
> Ganesh
>
> </code>
>
> #!/usr/bin/perl
> use strict;
> use warnings;
> use LWP;
>
>
> if ($#ARGV != 0) {
>     print "usage: getCitNum geneFileName \n";
>     exit;
> }
>
> my $geneFile = $ARGV[0];
> my @gene=();
> my $size;
> # Creates the URL to search Pubmed
> my $baseurl="http://www.ncbi.nlm.nih.gov/entrez/eutils/esearch.fcgi? ";
> my $request;
> my $response;
> my $query;
>
> open( FILE, "< $geneFile" ) or die "Can't open $geneFile : $!";
>
>     while( <FILE> ) {
>     next if /^(\s)*$/;  # skip blank lines
>     ##chomp;              # remove trailing newline characters
>     ##print "pushed ".$_." into array";
>        push @gene, $_;    # push the data line onto the array
>     }
>
>     close FILE;
>
>
> $size = scalar @gene;
> print "Number of genes: $size.\n";
>
>
> ## iterate through the gene array
>
> foreach my $gene (@gene){
>
> ##print "going through the array!","\t", $gene;
>
> ##$query=join(" ", $gene);
> my $url=$baseurl . "db=Pubmed&retmax=1&usehistory=y&term=" . $gene;
> $request=LWP::UserAgent->new();
> $response=$request->get($url);
> my $results= $response->content;
> die unless $response->is_success;
> $results=~/<Count>(\d+)<\/Count>/;
> ## $1 is the symbol for the matched content
>    my $NumAbstracts=$1;
>
> print $gene,"\t",$NumAbstracts."\n";
>
> }#end foreach gene array
>
> </code>
>
> </output>
>
> $ perl o3.pl test_f
> Number of genes: 8.
> Actn1
>         5
> Actn4
>         68
> Adfp
>         74
> Aldh2
>         656
> "Siahbp1, simi"
>         0
> 1810057F21Rik
>         0
> 2310035N23Rik
>         0
> 2310040G17Rik   0
>
> </output>
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://mail.pm.org/pipermail/buffalo-pm/attachments/20061030/05fdfbb3/attachment.html 

From dmagnuszewski at mandtbank.com  Mon Oct 30 19:08:31 2006
From: dmagnuszewski at mandtbank.com (DANIEL MAGNUSZEWSKI)
Date: Mon, 30 Oct 2006 22:08:31 -0500
Subject: [Buffalo-pm] Where is the extra newline coming from?
Message-ID: <s54677f9.056@comrcm01intgwia.mandtbank.com>

I'm glad we could be of assistance!

:-)

>>> "G Shankar" <vieweremail at gmail.com> 10/30/06 6:03 PM >>>
D'Oh!

Never mind!

Thanks,
Ganesh
On 10/30/06, G Shankar <vieweremail at gmail.com> wrote:
>
> Hello all,
>
> I've gotten back to hacking with perl again.  I'm confused by the
output
> of a little program I'm writing.  It builds a query in the form of a
url to
> PubMed and parses the returning xml for the 'count' field.  Fine so
far.
> After that, I'm trying to print out results in a particular format;
namely,
> query term(gene), tab, count, newline.
>
> But the output is coming out query term(gene), newline,tab, count,
> newline.  O Great Mongers! Where is the extra newline coming from?
I've
> tried to chop and chomp both variables ($gene and $NumAbstracts) but
to no
> avail.
>
> Any help would be appreciated.
> Thanks,
> Ganesh
>
> </code>
>
> #!/usr/bin/perl
> use strict;
> use warnings;
> use LWP;
>
>
> if ($#ARGV != 0) {
>     print "usage: getCitNum geneFileName \n";
>     exit;
> }
>
> my $geneFile = $ARGV[0];
> my @gene=();
> my $size;
> # Creates the URL to search Pubmed
> my $baseurl="http://www.ncbi.nlm.nih.gov/entrez/eutils/esearch.fcgi?
";
> my $request;
> my $response;
> my $query;
>
> open( FILE, "< $geneFile" ) or die "Can't open $geneFile : $!";
>
>     while( <FILE> ) {
>     next if /^(\s)*$/;  # skip blank lines
>     ##chomp;              # remove trailing newline characters
>     ##print "pushed ".$_." into array";
>        push @gene, $_;    # push the data line onto the array
>     }
>
>     close FILE;
>
>
> $size = scalar @gene;
> print "Number of genes: $size.\n";
>
>
> ## iterate through the gene array
>
> foreach my $gene (@gene){
>
> ##print "going through the array!","\t", $gene;
>
> ##$query=join(" ", $gene);
> my $url=$baseurl . "db=Pubmed&retmax=1&usehistory=y&term=" . $gene;
> $request=LWP::UserAgent->new();
> $response=$request->get($url);
> my $results= $response->content;
> die unless $response->is_success;
> $results=~/<Count>(\d+)<\/Count>/;
> ## $1 is the symbol for the matched content
>    my $NumAbstracts=$1;
>
> print $gene,"\t",$NumAbstracts."\n";
>
> }#end foreach gene array
>
> </code>
>
> </output>
>
> $ perl o3.pl test_f
> Number of genes: 8.
> Actn1
>         5
> Actn4
>         68
> Adfp
>         74
> Aldh2
>         656
> "Siahbp1, simi"
>         0
> 1810057F21Rik
>         0
> 2310035N23Rik
>         0
> 2310040G17Rik   0
>
> </output>
>