[11468] in Perl-Users-Digest
Perl-Users Digest, Issue: 5068 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Mar 5 18:07:28 1999
Date: Fri, 5 Mar 99 15:00:24 -0800
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Fri, 5 Mar 1999 Volume: 8 Number: 5068
Today's topics:
** The Perl Journal ** (Jon Orwant)
cobol line seq. file - one very long line - (Dale Phillips)
Re: Converting a 64-bit int to hex? (M.J.T. Guy)
Re: COnverting comma separate values dhosek@webley.com
Re: does perl discourage obfuscated code? (was Re: Perl (I R A Aggie)
expanding variables in text strings <ekkis@arix.com>
FAQ 1.10: When shouldn't I program in Perl? <perlfaq-suggestions@perl.com>
Re: FAQ 1.8: How does Perl compare with other languages <uri@home.sysarch.com>
Re: Form encoding & TCP/IP connections (Larry Rosler)
Re: Getting rid of ^M <uri@home.sysarch.com>
How Can I Do This? <knguyen@drexel.edu>
Re: How to do a Case-insensitive Sort? (Larry Rosler)
Re: How to do a Case-insensitive Sort? <Allan@due.net>
Re: How to submit a post inside a perl script? ("Adrian Fiorinni")
IO::Socket! Documentation <wolfie@wolfie.dhs.org>
listing directory CGI <amwalker@gate.net>
RE: OLE automation inside bat file run by NT at command (SANTOS JASON M)
Parsing C++, and C::scan ? <raph@roco.net>
print << "(END)" ? <ketanp@BLAHNOSPAMBLAHxwebdesign.com>
Re: print << "(END)" ? <jeromeo@atrieva.com>
Re: print << "(END)" ? <jglascoe@giss.nasa.gov>
Re: print << "(END)" ? <jglascoe@giss.nasa.gov>
Re: print << "(END)" ? (I R A Aggie)
Re: print << "(END)" ? (Larry Rosler)
Re: Printing in Perl (Larry Rosler)
Re: Quick Regular Expression Quesion (Steve Linberg)
replacing lines <nospam-seallama@mailcity.com>
Re: replacing lines <emschwar@mail.uccs.edu>
Re: replacing lines (Tad McClellan)
Re: replacing lines <emschwar@mail.uccs.edu>
Re: Seriously confused about subscripts (Larry Rosler)
Re: Sorting an associative array (Larry Rosler)
Sprite <curweb@cur.org>
STDIN,CTRL-Z,binmode,ActiveState 509 rmore1@my-dejanews.com
Re: STDIN,CTRL-Z,binmode,ActiveState 509 (Larry Rosler)
Re: System command doesn't return on NT (Larry Rosler)
unpack problem with float numbers <guichandut.marcel@hydro.qc.ca>
use strict & packages mizpoon@my-dejanews.com
Verifying URL's with perl. sidney_roberts@my-dejanews.com
Verifying URL's with perl. sidney_roberts@my-dejanews.com
Re: Yahoo! style dynamic select boxes (Doran L. Barton)
Special: Digest Administrivia (Last modified: 12 Dec 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 05 Mar 1999 20:52:14 GMT
From: orwant@alphaville.media.mit.edu (Jon Orwant)
Subject: ** The Perl Journal **
Message-Id: <ORWANT.99Mar5155214@alphaville.media.mit.edu>
TPJ #13 is in press now, and will be mailed in a couple of weeks. If
you're interested in receiving this issue as the first of your
subscription, you need to subscribe online very very soon, at
http://tpj.com/tpj/ordering.
Contents (80 pages, and our first all-glossy issue):
Perl News
Downloading Web Pages with LWP
The Perl Scripts Archive
Building Web Databases the Genome Way
XML
Bricolage: Memoization
Review of the O'Reilly Perl Resource Kit
Localizing your Perl programs
Building Your Own Perl Win32 Binary
MIDI: Simple Languages, Easy Music
The rezrov Infocom Game Interpreter
Building Objects Out Of Arrays
Controlling Modems With Win32::SerialPort
The Solitaire 500 (http://www.tipjar.com/games/solitaire/wheels/wheels.html)
Thanks to everyone who contributed to this issue!
-Jon
------------------------------------
Jon Orwant http://tpj.com
Editor & Publisher, The Perl Journal
--
------------------------------
Date: Fri, 05 Mar 1999 20:11:58 GMT
From: dp@lore.org (Dale Phillips)
Subject: cobol line seq. file - one very long line -
Message-Id: <36e039ad.658827@nntp.ix.netcom.com>
I have a cobol line sequential file that I need
to parse up into record length of 57 each....
This has got to be brain dead easy but I
can not seem to find anything that
counts x chars from slurped file and add \r start counter over ....
Thanks in advance
Dale
------------------------------
Date: 5 Mar 1999 18:40:08 GMT
From: mjtg@cus.cam.ac.uk (M.J.T. Guy)
Subject: Re: Converting a 64-bit int to hex?
Message-Id: <7bp8e8$d7l$1@pegasus.csx.cam.ac.uk>
In article <36D16E1A.92AB444@ocegr.fr>,
=?iso-8859-1?Q?St=E9phane?= Barizien <stephane.barizien@ocegr.fr> wrote:
>Probably a dummy's question, or I'm gonna be RTFMed on that one, but
>never mind:
Yes and no.
>How do I convert a 64-bit integer to a hex string, and vice-versa?
Here's the RTFM bit:
sprintf '%h', $int; # to convert integer to hex
hex($hex_string); # to convert hex to integer
BUT
Those will only work if you are on a platform with 64 bit ints, and
if your Perl is configured to use them. Which rules out most of us.
If you *don't* have 64 bit ints, you've got a bigger problem than hex
conversion. How do you get Perl to store those integers at all?
Perl will store integers larger then the int size, in floats. But that
still limits you to 53 bits (on most platforms) before you start losing
precision.
You could do something using the Math::BigInt module, but it'd be
pretty messy.
Probably you should ask "Where are these integers coming from?". If
you can arrange to get two 32 bit ints instead of a 64 bit one, your
problems become trivial.
Mike Guy
------------------------------
Date: Fri, 05 Mar 1999 22:19:12 GMT
From: dhosek@webley.com
Subject: Re: COnverting comma separate values
Message-Id: <7bpl8l$g1d$1@nnrp1.dejanews.com>
In article <7bpbr9$fro$1@samsara0.mindspring.com>,
"Allan M. Due" <Allan@due.net> wrote:
> Eric The Read wrote in message ...
> :gellyfish@btinternet.com (Jonathan Stowe) writes:
> :> Of course I am certain that you will feel hard done by at this
> :> response but a world of knowledge awaits you if you type:
> :> perl -v
> :> and follow the advice in the last paragraph that is displayed.
> :"Perl may be copied only under the terms of either the Artistic License
> : or the GNU General Public License, which may be found in the Perl 5.0
> : source kit." ??
> :Well, maybe you can find some measure of comfort in it, but I'm afraid
> :it's a bit too existentialist for me.
> Time to upgrade? <g>
> Complete documentation for Perl, including FAQ lists, should be found on
> this system using `man perl' or `perldoc perl'. If you have access to the
> Internet, point your browser at http://www.perl.com/, the Perl Home Page.
Of course the question then becomes, if his perl is old enough to not have
that notice does he even have perldoc to begin with? (And if you don't have
perl documentation, how do you find out that perldoc -v will give you a
pointer to documentation anyway ;-)
-dh
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: 5 Mar 1999 21:49:27 GMT
From: fl_aggie@thepentagon.com (I R A Aggie)
Subject: Re: does perl discourage obfuscated code? (was Re: Perl evangelism)
Message-Id: <slrn7e0kg0.pv7.fl_aggie@enso.coaps.fsu.edu>
On Thu, 4 Mar 1999 22:21:27 -0500, Russell Schulz
<Russell_Schulz@locutus.ofB.ORG> wrote:
+ of course, I've never seen a FORTRAN program use $_ as a variable. :-|
That's because fortran doesn't have any pre-defined magical-globals
like $_...if it did, they'd be used...
James
------------------------------
Date: Fri, 5 Mar 1999 12:47:41 -0800
From: "Ekkis" <ekkis@arix.com>
Subject: expanding variables in text strings
Message-Id: <epXD2.9253$8N5.93818@typhoon-sf.pbi.net>
yes, I've been to the FAQ, but it's not enough.
I have a little sample program that *almost* works. It successfully expands
variable names, including hash variables. It fails in only one case e.g.
${myvar}text. I can't quite get the matching to work. I've tried the
non-greedy behaviour without much luck... can anyone help?
thx - e
---> tst.pl
#!/bin/perl
$\ = "\n";
$tst = "SCALAR";
$tst{"tst"} = "HASH";
sub tst {
$s = $_ = shift;
s/(\$({?['"\w]+}?)+)/$1/eeg;
print "$s = $_<";
}
tst('$tst');
tst('${tst}');
tst('$tster');
tst('${tst}er');
tst('$tst{tst}');
tst('$tst{"tst"}');
tst("\$tst{'tst'}");
------------------------------
Date: 5 Mar 1999 14:10:40 -0700
From: Tom Christiansen <perlfaq-suggestions@perl.com>
Subject: FAQ 1.10: When shouldn't I program in Perl?
Message-Id: <36e04850@csnews>
(This excerpt from perlfaq1 - General Questions About Perl
($Revision: 1.21 $, $Date: 1999/01/26 09:55:05 $)
part of the standard set of documentation included with every
valid Perl distribution, like the one on your system.
See also http://language.perl.com/newdocs/pod/perlfaq1.html
if your negligent system adminstrator has been remiss in his duties.)
When shouldn't I program in Perl?
When your manager forbids it -- but do consider replacing them :-
).
Actually, one good reason is when you already have an existing
application written in another language that's all done (and done
well), or you have an application language specifically designed
for a certain task (e.g. prolog, make).
For various reasons, Perl is probably not well-suited for real-
time embedded systems, low-level operating systems development
work like device drivers or context-switching code, complex
multi-threaded shared-memory applications, or extremely large
applications. You'll notice that perl is not itself written in
Perl.
The new, native-code compiler for Perl may eventually reduce the
limitations given in the previous statement to some degree, but
understand that Perl remains fundamentally a dynamically typed
language, not a statically typed one. You certainly won't be
chastised if you don't trust nuclear-plant or brain-surgery
monitoring code to it. And Larry will sleep easier, too -- Wall
Street programs not withstanding. :-)
--
You have made an excellent hit on the UNIX.--More--
------------------------------
Date: 05 Mar 1999 16:43:31 -0500
From: Uri Guttman <uri@home.sysarch.com>
Subject: Re: FAQ 1.8: How does Perl compare with other languages like Java, Python, REXX, Scheme, or Tcl?
Message-Id: <x7aexrd33w.fsf@home.sysarch.com>
tom,
looks like we have another minor glitch with line wrap. the question is
not being wrapped.
maybe you should add an option to your script to allow it to start in
the middle. if it is set to a major/minor pair, just return from sendit
unless the current pair is greater than that one. i think the sleep
would be skipped then too. i don't have the code with me so i can't
verify it.
uri
How does Perl compare with other languages like Java, Python, REXX, Scheme, or Tcl?
--
Uri Guttman ----------------- SYStems ARCHitecture and Software Engineering
uri@sysarch.com --------------------------- Perl, Internet, UNIX Consulting
Have Perl, Will Travel ----------------------------- http://www.sysarch.com
The Best Search Engine on the Net ------------- http://www.northernlight.com
------------------------------
Date: Fri, 5 Mar 1999 13:03:17 -0800
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: Form encoding & TCP/IP connections
Message-Id: <MPG.1149e6722a85fe759896ea@nntp.hpl.hp.com>
[Posted and a courtesy copy mailed.]
In article <36E0325D.4FE7FCA6@ricketts.freeserve.co.uk> on Fri, 05 Mar
1999 19:37:01 +0000, Andrew Ricketts <andy@ricketts.freeserve.co.uk>
says...
> I preferbly wanted to get away with not using modules,
Me, too. :-)
> isn't there a
> simple regular expression to do the job? I've been trying and got the
> following code but it doesn't put the %'s in..
>
> ---------
> $test = "andy\@ricketts.freeserve.co.uk";
> $test =~ s/[^a-zA-Z0-9 ]/unpack("C",$&)/eg;
> $test =~ tr/ /+/;
Well, gee, so put them in! But your code produces decimal values (as in
the HTML escape sequences {), while you want hex (as in the URL
escape sequences %ff). So:
$test =~ s/([^a-zA-Z\d ])/'%' . unpack('H2', $1)/eg;
--
Larry Rosler
Hewlett-Packard Company
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: 05 Mar 1999 16:32:37 -0500
From: Uri Guttman <uri@home.sysarch.com>
Subject: Re: Getting rid of ^M
Message-Id: <x7emn3d3m2.fsf@home.sysarch.com>
>>>>> "REW" == Robert E Webb <bwebb@fred.net> writes:
REW> Philip, You are correct. I cut and pasted from some old code that had
REW> the -0777. Let try this again:
REW> This should work:
REW> #!/usr/bin/perl -p
REW> s/\015$//;
but that won't remove any internal ^M inside the lines. who knows what
kind of crappy file you are filtering.
and as i have stated several time in this thread, tr/// is much faster
than s///. see previous posts for more on that.
uri
--
Uri Guttman ----------------- SYStems ARCHitecture and Software Engineering
uri@sysarch.com --------------------------- Perl, Internet, UNIX Consulting
Have Perl, Will Travel ----------------------------- http://www.sysarch.com
The Best Search Engine on the Net ------------- http://www.northernlight.com
------------------------------
Date: Fri, 5 Mar 1999 15:46:29 -0800
From: "KVN" <knguyen@drexel.edu>
Subject: How Can I Do This?
Message-Id: <7bpfti$rg2$1@netnews.upenn.edu>
Hello All,
I'm (Perl Newbie) working on creating a simple text editor. I'm working on
the margin part. My goal is to have a window pop up once the user pick
Setting from the menu. The pop-up window will have two entry for left and
right margin, and choice of justification. However, I seem unable to return
the value from the entries, can anyone help??
sub Margin
{
$marg = MainWindow -> new();
$marg->title("Setting");
$f1 = $marg->Frame->pack(-side => 'top',-fill => 'x');
$f1->Label(-text => "Left Margin:")->pack(-side => 'left');
$f1->Entry(-textvariable =>
\$lmarginvalue)->pack(-side=>'left',-anchor=>'w');
$f1->Label(-text => "Right Margin:")->pack(-side => 'left',-anchor
=>'e');
$f1->Entry(-textvariable =>
\$rmarginvalue)->pack(-side=>'right',-anchor=>'e');
$cb1 = $f1->Checkbutton(-text => "Left Justify", -variable =>
\$justvalue, -command => sub{ $t->configure(-justify => 'left');})->pack();
$cb2 = $f1->Checkbutton(-text => "Right Justify", -variable =>
\$justvalue, -command => sub{ $t->configure(-justify => 'right');})->pack();
$cb5 = $f1->Checkbutton(-text => "Center Justify", -variable =>
\$justvalue, -command => sub{ $t->configure(-justify =>
'center');})->pack();
$b5 = $f1->Button(-text => "OK", -command =>
sub{$marg->withdraw();})->pack(-side => 'bottom');
}
somewhere in the MainLoop:
$textmainpage->configure(-lmargin1 => $lmarginvalue, -rmargin =>
$rmarginvalue);
Any suggestion is appriciated.
Thank,
P.S. My code is very messy. Sorry..please feel free to modify it
------------------------------
Date: Fri, 5 Mar 1999 12:51:35 -0800
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: How to do a Case-insensitive Sort?
Message-Id: <MPG.1149e3b51bf998109896e9@nntp.hpl.hp.com>
[Posted and a courtesy copy mailed.]
In article <7bp8qu$93t$1@samsara0.mindspring.com> on Fri, 5 Mar 1999
13:53:28 -0500, Allan M. Due <Allan@due.net> says...
> Greg Bacon wrote in message <7bmumt$ch1$4@info.uah.edu>...
> :In article <36DEF62E.E7ED0BE6@giss.nasa.gov>,
> : Jay Glascoe <jglascoe@giss.nasa.gov> writes:
> :: my @sorted = sort { lc $a cmp lc $b } @list;
> :Too many lc()s:
> :
> : my @sorted = map { $_->[0] }
> : sort { $a->[1] cmp $b->[1] }
> : map { [ $_, lc($_) ] }
> : @list;
>
> But too slow? <g> We might even only want to sort on the first char, it
> does speed things up a hair.
<SNIP> of Benchmark code, which will be reproduced later.
> Benchmark: timing 500000 iterations of lc , lcfirst, map ...
> lc : 58 wallclock secs (58.10 usr + 0.00 sys = 58.10 CPU)
> lcfirst: 57 wallclock secs (56.24 usr + 0.00 sys = 56.24 CPU)
> map : 126 wallclock secs (126.05 usr + 0.00 sys = 126.05 CPU)
You have created a very instructive exercise in benchmarking. Let's
analyze and improve on it.
1. Timing many iterations of a tiny sort distorts the measurements so
that few useful conclusions can be drawn. A tiny sort is dominated by
any setup time (which is O(n)), and effects caused by too many costly
comparisons (which is O(n log n)) are never seen. In essence, for tiny
sorts, any old way will do. For huge sorts, you'd better use the best
techniques.
2. Nevertheless, your generalization that a Schwartz Transform loses
when the comparison function is simply lc() is correct. Greg Bacon sees
'Too many lc()s' and concludes incorrectly that this is expensive. It
is not. lc() is a built-in function whose execution is not
significantly more expensive than other Perl expressions, such as array
access through a reference. This conclusion would be different if the
sort comparison function included relatively costly operations, such as
user-function calls. I have added this set of cases to the benchmark,
indicated by upper-case letters on the names.
3. Factor out as much overhead as possible. As I observed recently,
qw() is a run-time operation, which should not be included in the
benchmark code. I have set up the data array outside the benchmark
functions.
4. Include control and trivial comparisons in the benchmarks.
Here are my results. The code is at the end of this lengthy post.
Benchmark: timing 16 iterations of Lc , Lcfirst, Map , Packed ,
cntrl ,
def , lc , lcfirst, map , nc , packed ...
Lc : 13 wallclock secs (13.34 usr + 0.02 sys = 13.36 CPU)
Lcfirst: 14 wallclock secs (13.11 usr + 0.05 sys = 13.16 CPU)
Map : 10 wallclock secs (10.23 usr + 0.28 sys = 10.52 CPU)
Packed : 7 wallclock secs ( 6.67 usr + 0.09 sys = 6.77 CPU)
cntrl : 1 wallclock secs ( 0.75 usr + 0.08 sys = 0.83 CPU)
def : 1 wallclock secs ( 1.33 usr + 0.02 sys = 1.34 CPU)
lc : 3 wallclock secs ( 2.45 usr + 0.06 sys = 2.52 CPU)
lcfirst: 2 wallclock secs ( 2.38 usr + 0.05 sys = 2.42 CPU)
map : 8 wallclock secs ( 7.95 usr + 0.27 sys = 8.22 CPU)
nc : 2 wallclock secs ( 2.00 usr + 0.00 sys = 2.00 CPU)
packed : 4 wallclock secs ( 4.11 usr + 0.09 sys = 4.20 CPU)
Some ratios to note: Lc/lc = 5.4; LCfirst/lcfirst = 5.5; Map/map =
1.3; Packed/packed = 1.6. This is the O(n log n) showing up when the
time in the comparison function is significant.
So the winner is Packed (and of course I'm not in the least surprised),
with Map (the ST) second, and 'Naive' last. Virtue triumphant!
#!/usr/local/bin/perl -w
use strict;
my @foo = (qw(This is just The start this Is Just the Start)) x 1000;
sub Lc { lc $_[0] }
sub Lcfirst { lcfirst $_[0] }
sub _cntrl { my @sorted = @foo }
sub _def { my @sorted = sort @foo }
sub _Lc { my @sorted = sort {Lc($a) cmp Lc($b)} @foo }
sub _Lcfirst { my @sorted = sort {Lcfirst($a) cmp Lcfirst($b)} @foo }
sub _lc { my @sorted = sort {lc($a) cmp lc($b)} @foo }
sub _lcfirst { my @sorted = sort {lcfirst($a) cmp lcfirst($b)} @foo }
sub _Map {
my @sorted = map { $_->[0] } sort { $a->[1] cmp $b->[1] }
map { [ $_, Lc($_) ] } @foo
}
sub _map {
my @sorted = map { $_->[0] } sort { $a->[1] cmp $b->[1] }
map { [ $_, lc($_) ] } @foo
}
sub _nc { my @sorted = sort {$a cmp $b} @foo }
sub _Packed {
my @sorted = map { substr $_, rindex $_, "\0" } sort
map { Lc($_) . "\0$_" } @foo
}
sub _packed {
my @sorted = map { substr $_, rindex $_, "\0" } sort
map { lc($_) . "\0$_" } @foo
}
use Benchmark;
timethese(16, {
'cntrl ' => \&_cntrl,
'def ' => \&_def,
'Lc ' => \&_Lc,
'Lcfirst' => \&_Lcfirst,
'lc ' => \&_lc,
'lcfirst' => \&_lcfirst,
'Map ' => \&_Map,
'map ' => \&_map,
'nc ' => \&_nc,
'Packed ' => \&_Packed,
'packed ' => \&_packed,
});
--
Larry Rosler
Hewlett-Packard Company
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Fri, 5 Mar 1999 17:28:33 -0500
From: "Allan M. Due" <Allan@due.net>
Subject: Re: How to do a Case-insensitive Sort?
Message-Id: <7bplem$fac$1@samsara0.mindspring.com>
Larry,
Thanks for taking the time to illustrate these principles. Very
interesting and informative.
AmD
--
$email{'Allan M. Due'} = ' All@n.Due.net ';
--random quote --
I already have too much problem with people thinking the efficiency
of a perl construct is related to its length. On the other hand, I'm
perfectly capable of changing my mind next week... :-)
- lwall
------------------------------
Date: Fri, 05 Mar 1999 14:40:00 -0800
From: grumetedapanair@hotmail.com ("Adrian Fiorinni")
Subject: Re: How to submit a post inside a perl script?
Message-Id: <W2ZD2.3134$xv.27249002@WReNphoon2>
build a HTTP request header like this:
POST /(path_to_script) HTTP/1.0\n
Content-type: application/x-www-form-urlencoded\n
Content-lenght: (your_data_lenght)
(your_encoded_form_data_here)
hope it helps.
*** Posted from RemarQ - http://www.remarq.com - Discussions Start Here (tm) ***
------------------------------
Date: Fri, 5 Mar 1999 18:13:12 -0300
From: "Tenchi" <wolfie@wolfie.dhs.org>
Subject: IO::Socket! Documentation
Message-Id: <7bph58$bnj$1@news.iis.com.br>
Hi!
Someone knows where i can get some documentation on this module? I'm
trying to learn it but i just see some few scripts....
[]'s
Tenchi
------------------------------
Date: Fri, 05 Mar 1999 17:20:13 -0500
From: Aaron Walker <amwalker@gate.net>
Subject: listing directory CGI
Message-Id: <36E0589D.BC6E9F8D@gate.net>
I am using my own apache 1.34 server for this...
I am attempting to write a perl CGI script that lists the contents of my
home directory. Is this possible?
Here is what I have so far:
#!/usr/bin/perl
print Content-type: text/html\n\n";
$ls \ `ls /home/amwalker`;
print <<"HTML";
<html>
<body>
<h2>Contents of home directory: </h2>
$ls
HTML
This works when I run it from the shell, but why not in netscape?
Thanks,
Aaron
------------------------------
Date: Fri, 5 Mar 1999 13:16:08 -0700
From: jmsantos@srpnet.com (SANTOS JASON M)
Subject: RE: OLE automation inside bat file run by NT at command
Message-Id: <037164847588D111B5D600600858CDD604DA9801@srp.gov>
>Date: Fri, 05 Mar 1999 18:43:43 GMT
>From: gdmiller@wave.home.com
>Subject: OLE automation inside bat file run by NT at command
>Message-Id: <7bp8ks$4js$1@nnrp1.dejanews.com>
>I have written an OLE automation script for Word 97 using Avtivestate PERL
------------------------------
Date: Fri, 05 Mar 1999 22:31:55 +0100
From: Raphael Bellec <raph@roco.net>
Subject: Parsing C++, and C::scan ?
Message-Id: <36E04D4B.E2D84CC5@roco.net>
Hello, I actually need to parse "simple" C++ with Perl (I means class
descriptions, prototypes ... no code. )
I'm sure someone has already done something like this, if not I would
like to know If few people has things that could help me.
Also, I looked on the Cpan and found C::scan that could be helpful for
the begining, but I found no docs.
Any help greatly appreciated.
Bellec Raphael.
Note : I thought about studiing the grammar of C++ given in the
standards or trying to use a bit of the g++ sources (lex & yacc) but the
first solution seems to be a lot of work and the g++ sources seems to be
quite difficult since yacc is not the best way to parse C++ grammar ( As
a friend who knows compilation better than me told me.)
------------------------------
Date: Fri, 05 Mar 1999 13:02:41 -0500
From: Ketan Patel <ketanp@BLAHNOSPAMBLAHxwebdesign.com>
Subject: print << "(END)" ?
Message-Id: <36E01C41.E628C9A0@BLAHNOSPAMBLAHxwebdesign.com>
I have a simple little question... I'd look it up, but I don't have my
books here with me...
When I'm printing some HTML, I usually do:
print << "(END)";
<html><body>
...
many lines of HTML
...
</body></html>
(END)
But what should I do if I want to print just one line (without having to
replace " with \" etc...)?
Instead of this:
print << "(END)";
<img src="blah" height="10" width="10">
(END)
Is there a one line answer? Does it have something to do with 'qw'?
Thanks
------------------------------
Date: Fri, 05 Mar 1999 13:45:29 -0800
From: Jerome O'Neil <jeromeo@atrieva.com>
To: Ketan Patel <ketanp@xwebdesign.com>
Subject: Re: print << "(END)" ?
Message-Id: <36E05079.6FEB8A61@atrieva.com>
Ketan Patel wrote:
> But what should I do if I want to print just one line (without having to
> replace " with \" etc...)?
>
> Instead of this:
>
> print << "(END)";
> <img src="blah" height="10" width="10">
> (END)
>
> Is there a one line answer? Does it have something to do with 'qw'?
Close. It has to do with q or qq. For all the exciting detail on quote
and quote-like operators, see the perlop documentation that came with
your perl distribution.
Good Luck!
Oh, your E-mail bounced, so I'm assuming it's ketanp@xwebdesign.com,
right?
--
Jerome O'Neil, Operations and Information Services
Atrieva Corporation, 600 University St., Ste. 911, Seattle, WA 98101
jeromeo@atrieva.com - Voice:206/749-2947
The Atrieva Service: Safe and Easy Online Backup http://www.atrieva.com
------------------------------
Date: Fri, 05 Mar 1999 16:51:25 -0500
From: Jay Glascoe <jglascoe@giss.nasa.gov>
To: Ketan Patel <ketanp@BLAHNOSPAMBLAHxwebdesign.com>
Subject: Re: print << "(END)" ?
Message-Id: <36E051DD.DC06811B@giss.nasa.gov>
[courtesy copy of post sent to cited Ketan via email]
Ketan Patel wrote:
>
> But what should I do if I want to print just one line (without having to
> replace " with \" etc...)?
>
> Instead of this:
>
> print << "(END)";
> <img src="blah" height="10" width="10">
> (END)
>
> Is there a one line answer? Does it have something to do with 'qw'?
print '<img src="blah" height="10" width="10">', "\n";
or, TMTOWTDI:
<img src="blah" height="10" width="10">\n};
It's "qq//" to emulate double-quotes, "q//" for singl-quotes.
> Thanks
also,
print qq {
<img src="blah" height="10" width="10">
};
is pretty darn cool. Now, go forth and obfuscate!
Jay
--
"narf, Narf, NARF!"
--Pinky
------------------------------
Date: Fri, 05 Mar 1999 16:53:38 -0500
From: Jay Glascoe <jglascoe@giss.nasa.gov>
To: jglascoe@giss.nasa.gov
Subject: Re: print << "(END)" ?
Message-Id: <36E05262.87CA48A0@giss.nasa.gov>
Jay Glascoe wrote:
>
> or, TMTOWTDI:
>
> <img src="blah" height="10" width="10">\n};
whoops! Accidentally cut my email!
print qq{<img src="blah" height="10" width="10">\n};
--
"They'll get my perl when they pry it
from my cold, dead /usr/local/bin."
-- Randy Futor in
<1992Sep13.175035.5623@tc.fluke.COM>
------------------------------
Date: 5 Mar 1999 21:52:15 GMT
From: fl_aggie@thepentagon.com (I R A Aggie)
Subject: Re: print << "(END)" ?
Message-Id: <slrn7e0kl9.pv7.fl_aggie@enso.coaps.fsu.edu>
On Fri, 05 Mar 1999 13:02:41 -0500, Ketan Patel
<ketanp@BLAHNOSPAMBLAHxwebdesign.com> wrote:
+ I have a simple little question... I'd look it up, but I don't have my
+ books here with me...
Umm, d00de, that's why there's 'perldoc'. My books happen to be in boxes.
+ print << "(END)";
+ <img src="blah" height="10" width="10">
+ (END)
+
+ Is there a one line answer? Does it have something to do with 'qw'?
Yes. No. But you're close. Maybe q or qq is what you seek...
print qq|<img src="blah" height="10" width="10">|;
James
------------------------------
Date: Fri, 5 Mar 1999 14:48:16 -0800
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: print << "(END)" ?
Message-Id: <MPG.1149ff0f6260fdc59896f6@nntp.hpl.hp.com>
In article <36E01C41.E628C9A0@BLAHNOSPAMBLAHxwebdesign.com> on Fri, 05
Mar 1999 13:02:41 -0500, Ketan Patel
<ketanp@BLAHNOSPAMBLAHxwebdesign.com> says...
...
> But what should I do if I want to print just one line (without having to
> replace " with \" etc...)?
>
> Instead of this:
>
> print << "(END)";
> <img src="blah" height="10" width="10">
> (END)
>
> Is there a one line answer? Does it have something to do with 'qw'?
Yes. No, it has a lot to do with qq().
print qq(<img src="blah" height="10" width="10">\n);
And this is easier still (but that is an HTML issue, not a Perl issue):
print "<img src=blah height=10 width=10>\n";
--
Larry Rosler
Hewlett-Packard Company
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Fri, 5 Mar 1999 13:16:50 -0800
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: Printing in Perl
Message-Id: <MPG.1149e99b24b630279896eb@nntp.hpl.hp.com>
In article <slrn7e03dj.qse.hdiwan@diwanh.stu.rpi.edu> on 5 Mar 1999
17:00:51 GMT, the jackal <hdiwan@diwanh.stu.rpi.edu> says...
> perldoc perlform
I have never used Perl formatted output, because I never need to print
reports of fixed page lengths with headers and footers. [s]printf has
met all my needs (primarily to print HTML or to write files).
Are there any benefits to Perl formats other than what I have noted
above?
--
Larry Rosler
Hewlett-Packard Company
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Fri, 05 Mar 1999 17:18:22 -0500
From: linberg@literacy.upenn.edu (Steve Linberg)
Subject: Re: Quick Regular Expression Quesion
Message-Id: <linberg-0503991718220001@ltl1.literacy.upenn.edu>
In article <7bpbiv$c4t$1@samsara0.mindspring.com>, "Allan M. Due"
<Allan@due.net> wrote:
> I believe that HTML::Parser is recommended over HTML::Parse at this time.
Whoops, that's what I meant to type. Typo. Thanks.
--
Steve Linberg, Systems Programmer &c.
National Center on Adult Literacy, University of Pennsylvania
email: <linberg@literacy.upenn.edu>
WWW: <http://www.literacyonline.org>
------------------------------
Date: Fri, 05 Mar 1999 10:18:02 -0800
From: dan <nospam-seallama@mailcity.com>
Subject: replacing lines
Message-Id: <36E01FD9.D763E33B@mailcity.com>
can someone point me to a refernce that explains replacing lines? for
example:
lets say i have the following in a text file:
a
b
c
d
and whatever variable contains "c", so then the file would look like
a
b
d
thanks
------------------------------
Date: 05 Mar 1999 14:11:31 -0700
From: Eric The Read <emschwar@mail.uccs.edu>
Subject: Re: replacing lines
Message-Id: <xkfogm7fxq4.fsf@valdemar.col.hp.com>
dan <nospam-seallama@mailcity.com> writes:
> can someone point me to a refernce that explains replacing lines? for
> example:
perldoc perlfaq4, specifically:
How do I change one line in a file/delete a line in a file/insert a line
in the middle of a file/append to the beginning of a file?
-=Eric
------------------------------
Date: Fri, 5 Mar 1999 10:35:54 -0500
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: replacing lines
Message-Id: <qktob7.p8q.ln@magna.metronet.com>
dan (nospam-seallama@mailcity.com) wrote:
: can someone point me to a refernce that explains replacing lines? for
Perl FAQ, part 5:
"How do I change one line in a file/
delete a line in a file/
insert a line in the middle of a file/
append to the beginning of a file?"
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: 05 Mar 1999 15:37:14 -0700
From: Eric The Read <emschwar@mail.uccs.edu>
Subject: Re: replacing lines
Message-Id: <xkflnhbftr9.fsf@valdemar.col.hp.com>
Eric The Read <emschwar@mail.uccs.edu> writes:
> dan <nospam-seallama@mailcity.com> writes:
> > can someone point me to a refernce that explains replacing lines? for
> > example:
>
> perldoc perlfaq4, specifically:
perlfaq5! perlfaq5!
Okay, time for me to go home (it's only 15:36 :).
-=Eric
------------------------------
Date: Fri, 5 Mar 1999 13:59:02 -0800
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: Seriously confused about subscripts
Message-Id: <MPG.1149f38539dd05789896ec@nntp.hpl.hp.com>
In article <36E0170C.8E6C3F68@giss.nasa.gov> on Fri, 05 Mar 1999
12:40:28 -0500, Jay Glascoe <jglascoe@giss.nasa.gov> says...
>...
> my %doc_indexs = {};
Surely you mean
my %doc_indexs = ();
> $key = (unpack "a4 a2", $val)[1];
or neater:
$key = unpack 'x4 a2', $val;
> my %hash = ();
> foreach (@docs) {
> my $val = $_->[2];
> $key = substr $val, 4, 2;
> $hash{$key} = $val;
> }
For those who prefer functional one-liners to visible loops and temps
(relative efficiency not measured):
my %hash = ();
@hash{ map substr($_->[2], 4, 2) => @docs } = map $_->[2] => @docs;
> Jay Glascoe
> --
You need a space after those two dashes!
> "Soup on all fours?"
> "Of course. Whaddaya think, Soup is a biped?" - mst3k
--
Larry Rosler
Hewlett-Packard Company
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Fri, 5 Mar 1999 14:19:26 -0800
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: Sorting an associative array
Message-Id: <MPG.1149f844519e1e69896ee@nntp.hpl.hp.com>
[Posted and a courtesy copy mailed.]
In article <36E01E7A.FEC0E002@giss.nasa.gov> on Fri, 05 Mar 1999
13:12:10 -0500, Jay Glascoe <jglascoe@giss.nasa.gov> says...
> Henning Koch wrote:
> > I have a problem sorting an associative array.
> > The values of this array are numbers.
> > If I want to sort this numbers with:
> > foreach $number (sort values(%array))
> > how can I access the numbers and the related index ?
>
> let's say "%hash" is your associative array.
> Now, behold the wit and wisdom of the "Schwartzian
> Transform":
Neither witty nor wise, in this case!
> my @sorted_keys = map { $_->[0] }
> sort { $a->[1] <=> $b->[1] }
> map { [$_, $hash{$_}] }
> keys %hash;
Golly gee, what overkill! This is pathetically slow. I just posted a
rather lengthy analysis of a benchmark that shows why this is so. So I
won't do it again.
my @sorted_keys = sort { $hash{$a} <=> $hash{$b} } keys %hash;
Naive, and best, and in perlfaq5: "How do I sort a hash (optionally by
value instead of key)?"
--
Larry Rosler
Hewlett-Packard Company
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Fri, 5 Mar 1999 15:46:26 -0500
From: "Christopher Pieper" <curweb@cur.org>
Subject: Sprite
Message-Id: <7bpflk$h8u$1@news1.Radix.Net>
For the meantime, that is until I get our new server up and running I was
interested in making a text file with all of our members names and email
addresses, and porting it to the web and using a Perl script to allow for
searching and sorting. I came across Sprite in a book I have yet I have
found no real clear documentation on it, thus my inital efforts have all
failed to work. Does anyone know where on the web I might find some
information on this module, as in documentation. Or does anyone know of any
other modules I can use to do searching and sorting with SQL of flat Text
Based Databases? Mind you this is all done on someone elses server for the
meantime so I can't really install any new progs like mySQL or such.
Any Advice would be greatly appreciated.
Christopher M. Pieper
curweb@cur.org
CUR - Webmaster
------------------------------
Date: Fri, 05 Mar 1999 20:39:27 GMT
From: rmore1@my-dejanews.com
Subject: STDIN,CTRL-Z,binmode,ActiveState 509
Message-Id: <7bpfdu$aoh$1@nnrp1.dejanews.com>
It seems ActiveState Perl has trouble reading binary files from STDIN.
It recognizes CTRL-Z as the end-of-file marker.
> cat writefile.pl
#!/usr/local/bin/perl
open(OUT,"> testfile");
binmode(OUT);
print OUT "\x41\x42\x43\x1a\x44\x45\x46\x0a";
close(OUT);
exit;
__END__
> cat readfile.pl
#!/usr/local/bin/perl
printf "File size is: %d\n",(stat($ARGV[0]))[7];
binmode(STDIN);
undef $/;
my $doc = <>;
print "File buffer size: ",length($doc),"\n";
exit;
__END__
******* UNIX:
> writefile.pl
> readfile.pl testfile
File size is: 8
File buffer size: 8
******** ActiveState:
[w:\]perl writefile.pl
[w:\]perl readfile.pl testfile
File size is: 8
File buffer size: 3
=============================
Richard More
http://www.richmore.com/
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Fri, 5 Mar 1999 14:33:32 -0800
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: STDIN,CTRL-Z,binmode,ActiveState 509
Message-Id: <MPG.1149fb988cca17359896f2@nntp.hpl.hp.com>
[Posted and a courtesy copy mailed.]
In article <7bpfdu$aoh$1@nnrp1.dejanews.com> on Fri, 05 Mar 1999
20:39:27 GMT, rmore1@my-dejanews.com <rmore1@my-dejanews.com> says...
> It seems ActiveState Perl has trouble reading binary files from STDIN.
> It recognizes CTRL-Z as the end-of-file marker.
I tried your test on ActivePerl build 509, and it worked properly.
Perhaps this is a bug that has been fixed already. Try updating.
--
Larry Rosler
Hewlett-Packard Company
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Fri, 5 Mar 1999 14:10:13 -0800
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: System command doesn't return on NT
Message-Id: <MPG.1149f6239a0d16de9896ed@nntp.hpl.hp.com>
[Posted and a courtesy copy mailed.]
In article <7bp27r$o2d@nnrp4.farm.idt.net> on Fri, 5 Mar 1999 16:56:49 -
0000, Lonnie Johnson <lgj19@mail.idt.net> says...
> I am having a problem with a Perl script called FormMail.cgi. The problem is
> with the following line:
> system("\"$mailprog\" -t -t -n $tempfile") || die("Cannot execute
> $mailprog -- Check mailprog path and permissions : $!");
Bummer. The success/fail output of the system() *function* is opposite
in a Boolean sense to the success/fail output of a system *call*. You
are probably getting 'die' executed every time, and by default the
output of 'die' is written to STDERR and is probably in your server
logs. Change '||' to '&&', and look into how to do better things with
the diagnostics (there are several ways).
> The Script is running on a Windows NT sever and I got FormMail.cgi from
> www.geocel.com.
> The cgi script stops executing after issuing the system command in the above
> line. This line calls Windmail.exe to send an e-mail. The e-mail is sent,
> but nothing after this line is executed. The problem is that since the CGI
> script stops executing the following lines never delete the temporary file
> ($tempfile).
>
> if ($kill_tempfile)
> {
> unlink($tempfile);
> }
To ensure that this gets called no matter how your program terminates
(barring a core-dumping crash), enclose that in an END { } subroutine.
> In addition, I wish to extend the function of this script and I need the
> script to perform further functions after the return from the system
> command.
Huh? Write the code, after the return from the system command.
--
Larry Rosler
Hewlett-Packard Company
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Fri, 05 Mar 1999 21:39:10 GMT
From: Marcel Guichandut <guichandut.marcel@hydro.qc.ca>
Subject: unpack problem with float numbers
Message-Id: <36E04EFA.4C04@hydro.qc.ca>
Could anyone help me with this tricky little problem ?
I write down a floating point number on a binary file
whith a C langage program.
This number is greater than 65536 (2^16)
Let's say that my number is 68195.4
When I try to read that same number in PERL, I get
68195.4 - 65536 = 2659.4.
Now, if, instead of writing (in C) 68195.4, I write
65536 - 68195.4. Then, in PERL, I get the right value (68195.4)
It seems the two langages do not agree on floating point
number representation (location of the sign bit ?).
I am working on a DEC Alpha workstation.
Any way to get around this mess ?
Thanks
Marcel Guichandut
Guichandut.Marcel@hydro.qc.ca
------------------------------
Date: Fri, 05 Mar 1999 22:21:48 GMT
From: mizpoon@my-dejanews.com
Subject: use strict & packages
Message-Id: <7bpldh$g51$1@nnrp1.dejanews.com>
Does the order that you define packages and lexically scoped variables affect
the perl namespaces?
Ie.
is 'use strict;package test;'
any different to 'package test;use strict;'
...?
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Fri, 05 Mar 1999 21:05:16 GMT
From: sidney_roberts@my-dejanews.com
Subject: Verifying URL's with perl.
Message-Id: <7bpgu5$c81$1@nnrp1.dejanews.com>
I have a list of url's and I need to check three things. First, did I get
a response back from the server. Second, was the file found or not? Third
(and this is important), was the response that I got back binary or text
data?
Right now, I'm doing it this way:
#--
for ($pic_count = 0; $pic_count < 100; $pic_count++)
{
$pic_url = $pic_array[$pic_count];
$agent = LWP::UserAgent->new();
print "TESTING: $pic_url";
$request = HTTP::Request->new('HEAD', $pic_url);
$response = $agent->request($request);
$result = $response->code;
if ($result != '200')
{
print " not found ($result).\n";
} else {
print " ", $result, "\n";
}
}
#---
There's a few problems with this, though. First, it's really slow. I think
it's because it's downloading the whole file (I'm requesting binary files)
before it gives a response or not. What I'd like to do is just download the
first 64 bytes or so and check that data. Secondly, can I assume that 200 is
the "everything was cool" response? Also, how would I go about setting the
timeout time before it returns an error?
Thanks in advance for any help you can give.
--
Sidney Roberts
sidney_roberts@dejanews.com
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Fri, 05 Mar 1999 22:00:08 GMT
From: sidney_roberts@my-dejanews.com
Subject: Verifying URL's with perl.
Message-Id: <7bpk52$f0m$1@nnrp1.dejanews.com>
I have a list of url's and I need to check three things. First, did I get
a response back from the server. Second, was the file found or not? Third
(and this is important), was the response that I got back binary or text
data?
Right now, I'm doing it this way:
#--
for ($pic_count = 0; $pic_count < 100; $pic_count++)
{
$pic_url = $pic_array[$pic_count];
$agent = LWP::UserAgent->new();
print "TESTING: $pic_url";
$request = HTTP::Request->new('HEAD', $pic_url);
$response = $agent->request($request);
$result = $response->code;
if ($result != '200')
{
print " not found ($result).\n";
} else {
print " ", $result, "\n";
}
}
#---
There's a few problems with this, though. First, it's really slow. I think
it's because it's downloading the whole file (I'm requesting binary files)
before it gives a response or not. What I'd like to do is just download the
first 64 bytes or so and check that data. Secondly, can I assume that 200 is
the "everything was cool" response? Also, how would I go about setting the
timeout time before it returns an error?
Thanks in advance for any help you can give.
--
Sidney Roberts
sidney_roberts@dejanews.com
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: 5 Mar 1999 15:10:58 -0700
From: fozz@xmission.xmission.com (Doran L. Barton)
Subject: Re: Yahoo! style dynamic select boxes
Message-Id: <7bpkpi$8d$1@xmission.xmission.com>
mikej <mikej@1185design.com> writes:
>Hi,
>I was looking around my yahoo and found something that was pretty
>interesting. In the configure weather settings, after you select the
>area you are interested in, it takes you to a page with 2 multiple
>selection fields that lets you add or remove fields from one another. I
>looked at the source but couldnt tell how on earth they did it. Anyone
>know how to best accomplish this effect? I know a little bit about perl
>but not sure that it would be the best way to do this kind of thing. If
>someone can point me in the right direction I would be very grateful.
>Thanks.
This isn't that hard, really.
They have two selection lists: .unsel and .sel. Whenever you submit the
form (via the Add button) with elements within the .unsel list selected,
then they are added to the .sel list:
use CGI;
$q = new CGI;
@new_selected = $q->param('.unsel');
@old_selected = $q->param('.sel')
# Now just add the selected items to the .sel list
foreach $item (@new_selected) {
push @old_selected, $item;
}
# Remove any duplicates
%seen = ();
foreach $item (@old_selected) {
push(@uniq, $item) unless $seen($item}++;
}
# Now, @uniq contains the new list for generating the right-side list
Hope that helps.
-=Fozz
--
Doran L. Barton = fozz@xmission.com && http://www.xmission.com/~fozz/
"Where do you want Microsoft to go today?" --Ronald Barry
"This may seem a bit weird, but that's okay, because it is weird."
-- Larry Wall in the Perl v5 man page
------------------------------
Date: 12 Dec 98 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Special: Digest Administrivia (Last modified: 12 Dec 98)
Message-Id: <null>
Administrivia:
Well, after 6 months, here's the answer to the quiz: what do we do about
comp.lang.perl.moderated. Answer: nothing.
]From: Russ Allbery <rra@stanford.edu>
]Date: 21 Sep 1998 19:53:43 -0700
]Subject: comp.lang.perl.moderated available via e-mail
]
]It is possible to subscribe to comp.lang.perl.moderated as a mailing list.
]To do so, send mail to majordomo@eyrie.org with "subscribe clpm" in the
]body. Majordomo will then send you instructions on how to confirm your
]subscription. This is provided as a general service for those people who
]cannot receive the newsgroup for whatever reason or who just prefer to
]receive messages via e-mail.
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 5068
**************************************
