[28539] in Perl-Users-Digest
Perl-Users Digest, Issue: 9903 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sun Oct 29 02:05:51 2006
Date: Sun, 29 Oct 2006 00:05:05 -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, 29 Oct 2006 Volume: 10 Number: 9903
Today's topics:
Re: can someone unban me from freenode irc? #perl ? <bootiack@yahoo.com>
Re: can someone unban me from freenode irc? #perl ? <cdalten@gmail.com>
Re: can someone unban me from freenode irc? #perl ? <uri@stemsystems.com>
Re: FAQ 1.5 What is Ponie? <benmorrow@tiscali.co.uk>
Re: FAQ 1.5 What is Ponie? <uri@stemsystems.com>
Re: Finding form field for this html <news@lawshouse.org>
new CPAN modules on Sun Oct 29 2006 (Randal Schwartz)
Re: Question from the perlmod man pages. <cdalten@gmail.com>
Re: Question from the perlmod man pages. xhoster@gmail.com
Re: Store multi-dimensions array for use in latter form <shareparadise@gmail.com>
Re: Store multi-dimensions array for use in latter form xhoster@gmail.com
Re: Store multi-dimensions array for use in latter form <shareparadise@gmail.com>
Re: Store multi-dimensions array for use in latter form <shareparadise@gmail.com>
Re: what are the most frequently used functions? <xah@xahlee.org>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 28 Oct 2006 17:01:12 -0700
From: "gavino" <bootiack@yahoo.com>
Subject: Re: can someone unban me from freenode irc? #perl ?
Message-Id: <1162080072.150834.179170@b28g2000cwb.googlegroups.com>
Uri Guttman wrote:
> >>>>> "g" == gavino <bootiack@yahoo.com> writes:
>
> g> Michele Dondi wrote:
> >> On 25 Oct 2006 19:02:28 -0700, "gavino" <bootiack@yahoo.com> wrote:
> >>
> >> >I think perl is nicer than ja-vaaa!
> >>
> >> So what?!? Are you aware that you're replying to a post by "Sisyphus"
> >> (whithout quoting it, for the n-th time) whose entire content I'm
> >> quoting hereafeter?
> >>
> >> : "John Bokma" <john@castleamber.com> wrote in message
> >> : news:Xns9867ABDE871D4castleamber@130.133.1.4...
> >> : > "gavino" <bootiack@yahoo.com> wrote:
> >> : >
> >> : > > ok this sucks lol
> >> : > > damn it jim!
> >> : > > ok
> >> : > > 15 naked virgins for whoever lets me back in
> >> : >
> >> : > This is a Perl group, payments should be made in camels only (either with
> >> : > one or two humps).
> >> : >
> >> :
> >> : Humping camels is illegal .... in this country, anyway ;-)
> >> :
> >> : Cheers,
> >> : Rob
> >>
> >> Then again: SO WHAT?!?
>
> g> Michele calm down, go jack off or something. I like perl much better
> g> than ja-vaa!!!
>
> now we know why you were banned. i would ban you too if i had ops on
> that network.
>
> uri
>
> --
> Uri Guttman ------ uri@stemsystems.com -------- http://www.stemsystems.com
> --Perl Consulting, Stem Development, Systems Architecture, Design and Coding-
> Search or Offer Perl Jobs ---------------------------- http://jobs.perl.org
so I guess your a commy
------------------------------
Date: 28 Oct 2006 17:28:51 -0700
From: "grocery_stocker" <cdalten@gmail.com>
Subject: Re: can someone unban me from freenode irc? #perl ?
Message-Id: <1162081731.191164.300150@e3g2000cwe.googlegroups.com>
> so I guess your a commy
Thank you for fagging up both this forum and the whole USENET
experience in general. By the way, I liken Java to a cheap pair of
stockings. Both at times can have limited functionality and give out
at the strangest moments.
------------------------------
Date: Sun, 29 Oct 2006 00:06:06 -0400
From: Uri Guttman <uri@stemsystems.com>
Subject: Re: can someone unban me from freenode irc? #perl ?
Message-Id: <x7fyd7n4up.fsf@mail.sysarch.com>
>>>>> "g" == gavino <bootiack@yahoo.com> writes:
g> Uri Guttman wrote:
>>
>> now we know why you were banned. i would ban you too if i had ops on
>> that network.
g> so I guess your a commy
no, but you have proved YOU'RE a moron. you won't be getting much more
perl help here. go learn python.
uri
--
Uri Guttman ------ uri@stemsystems.com -------- http://www.stemsystems.com
--Perl Consulting, Stem Development, Systems Architecture, Design and Coding-
Search or Offer Perl Jobs ---------------------------- http://jobs.perl.org
------------------------------
Date: Sat, 28 Oct 2006 23:09:04 +0100
From: Ben Morrow <benmorrow@tiscali.co.uk>
Subject: Re: FAQ 1.5 What is Ponie?
Message-Id: <011d14-aje.ln1@osiris.mauzo.dyndns.org>
Quoth PerlFAQ Server <brian@stonehenge.com>:
> This is an excerpt from the latest version perlfaq1.pod, which
> comes with the standard Perl distribution. These postings aim to
> reduce the number of repeated questions as well as allow the community
> to review and update the answers. The latest version of the complete
> perlfaq is at http://faq.perl.org .
>
> --------------------------------------------------------------------
>
> 1.5: What is Ponie?
The Ponie project has recently been abandoned:
http://www.nntp.perl.org/group/perl.ponie.dev/487
Ben
--
We do not stop playing because we grow old;
we grow old because we stop playing.
benmorrow@tiscali.co.uk
------------------------------
Date: Sun, 29 Oct 2006 00:14:36 -0400
From: Uri Guttman <uri@stemsystems.com>
Subject: Re: FAQ 1.5 What is Ponie?
Message-Id: <x7bqnvn4gj.fsf@mail.sysarch.com>
>>>>> "BM" == Ben Morrow <benmorrow@tiscali.co.uk> writes:
BM> Quoth PerlFAQ Server <brian@stonehenge.com>:
>> This is an excerpt from the latest version perlfaq1.pod, which
>> comes with the standard Perl distribution. These postings aim to
>> reduce the number of repeated questions as well as allow the community
>> to review and update the answers. The latest version of the complete
>> perlfaq is at http://faq.perl.org .
>>
>> --------------------------------------------------------------------
>>
>> 1.5: What is Ponie?
BM> The Ponie project has recently been abandoned:
BM> http://www.nntp.perl.org/group/perl.ponie.dev/487
and i can't believe that was ever frequently asked. ponie never got any
buzz outisde a very small subset of the perl community. on the other
hand parrot and pugs are getting that buzz. so maybe this faq should be
changed to ask about those and other top level perl6 topics?
uri
--
Uri Guttman ------ uri@stemsystems.com -------- http://www.stemsystems.com
--Perl Consulting, Stem Development, Systems Architecture, Design and Coding-
Search or Offer Perl Jobs ---------------------------- http://jobs.perl.org
------------------------------
Date: Sat, 28 Oct 2006 23:53:56 +0100
From: Henry Law <news@lawshouse.org>
Subject: Re: Finding form field for this html
Message-Id: <1162076033.68608.0@despina.uk.clara.net>
Nospam wrote:
> I can't seem to find the form field or even form name for this particular
> page, the relevant html is:
For heaven's sake take more care about the way you're asking your
questions. You are making it very hard for people to help you, and
people will get tired of trying to do so very quickly. My advice: read
the posting guidelines for this group and follow them; they really are
intended to help you get the help you want.
> <form method="post" action="/cgi-bin/add_posting.pl" name="add_posting">
...
> <input type="hidden" name="site_id" value="79">
> <input type="hidden" name="posting_id" value="">
This is HTML, so I'm assuming you've got it into your Perl program
somehow. Best show us how.
> I have tried form(1);
You "tried" it; just how did you try it? I just tried it in a one-line
Perl program and got the message "Undefined subroutine &main::form" (of
course), so you must have done some other coding. Show us.
Hint (based on the posting guidelines): write a small program - ten
lines or so - which contains the very code that doesn't do what you
intend, and post it here. People will leap upon it and tell you what's
the matter with it.
--
Henry Law <>< Manchester, England
------------------------------
Date: Sun, 29 Oct 2006 04:41:57 GMT
From: merlyn@stonehenge.com (Randal Schwartz)
Subject: new CPAN modules on Sun Oct 29 2006
Message-Id: <J7vrpx.Hzp@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.
Audio-ConvTools-0.07
http://search.cpan.org/~mhooreman/Audio-ConvTools-0.07/
API to convert audio files from/to mp3 ogg and wav
----
Audio-ConvTools-0.08
http://search.cpan.org/~mhooreman/Audio-ConvTools-0.08/
API to convert audio files from/to mp3 ogg and wav
----
Business-OnlinePayment-PPIPayMover-0.01
http://search.cpan.org/~ivan/Business-OnlinePayment-PPIPayMover-0.01/
PPI PayMover backend for Business::OnlinePayment
----
CGI-Application-Plugin-Apache-0.13
http://search.cpan.org/~wonko/CGI-Application-Plugin-Apache-0.13/
Allow CGI::Application to use Apache::* modules without interference
----
CPAN-1.88_58
http://search.cpan.org/~andk/CPAN-1.88_58/
query, download and build perl modules from CPAN sites
----
CPAN-Reporter-0.29
http://search.cpan.org/~dagolden/CPAN-Reporter-0.29/
Provides Test::Reporter support for CPAN.pm
----
Check-UnitCheck-0.12
http://search.cpan.org/~ajgough/Check-UnitCheck-0.12/
Use best of CHECK or UNITCHECK
----
Config-XPath-0.04
http://search.cpan.org/~pevans/Config-XPath-0.04/
a module for retrieving configuration data from XML files by using XPath queries
----
DateTime-Format-Natural-EN-0.07
http://search.cpan.org/~schubiger/DateTime-Format-Natural-EN-0.07/
Create machine readable date/time with natural parsing logic
----
IO-AIO-2.1
http://search.cpan.org/~mlehmann/IO-AIO-2.1/
Asynchronous Input/Output
----
Ingres-Utility-IIMonitor-0.13
http://search.cpan.org/~worm/Ingres-Utility-IIMonitor-0.13/
API to iimonitor Ingres RDBMS utility
----
Module-CPANTS-Analyse-0.68
http://search.cpan.org/~domm/Module-CPANTS-Analyse-0.68/
Generate Kwalitee ratings for a distribution
----
Mozilla-ObserverService-0.01
http://search.cpan.org/~bosu/Mozilla-ObserverService-0.01/
Perl interface to the Mozilla nsIObserverService
----
Net-Elexol-EtherIO24-0.10
http://search.cpan.org/~chrisy/Net-Elexol-EtherIO24-0.10/
Object interface for manipulating Elexol Ether I/O 24 units with Perl
----
PPM-Make-0.89
http://search.cpan.org/~rkobes/PPM-Make-0.89/
Make a ppm package from a CPAN distribution
----
Perl-Configure-0.04
http://search.cpan.org/~mschilli/Perl-Configure-0.04/
Answer perl's ./Configure questions reproducibly
----
SWF-Builder-0.15
http://search.cpan.org/~ysas/SWF-Builder-0.15/
Create SWF movie.
----
Search-Tools-0.07
http://search.cpan.org/~karman/Search-Tools-0.07/
tools for building search applications
----
Sledge-Plugin-SNMP-0.02
http://search.cpan.org/~tsunoda/Sledge-Plugin-SNMP-0.02/
Object oriented interface to SNMP
----
Snort-Rule-1.05
http://search.cpan.org/~saxjazman/Snort-Rule-1.05/
Perl extension for dynamically building snort rules
----
Time-Available-0.05
http://search.cpan.org/~dpavlin/Time-Available-0.05/
Perl extension to calculate time availability
----
WWW-Blog-Metadata-Microsummary-0.01
http://search.cpan.org/~kentaro/WWW-Blog-Metadata-Microsummary-0.01/
Extract Microsummary URI from a page
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: 28 Oct 2006 15:06:42 -0700
From: "grocery_stocker" <cdalten@gmail.com>
Subject: Re: Question from the perlmod man pages.
Message-Id: <1162073202.515165.84370@i42g2000cwa.googlegroups.com>
Jim Gibson wrote:
> In article <1162052151.603188.40550@b28g2000cwb.googlegroups.com>,
> grocery_stocker <cdalten@gmail.com> wrote:
>
> > I'm sort of drawing a stump on the following:
> >
> > "Perl packages may be nested inside other package names, so we can have
> > package names containing ::. But if we used that package name directly
> > as a filename it would make for unwieldy or impossible filenames on
> > some systems. Therefore, if a module's name is, say, Text::Soundex,
> > then its definition is actually found in the library file
> > Text/Soundex.pm."
> >
> > Say I have a module name Text::Soundex. I use this in my Perl script
> > as:
> >
> > use Text::Soundex;
> >
> > I know there is a module called Soundex.pm. I also know there is a
> > directory
> > name with the name Text. However, would there also be a module named
> > Text.pm?
>
> No, there need not be a module named Text.pm. The pattern A::B is a
> naming convention, and does not establish a hierarchical relationship
> between modules A and B or their symbol tables. See 'perldoc perlmod'
> for details.
The source of this confusion stems from the following lines of code:
#!/usr/bin/perl
# change these two lines
$server_port = 1234;
$identification_phrase = 'insert phrase here';
# redirect error messages to a logfile
open(STDERR, ">>/tmp/logserver.log");
# code stolen liberally from Perl Cookbook
use IO::Socket;
$logfile = $ARGV[0];
open(LOG, "<$logfile");
# read to the current end of the log
while(<LOG>) {
}
$server = IO::Socket::INET->new(LocalPort => $server_port,
Type => SOCK_STREAM,
Reuse => 1,
Listen => 10 ) # or SOMAXCONN
or exit; # "Couldn't be a tcp server on port $server_port : $@\n";
while (($client,$client_address) = $server->accept()) {
($client_port, $client_ip) = unpack_sockaddr_in($client_address);
@decimal_address = unpack("C4", $client_ip);
$ip_number = join(".", @decimal_address);
warn "connection from $ip_number";
while(<$client>) {
last if /$identification_phrase/;
}
warn "connection from $ip_number gave pass phrase";
$lines = 0;
while(<LOG>) {
$lines++;
print $client $_;
}
warn "returned $lines lines to $ip_number";
close($client);
}
close($server);
Why go
use IO::Socket;
Why just not
use IO::Socket::INET;
in this case
------------------------------
Date: 28 Oct 2006 22:22:34 GMT
From: xhoster@gmail.com
Subject: Re: Question from the perlmod man pages.
Message-Id: <20061028182238.434$T3@newsreader.com>
"grocery_stocker" <cdalten@gmail.com> wrote:
> Jim Gibson wrote:
> > No, there need not be a module named Text.pm. The pattern A::B is a
> > naming convention, and does not establish a hierarchical relationship
> > between modules A and B or their symbol tables. See 'perldoc perlmod'
> > for details.
>
> The source of this confusion stems from the following lines of code:
>
> #!/usr/bin/perl
>
> # change these two lines
> $server_port = 1234;
> $identification_phrase = 'insert phrase here';
>
> # redirect error messages to a logfile
> open(STDERR, ">>/tmp/logserver.log");
>
> # code stolen liberally from Perl Cookbook
>
> use IO::Socket;
>
...
>
> $server = IO::Socket::INET->new(LocalPort => $server_port,
...
>
> Why go
>
> use IO::Socket;
>
> Why just not
>
> use IO::Socket::INET;
>
> in this case
No particular reason that I can think of. When you use IO::Socket, it
automatically uses IO::Socket::INET for you. That is just the kind of
relationship that IO::Socket and IO::Socket::INET have with each other.
Other modules have a more stand-offish relationship.
OK, maybe one reason to use IO::Socket rather than IO::Socket::INET is
that, if you decide to switch to the different kind of socket, (say, UNIX)
then you would only need to change the "new" line rather than changing both
the "new" and the "use".
Xho
--
-------------------- http://NewsReader.Com/ --------------------
Usenet Newsgroup Service $9.95/Month 30GB
------------------------------
Date: 28 Oct 2006 16:24:24 -0700
From: "shareparadise@gmail.com" <shareparadise@gmail.com>
Subject: Re: Store multi-dimensions array for use in latter form?
Message-Id: <1162077864.276286.125910@e3g2000cwe.googlegroups.com>
On Oct 28, 4:53 pm, xhos...@gmail.com wrote:
> > # retrieve here (of course this is after we submit the form along with
> > that hidden field already.
> > my $temp = $query->param("table");
> > eval $temp;
>
> > I was able to retrieve the string back, but couldnt eval it back to the
> > original table.Why couldn't you?
I wonder if I'm doing something terriblly wrong here, This is part of
the codes:
$temp = $query->param("table");
eval $temp;
print $query->header(),$query->start_html(-title=>"Testing");
# Just try to print out the data
for ($i=0; $i<13; $i++){
for ($j=0; $j<7;$j++){
print ($table[$i][$j]);
print (" ---- ");
}
print ("<br>");
}
The loop couldnt print out a thing tho *_*. I knw I must be doing
something really wrong and stupid here, but cant figure out where.
SP
------------------------------
Date: 28 Oct 2006 23:40:18 GMT
From: xhoster@gmail.com
Subject: Re: Store multi-dimensions array for use in latter form?
Message-Id: <20061028194023.108$df@newsreader.com>
"shareparadise@gmail.com" <shareparadise@gmail.com> wrote:
> On Oct 28, 4:53 pm, xhos...@gmail.com wrote:
> > > # retrieve here (of course this is after we submit the form along
> > > with that hidden field already.
> > > my $temp = $query->param("table");
> > > eval $temp;
> >
> > > I was able to retrieve the string back, but couldnt eval it back to
> > > the original table.Why couldn't you?
>
> I wonder if I'm doing something terriblly wrong here, This is part of
> the codes:
> $temp = $query->param("table");
> eval $temp;
If you don't know if you are doing something wrong, you should ask Perl
to tell you when things go wrong.
eval $temp or die "eval of $temp failed with $@";
Also, you should take cgi out of the loop until you can get a normal
store/thaw cycle working as stand alone code.
Xho
--
-------------------- http://NewsReader.Com/ --------------------
Usenet Newsgroup Service $9.95/Month 30GB
------------------------------
Date: 28 Oct 2006 21:15:35 -0700
From: "shareparadise@gmail.com" <shareparadise@gmail.com>
Subject: Re: Store multi-dimensions array for use in latter form?
Message-Id: <1162095334.844509.164760@b28g2000cwb.googlegroups.com>
I didnt realize that I get the reference of the array, not the array
itself (so stupid I am), anyway I got it working now:
$table = eval $temp or die "eval of $temp failed with $@";
# Try to print out some sample data
for ($i=0; $i<13; $i++){
for ($j=0; $j<7;$j++){
print ($table->[$i]->[$j]);
print (" ---- ");
}
print ("<br>");
}
------------------------------
Date: 28 Oct 2006 21:17:36 -0700
From: "shareparadise@gmail.com" <shareparadise@gmail.com>
Subject: Re: Store multi-dimensions array for use in latter form?
Message-Id: <1162095456.695623.199920@m7g2000cwm.googlegroups.com>
Oh, and I forgot to say "thanks" to each and everyone tried to help me!
It's been great help and I learned a lot! Greatly appreciated!
------------------------------
Date: 28 Oct 2006 22:55:29 -0700
From: "Xah Lee" <xah@xahlee.org>
Subject: Re: what are the most frequently used functions?
Message-Id: <1162101329.856825.186110@e64g2000cwd.googlegroups.com>
Barry Margolin wrote:
=C2=AB For Lisp, just look for symbols that are immediately preceded by (
.=2E.=C2=BB
Thanks a lot! great thought.
I've done accordingly, which counts satisfactorily.
http://xahlee.org/emacs/function-frequency.html
Will take a break and think about Perl, Python, Java later... For
Python and Java, i think the report will also have to count method
call since that what these langs deal with... slightly quite more
complex than just functional langs...
Xah
xah@xahlee.org
=E2=88=91 http://xahlee.org/
------------------------------
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 9903
***************************************
