[28213] in Perl-Users-Digest
Perl-Users Digest, Issue: 9577 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Aug 8 14:05:35 2006
Date: Tue, 8 Aug 2006 11: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 Tue, 8 Aug 2006 Volume: 10 Number: 9577
Today's topics:
Re: Control characters - regex to match/lose these? <tzz@lifelogs.com>
Re: Control characters - regex to match/lose these? <rvtol+news@isolution.nl>
Re: Control characters - regex to match/lose these? <justin.0511@purestblue.com>
Re: Control characters - regex to match/lose these? <justin.0511@purestblue.com>
Re: Control characters - regex to match/lose these? <rvtol+news@isolution.nl>
Re: counting number of uniques in a multidimensional ar <tzz@lifelogs.com>
Re: FAQ 5.21 I still don't get locking. I just want to <benmorrow@tiscali.co.uk>
Re: geometry problem <syscjm@gwu.edu>
Re: geometry problem <jgibson@mail.arc.nasa.gov>
Re: How probably not to hand over a variable from one p <tzz@lifelogs.com>
how to match or detect alphanumeric including - or spac <jack_posemsky@yahoo.com>
Re: how to match or detect alphanumeric including - or <mritty@gmail.com>
Re: how to match or detect alphanumeric including - or <xicheng@gmail.com>
Re: Net FTP -- Size showing different results on AIX sy <veatchla@yahoo.com>
Re: Perl eats alot of memory <jimi@webu.co.uk>
Re: Perl eats alot of memory <glex_no-spam@qwest-spam-no.invalid>
Re: Perl question <syscjm@gwu.edu>
Re: Segmentation fault (core dumped) xhoster@gmail.com
Re: skip path prune <jgibson@mail.arc.nasa.gov>
Re: which file, regestry, environment variables do perl <benmorrow@tiscali.co.uk>
Re: which file, regestry, environment variables do perl <yan.vulich@gmail.com>
Re: which file, regestry, environment variables do perl <yan.vulich@gmail.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Tue, 08 Aug 2006 11:30:02 -0400
From: Ted Zlatanov <tzz@lifelogs.com>
Subject: Re: Control characters - regex to match/lose these?
Message-Id: <g69mzafw8hx.fsf@CN1374059D0130.kendall.corp.akamai.com>
On 8 Aug 2006, justin.0511@purestblue.com wrote:
> Some of the text files I have to parse with perl have control characters
> within them. They are controls to turn on and off things when printing
> (stuff like "make this bold", "make this bigger", "draw a box around
> this", that kind of thing). If I view the text file with /usr/bin/less I
> see them as: ESC(s12H ESC&16D ESC(s16H ESC&18D
>
> Viewed in vim they look like: ^[(s12H ^[&16D ^[(16H ^[&18D
>
> Those are the four that jump out at me while scrolling this document,
> there are probably more.
>
> I've tried perldoc -q control and perldoc -q escape but neither of those
> mentions control characters or escape sequences. Can someone point me at
> the documentation I need to help me catch these and strip them out? Will
> a regex work? What does perl see these as?
If these are ANSI or similar escape codes, they may consist of more
than one character.
You can write a Perl program or use "od -a -h FILENAME" to look at the
contents of the file (assuming a Unix environment with the GNU
coreutils installed).
In Perl it's pretty easy:
perl -p -e '@a = split //; foreach my $k (@a) { print "$k = ", ord($k), "\n"}' FILENAME
The above, given a file, will print each character, followed by the
decimal numeric code for that character, per line. Then it will print
the line itself. It's primitive but it will show you the exact
characters that are in your input. Then look at the Perl regular
expression syntax (especially the POSIX extension) and an ASCII
character reference table to see what characters exactly you want to
filter out.
Ted
------------------------------
Date: Tue, 8 Aug 2006 17:22:30 +0200
From: "Dr.Ruud" <rvtol+news@isolution.nl>
Subject: Re: Control characters - regex to match/lose these?
Message-Id: <ebah9k.13c.1@news.isolution.nl>
Justin C schreef:
> Viewed in vim they look like: ^[(s12H ^[&16D ^[(16H ^[&18D
s/\e(?:[^@A-Z]*[@A-Z])|[=9]//g
(no, [@-Z] isn't allways the same as [@A-Z])
(no, [@[:upper:]] isn't a proper alternative either, in this context)
You can be more specific: \e(?:[&#*()](?:[a-z](?:-?\d+)?)?[@A-Z])|[=9]
--
Affijn, Ruud
"Gewoon is een tijger."
------------------------------
Date: Tue, 08 Aug 2006 16:28:34 -0000
From: Justin C <justin.0511@purestblue.com>
Subject: Re: Control characters - regex to match/lose these?
Message-Id: <slrnedheti.8fg.justin.0511@stigmata.purestblue.com>
On 2006-08-08, Dr.Ruud <rvtol+news@isolution.nl> wrote:
> Justin C schreef:
>
>> Viewed in vim they look like: ^[(s12H ^[&16D ^[(16H ^[&18D
>
> s/\e(?:[^@A-Z]*[@A-Z])|[=9]//g
Gonna have to learn more about REs to understand this one!
I'm reading through perlre, the ?: is doing my head in a bit, may be
it's been a long day: ``it groups subexpressions like "()" but doesn't
make backreferences'' ... ``This is for clustering, not capturing''
Justin.
--
Justin C by the sea.
------------------------------
Date: Tue, 08 Aug 2006 16:14:27 -0000
From: Justin C <justin.0511@purestblue.com>
Subject: Re: Control characters - regex to match/lose these?
Message-Id: <slrnedhe33.8fg.justin.0511@stigmata.purestblue.com>
On 2006-08-08, Paul Lalli <mritty@gmail.com> wrote:
> Justin C wrote:
>> Some of the text files I have to parse with perl have control characters
>> within them. They are controls to turn on and off things when printing
>> (stuff like "make this bold", "make this bigger", "draw a box around
>> this", that kind of thing). If I view the text file with /usr/bin/less I
>> see them as: ESC(s12H ESC&16D ESC(s16H ESC&18D
>>
>> Viewed in vim they look like: ^[(s12H ^[&16D ^[(16H ^[&18D
>>
>> Those are the four that jump out at me while scrolling this document,
>> there are probably more.
>>
> Just a guess, but I'd try to use the [:cntrl:] character class. See
> perldoc perlre
>
> s/[[:cntrl:]]//g;
Thanks Paul,
Quick reply and I've been able to move along. This does leave me with
the bits after the ESC, I'm going to look further into what Dr Ruud has
suggested further down the thread and try to catch whatever may come
along in future rather than just these specifics now.
Thanks for your help - I really should have looked at perlre to start
with, it's obvious (with hindsight at least) that I was going to need an
RE to deal with this.
Justin.
--
Justin C by the sea.
------------------------------
Date: Tue, 8 Aug 2006 19:34:35 +0200
From: "Dr.Ruud" <rvtol+news@isolution.nl>
Subject: Re: Control characters - regex to match/lose these?
Message-Id: <ebapg5.d0.1@news.isolution.nl>
Justin C schreef:
> Dr.Ruud:
>> Justin C:
>>> Viewed in vim they look like: ^[(s12H ^[&16D ^[(16H ^[&18D
>>
>> s/\e(?:[^@A-Z]*[@A-Z])|[=9]//g
>
> Gonna have to learn more about REs to understand this one!
>
> I'm reading through perlre, the ?: is doing my head in a bit, may be
> it's been a long day: ``it groups subexpressions like "()" but doesn't
> make backreferences'' ... ``This is for clustering, not capturing''
Concentrate on the "clustering, not capturing".
You can just as well do it step by step:
s/\e[=9]//g ;
s/\e[^@A-Z]*[@A-Z]//g ;
google: HP escape
An extensive list:
http://printers.necsam.com/public/printers/pclcodes/pcl5hp.htm
That also mentions some "@PJL.*\n" sequences you might encounter.
Look for "(Data)" on that page for some other special sequences.
--
Affijn, Ruud
"Gewoon is een tijger."
------------------------------
Date: Tue, 08 Aug 2006 11:48:36 -0400
From: Ted Zlatanov <tzz@lifelogs.com>
Subject: Re: counting number of uniques in a multidimensional array column
Message-Id: <g69fyg7w7mz.fsf@CN1374059D0130.kendall.corp.akamai.com>
On 7 Aug 2006, jack_posemsky@yahoo.com wrote:
Ted Zlatanov wrote:
>> Here's a (very simple) function to give you the unique items from a
>> list you pass:
>>
>> sub uniques
>> {
>> my %unique = ();
>> $unique{$_}++ foreach @_;
>> return keys %unique;
>> }
>>
>> Now use it like this:
>>
>> my @columnarray = ( [1,2,3], [1,2,3], [4,5,6], [7,8,9], );
>>
>> foreach my $column (1 .. scalar @{$columnarray[0]})
>> {
>> print "Unique elements in column $column: ";
>> print join ', ',
>> uniques(map { $_->[$column-1] }
>> @columnarray
>> );
>> print "\n";
>> }
>>
>> I formatted this to be easy to understand, and I tested it with the
>> data above under
>>
>> use warnings;
>> use strict;
>>
>> and it worked correctly. Please learn from the code posted above - it
>> shows many useful techniques.
> Ted - this is excellent stuff - how exactly can I capture an example of
> 2 elements representing a duplicate in a variable from this code ???
If you want to remember duplicates (untested):
sub uniques
{
my %unique = ();
$unique{$_}++ foreach @_;
my @ukeys = keys %unique;
my @dkeys = grep { $unique{$_} > 1 } @ukeys;
return [\@ukeys, \@dkeys];
}
then later use it like this in the loop over @columnarray:
my $keys = uniques(map { $_->[$column-1] } @columnarray;
print "Unique elements in column $column: ";
print join ', ', @{$keys->[0]};
print "Duplicate elements in column $column: ";
print join ', ', @{$keys->[1]};
So this modifies uniques() to return two arrays, the list of unique
values and the list of unique values that appeared more than once,
inside a two-element array. The result is stored in $keys. The
original version just returned a list of unique values.
@{$keys->[0]} means "get the first element of the $keys array
reference, and since it's an array itself, convert it to a list
(dereference it)."
Note this is untested :)
Ted
------------------------------
Date: Tue, 8 Aug 2006 17:02:22 +0100
From: Ben Morrow <benmorrow@tiscali.co.uk>
Subject: Re: FAQ 5.21 I still don't get locking. I just want to increment the number in the file. How can I do this?
Message-Id: <e5pmq3-ktg.ln1@osiris.mauzo.dyndns.org>
Quoth "it_says_BALLS_on_your forehead" <simon.chao@fmr.com>:
>
> PerlFAQ Server wrote:
> >
> > Didn't anyone ever tell you web-page hit counters were useless? They
> > don't count number of hits, they're a waste of time, and they serve only
> > to stroke the writer's vanity. It's better to pick a random number;
> > they're more realistic.
>
> What do web-page hit counters count then?
They count requests that reach the origin server. This is not the same
because of caching.
Ben
--
All persons, living or dead, are entirely coincidental.
benmorrow@tiscali.co.uk Kurt Vonnegut
------------------------------
Date: Tue, 08 Aug 2006 11:22:09 -0400
From: Chris Mattern <syscjm@gwu.edu>
Subject: Re: geometry problem
Message-Id: <12dhb12j9pitd64@corp.supernews.com>
Ben Morrow wrote:
> Quoth John Bokma <john@castleamber.com>:
>
>>
>>So you want to test if one rectangle overlaps another..
>>
>>Google will give you plenty of solutions to that geometric problem.
>
>
> s/Google/Common sense/, surely?
>
> Ben
>
Google is available to anybody with a net connection.
Chris Mattern
------------------------------
Date: Tue, 08 Aug 2006 10:39:59 -0700
From: Jim Gibson <jgibson@mail.arc.nasa.gov>
Subject: Re: geometry problem
Message-Id: <080820061039594270%jgibson@mail.arc.nasa.gov>
In article <1154996535.080057.73700@b28g2000cwb.googlegroups.com>,
IcyMint <carlston88@gmail.com> wrote:
> Hi, I'm trying to write a program that's able to place boxes into a
> room. Basically it's an empty rectangular room with different sizes of
> boxes in it. The program will need to figure out where to place the new
> boxes. I'm thinking of marking out the place taken by the boxes in the
> room then compare if the coordinate of the new box overlaps with them.
> But now, the problem is, I don't know how to start. Can you please help
> me? Thanks a lot!
>
Are all the boxes going to be placed on the floor, i.e. no box will be
placed on top of another box? Do you want an optimized arrangement?
If your answers are "yes" and "no", then permit me modestly to
recommend my own module Geo::SpaceManager, available at CPAN. This
module takes a rectangular space and a sequence of smaller rectangles
to be placed within that space. For each rectangle in the sequence,
defined by its location within the larger space, the module will tell
you the closest position to the specified location where the new
rectangle may be placed without overlapping any of the
previously-placed rectangles, or undef if there isn't room.
The module does no optimization. It is strictly first-come-first-serve,
and all the module does is bookkeeping.
Disclaimer: I did not invent the algorithm, just implemented it in
Perl. There are references in the module documentation for the original
research.
For more information, google for "placing rectangles without overlap".
This is a common problem in map-labeling, for example.
--
Jim Gibson
------------------------------
Date: Tue, 08 Aug 2006 11:18:33 -0400
From: Ted Zlatanov <tzz@lifelogs.com>
Subject: Re: How probably not to hand over a variable from one perl script to another
Message-Id: <g69r6zrw912.fsf@CN1374059D0130.kendall.corp.akamai.com>
On 4 Aug 2006, glennj@ncf.ca wrote:
At 2006-08-04 03:57PM, Ted Zlatanov <tzz@lifelogs.com> wrote:
>> Anyhow, definitely for speed I would go with Storable, but a neutral
>> data language is generally better otherwise.
>
> http://www.json.org/
> http://search.cpan.org/~makamaka/JSON-1.07/lib/JSON.pm
I wish people realized that posting URLs is not a useful way to say
something.
I find JSON less readable than YAML and far less universal than XML.
It's terrific if you need to interact with JavaScript, of course.
Anyhow, the particular data language is not as important as the
thought process that goes into selecting and utilizing it.
Ted
------------------------------
Date: 8 Aug 2006 09:51:15 -0700
From: "Jack" <jack_posemsky@yahoo.com>
Subject: how to match or detect alphanumeric including - or spaces through out
Message-Id: <1155055875.678444.214410@m73g2000cwd.googlegroups.com>
Hi
I have strings : 'SA-QA TAR TEL-LL' and 'SA QA-TA REG TEL-LL'
and I want to test that this is a valid alphanumeric ; I will have
strings which vary the space and - position. Looking to find a matcher
that allows for a 0 or 1 spaces and 0 or more dashes throughout without
overly complicating the regex.. I tried this but it started getting too
case specific and complex:
$temp = 'SAQA TAR sd-f44TELLL';
if ($temp =~ m/^\w+\s?\w*\-*\w*\s?\w*\-*\w+\s?\w+$/) { print "
alphanum "; } #
# can try this also ! m/^\w+\s*w+$/
Does anyone have a solution that could handle all combinations of
alphanumeric and -, space
thank you
Jack
------------------------------
Date: 8 Aug 2006 10:00:07 -0700
From: "Paul Lalli" <mritty@gmail.com>
Subject: Re: how to match or detect alphanumeric including - or spaces through out
Message-Id: <1155056407.362022.271730@m73g2000cwd.googlegroups.com>
Jack wrote:
> I have strings : 'SA-QA TAR TEL-LL' and 'SA QA-TA REG TEL-LL'
> and I want to test that this is a valid alphanumeric ;
You need to better define what you mean. An "alphanumeric" is either
an alphabetic or numeric character. Dashes and spaces are not
alphanumerics. Therefore, your strings are not "valid alphanumeircs".
So what do you actually mean?
> I will have
> strings which vary the space and - position. Looking to find a matcher
> that allows for a 0 or 1 spaces and 0 or more dashes throughout without
> overly complicating the regex.. I tried this but it started getting too
> case specific and complex:
>
> $temp = 'SAQA TAR sd-f44TELLL';
> if ($temp =~ m/^\w+\s?\w*\-*\w*\s?\w*\-*\w+\s?\w+$/) { print "
> alphanum "; } #
> # can try this also ! m/^\w+\s*w+$/
>
> Does anyone have a solution that could handle all combinations of
> alphanumeric and -, space
I don't at all understand what you're *trying* to do, but the answer to
this question is:
m/^[\w\s-]+$/
If that doesn't apply to your situation, you need to post a
short-but-complete script, along with sample input, desired output, and
actual output, that demonstrates the problems you're having. Be sure
to include at least a couple strings that should match and a couple
that should not.
Paul Lalli
------------------------------
Date: 8 Aug 2006 10:41:34 -0700
From: "Xicheng Jia" <xicheng@gmail.com>
Subject: Re: how to match or detect alphanumeric including - or spaces through out
Message-Id: <1155058894.815201.27730@m79g2000cwm.googlegroups.com>
Jack wrote:
> Hi
>
> I have strings : 'SA-QA TAR TEL-LL' and 'SA QA-TA REG TEL-LL'
> and I want to test that this is a valid alphanumeric ; I will have
> strings which vary the space and - position. Looking to find a matcher
> that allows for a 0 or 1 spaces and 0 or more dashes throughout without
> overly complicating the regex.. I tried this but it started getting too
> case specific and complex:
>
> $temp = 'SAQA TAR sd-f44TELLL';
> if ($temp =~ m/^\w+\s?\w*\-*\w*\s?\w*\-*\w+\s?\w+$/) { print "
> alphanum "; } #
> # can try this also ! m/^\w+\s*w+$/
>
> Does anyone have a solution that could handle all combinations of
> alphanumeric and -, space
I supposed you want to find strings which are concatenation of words by
non-repeating whitespace or hyphen, and meanwhile the string can not
contain leading/trailing whitespaces or hyphenes. So:
"This is-a valid-string"
"This is- not a valid string" # space and hyphen connected
"not--valid" # repeating of hyphenes
"not valid" # repeating of spaces
"-not valid" # leading hyphen
"not valid " # trailing space
If the above is what you wanted, then you are asking a FAQ regex
question, and your pattern can be as following:
^\w+(?:[\s-]\w+)*$
If you allow repeating hyphenes. but no connection between any hyphen
and space, then change [\s-] to (?:\s|-+).........
If still not, please make your question clearer, and provide us with
valid/invalid sample data.
Xicheng
------------------------------
Date: Tue, 08 Aug 2006 12:56:08 -0500
From: l v <veatchla@yahoo.com>
Subject: Re: Net FTP -- Size showing different results on AIX system and Linux system
Message-Id: <1155059152_1067@sp6iad.superfeed.net>
fmbright wrote:
> Len,
>
> I installed the latest copies from CPAN and installed the lastest
> version of Perl on both boxes. Could the different unixes make
> different results??
>
> Thanks!
>
> Frank
>
> l v wrote:
>
>>fmbright wrote:
>>
>>>To All:
>>>
>>>This is my first post. My name is Frank. I have been using Net FTP
>>>to create an automated FTP process. I developed it on an AIX box (AIX
>>>5.2.0.7) and now want to move it to our Linux box (Redhat). The size
>>>subroutine gives different results when running on the AIX version
>>>Linux box. On the AIX the size functions returns the size of the file
>>>on the FTP while the call on the Linux box returns undefined.
>>>
>>>I am calling the same FTP site each time and using the same version of
>>>the script. What else would need to be done to get these version in
>>>sync??
>>>
>>>Thanks!
>>>
I don't know. What file sizes do you get when you use native ftp
clients on each box?
--
Len
------------------------------
Date: Tue, 08 Aug 2006 15:09:14 GMT
From: Jimi-Carlo Bukowski-Wills <jimi@webu.co.uk>
Subject: Re: Perl eats alot of memory
Message-Id: <pan.2006.08.08.15.09.21.741011@webu.co.uk>
On Tue, 08 Aug 2006 16:30:26 +0200, Michele Dondi wrote:
> On 8 Aug 2006 07:00:31 -0700, "melco" <melco@yandex.ru> wrote:
>
>>Hi to all.
>>I worote a program which uses LWP::Simple and fork to grab links from
>>site.
>>For each found link I start fork() and again LWP content.
>>At some point it uses too much system memory and my Linux box
>>freezes...
>>How can i limit maximum amount of RAM which main perl process can use?
>
> Huh?!? If this is recursive chances are that you hit ulimit (or
> completely fill up the process table, depending on your setup) rather
> than have a memory problem. Hence I suggest you keep a mechanism to
> limit the number of fork()ed copies.
>
>
> Michele
I second that... are you wait()ing for your kids?
------------------------------
Date: Tue, 08 Aug 2006 10:20:17 -0500
From: "J. Gleixner" <glex_no-spam@qwest-spam-no.invalid>
Subject: Re: Perl eats alot of memory
Message-Id: <44d8abc9$0$32931$815e3792@news.qwest.net>
Michele Dondi wrote:
> On 8 Aug 2006 07:00:31 -0700, "melco" <melco@yandex.ru> wrote:
>
>> Hi to all.
>> I worote a program which uses LWP::Simple and fork to grab links from
>> site.
>> For each found link I start fork() and again LWP content.
>> At some point it uses too much system memory and my Linux box
>> freezes...
>> How can i limit maximum amount of RAM which main perl process can use?
>
> Huh?!? If this is recursive chances are that you hit ulimit (or
> completely fill up the process table, depending on your setup) rather
> than have a memory problem. Hence I suggest you keep a mechanism to
> limit the number of fork()ed copies.
>
>
> Michele\
Even if it isn't recursive it could fork off a lot of processes.
Take a look at LWP::Parallel::UserAgent
And one of Randal's columns "Checking your bookmarks"
http://www.stonehenge.com/merlyn/UnixReview/col56.html
------------------------------
Date: Tue, 08 Aug 2006 11:20:27 -0400
From: Chris Mattern <syscjm@gwu.edu>
Subject: Re: Perl question
Message-Id: <12dhats3cutq326@corp.supernews.com>
John Bokma wrote:
> sibijohn@gmail.com wrote:
>
>
>>I have a file name result01182006.xml which is named according to the
>>date. I know how to split it to get the values
>>
>>$a = "result01182006.xml";
>
>
> don't use $a, use a meaningfull name (e.g. $filename)
Also $a and $b are used by sort, so you shouldn't be using them
anyways.
> Also make sure you have:
>
> use strict;
> use warnings;
>
> near the top of your script-
>
Always good advice.
Chris Mattern
------------------------------
Date: 08 Aug 2006 15:24:34 GMT
From: xhoster@gmail.com
Subject: Re: Segmentation fault (core dumped)
Message-Id: <20060808113344.588$9h@newsreader.com>
"ekilada" <eliyah_kilada@yahoo.co.uk> wrote:
Please don't top post! Re-arranged.
> Brian Wakem wrote:
> > ekilada wrote:
> >
> > > Hi,
> > > Using Perl, when I try to open a 1.8G file for reading, I get a
> > > 'Segmentation fault (core dumped)' error.
> > > Please, is there any way to segment huge files for reading ?
> >
> >
> > If the error occurs when *opening* the file then the filesize is
> > irrelevant.
> >
> Hi Brian,
> No, it occurs while reading line number 13457941
> FYI: I use while (<>) to read line by line.
Well, in that case the problem is clearly on line 23, not 42.
Xho
--
-------------------- http://NewsReader.Com/ --------------------
Usenet Newsgroup Service $9.95/Month 30GB
------------------------------
Date: Tue, 08 Aug 2006 10:20:59 -0700
From: Jim Gibson <jgibson@mail.arc.nasa.gov>
Subject: Re: skip path prune
Message-Id: <080820061020595881%jgibson@mail.arc.nasa.gov>
In article <Xns9818A6172F2ABasu1cornelledu@127.0.0.1>, A. Sinan Unur
<1usa@llenroc.ude.invalid> wrote:
> Jim Gibson <jgibson@mail.arc.nasa.gov> wrote in
> news:070820061234093867%jgibson@mail.arc.nasa.gov:
>
> > In article <eb3o0c$8hv$1@reader2.panix.com>, David Combs
> > <dkcombs@panix.com> wrote:
> >
> > [advice against multi-posting snipped]
> >
> >> Man, whenever *I* try that (crossposting), do I get flamed!
>
> ...
>
> > Please make sure you know the difference between multi-posting and
> > cross-posting, and why one is bad and the other is OK. OK?
>
> FYI, I am pretty sure David's post a humor piece.
Apologies to David from the humor-impaired.
------------------------------
Date: Tue, 8 Aug 2006 17:19:45 +0100
From: Ben Morrow <benmorrow@tiscali.co.uk>
Subject: Re: which file, regestry, environment variables do perl install
Message-Id: <16qmq3-ktg.ln1@osiris.mauzo.dyndns.org>
Quoth yan.vulich@gmail.com:
> Hi, all!
> Please help me to find out what perl installation do on my computer:
> Which files does perl installation extract and where?
> Is perl installation write something to regestry?
> And if perl installation sets some environment variable?
Since you mention 'registry' I assume you're on Win32. If you're using
ActivePerl, the the installer creates the following:
1. The entire directory tree you installed it into, usually C:/Perl.
2. An association for .pl in the registry.
3. An entry 'C:\Perl\bin' in %PATH%.
AFAICR, that is all.
Why do you need to know? Surely the uninstaller would back it all out?
Or are you using some other Perl/Win32 distro?
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: 8 Aug 2006 09:55:52 -0700
From: "yav" <yan.vulich@gmail.com>
Subject: Re: which file, regestry, environment variables do perl install
Message-Id: <1155056152.324855.59040@p79g2000cwp.googlegroups.com>
It is indeed win32.
Your information was very helpful.
Thank you very much!
------------------------------
Date: 8 Aug 2006 10:01:23 -0700
From: "yav" <yan.vulich@gmail.com>
Subject: Re: which file, regestry, environment variables do perl install
Message-Id: <1155056483.190863.99310@h48g2000cwc.googlegroups.com>
Regarding Ben's question.
I'm want to include perl as part of installation of my company product,
install\uninstall our product should add\remove particular perl version
and shouldn't touch other perl installed on the machine.
Thanks.
------------------------------
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 9577
***************************************
