[28174] in Perl-Users-Digest
Perl-Users Digest, Issue: 9538 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sun Jul 30 09:05:58 2006
Date: Sun, 30 Jul 2006 06:05:08 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Sun, 30 Jul 2006 Volume: 10 Number: 9538
Today's topics:
Beginner: read in lines array1 and after keyword array2 <mstep@t-online.de>
Re: Beginner: read in lines array1 and after keyword ar kenslaterpa@hotmail.com
Re: Beginner: read in lines array1 and after keyword ar <bik.mido@tiscalinet.it>
Re: Beginner: read in lines array1 and after keyword ar <bik.mido@tiscalinet.it>
Re: counting number of empty strings in a multidimensio anno4000@radom.zrz.tu-berlin.de
Hi Experts Please help :: Problem in Bio-Parser....with <deep.shingan@gmail.com>
new CPAN modules on Sun Jul 30 2006 (Randal Schwartz)
Re:Problem in Bio-Parser....with XML-RPC call <deep.shingan@gmail.com>
Re: same code diff result <Amaninder.Saini@gmail.com>
Re: same code diff result <someone@example.com>
Re: same code diff result <someone@example.com>
Re: Search a Text File for a String, Return String to F <rvtol+news@isolution.nl>
Re: Sending data from perl to gnuplot and getting an "A <hopman.theo@gmail.com>
Re: Sending data from perl to gnuplot and getting an "A (Ethan Merritt)
Re: Sending data from perl to gnuplot and getting an "A <benmorrow@tiscali.co.uk>
Re: Sending data from perl to gnuplot and getting an "A <a24061@yahoo.com>
Re: Sending data from perl to gnuplot and getting an "A <a24061@yahoo.com>
Re: Sending data from perl to gnuplot and getting an "A <a24061@yahoo.com>
Re: Sending data from perl to gnuplot and getting an "A <someone@example.com>
Re: Text::ParseWords::parse_line bug? anno4000@radom.zrz.tu-berlin.de
Re: What is "or equal" in perl? Thanks usenet@DavidFilmer.com
Re: What is "or equal" in perl? Thanks <someone@example.com>
Re: What is "or equal" in perl? Thanks <rvtol+news@isolution.nl>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Sun, 30 Jul 2006 13:37:26 +0200
From: Marek Stepanek <mstep@t-online.de>
Subject: Beginner: read in lines array1 and after keyword array2
Message-Id: <C0F26696.28A34%mstep@t-online.de>
Have no idea, whether this one is an easy task, or not. I have a file with
tab-delimited Data. These Data have two parts, and I want to read in the
Data in two different arrays from a certain /keyword/ on. I made an
exercise, thinking, wow it's working, but later I realized, that everything
was read into the first array :-( My idea of solving this task seems
probably naive, but I have no clue, how to achieve this otherwise.
Is there somebody, who could give me a hint?
thank you all for your patience
marek
#############
#!/usr/bin/perl
use warnings;
use strict;
my (@lines1, @lines2);
while (<DATA>)
{
push @lines1, $_;
if (/keyword/)
{
push @lines2, $_;
}
}
print "here are the first part of lines:\n";
print join ("\n",@lines1);
print "here are the second part of lines:\n";
print join ("\n",@lines2);
__DATA__
37086,4 15445 808 19,5 3156,3
37667 15769,2 817 19,5 3621
37936,5 15929,6 823 19,5 3857,8
38147,5 16058 827 19,5 4042,8
38371,8 16188,6 833 19,5 4247,4
38607,7 16252,7 837 19,5 4359,2
38752,7 16351,6 844 20,5 4523,9
38774,2 16351,6 844 20,5 4526,9
39056,9 16499,8 849 20,5 4740,6
39249,2 16574,6 853 20,5 4854,6
39720,7 16762,9 864 21,5 5148,7
39932 16847,6 872 22 5289,8
40002,6 16852,9 874 22 5307
keyword
17.07.2006 CC mU 58.00
17.07.2006 Fr. Knorr CC mU 60.00
18.07.2006 Unterföhring MUC Link CC mU 45.00
19.07.2006 CC mU 58.00
20.07.2006 MUC Hanauer Hermann/Wacki CC mU 55.00
21.07.2006 Claudio/Rock CC oU 55.00
24.07.2006 CC mU 54.00
24.07.2006 CC mU 50.00
24.07.2006 CC mU 55.00
25.07.2006 CC mU 82.00
26.07.2006 -3.7 Uhr! Königin MUC Wacki Bar oU
55.00
27.07.2006 hin rück Link CC mU 122.00
------------------------------
Date: 30 Jul 2006 04:36:42 -0700
From: kenslaterpa@hotmail.com
Subject: Re: Beginner: read in lines array1 and after keyword array2
Message-Id: <1154259402.157657.25010@i3g2000cwc.googlegroups.com>
Marek Stepanek wrote:
> Have no idea, whether this one is an easy task, or not. I have a file with
> tab-delimited Data. These Data have two parts, and I want to read in the
> Data in two different arrays from a certain /keyword/ on. I made an
> exercise, thinking, wow it's working, but later I realized, that everythi=
ng
> was read into the first array :-( My idea of solving this task seems
> probably naive, but I have no clue, how to achieve this otherwise.
>
> Is there somebody, who could give me a hint?
>
>
> thank you all for your patience
>
>
> marek
>
> #############
>
>
> #!/usr/bin/perl
>
> use warnings;
> use strict;
>
>
> my (@lines1, @lines2);
>
> while (<DATA>)
> {
> push @lines1, $_;
> if (/keyword/)
> {
> push @lines2, $_;
> }
> }
>
> print "here are the first part of lines:\n";
> print join ("\n",@lines1);
> print "here are the second part of lines:\n";
> print join ("\n",@lines2);
>
> __DATA__
>
> 37086,4 15445 808 19,5 3156,3
> 37667 15769,2 817 19,5 3621
> 37936,5 15929,6 823 19,5 3857,8
> 38147,5 16058 827 19,5 4042,8
> 38371,8 16188,6 833 19,5 4247,4
> 38607,7 16252,7 837 19,5 4359,2
> 38752,7 16351,6 844 20,5 4523,9
> 38774,2 16351,6 844 20,5 4526,9
> 39056,9 16499,8 849 20,5 4740,6
> 39249,2 16574,6 853 20,5 4854,6
>
> 39720,7 16762,9 864 21,5 5148,7
> 39932 16847,6 872 22 5289,8
> 40002,6 16852,9 874 22 5307
>
>
> keyword
>
>
> 17.07.2006 CC mU 58.00
> 17.07.2006 Fr. Knorr CC mU 60.00
> 18.07.2006 Unterf=F6hring MUC Link CC mU 45.00
> 19.07.2006 CC mU 58.00
> 20.07.2006 MUC Hanauer Hermann/Wacki CC mU 55.00
> 21.07.2006 Claudio/Rock CC oU 55.00
> 24.07.2006 CC mU 54.00
> 24.07.2006 CC mU 50.00
> 24.07.2006 CC mU 55.00
> 25.07.2006 CC mU 82.00
> 26.07.2006 -3.7 Uhr! K=F6nigin MUC Wacki Bar oU
> 55.00
> 27.07.2006 hin r=FCck Link CC mU 122.00
Based on looking at the script (I haven't run it), I would think your
@lines2 array
would have one element - the keyword line. As your 'if' statement will
only be
true on that line.
> if (/keyword/)
> {
> push @lines2, $_;
> }
All lines are being pushed onto @lines1 without any check.
A quick solution is to set a variable when you hit the keyword line:
$foundKeyword =3D 1 if /keyword/;
Then push onto the appropriate array based on the value of this
variable
($foundKeyword in the above example).
Ken
------------------------------
Date: 30 Jul 2006 14:07:06 +0200
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: Beginner: read in lines array1 and after keyword array2
Message-Id: <2m6pc2haep195u622qvcdce555timaltbt@4ax.com>
On Sun, 30 Jul 2006 13:37:26 +0200, Marek Stepanek <mstep@t-online.de>
wrote:
>my (@lines1, @lines2);
>
>while (<DATA>)
>{
> push @lines1, $_;
> if (/keyword/)
> {
> push @lines2, $_;
> }
>}
This will only push() into @lines2 if $_ matches the keyword. *One*
possible solution:
my (@lines1, @lines2);
while (<DATA>)
{
last if /keyword/;
push @lines1, $_;
}
@lines2=<DATA>;
The situation will be slightly more complex if you also want to put
the "keyword" line either in @lines1 or @lines2.
Michele
--
{$_=pack'B8'x25,unpack'A8'x32,$a^=sub{pop^pop}->(map substr
(($a||=join'',map--$|x$_,(unpack'w',unpack'u','G^<R<Y]*YB='
.'KYU;*EVH[.FHF2W+#"\Z*5TI/ER<Z`S(G.DZZ9OX0Z')=~/./g)x2,$_,
256),7,249);s/[^\w,]/ /g;$ \=/^J/?$/:"\r";print,redo}#JAPH,
------------------------------
Date: 30 Jul 2006 14:27:19 +0200
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: Beginner: read in lines array1 and after keyword array2
Message-Id: <f69pc29sd6pkgt7gqhb7io5ot45g6bjjc3@4ax.com>
On 30 Jul 2006 14:07:06 +0200, Michele Dondi <bik.mido@tiscalinet.it>
wrote:
> my (@lines1, @lines2);
> while (<DATA>)
> {
> last if /keyword/;
> push @lines1, $_;
> }
> @lines2=<DATA>;
>
>The situation will be slightly more complex if you also want to put
>the "keyword" line either in @lines1 or @lines2.
Oh, and one funky (IMHO) solution which will put the keyword line into
@lines1 (one can pop() it afterwards):
push @{ 1../keyword/ ? \@lines1 : \@lines2 }, $_ while <>;
Michele
--
{$_=pack'B8'x25,unpack'A8'x32,$a^=sub{pop^pop}->(map substr
(($a||=join'',map--$|x$_,(unpack'w',unpack'u','G^<R<Y]*YB='
.'KYU;*EVH[.FHF2W+#"\Z*5TI/ER<Z`S(G.DZZ9OX0Z')=~/./g)x2,$_,
256),7,249);s/[^\w,]/ /g;$ \=/^J/?$/:"\r";print,redo}#JAPH,
------------------------------
Date: 30 Jul 2006 09:43:23 GMT
From: anno4000@radom.zrz.tu-berlin.de
Subject: Re: counting number of empty strings in a multidimensional array column
Message-Id: <4j3d9rF63vhbU2@news.dfncis.de>
Mumia W. <mumia.w.18.spam+nospam.usenet@earthlink.net> wrote in comp.lang.perl.misc:
> On 07/29/2006 10:03 AM, Jack wrote:
> > sub nulls
> > {
> > my %nulls = ();
> > if (/^\z/)) { $nulls{$1}++ foreach @_}
> > return keys %nulls;
> > }
> >
>
> This should count the number of empty strings in a column:
>
> sub countNulls {
> no warnings 'uninitialized';
> my ($arref, $col) = @_;
> my $count = 0;
> $_->[$col] =~ /^\z/ && $count++ for (@$arref);
> $count;
> }
The last three lines could be replaced by (untested)
scalar grep !length $_->[ $col], @$arref;
Anno
------------------------------
Date: 30 Jul 2006 03:47:57 -0700
From: "deep" <deep.shingan@gmail.com>
Subject: Hi Experts Please help :: Problem in Bio-Parser....with XML-RPC call
Message-Id: <1154256477.076005.80860@i3g2000cwc.googlegroups.com>
Hi All,
I have a bio-parser written in perl which separate outs the contents of
the blast result file.
I am using this module in an XML-RPC environment , where I have a CPP
client which send the Blast-Result-file to perl XML-RPC server ...which
calls the blast parser method
when the perl server is started, the first request he is getting from
the client is fullfilled ..that means I am getting expecting output
say number of hit counts and score..etc.
But the problem arises when client sends the next request..
I checked that
The client sends request with the blast_result input file
perfectly...
Even server accepts the new request call and sends the
parameteried input file to the blast parser method..but second time the
method does not execute perfectly...It accepts input file and give the
blank output....without any error...
I checked the logger files and I found that blast parser method is not
executed completely..but when i tried to execute the method separately
(Not in XML-RPC environment)I got the expected output.
I don't know why this is happening...????
I am giving the complete code here...If you ppl have time...please help
me.I will be greateful to you always....
Thanks
Deepak
use strict;
use Bio::SearchIO;
use Bio::SimpleAlign;
use Bio::AlignIO;
use Frontier::Daemon;
use lib 'lib/perl5/site_perl/5.8.5/';
use Config::Simple;
use Log::Log4perl;
Log::Log4perl::init('log4perl.conf');
my $logger = Log::Log4perl->get_logger('rootLogger');
$logger->debug("Logger Initialised");
sub blastParser()
{
$logger->debug("\nNew Call");
print "\n Inside blastParser";
my $fileContent = shift;
my $tempFileName = 'TEMP_BLAST_RESULT_FILE';
$logger->debug("\nBlast File :::\n".$fileContent);
open BLASTFILE, ">$tempFileName" or die "Can't create File...!";
#writting file content into the tempBlastFile
print BLASTFILE "$fileContent";
#Closing fileName
close BLASTFILE;
#Destroying the fileContent
$fileContent = undef;
print "\n Copied Input File Succsefully..";
my $hitCount = shift;
$logger->debug("\nHitCount from client: $hitCount");
my $in = new Bio::SearchIO(-format => 'blast',
# comment out the next line to read STDIN
-file => $tempFileName );
my @outputArray;
my $arrayCnt = 0;
while ( my $result = $in->next_result )
{
print "\nAnalysing the result...";
my @stats = $result->available_statistics;
my @params = $result->available_parameters;
# $logger->debug("\nBlast File :::\n".$fileContent);
$logger->debug("\nNumber of Hits Found :".$result->num_hits);
print "\nNumber of hits fount :".$result->num_hits;
while ( my $hit = $result->next_hit and $hitCount)
{
$hitCount--;
print "\nAnalysing Hit Count :".$hitCount;
my $id = $hit->matches('id');
my $cons = $hit->matches('cons');
my @accs = $hit->each_accession_number;
my @qidentical = $hit->seq_inds('query','identical');
my @qconserved = $hit->seq_inds('query','conserved');
my @hidentical = $hit->seq_inds('hit','identical');
my @hconserved = $hit->seq_inds('hit','conserved');
#return start
$outputArray[$arrayCnt++] = $hit->name;
$outputArray[$arrayCnt++] = $hit->accession;
$outputArray[$arrayCnt++] = $hit->raw_score;
$outputArray[$arrayCnt++] = $hit->bits;
$outputArray[$arrayCnt++] = $hit->gaps;
$logger->debug("\nHitName :".$hit->name);
$logger->debug("\nAccession :".$hit->accession);
$logger->debug("\nRaw Score :".$hit->raw_score);
$logger->debug("\nBits :".$hit->bits);
$logger->debug("\ngaps :".$hit->gaps);
#return stop
#return gaps
while ( my $hsp = $hit->next_hsp )
{
my ($qid,$qcons) = $hsp->matches('hit');
my ($id,$cons) = $hsp->matches('query');
@qidentical = $hsp->seq_inds('query','identical');
@qconserved = $hsp->seq_inds('query','conserved');
@hidentical = $hsp->seq_inds('hit','identical');
@hconserved = $hsp->seq_inds('hit','conserved');
my @hrange = $hsp->range('hit');
my @qrange = $hsp->range('query');
my $aln = $hsp->get_aln;
my $alnIO = Bio::AlignIO->new(-format=>"clustalw",
-file=>">tempHitFile");
#return evalue
$logger->debug("\neValue :".$hsp->evalue);
$logger->debug("\nPercent Identity
:".$hsp->percent_identity);
$outputArray[$arrayCnt++] = $hsp->evalue;
#return gaps
$outputArray[$arrayCnt++] = $hsp->percent_identity;
#return alignment
#write_aln function writes the sequence allignment to the
#specified file (here tempHitFile)
#so we are stoaring the actual hit allignment to the file
#and again recollecting it into the a string
$alnIO->write_aln($aln);
open hitFile, "tempHitFile" or die "Can't read file";
undef $/;
#getting the whole file into the outputArray
my $allignMent = <hitFile>;
$outputArray[$arrayCnt++] = $allignMent;
$logger->debug("\nAllignments :".$allignMent);
close hitFile;
$hsp = undef;
}
$hit = undef;
}
$result = undef;
}
# my $cmd = "rm $tempFileName";
# system ($cmd);
# print "\nDeleting input file...$tempFileName and returning
# outputArray @outputArray";
return \@outputArray;
}
my $methods = {'blastParser' => \&blastParser};
$logger->debug("Starting XMLRPC Server...");
Frontier::Daemon->new(LocalPort => 9011, methods => $methods) or die
"Couldn't start HTTP server : $!";
------------------------------
Date: Sun, 30 Jul 2006 04:42:11 GMT
From: merlyn@stonehenge.com (Randal Schwartz)
Subject: new CPAN modules on Sun Jul 30 2006
Message-Id: <J3792B.14uq@zorch.sf-bay.org>
The following modules have recently been added to or updated in the
Comprehensive Perl Archive Network (CPAN). You can install them using the
instructions in the 'perlmodinstall' page included with your Perl
distribution.
Apache-Request-I18N-0.08
http://search.cpan.org/~fbriere/Apache-Request-I18N-0.08/
Internationalization extension to Apache::Request
----
Baseball-Sabermetrics-0.02
http://search.cpan.org/~victor/Baseball-Sabermetrics-0.02/
A Baseball Statistics Module
----
CPAN-1.87_55
http://search.cpan.org/~andk/CPAN-1.87_55/
query, download and build perl modules from CPAN sites
----
Catalyst-Plugin-Authentication-0.08
http://search.cpan.org/~nuffin/Catalyst-Plugin-Authentication-0.08/
Infrastructure plugin for the Catalyst authentication framework.
----
Catalyst-Plugin-Session-0.06
http://search.cpan.org/~nuffin/Catalyst-Plugin-Session-0.06/
Generic Session plugin - ties together server side storage and client side state required to maintain session data.
----
Catalyst-Plugin-Session-State-Cookie-0.03
http://search.cpan.org/~nuffin/Catalyst-Plugin-Session-State-Cookie-0.03/
Maintain session IDs using cookies.
----
Catalyst-Plugin-Session-State-URI-0.03
http://search.cpan.org/~nuffin/Catalyst-Plugin-Session-State-URI-0.03/
Saves session IDs by rewriting URIs delivered to the client, and extracting the session ID from requested URIs.
----
DBD-Mock-1.34
http://search.cpan.org/~rkinyon/DBD-Mock-1.34/
Mock database driver for testing
----
Email-Send-2.171
http://search.cpan.org/~rjbs/Email-Send-2.171/
Simply Sending Email
----
File-Mosaic-0.02
http://search.cpan.org/~boumenot/File-Mosaic-0.02/
assemble the constituent pieces of a file into a single file.
----
Mail-Box-2.066
http://search.cpan.org/~markov/Mail-Box-2.066/
manage a mailbox, a folder with messages
----
Mail-DeliveryStatus-BounceParser-1.512
http://search.cpan.org/~rjbs/Mail-DeliveryStatus-BounceParser-1.512/
Perl extension to analyze bounce messages
----
Module-Signature-0.55
http://search.cpan.org/~audreyt/Module-Signature-0.55/
Module signature file manipulation
----
Net-Domain-ExpireDate-0.38
http://search.cpan.org/~despair/Net-Domain-ExpireDate-0.38/
obtain expiration date of domain names
----
Net-TiVo-0.01
http://search.cpan.org/~boumenot/Net-TiVo-0.01/
Module for connecting to TiVo via its HTTPS interface and enumerating the shows stored on it.
----
Net-TiVo-0.02
http://search.cpan.org/~boumenot/Net-TiVo-0.02/
Module for connecting to TiVo via its HTTPS interface and enumerating the shows stored on it.
----
Net-Whois-Raw-1.10
http://search.cpan.org/~despair/Net-Whois-Raw-1.10/
Get Whois information for domains
----
POE-Filter-Zlib-1.3
http://search.cpan.org/~bingos/POE-Filter-Zlib-1.3/
A POE filter wrapped around Compress::Zlib
----
RRDTool-OO-0.15
http://search.cpan.org/~mschilli/RRDTool-OO-0.15/
Object-oriented interface to RRDTool
----
Return-Value-1.301
http://search.cpan.org/~rjbs/Return-Value-1.301/
Polymorphic Return Values
----
YAML-Syck-0.65
http://search.cpan.org/~audreyt/YAML-Syck-0.65/
Fast, lightweight YAML loader and dumper
----
YAML-Syck-0.66
http://search.cpan.org/~audreyt/YAML-Syck-0.66/
Fast, lightweight YAML loader and dumper
----
YAML-Syck-0.67
http://search.cpan.org/~nuffin/YAML-Syck-0.67/
Fast, lightweight YAML loader and dumper
----
Yahoo-Search-1.06.9
http://search.cpan.org/~jfriedl/Yahoo-Search-1.06.9/
Perl interface to the Yahoo! Search public API.
----
Yahoo-Search-1.6.9
http://search.cpan.org/~jfriedl/Yahoo-Search-1.6.9/
Perl interface to the Yahoo! Search public API.
----
Yahoo-Search-1.7.10
http://search.cpan.org/~jfriedl/Yahoo-Search-1.7.10/
Perl interface to the Yahoo! Search public API.
----
www-tv-0.02
http://search.cpan.org/~tigris/www-tv-0.02/
If you're an author of one of these modules, please submit a detailed
announcement to comp.lang.perl.announce, and we'll pass it along.
This message was generated by a Perl program described in my Linux
Magazine column, which can be found on-line (along with more than
200 other freely available past column articles) at
http://www.stonehenge.com/merlyn/LinuxMag/col82.html
print "Just another Perl hacker," # the original
--
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
<merlyn@stonehenge.com> <URL:http://www.stonehenge.com/merlyn/>
Perl/Unix/security consulting, Technical writing, Comedy, etc. etc.
See PerlTraining.Stonehenge.com for onsite and open-enrollment Perl training!
------------------------------
Date: 30 Jul 2006 05:28:10 -0700
From: "deep" <deep.shingan@gmail.com>
Subject: Re:Problem in Bio-Parser....with XML-RPC call
Message-Id: <1154262490.763719.312160@h48g2000cwc.googlegroups.com>
Hi All,
I Got the answer but with one problem....
Now when I send the first request....
I got the expected output but without executing
return \@outputArray;
statement..in the blastparser method...
I don't know why...???
but when I send the second request, It executes the return
\@outputArray; statement..
and then calls the blastParser Method.
But as now outputArray is blank i m getting blank output at client end.
But the problem still remain...!!! why it is not executing return
statement in the request itself..?? And if return statement is not
executing ?? Then how i m getting the data at client side..when i send
the request first time...!!
I have defiantely checked the things in logger file. And believe me
...its working same as I mentioned above,,,!
Thanks
Deepak
deep wrote:
> Hi All,
> I have a bio-parser written in perl which separate outs the contents of
> the blast result file.
> I am using this module in an XML-RPC environment , where I have a CPP
> client which send the Blast-Result-file to perl XML-RPC server ...which
> calls the blast parser method
> when the perl server is started, the first request he is getting from
> the client is fullfilled ..that means I am getting expecting output
> say number of hit counts and score..etc.
>
> But the problem arises when client sends the next request..
> I checked that
> The client sends request with the blast_result input file
> perfectly...
> Even server accepts the new request call and sends the
> parameteried input file to the blast parser method..but second time the
> method does not execute perfectly...It accepts input file and give the
> blank output....without any error...
> I checked the logger files and I found that blast parser method is not
> executed completely..but when i tried to execute the method separately
> (Not in XML-RPC environment)I got the expected output.
>
> I don't know why this is happening...????
> I am giving the complete code here...If you ppl have time...please help
> me.I will be greateful to you always....
>
> Thanks
> Deepak
>
>
>
>
> use strict;
> use Bio::SearchIO;
> use Bio::SimpleAlign;
> use Bio::AlignIO;
> use Frontier::Daemon;
>
> use lib 'lib/perl5/site_perl/5.8.5/';
> use Config::Simple;
> use Log::Log4perl;
>
> Log::Log4perl::init('log4perl.conf');
>
> my $logger = Log::Log4perl->get_logger('rootLogger');
> $logger->debug("Logger Initialised");
> sub blastParser()
> {
>
> $logger->debug("\nNew Call");
>
> print "\n Inside blastParser";
>
> my $fileContent = shift;
> my $tempFileName = 'TEMP_BLAST_RESULT_FILE';
>
> $logger->debug("\nBlast File :::\n".$fileContent);
>
> open BLASTFILE, ">$tempFileName" or die "Can't create File...!";
> #writting file content into the tempBlastFile
> print BLASTFILE "$fileContent";
> #Closing fileName
> close BLASTFILE;
>
> #Destroying the fileContent
> $fileContent = undef;
> print "\n Copied Input File Succsefully..";
>
> my $hitCount = shift;
> $logger->debug("\nHitCount from client: $hitCount");
> my $in = new Bio::SearchIO(-format => 'blast',
> # comment out the next line to read STDIN
> -file => $tempFileName );
>
> my @outputArray;
> my $arrayCnt = 0;
>
> while ( my $result = $in->next_result )
> {
> print "\nAnalysing the result...";
> my @stats = $result->available_statistics;
> my @params = $result->available_parameters;
>
> # $logger->debug("\nBlast File :::\n".$fileContent);
> $logger->debug("\nNumber of Hits Found :".$result->num_hits);
> print "\nNumber of hits fount :".$result->num_hits;
>
> while ( my $hit = $result->next_hit and $hitCount)
> {
> $hitCount--;
>
> print "\nAnalysing Hit Count :".$hitCount;
>
> my $id = $hit->matches('id');
> my $cons = $hit->matches('cons');
> my @accs = $hit->each_accession_number;
> my @qidentical = $hit->seq_inds('query','identical');
> my @qconserved = $hit->seq_inds('query','conserved');
> my @hidentical = $hit->seq_inds('hit','identical');
> my @hconserved = $hit->seq_inds('hit','conserved');
> #return start
> $outputArray[$arrayCnt++] = $hit->name;
> $outputArray[$arrayCnt++] = $hit->accession;
> $outputArray[$arrayCnt++] = $hit->raw_score;
> $outputArray[$arrayCnt++] = $hit->bits;
> $outputArray[$arrayCnt++] = $hit->gaps;
>
> $logger->debug("\nHitName :".$hit->name);
> $logger->debug("\nAccession :".$hit->accession);
> $logger->debug("\nRaw Score :".$hit->raw_score);
> $logger->debug("\nBits :".$hit->bits);
> $logger->debug("\ngaps :".$hit->gaps);
> #return stop
> #return gaps
>
> while ( my $hsp = $hit->next_hsp )
> {
> my ($qid,$qcons) = $hsp->matches('hit');
> my ($id,$cons) = $hsp->matches('query');
> @qidentical = $hsp->seq_inds('query','identical');
> @qconserved = $hsp->seq_inds('query','conserved');
> @hidentical = $hsp->seq_inds('hit','identical');
> @hconserved = $hsp->seq_inds('hit','conserved');
> my @hrange = $hsp->range('hit');
> my @qrange = $hsp->range('query');
> my $aln = $hsp->get_aln;
> my $alnIO = Bio::AlignIO->new(-format=>"clustalw",
> -file=>">tempHitFile");
>
> #return evalue
> $logger->debug("\neValue :".$hsp->evalue);
> $logger->debug("\nPercent Identity
> :".$hsp->percent_identity);
> $outputArray[$arrayCnt++] = $hsp->evalue;
> #return gaps
> $outputArray[$arrayCnt++] = $hsp->percent_identity;
> #return alignment
> #write_aln function writes the sequence allignment to the
> #specified file (here tempHitFile)
> #so we are stoaring the actual hit allignment to the file
> #and again recollecting it into the a string
> $alnIO->write_aln($aln);
> open hitFile, "tempHitFile" or die "Can't read file";
>
> undef $/;
> #getting the whole file into the outputArray
> my $allignMent = <hitFile>;
> $outputArray[$arrayCnt++] = $allignMent;
> $logger->debug("\nAllignments :".$allignMent);
> close hitFile;
> $hsp = undef;
> }
> $hit = undef;
> }
> $result = undef;
> }
> # my $cmd = "rm $tempFileName";
> # system ($cmd);
> # print "\nDeleting input file...$tempFileName and returning
> # outputArray @outputArray";
> return \@outputArray;
> }
>
> my $methods = {'blastParser' => \&blastParser};
> $logger->debug("Starting XMLRPC Server...");
> Frontier::Daemon->new(LocalPort => 9011, methods => $methods) or die
> "Couldn't start HTTP server : $!";
------------------------------
Date: 29 Jul 2006 17:30:55 -0700
From: "Amaninder" <Amaninder.Saini@gmail.com>
Subject: Re: same code diff result
Message-Id: <1154219455.875576.183490@i42g2000cwa.googlegroups.com>
John W. Krahn wrote:
> Amaninder wrote:
> > John W. Krahn wrote:
> >>Amaninder wrote:
> >>>I tried lot of things but can not able to figure out why the same code
> >>>in for loop is giving me different results.
> >>>Code 1 is giving me the correct result but Code 2 does NOT. All i am
> >>>doing in ths Code 1 is that i have
> >>>my $got = "3 500 1660 17800 19360 N";
> >>>my $exp = "<0 3> <0 500> <0 1660> 17800 19360 <0
> >>>N>";
> >>>
> >>>and i am filling @btw with ('"0 3". "3", "0 500", "500", "0 N" ,
> >>>"N").
> >>I get the same results as your program using this:
> >>
> >>$ perl -le'
> >>my $exp = "<0 3> <0 500> <0 1660> 17800 19360 <0 N>";
> >>my @btw = $exp =~ /<(\S.*?(\S+))>/g;
> >>print for @btw;
> >>'
> >>0 3
> >>3
> >>0 500
> >>500
> >>0 1660
> >>1660
> >>0 N
> >>N
> >
> > How about if
> > my $got = "d 500 166 17800 19360 N";
> > my $exp = "<s 3> 500 <a 1660> 17800 19360
> > <XXX>";
> >
> > and output will be
> >
> > s 3
> > d
> > a 1660
> > 166
> > XXX
> > N
>
> $ perl -le'
> my $got = "d 500 166 17800 19360 N";
> my $exp = "<s 3> 500 <a 1660> 17800 19360 <XXX>";
>
> $exp =~ s/(<\S+)( )(?=\S+>)/$1\0/g; # preprocess
>
> my @gots = split " ", $got;
> my @exps = split " ", $exp;
>
> my @btw;
> for my $i ( 0 .. $#exps ) {
> next unless $exps[ $i ] =~ tr/\0<>/ /d;
> push @btw, $exps[ $i ], $gots[ $i ];
> }
>
> print for @btw;
> '
> s 3
> d
> a 1660
> 166
> XXX
> N
>
>
>
>
> John
> --
> use Perl;
> program
> fulfillment
Hey John
That's just brilliant. Could you tell me how do you add \x in all <>.
Moreover, what does the following code work?
I know ? is for once or not at all and /0 is maybe for memory, but i
dont know what is '$1' and '=' doing here?
>
> $exp =~ s/(<\S+)( )(?=\S+>)/$1\0/g; # preprocess
>
Also, what is /0 doing in the following
> next unless $exps[ $i ] =~ tr/\0<>/ /d;
Thanks for your help
Amaninder Saini
------------------------------
Date: Sun, 30 Jul 2006 00:55:11 GMT
From: "John W. Krahn" <someone@example.com>
Subject: Re: same code diff result
Message-Id: <PrTyg.176171$S61.73232@edtnps90>
John W. Krahn wrote:
> Amaninder wrote:
>>
>>How about if
>>
>>my $got = "d 500 166 17800 19360 N";
>>my $exp = "<s 3> 500 <a 1660> 17800 19360
>><XXX>";
>>
>>and output will be
>>
>>s 3
>>d
>>a 1660
>>166
>>XXX
>>N
>
> $ perl -le'
> my $got = "d 500 166 17800 19360 N";
> my $exp = "<s 3> 500 <a 1660> 17800 19360 <XXX>";
>
> $exp =~ s/(<\S+)( )(?=\S+>)/$1\0/g; # preprocess
>
> my @gots = split " ", $got;
> my @exps = split " ", $exp;
>
> my @btw;
> for my $i ( 0 .. $#exps ) {
> next unless $exps[ $i ] =~ tr/\0<>/ /d;
> push @btw, $exps[ $i ], $gots[ $i ];
> }
>
> print for @btw;
> '
> s 3
> d
> a 1660
> 166
> XXX
> N
And you could do that without splitting the strings:
john@d154-20-154-176:~> perl -le'
my $got = "d 500 166 17800 19360 N";
my $exp = "<s 3> 500 <a 1660> 17800 19360 <XXX>";
$exp =~ s/(<\S+)( )(?=\S+>)/$1\0/g; # preprocess
my @btw;
{ my ( $got1, $exp1 );
$got =~ /\G(\S+)\s*/gc and $got1 = $1 and
$exp =~ /\G(\S+)\s*/gc and $exp1 = $1 and
do { $exp1 =~ tr/\0<>/ /d and push @btw, $exp1, $got1; $exp1 } and redo
}
print for @btw;
'
s 3
d
a 1660
166
XXX
N
John
--
use Perl;
program
fulfillment
------------------------------
Date: Sun, 30 Jul 2006 01:22:21 GMT
From: "John W. Krahn" <someone@example.com>
Subject: Re: same code diff result
Message-Id: <hRTyg.145531$I61.40532@clgrps13>
Amaninder wrote:
> John W. Krahn wrote:
>>
>>$ perl -le'
>>my $got = "d 500 166 17800 19360 N";
>>my $exp = "<s 3> 500 <a 1660> 17800 19360 <XXX>";
>>
>>$exp =~ s/(<\S+)( )(?=\S+>)/$1\0/g; # preprocess
>>
>>my @gots = split " ", $got;
>>my @exps = split " ", $exp;
>>
>>my @btw;
>>for my $i ( 0 .. $#exps ) {
>> next unless $exps[ $i ] =~ tr/\0<>/ /d;
>> push @btw, $exps[ $i ], $gots[ $i ];
>> }
>>
>>print for @btw;
>>'
>>s 3
>>d
>>a 1660
>>166
>>XXX
>>N
>
> Hey John
> That's just brilliant. Could you tell me how do you add \x in all <>.
> Moreover, what does the following code work?
> I know ? is for once or not at all and /0 is maybe for memory, but i
> dont know what is '$1' and '=' doing here?
>
>>$exp =~ s/(<\S+)( )(?=\S+>)/$1\0/g; # preprocess
The pattern says match the expression '<\S+' and capture it in the $1 variable
and then match a single space character and capture it in the $2 variable (we
don't use $2 so it is not necessary to capture it) and then match '\S+>' using
a zero-width positive look-ahead assertion (?=). The single space character
is replaced with the "\0" (ASCII NULL) character so it won't be matched when
the string is split() into an array.
> Also, what is /0 doing in the following
>> next unless $exps[ $i ] =~ tr/\0<>/ /d;
All of the "\0" characters are replaced with ' ' characters and all '<' and
'>' characters are removed.
For more information on how the s/// and tr/// operators work:
perldoc perlop
perldoc perlre
John
--
use Perl;
program
fulfillment
------------------------------
Date: Sun, 30 Jul 2006 00:14:55 +0200
From: "Dr.Ruud" <rvtol+news@isolution.nl>
Subject: Re: Search a Text File for a String, Return String to Function
Message-Id: <eagtq8.1e0.1@news.isolution.nl>
cl@supportreport.org schreef:
> So while I've been able to do things similar to this in other
> languages I thought I'd sharpent my Perl skills but, alas, those
> skills were more dull then I thought.
>
> What I'm trying to do is search a text file for a string "<a
> href="something">" and return that something do another part of the
> script. The "something" part changes at random so that one day the
> first line of the file I am searching could be
>
> "<a href="something">"
>
> and the next day it could be
>
> "<a href="and now for something completly different">"
>
> So I guess what I'm saying is I want to return whatever is between the
> quotes that start after the first instance of href that Perl finds in
> the file.
>
> Thoughts on how to go about this in a somewhat effeciant way?
From all those I guess that you just want to find the value of a link in
HTML?
http://search.cpan.org/search?query=html+link&mode=module
Did you read the Posting Guidelines yet?
--
Affijn, Ruud
"Gewoon is een tijger."
------------------------------
Date: 29 Jul 2006 15:17:19 -0700
From: "Theo Hopman" <hopman.theo@gmail.com>
Subject: Re: Sending data from perl to gnuplot and getting an "ASCII-art" graph back?
Message-Id: <1154211439.351214.137680@75g2000cwc.googlegroups.com>
Adam Funk wrote:
> I'm generating some data points in a Perl program and trying to send
> them to gnuplot and get back an "ASCII-art" graph (the kind that
> gnuplot generates with the "set term dumb" setting). I'd like to
> improve on the following steps:
I don't use Perl, but can offer some general suggestions.
> (1)
> foreach $x (sort {$a <=> $b} keys(%table) ) {
> $y = $table{$x};
> $line = sprintf("%5d %5d\n", $x, $y);
> $max_y = $y if ($y > $max_y);
> print($line) if ($option{v}); # verbose option
> push(@output,$line);
> }
>
> This produces lines like this:
> -5 2
> -2 5
Store this data in an array for later use.
> (2) Then I use recipe 7.5 from the Perl Cookbook to generate two temp
> files, $data_file and $cmd_file, and I write @output from step (1)
> into $data_file.
You should be able to avoid the use of temporary files entirely. See
below.
> (3) Then I write a bunch of gnuplot commands as lines to $cmd_file:
> set term dumb
> set ylabel \"Frequency\"
> set xlabel \"Time\"
> unset key
> set yrange [0:$max_y]
> plot \"$temp_filename\" with impulses
What you really want to do is pipe these commands to the stdin of
gnuplot. You also want to use inline data (see `help datafile
special-filenames`) like such:
plot "-" with impulses
-5 2
2 5
e
The data is supplied to gnuplot's stdin via the same pipe the commands
go through.
> (4) and call gnuplot thus:
> system('gnuplot', $cmd_file);
>
> The Perl program runs and prints the plot to the screen. I'm about to
> modify it to use backticks
> $gnuplot_output = `gnuplot $cmd_file`
> but I can't believe there isn't a better way than what I've done to
> send a list of commands to gnuplot and get the plot back.
I don't know how to do this in Perl, but in a shell script the
following would work (plus or minus the fact that I haven't done this
in a while):
gnuplot_output=`echo $gnuplot-commands-and-data | gnuplot`
THeo
------------------------------
Date: Sat, 29 Jul 2006 16:14:45 -0700 (PDT)
From: merritt@u.washington.edu (Ethan Merritt)
Subject: Re: Sending data from perl to gnuplot and getting an "ASCII-art" graph back?
Message-Id: <eagq55$tbj$1@brogar.bmsc.washington.edu>
In article <36tsp3-cm1.ln1@news.ducksburg.com>,
Adam Funk <a24061@yahoo.com> wrote:
>I'm generating some data points in a Perl program and trying to send
>them to gnuplot and get back an "ASCII-art" graph (the kind that
>gnuplot generates with the "set term dumb" setting). I'd like to
>improve on the following steps:
>
>(1)
> foreach $x (sort {$a <=> $b} keys(%table) ) {
> $y = $table{$x};
> $line = sprintf("%5d %5d\n", $x, $y);
> $max_y = $y if ($y > $max_y);
> print($line) if ($option{v}); # verbose option
> push(@output,$line);
> }
>
>This produces lines like this:
> -5 2
> -2 5
OK, although you could also just send this data directly to gnuplot.
>
>(2) Then I use recipe 7.5 from the Perl Cookbook to generate two temp
>files, $data_file and $cmd_file, and I write @output from step (1)
>into $data_file.
>(3) Then I write a bunch of gnuplot commands as lines to $cmd_file:
>set term dumb
>set ylabel \"Frequency\"
>set xlabel \"Time\"
>unset key
>set yrange [0:$max_y]
>plot \"$temp_filename\" with impulses
>
>(4) and call gnuplot thus:
> system('gnuplot', $cmd_file);
You can do that. But you could also do
it all in-line:
$gnuplot = '/usr/local/bin/gnuplot';
open(GNUPLOT, "| $gnuplot");
print GNUPLOT <<EOFgnuplot;
set term dumb
set output "plot.txt"
set ylabel "Frequency"
set xlabel "Time"
unset key
plot '' with impulses
EOFgnuplot
foreach $x (sort {$a <=> $b} keys(%table) ) {
... the stuff you were doing anyhow ...
printt GNUPLOT $line;
}
close(GNUPLOT);
Then you can copy the output in "plot.txt" to the screen
if you want, or dump it some other way.
--
Ethan A Merritt
------------------------------
Date: Sun, 30 Jul 2006 00:42:45 +0100
From: Ben Morrow <benmorrow@tiscali.co.uk>
Subject: Re: Sending data from perl to gnuplot and getting an "ASCII-art" graph back?
Message-Id: <lc8tp3-ul9.ln1@osiris.mauzo.dyndns.org>
Quoth Adam Funk <a24061@yahoo.com>:
> I'm generating some data points in a Perl program and trying to send
> them to gnuplot and get back an "ASCII-art" graph (the kind that
> gnuplot generates with the "set term dumb" setting). I'd like to
> improve on the following steps:
Did you try http://search.cpan.org/search?query=gnuplot ? It shows up
two modules (Term::Gnuplot and Chart::Graph::Gnuplot) that look like
they may help.
Ben
--
The Earth is degenerating these days. Bribery and corruption abound.
Children no longer mind their parents, every man wants to write a book,
and it is evident that the end of the world is fast approaching.
Assyrian stone tablet, c.2800 BC benmorrow@tiscali.co.uk
------------------------------
Date: Sun, 30 Jul 2006 13:32:33 +0100
From: Adam Funk <a24061@yahoo.com>
Subject: Re: Sending data from perl to gnuplot and getting an "ASCII-art" graph back?
Message-Id: <1glup3-p7i.ln1@news.ducksburg.com>
On 2006-07-29, Ethan Merritt <merritt@u.washington.edu> wrote:
> You can do that. But you could also do
> it all in-line:
>
> $gnuplot = '/usr/local/bin/gnuplot';
>
> open(GNUPLOT, "| $gnuplot");
> print GNUPLOT <<EOFgnuplot;
> set term dumb
> set output "plot.txt"
> set ylabel "Frequency"
> set xlabel "Time"
> unset key
> plot '' with impulses
> EOFgnuplot
>
> foreach $x (sort {$a <=> $b} keys(%table) ) {
> ... the stuff you were doing anyhow ...
> printt GNUPLOT $line;
> }
> close(GNUPLOT);
>
> Then you can copy the output in "plot.txt" to the screen
> if you want, or dump it some other way.
That's a good idea, but I think I'll try Theo's suggestion first,
since it should get gnuplot's output directly back into a variable in
the Perl program without needing a temp file.
Thanks.
------------------------------
Date: Sun, 30 Jul 2006 13:33:11 +0100
From: Adam Funk <a24061@yahoo.com>
Subject: Re: Sending data from perl to gnuplot and getting an "ASCII-art" graph back?
Message-Id: <7hlup3-p7i.ln1@news.ducksburg.com>
On 2006-07-29, Theo Hopman <hopman.theo@gmail.com> wrote:
> What you really want to do is pipe these commands to the stdin of
> gnuplot.
Exactly.
> You also want to use inline data (see `help datafile
> special-filenames`) like such:
>
> plot "-" with impulses
> -5 2
> 2 5
> e
I'd never come across this feature but it looks extremely useful...
> I don't know how to do this in Perl, but in a shell script the
> following would work (plus or minus the fact that I haven't done this
> in a while):
>
> gnuplot_output=`echo $gnuplot-commands-and-data | gnuplot`
...for this (which is about the same in Perl). Thanks!
------------------------------
Date: Sun, 30 Jul 2006 13:36:13 +0100
From: Adam Funk <a24061@yahoo.com>
Subject: Re: Sending data from perl to gnuplot and getting an "ASCII-art" graph back?
Message-Id: <tmlup3-p7i.ln1@news.ducksburg.com>
On 2006-07-29, Ben Morrow <benmorrow@tiscali.co.uk> wrote:
> Did you try http://search.cpan.org/search?query=gnuplot ?
Obviously not!
> It shows up two modules (Term::Gnuplot and Chart::Graph::Gnuplot)
> that look like they may help.
Interesting, but they look a bit heavy and oriented towards generating
graphics files. (I'll try to keep them in mind if I need to do that
later.)
------------------------------
Date: Sun, 30 Jul 2006 00:06:30 GMT
From: "John W. Krahn" <someone@example.com>
Subject: Re: Sending data from perl to gnuplot and getting an "ASCII-art" graph back?
Message-Id: <aKSyg.175882$S61.16417@edtnps90>
Adam Funk wrote:
> I'm generating some data points in a Perl program and trying to send
> them to gnuplot and get back an "ASCII-art" graph (the kind that
> gnuplot generates with the "set term dumb" setting). I'd like to
> improve on the following steps:
>
> (1)
> foreach $x (sort {$a <=> $b} keys(%table) ) {
> $y = $table{$x};
> $line = sprintf("%5d %5d\n", $x, $y);
> $max_y = $y if ($y > $max_y);
> print($line) if ($option{v}); # verbose option
> push(@output,$line);
> }
>
> This produces lines like this:
> -5 2
> -2 5
>
> (2) Then I use recipe 7.5 from the Perl Cookbook to generate two temp
> files, $data_file and $cmd_file, and I write @output from step (1)
> into $data_file.
>
> (3) Then I write a bunch of gnuplot commands as lines to $cmd_file:
> set term dumb
> set ylabel \"Frequency\"
> set xlabel \"Time\"
> unset key
> set yrange [0:$max_y]
> plot \"$temp_filename\" with impulses
>
> (4) and call gnuplot thus:
> system('gnuplot', $cmd_file);
>
> The Perl program runs and prints the plot to the screen. I'm about to
> modify it to use backticks
> $gnuplot_output = `gnuplot $cmd_file`
> but I can't believe there isn't a better way than what I've done to
> send a list of commands to gnuplot and get the plot back.
>
> Is there?
You can probably do what you want with IPC::Open2 or Expect.
perldoc IPC::Open2
perldoc Expect
John
--
use Perl;
program
fulfillment
------------------------------
Date: 30 Jul 2006 09:25:21 GMT
From: anno4000@radom.zrz.tu-berlin.de
Subject: Re: Text::ParseWords::parse_line bug?
Message-Id: <4j3c81F63vhbU1@news.dfncis.de>
tsotsi <alexbasa@gmail.com> wrote in comp.lang.perl.misc:
> Does anyone know of any bug in ParseWords? I have an input string that
[...]
> while (<INPUT>)
> {
> chomp;
> my @fields = Text::ParseWords::parse_line( qr(\|), 0,$_);
> print "==$_==\n";
> print "field0=$fields[0]\n";
> print "field1=$fields[0]\n";
> print "field2=$fields[0]\n";
> print "field3=$fields[0]\n";
> }
Apart from Xho's remarks, did you notice you are printing the
same field four times? Talk about bugs...
Anno
------------------------------
Date: 29 Jul 2006 23:09:52 -0700
From: usenet@DavidFilmer.com
Subject: Re: What is "or equal" in perl? Thanks
Message-Id: <1154239792.852166.56160@p79g2000cwp.googlegroups.com>
perlie_newbie wrote:
> [a multi-posted question]
This question was multiposted to PB. Please burn this thread.
--
David Filmer (http://DavidFilmer.com)
------------------------------
Date: Sun, 30 Jul 2006 10:11:49 GMT
From: "John W. Krahn" <someone@example.com>
Subject: Re: What is "or equal" in perl? Thanks
Message-Id: <FB%yg.134944$A8.77116@clgrps12>
usenet@DavidFilmer.com wrote:
> perlie_newbie wrote:
>
>> [a multi-posted question]
>
> This question was multiposted to PB. Please burn this thread.
Peanut Butter?
PowerBASIC?
Perambulating Babies?
Pornographic Binaries?
John
--
use Perl;
program
fulfillment
------------------------------
Date: Sun, 30 Jul 2006 13:08:30 +0200
From: "Dr.Ruud" <rvtol+news@isolution.nl>
Subject: Re: What is "or equal" in perl? Thanks
Message-Id: <eaib6l.1ak.1@news.isolution.nl>
John W. Krahn schreef:
> usenet:
>> perlie_newbie wrote:
>>> [a multi-posted question]
>>
>> This question was multiposted to PB. Please burn this thread.
>
> Peanut Butter?
> PowerBASIC?
> Perambulating Babies?
> Pornographic Binaries?
http://lists.cpan.org/showlist.cgi?name=beginners
Also available at news://nntp.perl.org/perl.beginners
--
Affijn, Ruud
"Gewoon is een tijger."
------------------------------
Date: 6 Apr 2001 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 6 Apr 01)
Message-Id: <null>
Administrivia:
#The Perl-Users Digest is a retransmission of the USENET newsgroup
#comp.lang.perl.misc. For subscription or unsubscription requests, send
#the single line:
#
# subscribe perl-users
#or:
# unsubscribe perl-users
#
#to almanac@ruby.oce.orst.edu.
NOTE: due to the current flood of worm email banging on ruby, the smtp
server on ruby has been shut off until further notice.
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
#To request back copies (available for a week or so), send your request
#to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
#where x is the volume number and y is the issue number.
#For other requests pertaining to the digest, send mail to
#perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
#sending perl questions to the -request address, I don't have time to
#answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V10 Issue 9538
***************************************
