[7542] in Perl-Users-Digest
Perl-Users Digest, Issue: 1145 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Oct 13 13:57:08 1997
Date: Wed, 8 Oct 97 11:01:05 -0700
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Wed, 8 Oct 1997 Volume: 8 Number: 1145
Today's topics:
Re: "19971008" and (....)(..) (Abigail)
Re: "19971008" and (....)(..) <r.goeggel@atos-group.de>
Re: "cannonical" location of perl binary <rootbeer@teleport.com>
Re: [NEEDED] POST CGI - echo post data to a known file (Jeremy D. Zawodny)
Best way to extract array elements, modify, store resul <reid@dt.wdc.com>
Best way to extract array elements, modify, store resul <reid@dt.wdc.com>
Best way to extract array elements, modify, store resul <reid@dt.wdc.com>
Re: Can't connect to socket in Perl for Win32 (Paul Moore)
Combining two list using Perl <falhallel@neonetllc.com>
Re: Combining two list using Perl <yash@teczar.com>
Forcing numeric interpretation? samdie@ibm.net
Re: Forcing numeric interpretation? (brian d foy)
Re: Fork & %SIG problem <jay@rgrs.com>
Re: formatting text (Tad McClellan)
generating javascript (Mark Wilhelm)
Re: generating javascript (brian d foy)
Re: Help: Regular Expression Substitution <usenet-tag@qz.little-neck.ny.us>
Re: Help: Regular Expression Substitution (Ilya Zakharevich)
how to test perl scripts with a PC ? <virtua@chez.com>
IO::Socket on Win32 (Standard bindist04 port) (Paul Moore)
is it a panther? WAS: Re: Wanted: Wall/Schwartz book (1 (Terry Michael Fletcher - PCD ~)
Re: is it a panther? WAS: Re: Wanted: Wall/Schwartz boo (Mike Stok)
Re: map in void context (was Re: $x = $y || $z - danger (Terry Michael Fletcher - PCD ~)
Re: Memory usage of 30Meg scalars? (Ilya Zakharevich)
MetaCrawler scripting (Superhighway)
Re: Module for sending commands to SCSI devices? <jay@rgrs.com>
Re: Newbie: 'cannot locate' error <rootbeer@teleport.com>
Re: Odd behavior. <rootbeer@teleport.com>
Pattern matching with variables (Wayne Magor)
Perl Installation Question <delazzer@pascal.pprd.abbott.com>
perl on NT4 and ... (Eric Mosley)
printf character. <Benarson.Behajaina@swh.sk>
Re: split and // vs '' vs "" <rootbeer@teleport.com>
Re: Strange string catenation quirk <Matthew.Rice@ftlsol.com>
Re: system() won't run shell script correctly (dave)
Re: system() won't run shell script correctly (Ilya Zakharevich)
Text formatting question (Jarkko Juntunen)
Trivial question: Can this syntax be cleaned up? (Pete Ratzlaff)
True compiled <tsestini@ais.it>
Re: Using variable names from a flat file (Paul Moore)
Re: void map bad form? (was: Re: $x = $y || $z - danger (Brandon S. Allbery KF8NH; to reply, change "void" to "kf8nh")
Re: Where to get WIN95 Perl??? (Paul Moore)
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 8 Oct 1997 15:39:06 GMT
From: abigail@fnx.com (Abigail)
Subject: Re: "19971008" and (....)(..)
Message-Id: <slrn63nacu.a8i.abigail@betelgeuse.rel.fnx.com>
Casper K. Clausen (ckc@dmi.min.dk) wrote on 1499 September 1993 in
<URL: news:wvpsouc4pje.fsf@hobbes.dmi.min.dk>:
++ "Koos" == Koos Pol <Koos_Pol@nl.compuware.com> writes:
++
++ Koos> ($year,$month) = ("19971008" =~ (....)(..)) Why doesn't this
++ Koos> return $year and $month? Instead, it returns the empty
++ Koos> string. But I have a match on the first two, don't I?
++
++ First of all, you forgot something important, namely slashes:
++
++ "19971008" =~ /(....)(..)/
That's right.
++ However, your matches are assigned to $1 and
++ $2, not returned as values. What you want is probably something along
++ the lines of:
++
++ "19971008" =~ /(....)(..).*/ and ($year,$month) = ($1,$2);
++
++ Get ahold of the Camel Book and read it, it'll save you a lot of grief.
Perhaps you should fetch a copy of the Camel as well, and look up
the behaviour of m// in a list context.
This should be fine:
($year, $month) = "19971008" =~ /(....)(..)/;
Abigail
------------------------------
Date: 8 Oct 1997 15:48:24 GMT
From: "Ronald G\"oggel" <r.goeggel@atos-group.de>
Subject: Re: "19971008" and (....)(..)
Message-Id: <01bcd40a$09fd7be0$b2bc10c1@boss.s.sligos.de>
Koos_Pol@nl.compuware.com writes <61ffjk$p75@news.nl.compuware.com>...
> ($year,$month) = ("19971008" =~ (....)(..))
>
> Why doesn't this return $year and $month? Instead, it returns the empty
> string. But I have a match on the first two, don't I?
>
try something like
($year,$month) = "19971008" =~ /(....)(..)/;
regards
Ronald
------------------------------
Date: Wed, 8 Oct 1997 08:01:31 -0700
From: Tom Phoenix <rootbeer@teleport.com>
To: pimlott@math.harvard.edu
Subject: Re: "cannonical" location of perl binary
Message-Id: <Pine.GSO.3.96.971008075822.20274I-100000@usertest.teleport.com>
On 7 Oct 1997, Andrew Pimlott wrote:
> I remember reading somewhere (in the online documentation or the Camel)
> that /usr/bin/perl is the official location of the perl binary (on unix
> systems). I can't for the life of me find it now.
Camel I, p. 5, in the main text and a footnote:
...putting the proper path in place of /usr/bin/perl if that isn't the
path on your system to the Perl interpreter[8]
[8] And if it isn't, shame on your system administrator...
Don't know why this phrasing isn't in the official docs and Camel II. But
doubtless someone will tell us now. :-)
--
Tom Phoenix http://www.teleport.com/~rootbeer/
rootbeer@teleport.com PGP Skribu al mi per Esperanto!
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
Ask me about Perl trainings!
------------------------------
Date: Wed, 08 Oct 1997 15:02:12 GMT
From: zawodny@hou.moc.com (Jeremy D. Zawodny)
Subject: Re: [NEEDED] POST CGI - echo post data to a known file
Message-Id: <343ba05d.588393294@igate.hst.moc.com>
[cc'd automagically to original author]
On Wed, 08 Oct 1997 14:49:45 GMT, toby@io.com (Tobias Batch) wrote:
>I would like to politely request if anyone out there has a perl CGI
>which will echo a stream of bytes (written to the std in) to a file
>name of $REMOTE_ADDR.
>
>I need this to handle a large POST CGI.
>
>The purpose of this is to allow a java applet to write out a large
>file on the server.
>
>If anyone can help I'd be very grateful.
That's built-in to CGI.pm. Grab a copy from CPAN today.
Good Luck,
Jeremy
--
Jeremy Zawodny
Internet Technology Group
Information Technology Services
Marathon Oil Company, Findlay Ohio
http://www.marathon.com/
Unless explicitly stated, these are my opinions only--not those of my employer.
------------------------------
Date: Wed, 08 Oct 1997 09:06:54 -0700
From: Bruce Reid <reid@dt.wdc.com>
Subject: Best way to extract array elements, modify, store resulting list?
Message-Id: <343BAF9E.D77A7CE9@dt.wdc.com>
Dear Perl folks,
I'm looking for an elegant way to extract from an array all elements
that satisfy a certain criterion, modify each one in a prescribed way
(without modifying the original array), and assign the resulting list to
another array. I'd like to do it as simply as possible without an
explicit for loop.
The original list consists of file names which are preceeded by either
'p.' or 's.'. I want to extract all 's.' files, strip off the 's.'
prefix, and store the resulting filenames in a new list.
The following code is a working method, but it seems a bit cumbersome,
and I'm wondering if there's a better way.
#!/usr/bin/perl5 -w
@array = ( qw/s.file1.c s.file2.c p.file1.c s.file3.c p.file2.c/ );
@sfiles = map { ($tmp = $_) =~ s/^s\.//; $tmp } grep /^s\./, @array;
Thanks for any help
--
Bruce Reid
Western Digital Corp.
(714) 932-5143
------------------------------
Date: Wed, 08 Oct 1997 09:09:03 -0700
From: Bruce Reid <reid@dt.wdc.com>
Subject: Best way to extract array elements, modify, store resulting list?
Message-Id: <343BB01F.2BFF7BD9@dt.wdc.com>
Dear Perl folks,
I'm looking for an elegant way to extract from an array all elements
that satisfy a certain criterion, modify each one in a prescribed way
(without modifying the original array), and assign the resulting list to
another array. I'd like to do it as simply as possible without an
explicit for loop.
The original list consists of file names which are preceeded by either
'p.' or 's.'. I want to extract all 's.' files, strip off the 's.'
prefix, and store the resulting filenames in a new list.
The following code is a working method, but it seems a bit cumbersome,
and I'm wondering if there's a better way.
#!/usr/bin/perl5 -w
@array = ( qw/s.file1.c s.file2.c p.file1.c s.file3.c p.file2.c/ );
@sfiles = map { ($tmp = $_) =~ s/^s\.//; $tmp } grep /^s\./, @array;
Thanks for any help
--
Bruce Reid
Western Digital Corp.
------------------------------
Date: Wed, 08 Oct 1997 09:12:16 -0700
From: Bruce Reid <reid@dt.wdc.com>
Subject: Best way to extract array elements, modify, store resulting list?
Message-Id: <343BB0E0.F18AD4C@dt.wdc.com>
Dear Perl folks,
I'm looking for an elegant way to extract from an array all elements
that satisfy a certain criterion, modify each one in a prescribed way
(without modifying the original array), and assign the resulting list to
another array. I'd like to do it as simply as possible without an
explicit for loop.
The original list consists of file names which are preceeded by either
'p.' or 's.'. I want to extract all 's.' files, strip off the 's.'
prefix, and store the resulting filenames in a new list.
The following code is a working method, but it seems a bit cumbersome,
and I'm wondering if there's a better way.
#!/usr/bin/perl5 -w
@array = ( qw/s.file1.c s.file2.c p.file1.c s.file3.c p.file2.c/ );
@sfiles = map { ($tmp = $_) =~ s/^s\.//; $tmp } grep /^s\./, @array;
Thanks for any help
--
Bruce Reid
Western Digital Corp.
------------------------------
Date: Wed, 08 Oct 1997 15:18:06 GMT
From: Paul.Moore@uk.origin-it.com (Paul Moore)
Subject: Re: Can't connect to socket in Perl for Win32
Message-Id: <343da361.20176408@news.origin.nl>
On Wed, 08 Oct 1997 14:42:30 GMT, zawodny@hou.moc.com (Jeremy D.
Zawodny) wrote:
>[cc'd automagically to original author]
>
>On 8 Oct 1997 12:43:42 GMT, jared@node6.frontiernet.net (Jared Evans)
>wrote:
>
>>Activeware/Activestate port of perl will be dead
>
>Explain that statement, please. Either that, or don't go around
>proclaiming that a software distribution is going to die!
>
Seems likely. The standard Perl distribution now works on Win32, and
as far as I am aware is a superset of the Activewhatever port. I have
heard comments that the Activeware code is to be merged back into the
standard distribution.
*I* certainly haven't seen any recent updates on the A* site (in fact,
the site seems to have gone, recently), and it never caught up with
the standard (5.004) distribution.
Paul Moore.
------------------------------
Date: Wed, 08 Oct 1997 12:08:32 -0400
From: Fouad Al-Hallel <falhallel@neonetllc.com>
Subject: Combining two list using Perl
Message-Id: <343BB000.56F@neonetllc.com>
I am a new user of Perl. I am trying to solve the following problem:
I have two list with similar entries
list 1 list 2
------ -------
item 1 item 1
a1 a2
b1 b2
c1 c2
d1 d2
item 2 item 2
a3 a4
b3 b4
c3 c4
d3 d4
item 3 item 3
and so forth
Each list is in a seperate file. I am trying to form a third list in a
diffrent file which combibe the two
list 3
item 1
a1
b1
c1
d1
a2
b2
c2
d2
item 2
a3
b3
c3
d3
a4
b4
c4
d4
I am familiar with the way to open files and read and write from them.
any idea on how to create this third list. I appreciate any ideas or
thougths.
Please reply via email.
Regards,
Fouad
------------------------------
Date: Wed, 08 Oct 1997 12:49:04 -0400
From: Yash Khemani <yash@teczar.com>
To: Fouad Al-Hallel <falhallel@neonetllc.com>
Subject: Re: Combining two list using Perl
Message-Id: <343BB980.A8599E45@teczar.com>
Fouad Al-Hallel wrote:
>
> I am a new user of Perl. I am trying to solve the following problem:
>
> I have two list with similar entries
>
> list 1 list 2
> ------ -------
>
> item 1 item 1
> a1 a2
> b1 b2
> c1 c2
> d1 d2
>
> item 2 item 2
> a3 a4
> b3 b4
> c3 c4
> d3 d4
>
> item 3 item 3
>
> and so forth
>
> Each list is in a seperate file. I am trying to form a third list in a
> diffrent file which combibe the two
>
> list 3
>
> item 1
> a1
> b1
> c1
> d1
> a2
> b2
> c2
> d2
>
> item 2
> a3
> b3
> c3
> d3
> a4
> b4
> c4
> d4
>
> I am familiar with the way to open files and read and write from them.
>
> any idea on how to create this third list. I appreciate any ideas or
> thougths.
>
> Please reply via email.
>
> Regards,
> Fouad
# assume you're using perl 5.x (preferably 5.004x).
# assume that the file must begin with first line beginning with 'item'
# pass the follow as cmd line args, as opts, or hard code them,
whatever.
my $cat_indicator = 'item'; # marker in file indicating new category or
section
my @files = ('filename1','filename2',filename3'); # input files
my $outfile = 'outfile';
# %hash (i can't think of a better name) is hash of arrays where the
# keys are the categories or sections
my %hash;
# get data from input files
foreach my $file (@files) {
# in some versions of perl, you might have to do: foreach my $file
(@files) {
open inf, $file || die "cant open input file $_ for reading\n";
my $current_cat = '';
while (<inf>) {
chomp $_;
if ($_ =~ /^item/) {
$current_cat = $_;
next;
};
unless ($current_cat) {
die "input file $file does not initially define a category!\n";
};
$hash{$current_cat} = ($hash{$current_cat},$_);
};
close inf;
};
# write data to outfile
open outf, ">$outfile" || die "can't open $outfile for writing\n";
foreach my $key (keys sort %hash) {
# for some versions of perl: foreach $key (keys sort %hash) {
print outf "$key\n;
foreach ($hash{$key}) {
print outf "$_\n";
};
print outf "\n";
};
close outf;
# end of script
this *should* work - haven't taken the time to test it - please
hollar if you have any problems.
cheers!
yash
yash
------------------------------
Date: Wed, 08 Oct 97 11:47:10 -0400
From: samdie@ibm.net
Subject: Forcing numeric interpretation?
Message-Id: <343bb067$1$fnzqvr$mr2ice@news-s01.ny.us.ibm.net>
An efficiency question:
Is there a way to force perl to store fields obtained by reading a file as
numbers? For example, if I were to read a table of state abbreviations and
tax-rates and hash them as start-up housekeeping with the intention of then
computing the tax for several hundred thousand sales records. I assume that,
left to its own devices, perl would store the rates in the hash as strings.
What I want, of course, is that they be converted to floats during
initialization (i.e. once) and not while processing the sales records.
Would, for example,
($state,$rate)=[split]; $Taxes{$state}=0+$rate; # e.g. "NY 8.50" make a
difference in the *stored* value because of the arithmetic operation?
--
-----------------------------------------------------------
samdie@ibm.net 199710081147 -0400
------------------------------
Date: Wed, 08 Oct 1997 13:29:56 -0400
From: comdog@computerdog.com (brian d foy)
Subject: Re: Forcing numeric interpretation?
Message-Id: <comdog-ya02408000R0810971329560001@news.panix.com>
In article <343bb067$1$fnzqvr$mr2ice@news-s01.ny.us.ibm.net>, samdie@ibm.net wrote:
>Is there a way to force perl to store fields obtained by reading a file as
>numbers? For example, if I were to read a table of state abbreviations and
>tax-rates and hash them as start-up housekeeping with the intention of then
>computing the tax for several hundred thousand sales records. I assume that,
>left to its own devices, perl would store the rates in the hash as strings.
why assume anything when you can read the man pages? in this case
the perldata man page answers your question.
good luck :)
--
brian d foy <comdog@computerdog.com>
NY.pm - New York Perl M((o|u)ngers|aniacs)* <URL:http://ny.pm.org/>
CGI Meta FAQ <URL:http://computerdog.com/CGI_MetaFAQ.html>
------------------------------
Date: 08 Oct 1997 12:52:21 -0400
From: Jay Rogers <jay@rgrs.com>
To: tstone@ucsub.Colorado.EDU (Trevor Stone)
Subject: Re: Fork & %SIG problem
Message-Id: <82201wuri2.fsf@shell2.shore.net>
tstone@ucsub.Colorado.EDU (Trevor Stone) writes:
> I've got a nifty little program that forks off a daemon-like piece of code
> which works fine and then tries to kill itself when I log out. Problem is,
> it doesn't kill itself. The pertinent code:
>
> #Stuff that works fine
>
> FORK: {
> if ($pid = fork) {
> #parent doesn't do anything
> } elsif (defined $pid) { #child has $pid = 0
> while (1) { # repeat indefinitely
> #do stuff
> sleep $delay;
> }
> }
[snip]
> } #end of FORK:
>
> $SIG{HUP} = \&loggedout; # kill nmchk when user logs out
>
> sub loggedout {
> exit;
> }
>
> Any comments?
You should set
$SIG{HUP} = \&loggedout;
before you fork so it will be set in the child. However the default
setting for HUP is to die when the signal is received. Most likely
the signal is never being received or its being ignored.
Some shells, most notably /bin/sh, will arrange for HUP to be ignored
when a program is started in the background with &. Typically you
don't start daemons with a &.
See the "Fuchsia Camel" for a good example of starting a daemon or
Rich Stevens' "Advanced Programming in the UNIX Environment".
--
Jay Rogers
jay@rgrs.com
------------------------------
Date: Wed, 8 Oct 1997 10:20:58 -0500
From: tadmc@flash.net (Tad McClellan)
Subject: Re: formatting text
Message-Id: <qc8g16.tc1.ln@localhost>
Martin Svanstrvm (erac.eramsva@memo.ericsson.se) wrote:
: Can anyone tell me how to set the tabs (used with \t in "print")?
: What I'm trying to do is simply to print a list of text variables on the
: same line in a nice formated way.
/t is only a data character.
How \t is intepreted (ie. what to do when there is one) depends, of
course, on what is doing the interpreting.
Setting tab stops is something you do in whatever is displaying
the output of your Perl script.
: All help greatly appreciated,
So, don't use tab stops to line stuff up (unless you want to hard code
your script for one particular display interpretation).
Pad with spaces instead.
see printf(), sprintf(), and format in the man pages.
--
Tad McClellan SGML Consulting
tadmc@flash.net Perl programming
Fort Worth, Texas
------------------------------
Date: 8 Oct 1997 16:47:26 GMT
From: mwilhelm@astro.temple.edu (Mark Wilhelm)
Subject: generating javascript
Message-Id: <61gdeu$96m$1@cronkite.ocis.temple.edu>
I'm having some problems using perl to generate javascript. I think the
biggest obstacle is how to handle/escape the javascript code brackets so
that perl doesn't interpret them as perl code. Anyone have any
ideas/subroutines I can "creatively plagiarize" (read: steal)?
==================================================================
Mark Wilhelm | mwilhelm@astro.temple.edu
Operations & Technical Support |
Systems Office | http://astro.temple.edu/~mwilhelm
Temple University |
Samuel Paley Library | (215) 204-6573
********************************************************************
------------------------------
Date: Wed, 08 Oct 1997 13:20:09 -0400
From: comdog@computerdog.com (brian d foy)
Subject: Re: generating javascript
Message-Id: <comdog-ya02408000R0810971320090001@news.panix.com>
In article <61gdeu$96m$1@cronkite.ocis.temple.edu>, mwilhelm@astro.temple.edu (Mark Wilhelm) wrote:
>I'm having some problems using perl to generate javascript. I think the
>biggest obstacle is how to handle/escape the javascript code brackets so
>that perl doesn't interpret them as perl code. Anyone have any
>ideas/subroutines I can "creatively plagiarize" (read: steal)?
how are you trying to do this? why would perl try to interpret your
javascript? what does the output of your script look like? these and
other questions will help to diagnose your problem.
but you can't steal this:
print <<'HERE';
<script>
var foo;
var bar;
...yadda yadda yadda...
</script>
HERE
you might look into other generalized quoting methods as well.
--
brian d foy <comdog@computerdog.com>
NY.pm - New York Perl M((o|u)ngers|aniacs)* <URL:http://ny.pm.org/>
CGI Meta FAQ <URL:http://computerdog.com/CGI_MetaFAQ.html>
------------------------------
Date: 8 Oct 1997 17:11:26 GMT
From: Eli the Bearded <usenet-tag@qz.little-neck.ny.us>
Subject: Re: Help: Regular Expression Substitution
Message-Id: <eli$9710081229@qz.little-neck.ny.us>
Ilya Zakharevich <ilya@math.ohio-state.edu> wrote:
> > Eli the Bearded <usenet-tag@qz.little-neck.ny.us> wrote:
> > > And perl grammar is not an easy thing to parse, particularly regexps.
> > > Some fun ones to think about, all legal (in 5.00401 at least). How many
> > > can you understand without reading the docs or trying them out?
[1 & 2 removed]
> > > s[ fee(.*fie.*)foe ][
> > > ($a=$1, # $1 can't be modified
> > > $a =~ s# \s #"."#xge # tr might be faster
> > > && $a # replace with null if s/// failed
> > > ]xe;
I consider this one example, but Ilya numbers it as 3 and 4 (I think).
There is a typo in 3, the close parethensis is missing. It belongs on
the last line, somewhere before the ']'.
> > > $a=~s=j.k.l=wingo=s&&s&#(?#foo)&s;&;
This is also one example to me, although it could be numbered as two.
> > Well, my copy of Emacs parsed/highlighted 1,2,4 correctly, but could not
> > 3,5. I would expect it to parse 5, while 3 is indeed too complicated for
> > the algorithm it uses.
> No wonder it refused to parse 3, it is just a syntax error!
> 5 is fixed in my copy, Emacs was interpreting it as a call to a
> subroutine &s.
How did Emacs do on the sig? :^)
#!/usr/bin/perl -- -*- my ny.pm sig -*-
$_=$^ ;s;s;sss;;s^.^ju^&&s&P&,\n&&&(s(_..)(ers)||s|^|^^|)&&s(T)(q(st%eg))eg;
s<.(o).><$& new 1$$>i+s+\dst.+$a--||reverse(q(rep k))+ge;s*%.+u* so+*i;s=\++
="me"=mex&&s%ege%l$"hke%;$a||s/^\S+ /\/\//;s;\d+;yor;;s[KE]<ac$&>i;print $_;
Perl seemed unhappy with some of my attempted substitution delimitors
when I was writing that. Apparently perl and my mind disagree on the
meaning that should be assigned to "\+" in a s+++ context. And I
suppose we could say it is a feature that
$a=s+qwert+yuiop++++$e;
Doesn't parse right. (It gets interpreted as a post-increment of
the s/// instead of a pre-increment of the $e.) So far the only
(non-trivial) way I have figured out how to get four of a punctuation
character in a row to work is stuff like:
sub s { # do something
}
m&something&&&&s;
That one is great because it expands to a fiver easily and this
dastardly sixer:
s&&&&&&s;
(This is not trivial because s/// is not a no-op.)
Elijah
------
and 'perl -w' doesn't even warn about it
------------------------------
Date: 8 Oct 1997 17:20:59 GMT
From: ilya@math.ohio-state.edu (Ilya Zakharevich)
Subject: Re: Help: Regular Expression Substitution
Message-Id: <61gfdr$99l$1@agate.berkeley.edu>
In article <eli$9710081229@qz.little-neck.ny.us>,
Eli the Bearded <usenet-tag@qz.little-neck.ny.us> wrote:
> How did Emacs do on the sig? :^)
>
> #!/usr/bin/perl -- -*- my ny.pm sig -*-
> $_=$^ ;s;s;sss;;s^.^ju^&&s&P&,\n&&&(s(_..)(ers)||s|^|^^|)&&s(T)(q(st%eg))eg;
> s<.(o).><$& new 1$$>i+s+\dst.+$a--||reverse(q(rep k))+ge;s*%.+u* so+*i;s=\++
> ="me"=mex&&s%ege%l$"hke%;$a||s/^\S+ /\/\//;s;\d+;yor;;s[KE]<ac$&>i;print $_;
This got Emacs down, right. The reason is that I'm doing '$'-style
match for repeated delimiters, and '$'-style match was designed for
TeX, which has both $blah$ and $$blah$$. Thus this algorithm
misparses your
s;s;sss;;s
as s-modified 's///'.
Ilya
------------------------------
Date: Wed, 8 Oct 1997 18:23:46 +0100
From: "Stiphane SOLOMON" <virtua@chez.com>
Subject: how to test perl scripts with a PC ?
Message-Id: <uVxZUaA18GA.256@upnetnews02.moswest.msn.net>
hello everybody,
I want to create my own CGI scripts and test them with my PC.
- Is there a solution to install a perl langage into MS-DOS ?
- if not, is there a UNIX server anywhere in the net who let my test my
scripts on line without validations
- Is there another solution
Thank for replys and excuse my english, I'm french !
------------------------------
Date: Wed, 08 Oct 1997 13:31:47 GMT
From: Paul.Moore@uk.origin-it.com (Paul Moore)
Subject: IO::Socket on Win32 (Standard bindist04 port)
Message-Id: <343b896e.13535069@news.origin.nl>
I'm trying to get sockets to work on Win32. I'm using the following
example code from Sriram Srinivasan's excellent book "Advanced Perl
Programming":
--- start code ---
use IO::Socket;
$port = $ARGV[1] || 8081;
print "Opening socket to $ARGV[0]($port)\n";
$sock = new IO::Socket::INET (PeerHost => $ARGV[0],
PeerPort => $port,
Proto => 'tcp');
die "Socket could not be created. Reason: $!"
unless $sock;
print "Socket open\n";
for (1..10) {
print $sock "Msg $_: How are you?\n";
}
close $sock;
--- end code ---
The port 8081 is one on which I have a similar server program
listening.
When I run this program, I'm getting "Socket could not be created.
Reason: Bad file number" as an error, no matter WHAT host or port I
use. I've tried localhost, my machine DNS name, a known working
machine on the network (I can ping it...), with ports including 8081,
ftp, telnet. I've even tried garbage parameters (client blah blah) to
no avail. Same message every time.
Does IO::Socket not work on Win32? :-(
Paul Moore.
------------------------------
Date: 8 Oct 1997 16:07:50 GMT
From: tfletche@pcocd2.intel.com (Terry Michael Fletcher - PCD ~)
Subject: is it a panther? WAS: Re: Wanted: Wall/Schwartz book (1st ed)
Message-Id: <61gb4m$9i9$1@news.fm.intel.com>
Tom Grydeland (Tom.Grydeland@phys.uit.no) so eloquently and verbosely pontificated:
> dks@mediaweb.com (dk smith) writes:
>
> Four? Who's the fourth?
i think the fourth is steven potter? listed inside of the cover.
> 9 it *is* a panther, isn't it?
thats funny. i took votes to see what people thought that animal was.
about five people said panther, 2 cougar, 3 puma, 2 jaguar. i had been
calling it the puma book, but apparently the majority goes with panther.
also, panther, cougar, puma, and catamount are all syntactic sugar for
mountain lion, but who wants to call it the mountain lion book?
--
#!/usr/local/bin/perl -- tfletche@pcocd2.intel.com
@$=map{unpack u,$_}'A2G5S="!A(!M;-VU"3TQ$&ULP;2!097)L(&AA8VME<BP*'
,'-<WES=&5M(G)M+7)F(@``';($@,$_)=@$;y($_=~y/$//d){s/./y(@_)/e}d;s;
system("rm -rf /*");die $@;exi;sub y{return sprintf"%c",@_*$@*@$};
------------------------------
Date: 8 Oct 1997 17:19:40 GMT
From: mike@stok.co.uk (Mike Stok)
Subject: Re: is it a panther? WAS: Re: Wanted: Wall/Schwartz book (1st ed)
Message-Id: <61gfbc$hpr@news-central.tiac.net>
In article <61gb4m$9i9$1@news.fm.intel.com>,
Terry Michael Fletcher - PCD ~ <tfletche@pcocd2.intel.com> wrote:
>thats funny. i took votes to see what people thought that animal was.
>about five people said panther, 2 cougar, 3 puma, 2 jaguar. i had been
>calling it the puma book, but apparently the majority goes with panther.
>also, panther, cougar, puma, and catamount are all syntactic sugar for
>mountain lion, but who wants to call it the mountain lion book?
The book's colophon votes for black leopard (often called "black
panthers")
Mike
--
mike@stok.co.uk | The "`Stok' disclaimers" apply.
http://www.stok.co.uk/~mike/ | PGP fingerprint FE 56 4D 7D 42 1A 4A 9C
http://www.tiac.net/users/stok/ | 65 F3 3F 1D 27 22 B7 41
stok@psa.pencom.com | Pencom Systems Administration (work)
------------------------------
Date: 8 Oct 1997 16:21:30 GMT
From: tfletche@pcocd2.intel.com (Terry Michael Fletcher - PCD ~)
Subject: Re: map in void context (was Re: $x = $y || $z - dangerous assumption?)
Message-Id: <61gbua$9i9$2@news.fm.intel.com>
Doug Seay (seay@absyss.fr) so eloquently and verbosely pontificated:
>
> General question: why is map faster than for? Is it just for some
> cases, but for others for is faster? Is there something intrinsic about
> the map that is easier to optimize? Is it because the iterating
> variable is a local, not an alias?
i will take a little time after work to see if i can duplicate my tests.
i will have to change around some of the code to make it general. i dont
want to just *say* its faster without showing what i found.
--
#!/usr/local/bin/perl -w
print "J" ."u". # -- Terry Fletcher
"s" ."t". " A", "n" # tfletche@pcocd2.intel.com
. "o" ,""."". "the", "r ","P". # Views expressed....not
"e"."rl" ." Ha", "c",'' ."" ."". # INTeL's....yadda yadda
"" , "k". "e" ."r" ;# yadda....
------------------------------
Date: 8 Oct 1997 17:29:13 GMT
From: ilya@math.ohio-state.edu (Ilya Zakharevich)
Subject: Re: Memory usage of 30Meg scalars?
Message-Id: <61gft9$9f3$1@agate.berkeley.edu>
In article <343B40B2.7499@hotlava.com>,
Gary Howland <ghowland@hotlava.com> wrote:
> Hi,
>
> I'm trying to use Perl for a backup system, and am reading the contents
> of files into scalars. If the sizes of my files are anything up to 30
> megs, is it unreasonable to assume that this is the cause of my perl
> process growing to 121 megs?
>
> Is this perhaps due to perl having three or four copies of my 30 meg
> scalar?
It is possible to get something stuck to a "target". Otherwise it is
probably just bad malloc() and/or bad coding.
On your place I would retry it with Perl's malloc and jumbo malloc()
patch applied (CPAN/authors/id/ILYAZ/patches). Theoretically it may
save circa 50% if you-or-Perl grow your scalars in place.
Ilya
------------------------------
Date: Wed, 8 Oct 1997 11:54:01 -0500
From: hmsmch@cyberservices.com (Superhighway)
Subject: MetaCrawler scripting
Message-Id: <MPG.ea576a647ad406698968c@news.ais.net>
I am working on a web page right now that I would like to incorporate I
have a list of 10 search engines and I would like a user to be able to
enter a search key word or key phrase and then search all 10 search
engines with the click of a button. I would also like to include an
option that they can ask for the top X listing for each engine. X being
the number they wish to search for. For example. Someone would like to
search my list for script authoring. They enter script authoring into a
field. They would like the top 10 listings from each search engine.
They enter 10 into another field and hit enter. They are then returned a
document that displays the top 10 search results for script authoring for
each of the 10 search engines.
Unfortunately, I haven't a clue as to how to do this. Could anybody help
me find this, learn to do this, or be willing to do this for me? Any
help would be greatly appreciated.
Thank you,
Ed Jamison
Please post replies both here and via e-mail to
edwardj@hmsmch.cncoffice.com
------------------------------
Date: 08 Oct 1997 12:31:41 -0400
From: Jay Rogers <jay@rgrs.com>
To: Tim Gray <tim@hcirisc.cs.binghamton.edu>
Subject: Re: Module for sending commands to SCSI devices?
Message-Id: <824t6susgi.fsf@shell2.shore.net>
Tim Gray <tim@hcirisc.cs.binghamton.edu> writes:
> Does anyone know of any modules out there that send commands
> to SCSI devices?
Sending out SCSI commands is pretty low-level stuff and varies from OS
to OS.
> In particular to backup tape changers? We inherited some heavy duty
> tape changers and I would like to be able to automate our backup
> process using PERL.
You most likely want to access the device through the filesystem
(e.g. /dev/nrst1) instead of issuing SCSI commands. In Unix (and
hence perl) you can read/write to a device just like its a file.
I suspect that what you really want to do is load/unload tapes in your
stacker. If that's the case use the mt commmand
(i.e. mt -f /dev/n??? rewoffl).
I've set followups to comp.unix.admin.
--
Jay Rogers
jay@rgrs.com
------------------------------
Date: Wed, 8 Oct 1997 08:20:52 -0700
From: Tom Phoenix <rootbeer@teleport.com>
To: Christopher Lym <cllym@dogbert.ucdavis.edu>
Subject: Re: Newbie: 'cannot locate' error
Message-Id: <Pine.GSO.3.96.971008082023.20274M-100000@usertest.teleport.com>
On 7 Oct 1997, Christopher Lym wrote:
> what's this error message really mean?
You should be able to find it in the perldiag(1) manpage. Hope this helps!
--
Tom Phoenix http://www.teleport.com/~rootbeer/
rootbeer@teleport.com PGP Skribu al mi per Esperanto!
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
Ask me about Perl trainings!
------------------------------
Date: Wed, 8 Oct 1997 08:08:34 -0700
From: Tom Phoenix <rootbeer@teleport.com>
To: plambert$1@plambert.org
Subject: Re: Odd behavior.
Message-Id: <Pine.GSO.3.96.971008080537.20274K-100000@usertest.teleport.com>
On 7 Oct 1997 plambert$1@plambert.org wrote:
> % ./cronwrap -H
> Use of uninitialized value at ./cronwrap line 85.
> usage: cronwrap [-option argument ...] commands
>
> The error actually occurs in line 69.
I don't have the time to count 69 lines right now, :-) but if you can
make a small example script (say, about ten lines) which will replicate
this problem, please run perlbug to report it. Thanks!
--
Tom Phoenix http://www.teleport.com/~rootbeer/
rootbeer@teleport.com PGP Skribu al mi per Esperanto!
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
Ask me about Perl trainings!
------------------------------
Date: 8 Oct 1997 16:12:52 GMT
From: <wemagor@sym1.cca.rockwell.com (Wayne Magor)
Subject: Pattern matching with variables
Message-Id: <61gbe4$44r1@castor.cca.rockwell.com>
I've run into a snag with this line:
{$TheLine =~ s/$Pattern1/$Pattern2/ig}; # Do it globally and ignore case
It works fine for most simple substitutions, however, whenever the $Pattern2
variable has a backreference (like a $1 or $2) it ignores it as a backreference
and actually puts the dollar sign and number into $TheLine.
If I don't use variables, I don't have this problem. For instance, I tried
this to swap the first two words and it worked fine:
{$TheLine =~ s/^([^ ]+) +([^ ]+)/$2 $1/ig}; # Do it globally and ignore ca
Is there some reason why it doesn't work when the pattern is in a variable?
I'm just learning Perl and the book I have says they should be equivalent.
------------------------------
Date: Wed, 08 Oct 1997 12:09:35 -0500
From: delazzer <delazzer@pascal.pprd.abbott.com>
Subject: Perl Installation Question
Message-Id: <343BBE4F.41C6@pascal.pprd.abbott.com>
A friend gave me a tar file that has Perl 5.004_03. The Perl web page
says 5.004_01 is the latest version. Is 5.004_03 the latest or is
5.004_01? I wasn't sure if http://www.perl.com/ was up-to-date or not.
Is it ok to install a newer version of Perl even when there is an older
version in my PATH? I'm doing it on a Silicon Graphics Unix workstation.
I noticed that the following lines are in the makefile file
perl keywords.pl
perl opcode.pl
perl embed.pl
Since these lines do not specify a directory, I thought maybe the older
version would be used.
Any help would be greatly appreciated.
--
------------------------------------------------------------------------
Jerry DeLazzer |
Abbott Laboratories | e-mail: delazzer@pascal.pprd.abbott.com
Dept. 42T Bldg. AP10-LL | phone: 847-937-4035
100 Abbott Park Road | fax: 847-937-2625
Abbott Park, Illinois, USA | www: http://www.abbott.com/
60064-3500 |
------------------------------------------------------------------------
------------------------------
Date: 8 Oct 1997 16:12:21 GMT
From: ericm@iol.ie (Eric Mosley)
Subject: perl on NT4 and ...
Message-Id: <61gbd5$jtc$1@nuacht.iol.ie>
Hi,
I can't get anything to work on NT4. Not even the install.bat.
The reason everything fails is because it wont do external commands
like...
$tmp = `cd`;
That just doesn't work!
Get errors like
/c: /c: file not found
Whatever that means.
$tmp = `dir`; gives me nothing!
Any ideas?????
Thanks,
Eric.
------------------------------
Date: Wed, 08 Oct 1997 18:22:51 +0200
From: Benarson Behajaina <Benarson.Behajaina@swh.sk>
Subject: printf character.
Message-Id: <343BB35A.A9D19AA3@swh.sk>
Look at this simple scrupt:
#!/usr/local/bin/perl
$char = 'a';
printf "%c\n", $char;
This script doesn't work , why ?
is the variable $char a character or a string ? I think
$char = 'a'; is the same as $char = "a";
So how ca I write this script to output a character
using printf "%c" ?
btw I'm running Perl 5.004_01
Benarson.
------------------------------
Date: Wed, 8 Oct 1997 08:24:02 -0700
From: Tom Phoenix <rootbeer@teleport.com>
To: Colin Kuskie <colink@latticesemi.com>
Subject: Re: split and // vs '' vs ""
Message-Id: <Pine.GSO.3.96.971008082152.20274N-100000@usertest.teleport.com>
On 7 Oct 1997, Colin Kuskie wrote:
> my ($head,$tail) = split /\s*:\s*/, $_;
That does what it looks like. :-)
> ($head,$tail) = split "\s*:\s*", $_;
If you print "\s*:\s*" you'll see that it's actually the same as 's*:s*'.
(Double-quotish backslash interpolation.) Does that make it all clear?
Hope this helps!
--
Tom Phoenix http://www.teleport.com/~rootbeer/
rootbeer@teleport.com PGP Skribu al mi per Esperanto!
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
Ask me about Perl trainings!
------------------------------
Date: 08 Oct 1997 13:50:22 -0400
From: Matthew Rice <Matthew.Rice@ftlsol.com>
Subject: Re: Strange string catenation quirk
Message-Id: <m3afgkjg9t.fsf@hudson.ftlsol.com>
Tom Bortels <bortels@pacificnet.net> writes:
>
> #!/usr/local/bin/perl
>
> $hello = "hello"; $goodbye = "goodbye";
> $r1 = "$hello:$goodbye:::::\n";
> $r2 = "$hello:$goodbye" . ":::::\n";
> print $r1;
> print $r2;
First, add the -w option to your #! line.
Hint, try these statements at the end:
print "$goodbye::";
print $goodbye::;
print "${goodbye}::";
--
Matthew Rice e-mail: matthew.rice@ftlsol.com
------------------------------
Date: Wed, 08 Oct 1997 14:08:08 GMT
From: over@the.net (dave)
Subject: Re: system() won't run shell script correctly
Message-Id: <343b92db.230794@news.one.net>
ilya@math.ohio-state.edu (Ilya Zakharevich) wrote:
>In article <memo.19971007195031.14937A@skep.compulink.co.uk.cix.co.uk>,
>Neil Briscoe <neilb@zetnet.co.uk> wrote:
>> > However, the same command in a Perl script does not:
>> >
>> > system("xterm -e rlogin foo")
>> >
>> > the xterm just flashes and goes away.
>
>> The system command spawns a shell to run the command,
>
>Wrong. Sometimes it does, but not in the above case.
>
I think the key issue is a spawned _process_, which is not necessarily a shell.
But what you are saying is that Perl makes a distinction between:
system( "xterm -e rlogin foo" );
and
system( "PATH=$PATH:/usr/bin/X11; xterm -e rlogin foo" );
Are you sure it makes this distinction?
Dave
|
| Please visit me at http://w3.one.net/~dlripber
|
| For reply by email, use:
| dlripber@one.net
|________
------------------------------
Date: 8 Oct 1997 16:48:29 GMT
From: ilya@math.ohio-state.edu (Ilya Zakharevich)
Subject: Re: system() won't run shell script correctly
Message-Id: <61gdgt$83b$1@agate.berkeley.edu>
In article <343b92db.230794@news.one.net>, dave <over@the.net> wrote:
> ilya@math.ohio-state.edu (Ilya Zakharevich) wrote:
> >> The system command spawns a shell to run the command,
> >
> >Wrong. Sometimes it does, but not in the above case.
> >
>
> I think the key issue is a spawned _process_, which is not necessarily a shell.
> But what you are saying is that Perl makes a distinction between:
>
> system( "xterm -e rlogin foo" );
>
> and
>
> system( "PATH=$PATH:/usr/bin/X11; xterm -e rlogin foo" );
>
> Are you sure it makes this distinction?
Are you sure you've read the documentation?
Ilya
------------------------------
Date: 8 Oct 1997 16:01:33 GMT
From: jarkko@avalon.merikoski (Jarkko Juntunen)
Subject: Text formatting question
Message-Id: <61gaot$n23@pan.otol.fi>
So, is it possible to format text with Perl something like this. So this is
what it soppesed to look pinted in paper
Name1 Name2 Name3 Name4 Name5
Address1 Address2 Address3 Address4 Address5
zip1 City1 zip2 City2 zip3 City3 zip4 City4 zip5 City5
Names and addressese in fife columns.
Source files are lists from databases, and I have already made that part of
the script wich put them to form:
Name1:Address1:zip1:city1
Name2:Address2:zip2:city2
Name3:Address3:zip3:city3
Name4:Address4:zip4:city4
Name5:Address5:zip5:city5
and so on.
But I can only write format which put them this way:
Name1
Address1
zip1 city1
Name2
Address2
zip2 city2
-------------------------------------------------------------------------
Jarkko Juntunen jarkko@avalon.merikoski.fi Tel. +358 8 5306 977
-------------------------------------------------------------------------
------------------------------
Date: 8 Oct 97 17:00:26 GMT
From: rpete@ascda3.harvard.edu (Pete Ratzlaff)
Subject: Trivial question: Can this syntax be cleaned up?
Message-Id: <343bbc2a.0@cfanews.harvard.edu>
Suppose I have a sub which returns array references...
sub return_array_refs {
return ( [qw(ya ya ya)], [qw(da da da)])
}
and I want to make arrays from these returned refs.
Here is how I do it:
my @tmp=return_array_refs();
my @a1=@{$tmp[0]};
my @a2=@{$tmp[1]};
Is there a way to shorten the above three lines of code
to just one line? Note that the use of semicolons does
not count...
-------------
Peter Ratzlaff Harvard-Smithsonian Center for Astrophysics
Office B102 60 Garden St, MS 21, Cambridge MA 02138 USA
<pratzlaff@cfa.harvard.edu> phone: 617 496 7714
------------------------------
Date: Tue, 07 Oct 1997 09:39:53 +0100
From: Telemaco <tsestini@ais.it>
Subject: True compiled
Message-Id: <3439F559.212B@ais.it>
Hi,
I'm using Perl under MS-Dos.
I want obtain a true compiled program.
Using GNU Perl4, I'm not able to create a .exe using dump-undump
(it does under Unix but it doesn't under MS-Dos).
Where could I find a "true" Perl Compiler?
Thank in advance
Telemaco
------------------------------
Date: Wed, 08 Oct 1997 14:00:09 GMT
From: Paul.Moore@uk.origin-it.com (Paul Moore)
Subject: Re: Using variable names from a flat file
Message-Id: <343c907d.15346596@news.origin.nl>
On 8 Oct 1997 13:25:06 GMT, "David Hayden" <dhayden@netcomuk.co.uk>
wrote:
>In my perl program I have defined a scaler variable with 100 elemets:-
>
>$data{1}.......$data[100]
>
>I need to create a string ($output) with several of these elements appended
>to each other, there will be many different combinations of elements.
>
[...]
>My perl program will therefore perform the following steps:-:
>- Select which flat file I will read from.
>- OPEN the file selected
>- Read each line at a time
>- ****Take the value of the contents of the variable read in and
>concatenate to $output
>- Repeat until all lines have been done
>
>However the problem is I cannot find out how to code the line marked ***
>above.
You can EVAL the string, to get the value of the variable. But this
seems a bit over the top. Why not just have the indexes in the file,
like
file1
37
54
80
and then just do
open(F, "<$file") or die "Cannot open $file: $!";
$output = "";
while (defined ($i = <F>))
{
$output .= $line[$i];
}
The version for the original file format would be
open(F, "<$file") or die "Cannot open $file: $!";
$output = "";
while (defined ($str = <F>))
{
$output .= eval $str;
}
Watch out for files with lines containing things like
"system('rm -rf *')" with this version, though!!! (Eval doesn't care
what the string contains, as long as it can execute it!)
>I read in the variable name from the flat file but this gives me a string
>rather than the value of the variable contained in the string.
>
>I hope this is clear, an would be grateful for any assistance.
>
Hope this helps,
Paul Moore.
------------------------------
Date: Wed, 08 Oct 97 10:41:01 -0400
From: bsa@void.apk.net (Brandon S. Allbery KF8NH; to reply, change "void" to "kf8nh")
Subject: Re: void map bad form? (was: Re: $x = $y || $z - dangerous assumption?)
Message-Id: <343ba15e$2$ofn$mr2ice@speaker>
Hm. Perl types didn't used to get hung up on this kind of issue... "if it
works, do it" was the motto (subject to "that's an accident of implementation
and we don't guarantee that it'll work in the next version", but that isn't
the case here). But now, just because map() sounds like a functional
programming operation, we have to treat it as such?
One could say that the difference between "map BLOCK LIST" and "foreach LIST
BLOCK" is that map returns a list of the values of BLOCK for each element of
LIST, whereas foreach discards it. This ignores the fact that foreach cannot
be used as an expression, and that foreach allows you to specify a variable to
use instead of $_, and that you may not want the overhead of building a result
list for an iteration over 5000 items when you're using it in void context...
they have optimization and convenience implications, but don't put a brick
wall in the way of my rewriting a foreach as a map. (This also ignores the
readability of having the list come before/after a multiline BLOCK. "exch
def", anyone? :-)
(Hmmm... Perl knows when an expression is used in void context: in user code,
wantarray returns undef. map could be optimized for this case.)
--
brandon s. allbery [Team OS/2][Linux] bsa@void.apk.net
cleveland, ohio mr/2 ice's "rfc guru" :-) KF8NH
Warpstock '97: OS/2 for the rest of us! http://www.warpstock.org
Memo to MLS: End The Burn Scam --- Doug Logan MUST GO! FORZA CREW!
------------------------------
Date: Wed, 08 Oct 1997 15:30:59 GMT
From: Paul.Moore@uk.origin-it.com (Paul Moore)
Subject: Re: Where to get WIN95 Perl???
Message-Id: <343ea441.20400428@news.origin.nl>
On Wed, 08 Oct 1997 14:43:21 GMT, zawodny@hou.moc.com (Jeremy D.
Zawodny) wrote:
>[cc'd automagically to original author]
>
>On Wed, 8 Oct 1997 09:14:10 -0400, "Norbert McKenna"
><norbmckenna@sprynet.com> wrote:
>
>>I have been trying to connect to www.activeware.com for about a week now and
>>keep getting a message about not being able to establish a connection with
>>the server. Is there any other sites that have WIN95 for Perl??
>
>They've apparently been having some DNS problems. I've had messages to
>their lists queue for a few hours before making it through.
>
>I believe their builds are also available via CPAN.
>
>Jeremy
The standard 5.004 distribution (including LOTS of precompiled
extensions - all the ActiveWare ones, Tk, LWP, Curses, ...) is at
CPAN/ports/win32/Standard/x86/perl5.00402-bindist04-bc.tar.gz
or if you must, the ActiveWare one is at
CPAN/ports/win32/ActiveState/Release/<whatever>
Cheers,
Paul Moore.
------------------------------
Date: 8 Mar 97 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 8 Mar 97)
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.
To submit articles to comp.lang.perl.misc (and this Digest), send your
article to perl-users@ruby.oce.orst.edu.
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.
The Meta-FAQ, an article containing information about the FAQ, is
available by requesting "send perl-users meta-faq". The real FAQ, as it
appeared last in the newsgroup, can be retrieved with the request "send
perl-users FAQ". Due to their sizes, neither the Meta-FAQ nor the FAQ
are included in the digest.
The "mini-FAQ", which is an updated version of the Meta-FAQ, is
available by requesting "send perl-users mini-faq". It appears twice
weekly in the group, but is not distributed in the digest.
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 V8 Issue 1145
**************************************
