[11809] in Perl-Users-Digest

home help back first fref pref prev next nref lref last post

Perl-Users Digest, Issue: 5409 Volume: 8

daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sun Apr 18 03:07:28 1999

Date: Sun, 18 Apr 99 00:00:20 -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           Sun, 18 Apr 1999     Volume: 8 Number: 5409

Today's topics:
        A problem.. ulrich@cooper.edu
        Books <puyrebel@prodigy.net>
        How to embed external ads <webman@allstarboston.com>
        HTTP_REFERRER <webmaster@internetdj.com>
    Re: HTTP_REFERRER (Larry Rosler)
    Re: ifeither--How about some feedback? (Abigail)
    Re: ifeither--How about some feedback? <asquith@macconnect.com>
    Re: invoking by "fire and forget" (Abigail)
        last cflow message unclear <kimbrough.gray@amd.com>
    Re: last cflow message unclear <tchrist@mox.perl.com>
    Re: Looking for better ways of solving a pattern matchi (Abigail)
    Re: New FAQ: How can I read in an entire file all at on <uri@home.sysarch.com>
        newbie looking for cflow like command <kimbrough.gray@amd.com>
    Re: online user groups/resources <ebohlman@netcom.com>
        perl cgi - want to run on local system <fdjohns@home.com>
        Problematic subroutine.. ulrich@cooper.edu
    Re: Removing file extentions (Larry Rosler)
    Re: Split sizes instead of pattern? <ebohlman@netcom.com>
    Re: Splitting length instead of delimiting character? (Abigail)
        Standard in from email --> HTML jnoviell@my-dejanews.com
        Thank you Dan: Web site(s) nousnauts@my-dejanews.com
        Special: Digest Administrivia (Last modified: 12 Dec 98 (Perl-Users-Digest Admin)

----------------------------------------------------------------------

Date: Sun, 18 Apr 1999 06:26:20 GMT
From: ulrich@cooper.edu
Subject: A problem..
Message-Id: <37197C75.786205D3@cooper.edu>

Howdy..
I was wondering if anyone could think of a way to create variables
depending on a user inputted value.. example:
    I'm trying to create an array of arrays, the number of arrays is
defined by the bitlength of the values in the array (so if there's an
array, @test = (0010, 1001, 0101, 1111)), it would define four different
arrays:
@subtest1, @subtest2, @subtest3, @subtest4 => to stick values of @test
within..  Then I would put all these arrays within one giant array....
the problem I'm having is coming up with a way to code it so that the
arrays are defined after the point.. understand what I'm saying?  It's a
problem i've encountered no matter what language I'm using, so I
figgered, I'll search for an answer now while it's imperitive.. Any help
would be greatly appreciated.. thanks..

Matty U!



------------------------------

Date: Sat, 17 Apr 1999 21:57:43 -0500
From: Ken Robbins <puyrebel@prodigy.net>
Subject: Books
Message-Id: <37194A27.9D1F9AC6@prodigy.net>

Hello.

Does anyone know of any good books that just show the different Perl
functions and how they are used? Really, any recommened books at any
different level would be appreciated.

-- 
Ken Robbins
puyrebel <AT> prodigy <DOT> net

"If everything seems to be going well, you have obviously overlooked
something."
-- Murphy's Eighth Law


------------------------------

Date: Sat, 17 Apr 1999 22:12:57 -0400
From: webman <webman@allstarboston.com>
Subject: How to embed external ads
Message-Id: <37193FA9.7D2793C@allstarboston.com>

I want to embed banner ads in the header output of a working cgi script.
My ads are served up by this code:

<A HREF="http://www.sample.com/ads/ad9999-map.cgi">
     <IMG SRC="http://www.sample.com/cgi-bin/ads/ad9999.cgi"
               BORDER=0 WIDTH=468
     HEIGHT=60></A>

How can I call this code from  within the first script ? Thanks from a
cgi neophyte.


Webman



------------------------------

Date: Sat, 17 Apr 1999 22:44:17 -0400
From: "The Internet DJ" <webmaster@internetdj.com>
Subject: HTTP_REFERRER
Message-Id: <7fbgu5$sh5$1@news.laserlink.net>

I'm trying to read in the referring URL, and if it does not match a
particular URL, it spits out a Location and aborts the rest of the script...

This is what I have, but it does not work, any suggestions?

$ref = $ENV{'HTTP_REFERER'};

$good_ref = "http://www.mysite.com";

if ($ref != $good_ref) {
print "Location: "http:///www.mysite.com\n\n;
exit;
}

Thanks,
mjb






------------------------------

Date: Sat, 17 Apr 1999 23:03:12 -0700
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: HTTP_REFERRER
Message-Id: <MPG.11831574d68f8f79898d1@nntp.hpl.hp.com>

[Posted and a courtesy copy sent.]

In article <7fbgu5$sh5$1@news.laserlink.net> on Sat, 17 Apr 1999 
22:44:17 -0400, The Internet DJ <webmaster@internetdj.com> says...
> I'm trying to read in the referring URL, and if it does not match a
> particular URL, it spits out a Location and aborts the rest of the script...
> 
> This is what I have, but it does not work, any suggestions?
> 
> $ref = $ENV{'HTTP_REFERER'};

How do you know that this is defined?  What do you want to do if it 
isn't?

> $good_ref = "http://www.mysite.com";
> 
> if ($ref != $good_ref) {

In Perl, strings are compared with eq and ne, not with == and !=.  Your 
comparison would be of 0 to 0, which should never get to the next 
line...

> print "Location: "http:///www.mysite.com\n\n;

which deoesn't compile in any case.  Where is the closing quote?  (The 
three slashes are wrong, too.  Obviously you have typed this in, not 
cut-and-pasted the real code.)

> exit;
> }

-- 
(Just Another Larry) Rosler
Hewlett-Packard Company
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com


------------------------------

Date: 18 Apr 1999 02:38:32 GMT
From: abigail@fnx.com (Abigail)
Subject: Re: ifeither--How about some feedback?
Message-Id: <7fbgj8$m4f$1@client2.news.psi.net>

Sean McAfee (mcafee@waits.facilities.med.umich.edu) wrote on MMLV
September MCMXCIII in <URL:news:7K7S2.1159$hl6.48122@news.itd.umich.edu>:
,, In article <7faq6c$tag@enews3.newsguy.com>,
,, William H. Asquith <asquith@macconnect.com> wrote:
,, >my ($a, $b, $c, $d, $e, $f);
,, >while(1) {
,, >  ## do some stuff
,, >  last if($a < 4 || $b < 4 || $c || < 4 || $d < 4 || $f < 4);
,, >}
,, 
,, >I would love to shorten the above 'last if' test with one that is shorter,
,, >here is a suggestion.
,, 
,, >while(1) {
,, >  ## do some stuff
,, >  last ifeither($a, $b, $c, $d, $e, $f < 0);  # suggested form
,, >}

How should the syntax of ifeither be? Image what happens if you
replace $a .. $f with arbitrary expressions. What would the result
of ifeither (1, 2, 3) be?

,, That would require changes to the "last" semantics, and there's already a
,, perfectly good "last if" idiom, so I think the closest thing to your above
,, suggestion would be:

I don't see how it requires changes to the last semantics. It isn't that
last cares that there's an 'if' following it. last is just a leave in the
parse tree.

,, sub either { my $sub = pop; for (@_) { return 1 if $sub->($_); } return 0; }
,, $less_than_zero = sub { $_[0] < 0 };
,, 
,, while (1) {
,, 	## do some stuff
,, 	last if either($a, $b, $c, $d, $e, $f, $less_than_zero);
,, }

That's a short circuiting grep. I would call it 'exists', but that's
already taken.

,, Other, more eye-pleasing variants are certainly possible.

reduce {$_ < 0} $a, $b, $c, $d, $e, $f;

That's being worked on/in the suggestion box. (See the p5p mailing list).

,, >ifeither could be generalized to
,, >ifeither($a, $b, $c, $d, $e, $f <= $value || $b, $c);  # etc. . .
,, 
,, I don't grok at all what this code is supposed to do...
,, 
,, >I know that there isn't an ifeither in Perl, but such a function would be
,, >_very_readable_ indeed.

Really? Just like Sean, I've no idea what the generalized ifeither
is supposed to do.

,, >What other idioms do you all use for the above situation?  Please comment,
,, >maybe there are already better ways?
,, 
,, Here's how I would probably do it, if the number of values to be tested is
,, small:
,, 
,, last if map($_ < 0 ? 1 : (), $a, $b, $c, $d, $e, $f);


That's a funny way of using map.


How about:

    last if grep {$_ < 0} $a, $b, $c, $d, $e, $f;


However, that doesn't shortcut. If $a == -1, it will compare all
the variables with 0, even if we don't care about them.

But, luckely, last has an optional argument:

LOOP:
    while (1) {
        # do some stuff.
        foreach ($a, $b, $c, $d, $e, $f) {last LOOP if $_ < 0}
    }



Abigail
-- 
perl -wle 'print "Prime" if (1 x shift) !~ /^1?$|^(11+?)\1+$/'


------------------------------

Date: Sat, 17 Apr 1999 21:34:45 -0500
From: "William H. Asquith" <asquith@macconnect.com>
Subject: Re: ifeither--How about some feedback?
Message-Id: <7fbgo8$9b6@enews4.newsguy.com>

Wow, I like this one, as long as we're using 5.005.  Really Cool Ilya!

----------
In article <7fb58c$cfi$1@mathserv.mps.ohio-state.edu>,
ilya@math.ohio-state.edu (Ilya Zakharevich) wrote:


> [A complimentary Cc of this posting was sent to Randal L. Schwartz
> <merlyn@stonehenge.com>],
> who wrote in article <m1iuauq36b.fsf@halfdome.holdit.com>:
>> No need for new syntax:
>>
>>     my ($a,$b,$c,$d,$e,$f);
>>
>>     OUTER: while (1) {
>>       ## do some stuff
>>       for ($a,$b,$c,$d,$e,$f) {
>>  last OUTER if $_ < 4;
>>       }
>>     }
>
> No needs for these hoop either:
>
>    require 5.005;
>    while (1) {
>      ## do some stuff
>      $_ < 4 and last for ($a,$b,$c,$d,$e,$f);
>    }
>
> Or even
>
>    last if grep $_ < 4, $a,$b,$c,$d,$e,$f;
>
> Ilya


------------------------------

Date: 18 Apr 1999 02:41:40 GMT
From: abigail@fnx.com (Abigail)
Subject: Re: invoking by "fire and forget"
Message-Id: <7fbgp4$m4f$2@client2.news.psi.net>

e_broyles (e_broyles@yahoo.com) wrote on MMLV September MCMXCIII in
<URL:news:7fb4re$saf$1@nnrp1.dejanews.com>:
|| How can I start a perl program via the web and not have it stop?

This should do:

   BEGIN {1 while 1;}


[ Non-Perl problems related to browsers, IIS and NT deleted ]



Abigail
-- 
perl -MLWP::UserAgent -MHTML::TreeBuilder -MHTML::FormatText -wle'print +(
HTML::FormatText -> new -> format (HTML::TreeBuilder -> new -> parse (
LWP::UserAgent -> new -> request (HTTP::Request -> new ("GET",
"http://work.ucsd.edu:5141/cgi-bin/http_webster?isindex=perl")) -> content))
=~ /(.*\))[-\s]+Addition/s) [0]'


------------------------------

Date: 18 Apr 1999 02:04:24 GMT
From: "Kimbrough Gray" <kimbrough.gray@amd.com>
Subject: last cflow message unclear
Message-Id: <01be893f$c81e0c70$6bb1b5a3@tuffy>


I realized that my last message was not very clear.

I was looking at the cflow command which
seems to produce an outline of external function calls for c programs
does anyone know a command that will do a similar thing
for perl programs


------------------------------

Date: 17 Apr 1999 20:18:10 -0700
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: last cflow message unclear
Message-Id: <371940e2@cs.colorado.edu>

 [courtesy cc of this posting sent to cited author via email]

In comp.lang.perl.misc, "Kimbrough Gray" <kimbrough.gray@amd.com> writes:
:I was looking at the cflow command which
:seems to produce an outline of external function calls for c programs
:does anyone know a command that will do a similar thing
:for perl programs

Didn't I just answer this already?

--tom
-- 
At MIT the server is the unit of invention.  --Rob Pike


------------------------------

Date: 18 Apr 1999 02:55:17 GMT
From: abigail@fnx.com (Abigail)
Subject: Re: Looking for better ways of solving a pattern matching and replacement task...
Message-Id: <7fbhil$md4$1@client2.news.psi.net>

Ian Berwick (ianb@zedat.fu-berlin.de) wrote on MMLV September MCMXCIII in
<URL:news:Pine.SGI.3.96.990417232408.21073A-100000@Komma.ZEDAT.FU-Berlin.DE>:
[] 
[] Short: is there a more elegant solution to the following problem?

I would do more or less the same.

[] #!/usr/bin/perl
[] # Silly script to translate from Human to Sheep
[] 
[] $text = "Put an example 'Text' here!\n";
[] 
[] print $text;
[] 
[] # Change all chars to a/A
[] 
[] $text =~ s/[a-z]/a/g;
[] $text =~ s/[A-Z]/A/g;
[] 
[] # Change all word endings to h/H
[] 
[] $text =~ s/[a-z]([\W])/h$1/g;
[] $text =~ s/[A-Z]([\W])/H$1/g;

That fails if the last word isn't followed by a non-char.
Use  s/[a-z]\b/h/g;
     s/[A-Z]\b/H/g;

[] # Change beginning of all words to b/B
[] 
[] $text =~ s/([\W])[a-z]/$1b/g;
[] $text =~ s/([\W])[A-Z]/$1B/g;

Idem:  s/\b[a-z]/b/g;
       s/\b[A-Z]/B/g;


Abigail
-- 
sub f{sprintf'%c%s',$_[0],$_[1]}print f(74,f(117,f(115,f(116,f(32,f(97,
f(110,f(111,f(116,f(104,f(0x65,f(114,f(32,f(80,f(101,f(114,f(0x6c,f(32,
f(0x48,f(97,f(99,f(107,f(101,f(114,f(10,q ff)))))))))))))))))))))))))


------------------------------

Date: 17 Apr 1999 23:57:57 -0400
From: Uri Guttman <uri@home.sysarch.com>
Subject: Re: New FAQ: How can I read in an entire file all at once?
Message-Id: <x7r9pilgvu.fsf@home.sysarch.com>

>>>>> "DE" == Dmitry Epstein <mitiaNOSPAM@nwu.edu.invalid> writes:

  DE> Well, a common program often looks like this:

  DE> 	read line from file A
  DE> 	do something
  DE> 	write line to file B

  DE> Unless you set large enough IO buffers, this will amount to going back
  DE> and forth between different sections of the hard drive, which, of
  DE> course, will slow you down a lot.  And is there even a command to set
  DE> the size of IO bufers in Perl?

typical stdio buffers are 8k which is plenty in normal use. you can
change the buffer size with setbuf (in POSIX IIR).

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: 18 Apr 1999 01:53:46 GMT
From: "Kimbrough Gray" <kimbrough.gray@amd.com>
Subject: newbie looking for cflow like command
Message-Id: <01be893e$4bc51f20$6bb1b5a3@tuffy>


It seems cflow only works on c programs.
Is there a command similar to cflow for perl?




------------------------------

Date: Sun, 18 Apr 1999 03:54:26 GMT
From: Eric Bohlman <ebohlman@netcom.com>
Subject: Re: online user groups/resources
Message-Id: <ebohlmanFAD9Iq.903@netcom.com>

Michael Doss <michaeldoss@atre.net> wrote:
: I'm looking to hire experienced perl authors, but I don't want to bother
: with online resume databases, or inaccurate web searches. Does anyone
: know of any resources out there where I could find perl programmers in a
: central location online, that wouldn't mind hearing about job postings?
: The resource doesn't need to be employment specific, just anywhere where
: perl programmers hang out.

If your needs are geographically specific, your best bet is probably to 
go to <URL:http://www.pm.org> and find out if there's a Perl Mongers 
group in the area where the job is.



------------------------------

Date: Sun, 18 Apr 1999 05:00:54 GMT
From: "Forest Johns" <fdjohns@home.com>
Subject: perl cgi - want to run on local system
Message-Id: <aGdS2.3895$1q5.3604@news.rdc1.bc.wave.home.com>

I am a web developer and am starting to dable in the programming side of
websites. I don't have an ISP that supports cgi on their server, is there
any way that I can run cgi scripts on my computer so that I can test cgi
scripts without uploading them to a cgi enabled server?  I have download and
installed perl, but I am guessing that I need some way for my computer to
take a local http request and run the perl engine. Any help would be greatly
appreciated.

Thanks,
Forest Johns
fdjohns@home.com




------------------------------

Date: Sun, 18 Apr 1999 04:15:03 GMT
From: ulrich@cooper.edu
Subject: Problematic subroutine..
Message-Id: <37195DAE.7ED70C16@cooper.edu>

Hey.. I've been having a bit of trouble with this subroutine, perhaps
anyone can be of assistance??  The subroutine looks like this..

sub Functions::input {
     local($num,$inp) = @_; # Get number of values
     $diff = 0;
     $arrayplace = 0;
     @minterms = ();
     while($diff<=$num) { # Acquire the binary values which are one
      $bindiff = &Utilities::convert($diff);
      $bindiff = &Utilities::bringnum($bindiff,$inp);
      print "Input value for $bindiff:\n";
      $info = <STDIN>;
      chomp $info;

      if($info==1) { # Put the inputted one values in array
       $minterms[$arrayplace] = $bindiff;
       $arrayplace++;
      }
      $diff++;
     }
     return @minterms; # Return minimized array
    }

I then invoke this lovely subroutine as follows..

@value = &Functions::input($varnum,$varlen);

does anyone see why when I parse and run this sucker, it just sits there
dead at the assignment to the array?? it runs through all the input
statements too.. I can't tell what's going on.. thanky kindly my
friends!!

Matty U!



------------------------------

Date: Sat, 17 Apr 1999 18:23:48 -0700
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: Removing file extentions
Message-Id: <MPG.1182d3fb639ca5629898d0@nntp.hpl.hp.com>

[Posted and a courtesy copy sent.]

In article <3718f9a9.0@news.hawaii.rr.com> on Sat, 17 Apr 1999 14:09:51 
-1000, Michael Ching <m_ching@hotmail.com> says...
> <me@here.com> wrote in message news:3718f058.27190495@nntp.noc.netcom.net...
> >
> > Does anyone have a sly method (must be CPU friendly, some of
> > these directories hold 2,000 files) which will remove only the last
> > instance of a period and any characters following?
 ...
> $link =~ s/\.[^\.]*//;

I have rearranged your post so it proceeds in logical order, and trimmed 
all the extraneous stuff instead of blindly copying everything.

I doubt that you tested your regex before posting it.  It converts 
'foo.bar.baz' to 'foo.baz' which is not what is wanted.

Here is a correct (and tested!) regex:

  $link =~ s/\.[^.]*$//;

This removes a trailing period as well.  If not desired, change the * to 
+ and it will remove only a complete file extension.

-- 
(Just Another Larry) Rosler
Hewlett-Packard Company
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com


------------------------------

Date: Sun, 18 Apr 1999 03:47:42 GMT
From: Eric Bohlman <ebohlman@netcom.com>
Subject: Re: Split sizes instead of pattern?
Message-Id: <ebohlmanFAD97I.8Ls@netcom.com>

Michael Ching <m_ching@hotmail.com> wrote:
: Is there something wrong with substr?

IMHO, unpack is preferable to substr when extracting multiple fields from 
a fixed-length record.  Why?  Because unpack requires you to specify only 
one number per field, but multiple substr()'s require you to specify 
*two* numbers.  It's easy to get one of them wrong, or to forget to 
update one if the record structure gets changed (if the length of a field 
changes, with unpack you need merely change one value; with multiple 
substr()'s, you also need to change all the values for the fields after 
the one that changed).



------------------------------

Date: 18 Apr 1999 03:01:37 GMT
From: abigail@fnx.com (Abigail)
Subject: Re: Splitting length instead of delimiting character?
Message-Id: <7fbhuh$md4$2@client2.news.psi.net>

Mats Pettersson (mats.pettersson@falukuriren.se) wrote on MMLV September
MCMXCIII in <URL:news:3718C2EB.80CB147E@falukuriren.se>:
// Hi!

Please get rid of your posting behaviour, and/or your Mozilla excuse
for a newsreader. There's no excuse for posting the same thing 4 times.

// Is there som sort of '@fields = split_size /7,4,4,4.../' command in
// perl?


There's unpack() and @fields = /^(.{7})(.{4})(.{4})(.{4}).../';



Abigail
-- 
perl -wleprint -eqq-@{[ -eqw+ -eJust -eanother -ePerl -eHacker -e+]}-


------------------------------

Date: Sun, 18 Apr 1999 02:29:47 GMT
From: jnoviell@my-dejanews.com
Subject: Standard in from email --> HTML
Message-Id: <7fbg2l$56o$1@nnrp1.dejanews.com>

Greetings,

I have a simple perl script (on a UNIX box)that reads in the emails messages
(using standard in, not a POP login) and displays them on web pages(actually
inserts them into a database first). But, I'm having problems converting
French characters.

eg: An email message has h as a character

but displaying it in HTML gives =E9

Is there a way to convert it into its real character (or HTML character)to
display it on the web (like Hotmail.com can do).

With a search and replace pattern matching, I risk converting real equations
eg: 40+50=90 (with would replace =90 with the ASCII equivalent)

Any suggestions to solve the above would be appreciated.

Thanks

-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/       Search, Read, Discuss, or Start Your Own    


------------------------------

Date: Sun, 18 Apr 1999 01:52:20 GMT
From: nousnauts@my-dejanews.com
Subject: Thank you Dan: Web site(s)
Message-Id: <7fbdsj$3f4$1@nnrp1.dejanews.com>



> >
>
> For beginning a site like that, yes.  Getting things going on a
> Linux/Apache box with Perl is a good beginning point, then move things
> into C and get an OpenBSD box with secure Apache as you move along.
>
> O' Reiley and * Dummies books help me a lot.  Also, for anything Java,
> check the free Sun tutorials and info, www.Sun.com
>
> > Thanks,
> > Sincerely,
> > Rey
a
> >
> > -----------== Posted via Deja News, The Discussion Network ==----------
> > http://www.dejanews.com/       Search, Read, Discuss, or Start Your Own
> --
> Posted via Talkway - http://www.talkway.com
> Surf Usenet at home, on the road, and by email -- always at Talkway.
>
>

-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/       Search, Read, Discuss, or Start Your Own    


------------------------------

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 5409
**************************************

home help back first fref pref prev next nref lref last post