[29127] in Perl-Users-Digest
Perl-Users Digest, Issue: 371 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sun Apr 22 09:10:24 2007
Date: Sun, 22 Apr 2007 06:09:13 -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, 22 Apr 2007 Volume: 11 Number: 371
Today's topics:
Data munging, the choices available. irishhacker@gmail.com
Re: Data munging, the choices available. <bik.mido@tiscalinet.it>
Download multiple email attachments in single file <lahoore@gmail.com>
Re: Download multiple email attachments in single file <bik.mido@tiscalinet.it>
Re: How to time out a forked command but still see outp <ced@blv-sam-01.ca.boeing.com>
Re: How to time out a forked command but still see outp <ced@blv-sam-01.ca.boeing.com>
Mail contents of text file ciquo01@gmail.com
Re: Mail contents of text file <purlgurl@purlgurl.net>
Re: Mail contents of text file <bik.mido@tiscalinet.it>
Re: Manipulate fields <rvtol+news@isolution.nl>
new CPAN modules on Sun Apr 22 2007 (Randal Schwartz)
Re: perldoc perllocal <news@chaos-net.de>
Re: perldoc perllocal <news@chaos-net.de>
Re: perldoc perllocal <spamtrap@dot-app.org>
Re: Pseiudo Terminals <joe@inwap.com>
Re: Server For Rent? Where? <bik.mido@tiscalinet.it>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 21 Apr 2007 18:55:47 -0700
From: irishhacker@gmail.com
Subject: Data munging, the choices available.
Message-Id: <1177206947.102234.76080@q75g2000hsh.googlegroups.com>
What's the percentage of Perl users who use Perl for data munging
(cleaning up data , data transformation, etc) on a fairly common
occasion?
Perl is particularly good at regular expressions, which is useful for
some types of data munging.
There are mainly three choices for data munging. Which choice is best
depends on the type of data problem one has. There are many different
types of data munging, both in degree of difficulty, and flavor.
ALL-PURPOSE PROGRAMMING LANGUAGES
obvious example: Perl
SPECIALIZED PROGRAMMING LANGUAGES
obvious example: SAS datastep (but extremely expensive) , also SPSS
( to get data ready for analysis, same thing)
PSPP (GPL open source re-implementation of SPSS programming language,
@ http://directory.fsf.org/math/stats )
DAP (GPL open source re-implementation of SAS programming language, @
http://directory.fsf.org/math/stats )
vilno (GPL open source, another data transformation programming
language and engine, @ http://code.google.com/p/vilno )
GRAPHICAL USER INTERFACE
Kettle ( http://kettle.pentaho.org )
KETL, ( http://www.ketl.org ) and on and on.
Particularly popular with the "T" part of "ETL" .
ETL is always marketed as having a GUI front-end, no one ever mentions
using an ETL programming language.
If the complexity/quality of the data is not that bad, and hence the
required munging is not too complicated, then a GUI product is good.
But if Murphy's law strikes with the databases(if something can go
wrong it will), programming languages provide more flexibily for bad
situations.
------------------------------
Date: Sun, 22 Apr 2007 14:26:01 +0200
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: Data munging, the choices available.
Message-Id: <skjm23tagduftem1hca9vu6clhe6gfmp0k@4ax.com>
On 21 Apr 2007 18:55:47 -0700, irishhacker@gmail.com wrote:
>Subject: Data munging, the choices available.
I was about to reply along the lines of "and the question is?"
Because, of course, people generally come up here with questions. It
took me a while to realize it was meant as a review, and a good one at
a first glance: although it is concise, and IMHO rightly so, it is
also informative, which is the important part. Certainly I found it
interesting, so contratulations and thank you.
>What's the percentage of Perl users who use Perl for data munging
>(cleaning up data , data transformation, etc) on a fairly common
>occasion?
So there's a question after all. But I think it would be hard to come
up with a definite answer. What are the borders in the definition of
data munging? Depending on some assumptions one may answer "always",
or "never", or quite about any intermediate position.
>Perl is particularly good at regular expressions, which is useful for
>some types of data munging.
And it also has that neat "little" thing that is CPAN, which gives
tons of modules to manage specific kind of data that regular
expressions are too weak to handle. (Or, would do so in clumsy and/or
unreliable and/or inefficient ways.)
>SPECIALIZED PROGRAMMING LANGUAGES
>obvious example: SAS datastep (but extremely expensive) , also SPSS
>( to get data ready for analysis, same thing)
It's funny that you mention SAS, because I had never ever heard about
it before (or if I had then I also forgot it altogether) but yesterday
night I hang out with some friends (I hope this is the correct
idiomatic expression) and amongst them was there a girl whom I didn't
know, and she was talking exactly about her work with mathematical
models and implementing them with SAS...
>PSPP (GPL open source re-implementation of SPSS programming language,
>@ http://directory.fsf.org/math/stats )
>DAP (GPL open source re-implementation of SAS programming language, @
>http://directory.fsf.org/math/stats )
>vilno (GPL open source, another data transformation programming
>language and engine, @ http://code.google.com/p/vilno )
BTW: now that I notice, on CPAN there are SAS::Parser, SAS::Header and
SAS::Index.
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: 22 Apr 2007 05:20:55 -0700
From: "lahoore@gmail.com" <lahoore@gmail.com>
Subject: Download multiple email attachments in single file
Message-Id: <1177244455.035849.233170@n76g2000hsh.googlegroups.com>
Hi,
I am using MDaemon mail server and for web client - World Client. I
would like to download all the attachments as a single zip file from
inbox instead of downloading each and every attachment. We would like
to know whether it is possible or not?
Following is the CGI code segment currently used:
<$FOREACH ATTACHMENT$>
<tr><td align="center" colspan="3"><$ATTACHIMAGE$></td></tr>
<tr>
<td>[<$ATTACHNUM$>] [$File$]: <a href="<$AttachLink$>"
target="_blank"><$ATTACHFILE$></a> <$ATTACHINLINE$></td>
<td>[$Size$]: <$ATTACHSIZE$>k</u></td>
<td>[$Content Type$]: <$ATTACHTYPE$></td>
</tr>
<$ENDEACH ATTACHMENT$>
Please help us to achieve this.
------------------------------
Date: Sun, 22 Apr 2007 15:00:53 +0200
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: Download multiple email attachments in single file
Message-Id: <8pmm239hi0gn4rc892l6hgj2ronmip902t@4ax.com>
On 22 Apr 2007 05:20:55 -0700, "lahoore@gmail.com" <lahoore@gmail.com>
wrote:
>Following is the CGI code segment currently used:
>
><$FOREACH ATTACHMENT$>
><tr><td align="center" colspan="3"><$ATTACHIMAGE$></td></tr>
><tr>
> <td>[<$ATTACHNUM$>] [$File$]: <a href="<$AttachLink$>"
>target="_blank"><$ATTACHFILE$></a> <$ATTACHINLINE$></td>
> <td>[$Size$]: <$ATTACHSIZE$>k</u></td>
> <td>[$Content Type$]: <$ATTACHTYPE$></td>
></tr>
><$ENDEACH ATTACHMENT$>
>
>Please help us to achieve this.
I know that you may feel like some of us being unrespectful in your
regards, but in all earnestness, that code doesn't say much. More
precisely, it hardly says anything. As it is it seems a portion of
some (HTML) templating language (possibly one implemented as a Perl
module, but that's not of any help either) but it certainly is *not*
valid Perl code, and doesn't even look like Perl at all. Are you sure
it is? How 'bout posting say the top 10 lines of the script, e.g. as
ouptup by head(1)?
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: 21 Apr 2007 22:06:53 -0700
From: "comp.llang.perl.moderated" <ced@blv-sam-01.ca.boeing.com>
Subject: Re: How to time out a forked command but still see output?
Message-Id: <1177218413.248114.259730@l77g2000hsb.googlegroups.com>
On Apr 21, 8:58 am, thecrow <hokkaidoc...@gmail.com> wrote:
> On Apr 18, 8:19 am, "comp.llang.perl.moderated" <c...@blv-
>
> sam-01.ca.boeing.com> wrote:
> > Another way if redirecting all -- rather than just
> > the ensuing output from the point of the interrupt --
> > to a file is acceptable:
>
> > open( my $fh, "$command |") or die "fork failed: $!" ;
>
> > local $SIG{ ALRM } = sub { close $fh;
> > system("$command >save.txt &"); exit;};
>
> > alarm $startupWait;
> > ...
> > print while <$fh>; # eg.
>
> I'm confused by this example, it seems that it would run the command
> twice, discarding all the output the first time, and saving all the
> output the second time. Definitely that's not what I'm looking for.
>
Did you try it... No, it shouldn't. The program will
print all output to the screen in real time. If, however,
your timeout occurs before program completion, then
the program is launched in the background and output re-directed as
you specified. I also assume that your
code included what you demo'ed in your post earlier:
alarm 0;
print "Command completed, output is:\n";
...
> My main challenge was that I wanted to see that output in realtime,
> but the command writes unbuffered output to STDOUT, and is prone to
> hanging.
Again, if the program hangs and there's a timeout, then the handler
closes the pipe and launchs the program in the
background before exiting itself. And the pipe open is actually a
fork behind the scenes so the program is
running in a separate child process and can't pre-empt
a timeout handler in the parent.
HTH,
--
Charles DeRykus
------------------------------
Date: 21 Apr 2007 23:36:06 -0700
From: "comp.llang.perl.moderated" <ced@blv-sam-01.ca.boeing.com>
Subject: Re: How to time out a forked command but still see output?
Message-Id: <1177223766.757346.173290@p77g2000hsh.googlegroups.com>
On Apr 21, 10:06 pm, "comp.llang.perl.moderated" <c...@blv-
sam-01.ca.boeing.com> wrote:
> On Apr 21, 8:58 am, thecrow <hokkaidoc...@gmail.com> wrote:
>
>
>
> > On Apr 18, 8:19 am, "comp.llang.perl.moderated" <c...@blv-
>
> > sam-01.ca.boeing.com> wrote:
> > > Another way if redirecting all -- rather than just
> > > the ensuing output from the point of the interrupt --
> > > to a file is acceptable:
>
> > > open( my $fh, "$command |") or die "fork failed: $!" ;
>
> > > local $SIG{ ALRM } = sub { close $fh;
> > > system("$command >save.txt &"); exit;};
>
> > > alarm $startupWait;
> > > ...
> > > print while <$fh>; # eg.
>
> > I'm confused by this example, it seems that it would run the command
> > twice, discarding all the output the first time, and saving all the
> > output the second time. Definitely that's not what I'm looking for.
>
> Did you try it... No, it shouldn't. The program will
> print all output to the screen in real time. If, however,
> your timeout occurs before program completion, then
> the program is launched in the background and output re-directed as
> you specified. I also assume that your
> code included what you demo'ed in your post earlier:
> alarm 0;
> print "Command completed, output is:\n";
> ...
>
> > My main challenge was that I wanted to see that output in realtime,
> > but the command writes unbuffered output to STDOUT, and is prone to
> > hanging.
>
> Again, if the program hangs and there's a timeout, then the handler
> closes the pipe and launchs the program in the
> background before exiting itself. And the pipe open is actually a
> fork behind the scenes so the program is
> running in a separate child process and can't pre-empt
> a timeout handler in the parent.
>
If you're concerned about the timed out program running to completion
after
the background child program starts, be aware the child process will
terminate with a SIGPIPE as soon as it tries to write to the closed
pipe
in any event.
However, you might be able to force an even early termination:
my $child = open( my $fh, "$command |") or die "fork failed: $!" ;
local $SIG{ ALRM } = sub { close $fh; kill 'TERM', $child or kill
'KILL',$child;
system("$command
>save.txt &"); exit;};
...
--
Charles DeRykus
------------------------------
Date: 21 Apr 2007 19:26:12 -0700
From: ciquo01@gmail.com
Subject: Mail contents of text file
Message-Id: <1177208772.751768.195910@b58g2000hsg.googlegroups.com>
Im very new to Perl/CGI, im looking into it because i wanted to add
some fuctionality to my web pages.
corrently Im trying to figure out how to mail the contents of an
uploaded text file to myself. I have gone through the book i bought as
well as tried similar examples i found here in this group but to no
success.
In detail; I have an upload form, I want the script to only allow text
files, then i want the scrpit to mail me a message, the contents being
the contents of the file.
can anyone help me with this please.
Thank you
------------------------------
Date: Sat, 21 Apr 2007 19:55:36 -0700
From: Purl Gurl <purlgurl@purlgurl.net>
Subject: Re: Mail contents of text file
Message-Id: <Le2dnb8pPL8yU7fbnZ2dnUVZ_vTinZ2d@giganews.com>
ciquo01 wrote:
> corrently Im trying to figure out how to mail the contents of an
> uploaded text file to myself. I have gone through the book i bought as
> well as tried similar examples i found here in this group but to no
> success.
http://www.google.com/search?hl=en&safe=off&q=send+email+perl&btnG=Search
Purl Gurl
------------------------------
Date: Sun, 22 Apr 2007 14:42:48 +0200
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: Mail contents of text file
Message-Id: <3alm23pu2v4l6dn5u7uojf90rogsnp0vad@4ax.com>
On 21 Apr 2007 19:26:12 -0700, ciquo01@gmail.com wrote:
>Im very new to Perl/CGI, im looking into it because i wanted to add
Since there's a discussion going on, on these matters, a better way to
phrase that would be that you're very new both to a thing called Perl
and to a completely different thing called CGI. People here will help
you with the former and with the parts of the latter that have
something to do with Perl, but not with anything that has purely to do
with HTML, webserver configuration and the like.
>some fuctionality to my web pages.
Seems reasonable.
>corrently Im trying to figure out how to mail the contents of an
>uploaded text file to myself. I have gone through the book i bought as
There's a very recent thread going on about sending mail through a CGI
script. In that case the text is fixed. You "only" have to add code to
first upload a file and then mail it to you.
In the CGI.pm's distribution there's a minimal example script for
uploading a file. You may get some idea from it.
>well as tried similar examples i found here in this group but to no
>success.
And which book is that? Anyway, although badly written "tutorials"
abound on the web, there's at least a very good one: Ovid's CGI
Course. Did you try it?
http://users.easystreet.com/ovid/cgi_course/
>In detail; I have an upload form, I want the script to only allow text
>files, then i want the scrpit to mail me a message, the contents being
Well, you know, "text files" are not defined in such a precise way as
to be bulletproof identifiable. You may use the -T function and decide
upon that. But it applies some heuristics too. See its description in
perldoc -f -T
If its heuristics would end up being too weak for your needs, you may
roll your own version of course. Seeing what it does, of course may be
a good start. But what if your "text" is e.g. in Unicode?
>the contents of the file.
>
>can anyone help me with this please.
As hinted above, start with a script just sending mail. Then
incrementally add features, and be sure to have them working step by
step. If you have any problem with actual code, then please send it
here, possibly trimmed down to a bare minimum, for people to comment
on it.
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: Sun, 22 Apr 2007 10:50:33 +0200
From: "Dr.Ruud" <rvtol+news@isolution.nl>
Subject: Re: Manipulate fields
Message-Id: <f0fesf.1gg.1@news.isolution.nl>
Sashi schreef:
> I have a csv file. The second field is an int and I need it to be
> replaced with the two's power of itself.
> For example if the number is 22, I need it replaced with two raised to
> the power of 22.
echo 'abc,12,33' |perl -wpe'
s/^([^,]*,)([^,]*)/$1.q{0b1}.q{0}x$2/e
'
abc,0b1000000000000,33
> The remaining fields are IP address which should be replaced with the
> corresponding ints, ie use the inet_aton() funcion. There will be at
> least two but no more fields per row.
Have you already looked into the several CSV-related modules on cpan?
--
Affijn, Ruud
"Gewoon is een tijger."
------------------------------
Date: Sun, 22 Apr 2007 04:42:10 GMT
From: merlyn@stonehenge.com (Randal Schwartz)
Subject: new CPAN modules on Sun Apr 22 2007
Message-Id: <JGvuEA.Gyv@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.
Acme-NumericMethod-0.04
http://search.cpan.org/~gugod/Acme-NumericMethod-0.04/
I know numeric methods
----
Algorithm-Bucketizer-0.12
http://search.cpan.org/~mschilli/Algorithm-Bucketizer-0.12/
Distribute sized items to buckets with limited size
----
CGI-SSI-0.89
http://search.cpan.org/~james/CGI-SSI-0.89/
Use SSI from CGI scripts
----
DBD-Sybase-1.08
http://search.cpan.org/~mewp/DBD-Sybase-1.08/
Sybase database driver for the DBI module
----
DateTime-TimeZone-0.65
http://search.cpan.org/~drolsky/DateTime-TimeZone-0.65/
Time zone object base class and factory
----
Devel-Fail-Make-1.007
http://search.cpan.org/~mthurn/Devel-Fail-Make-1.007/
a distro that always fails the `make` stage
----
Devel-Fail-Make-1.008
http://search.cpan.org/~mthurn/Devel-Fail-Make-1.008/
a distro that always fails the `make` stage
----
Devel-Fail-MakeTest-1.006
http://search.cpan.org/~mthurn/Devel-Fail-MakeTest-1.006/
a distro that always fails the `make test` stage
----
Email-MIME-XPath-0.003
http://search.cpan.org/~hdp/Email-MIME-XPath-0.003/
access MIME documents via XPath queries
----
Getopt-ArgvFile-1.11
http://search.cpan.org/~jstenzel/Getopt-ArgvFile-1.11/
interpolates script options from files into @ARGV or another array
----
HTML-Tested-ClassDBI-0.11
http://search.cpan.org/~bosu/HTML-Tested-ClassDBI-0.11/
Enhances HTML::Tested to work with Class::DBI
----
Lingua-Alphabet-Phonetic-0.054
http://search.cpan.org/~mthurn/Lingua-Alphabet-Phonetic-0.054/
map ABC's to phonetic alphabets
----
Math-0.541
http://search.cpan.org/~hooo/Math-0.541/
constants and functions
----
Module-ExtractUse-0.19
http://search.cpan.org/~domm/Module-ExtractUse-0.19/
Find out what modules are used
----
Net-SFTP-Foreign-0.90_20
http://search.cpan.org/~salva/Net-SFTP-Foreign-0.90_20/
Secure File Transfer Protocol client
----
Perl6-Caller-0.01
http://search.cpan.org/~ovid/Perl6-Caller-0.01/
OO caller() interface
----
Perl6-Caller-0.02
http://search.cpan.org/~ovid/Perl6-Caller-0.02/
OO caller() interface
----
Perl6-Caller-0.03
http://search.cpan.org/~ovid/Perl6-Caller-0.03/
OO caller() interface
----
Perl6-Caller-0.04
http://search.cpan.org/~ovid/Perl6-Caller-0.04/
OO caller() interface
----
Sys-Statistics-Linux-0.09_16
http://search.cpan.org/~bloonix/Sys-Statistics-Linux-0.09_16/
Front-end module to collect system statistics
----
Template-Provider-Markdown-0.03
http://search.cpan.org/~gugod/Template-Provider-Markdown-0.03/
Markdown as template body, no HTML.
----
Text-Microformat-0.02
http://search.cpan.org/~kgrennan/Text-Microformat-0.02/
A Microformat parser
----
WWW-Bleep-0.9
http://search.cpan.org/~snevine/WWW-Bleep-0.9/
Perl interface to Bleep.com
----
WWW-Dict-OKDaily-0.01
http://search.cpan.org/~gugod/WWW-Dict-OKDaily-0.01/
OKDaily Web Dictionary Interface
----
WWW-Search-Ask-1.003
http://search.cpan.org/~mthurn/WWW-Search-Ask-1.003/
class for searching www.search.com
----
WWW-Search-Yahoo-2.409
http://search.cpan.org/~mthurn/WWW-Search-Yahoo-2.409/
backend for searching www.yahoo.com
----
XML-Comma-1.97
http://search.cpan.org/~brianski/XML-Comma-1.97/
A framework for structured document manipulation
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: Sun, 22 Apr 2007 09:20:53 +0200
From: Martin =?iso-8859-1?Q?Ki=DFner?= <news@chaos-net.de>
Subject: Re: perldoc perllocal
Message-Id: <slrnf2m36l.9q5.news@maki.homeunix.net>
John W. Krahn wrote :
> Martin Kißner wrote:
>>
>> My question:
>> Where is this information usually stored (which file or so)?
>
> perldoc -l perllocal
>
Thank you very much.
Best regards
Martin
--
perl -e '$S=[[73,116,114,115,31,96],[108,109,114,102,99,112],
[29,77,98,111,105,29],[100,93,95,103,97,110]];
for(0..3){for$s(0..5){print(chr($S->[$_]->[$s]+$_+1))}}'
------------------------------
Date: Sun, 22 Apr 2007 09:31:06 +0200
From: Martin =?iso-8859-1?Q?Ki=DFner?= <news@chaos-net.de>
Subject: Re: perldoc perllocal
Message-Id: <slrnf2m3pq.9q5.news@maki.homeunix.net>
Sherm Pendley wrote :
> Martin Kißner <news@chaos-net.de> writes:
>
>> with "perldoc perllocal" I can get some Information about modules I
>> installed myself.
>>
>> My question:
>> Where is this information usually stored (which file or so)?
>
> Why do you need to know? Seriously - I suspect an A/B problem, where your
> actual task A is getting information about currently-installed modules,
> and you've decided that parsing perllocal.pod is how to do that, so you're
> asking question B - where is that file.
No, not really. I have cloned my internal drive did a clean install of
my Mac OS X.
Now I have copyed everything from /Volumes/extern/Library/Perl/5.8.6 to
/Library/Perl/5.8.6 to not have to install the modules again. This
worked but I lost the information of "perldoc perllocal"
Waht I wanted is to get this information back which also worked by
copying perllocal.pod to the right place.
Thank you for your help and your information about the perllocal.pod
file.
Best regards
Martin
--
perl -e '$S=[[73,116,114,115,31,96],[108,109,114,102,99,112],
[29,77,98,111,105,29],[100,93,95,103,97,110]];
for(0..3){for$s(0..5){print(chr($S->[$_]->[$s]+$_+1))}}'
------------------------------
Date: Sun, 22 Apr 2007 03:47:36 -0400
From: Sherm Pendley <spamtrap@dot-app.org>
Subject: Re: perldoc perllocal
Message-Id: <m2zm50lujr.fsf@local.wv-www.com>
Martin Kißner <news@chaos-net.de> writes:
> Sherm Pendley wrote :
>>
>> Why do you need to know? Seriously - I suspect an A/B problem, where your
>> actual task A is getting information about currently-installed modules,
>> and you've decided that parsing perllocal.pod is how to do that, so you're
>> asking question B - where is that file.
>
> No, not really. I have cloned my internal drive did a clean install of
> my Mac OS X.
> Now I have copyed everything from /Volumes/extern/Library/Perl/5.8.6 to
> /Library/Perl/5.8.6 to not have to install the modules again. This
> worked but I lost the information of "perldoc perllocal"
> Waht I wanted is to get this information back which also worked by
> copying perllocal.pod to the right place.
Ah, but knowing that "why" is helpful too! :-)
If you've installed newer versions of core modules like CPAN or Storable,
the install process (assuming you used "make install UNINST=1") would have
deleted the older versions from under /System/Library/Perl. Otherwise, the
newer versions installed in /Library/Perl would be hidden, since that
appears later in @INC.
The CPAN::Config.pm file is also stored under /System/Library/Perl, after
it's created the first time you run the CPAN shell. Same thing with the
Net::Config.pm file.
All told, you're probably better off restoring /System/Library/Perl/5.8.6
from your backup too, if you want Perl to be in *exactly* the same state
that it was in before.
> Thank you for your help and your information about the perllocal.pod
> file.
You might want to have a look at ShuX, too - see my sig. It's a nice way
to browse around to see what's installed.
sherm--
--
Web Hosting by West Virginians, for West Virginians: http://wv-www.net
Cocoa programming in Perl: http://camelbones.sourceforge.net
------------------------------
Date: Sat, 21 Apr 2007 21:16:33 -0700
From: Joe Smith <joe@inwap.com>
Subject: Re: Pseiudo Terminals
Message-Id: <AZednTFsm_j4TrfbnZ2dnUVZ_r6vnZ2d@comcast.com>
garycubitt@gmail.com wrote:
> the terminal configuration does not seem to follow through to the
> pseudo terminal. For example if a sql query is entered that is
> longer the 25 chars and then the backspace key is used or the
> left arrow to go back the line will start to move up the screen
> and will not flow as expected.
I had a problem like that. Turns out the system thought my terminal
was 80 lines tall and 25 columns wide, instead of the actual 25 x 80.
To check what your program sees:
print 'ENV vars for controlling process:',
' LINES=',($ENV{LINES}||'undef'),
' COLUMNS=',($ENV{COLUMNS}||'undef'),"\n";
Then send these commands to the PTY:
echo On the PTY, LINES=$LINES COLUMNS=$COLUMNS
stty size ; stty -a'
If %ENV is correct, you could send this command to the PTY:
stty rows $ENV{LINES} cols $ENV{COLUMNS}
This very problem is why I have
set noglob; eval `resize -c`; unset noglob
in the keyboard-interactive section of my .login file.
-Joe
------------------------------
Date: Sun, 22 Apr 2007 11:28:38 +0200
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: Server For Rent? Where?
Message-Id: <nkam23h3ml81pbt07ekk4e9ngj01fl309e@4ax.com>
On Sat, 21 Apr 2007 15:51:39 -0500, Tad McClellan
<tadmc@augustmail.com> wrote:
>> Although i said i would no longer continue discussing this thread i
>> will break the vow
>
>We were expecting nothing less from you.
Well, I wrote I plonked him. But I didn't. So I'm a liar too. No
reason why. No reason why we lie to ourselves and anyone else.
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: 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 V11 Issue 371
**************************************
