[7190] in Perl-Users-Digest
Perl-Users Digest, Issue: 815 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Aug 5 06:17:59 1997
Date: Tue, 5 Aug 97 03:00:28 -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 Tue, 5 Aug 1997 Volume: 8 Number: 815
Today's topics:
Re: [Q]: Use a Variable to Provide $vars to Split? <hollyhp@nospam.one.net>
Re: Are subs in a modules predeclared? <rootbeer@teleport.com>
Can I use a sub within a sub? <derrickm@herald-mail.com>
Re: filtering CR & CRLF from file <rootbeer@teleport.com>
Help me!!! SOS <webmaster@tdnet.it>
Re: Help me!!! SOS <rootbeer@teleport.com>
Help! Redirecting URL <ppchoa@contact.com.sg>
Help! Script Displayed <rick@eagleweb.net>
How-to cut the last characters of a varibles <Stephane.Robertson@hec.ca>
howto change variable to Variable <Stephane.Robertson@hec.ca>
I need help debugging (I've been trying for hours) <matthall@brigadoon.com>
Re: I need help debugging (I've been trying for hours) <rootbeer@teleport.com>
Re: Inserting within a string? (Kyzer)
Re: Inserting within a string? <merlyn@stonehenge.com>
Re: Inserting within a string? (Nathan V. Patwardhan)
Re: Inserting within a string? <smantri@osf1.gmu.edu>
Re: JAPH (was: function pointer dereferencing) (Pete Jordan)
Re: mapping output to specific xterm (Simon Lee)
Re: More on angle operator's ignorance (Thomas Honigmann)
Re: NT Perl Sources and problem <billc@tibinc.com>
Re: Perl Interface to /etc/passwd (Dirge )
Problem with Perl Modules... <serginho@alpha.hydra.com.br>
reading a file and having embeded variables intepreted( <oxenreid@state.net.no_spam>
running perl script ussen@hotmail.com
Simple perl question (Shriram Venkatraman)
Re: Simple Socket Question <mark@tstonramp.com>
Re: Simple Socket Question <rootbeer@teleport.com>
Re: socket based DNS lookup in perl5? (Michael Fuhr)
Re: Sorting a password file (Andrew M. Langmead)
Re: The Most Dangerous Script on the NET <sanford@halcyon.com>
Re: The Most Dangerous Script on the NET <nepuba@gnzh.rqh>
Re: Trouble With : Delimited Database <rootbeer@teleport.com>
Unparse form data? <anneke@intranet.org>
Re: Unparse form data? (Eric Bohlman)
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Tue, 05 Aug 1997 00:41:09 -0400
From: Holly Henry-Pilkington <hollyhp@nospam.one.net>
Subject: Re: [Q]: Use a Variable to Provide $vars to Split?
Message-Id: <33E6AEE5.595C@nospam.one.net>
Thanks to Tad as well as some private emailers for the assist. :)
Tad McClellan wrote:
>
> Holly Henry-Pilkington (hollyhp@nospam.one.net) wrote:
[snip]
> : I have one area of said lovely perl code that doesn't like a variable
> : array of variable names, and that is a split command. Said variable
> : array might be defined something like this:
>
> : @split_fields=($fee, $fi, $fo, $fum)
>
> : in the interest of being able to feed these $variables to split in a
> : command that is currently written like this:
>
> : ($fee, $fi, $fo, $fum) = split (/$delimiter/, $line_to_be_split)
>
> This can be done, but your script will become somewhat less lovely ;-)
When I say lovely, I mean that it does what I want it to do -- but then
I haven't tried to write any perl poetry. ;-)
> : (@split_fields) = split (/$delimiter/, $line_to_be_split)
>
> Overwrites the values in @split_fields array. Not what you want.
I kinda suspected that. :(
> : or any trial and error variant thereof that I have come up with thus
> : far. So I'm probably overlooking something obvious syntax-wise here, but
> : [what I've done/read] thus far failed to illuminate the darkened
> : lightbulb over my coding head...
> Seek illumination by looking for 'Symbolic references'
> in the perlref man page...
Would you believe (she said in best Maxwell Smart voice) there's no
perlref mapage on my server? Ah, but yes, I did look it up on the
wonderful html version at:
ftp://enterprise.ic.gc.ca/pub/perl/CPAN//doc/manual/html/index.html
(hint, hint for anyone else who suffers from the missing manpages
syndrome!). I must admit that, like the section describing symbolic
references in the camel book, I don't quite "get it" yet, but I'm
working on that. Meanwhile...
> Warning!
>
> Ugly code follows...
The code supplied by Mr. McClelland DOES turn on the light in that I
understand that I can solve my problem by having the variable names
entered as text rather than as $variables at the top and must then parse
THOSE into something my script understands as variables when I'm
actually putting something IN them. Aha! See? caffeine IS bad for you!
;) So said code snippet turns out like this (with a bit more elaboration
so you can see where I was going with this):
###lots of stuff comes before this:
$d = quotemeta($delimiter);
foreach $data_row (@database_rows) {
chomp($data_row);
@fields = split(/$d/o, $data_row);
# Name the fields with the names supplied in the variable
@pending_fields:
&CgiDie ("Not enough fields in the Data Row!") unless
@pending_fields == @fields;
for ($i=0; $i<@pending_fields; $i++) {
${$pending_fields[$i]} = $fields[$i];
} # which should look suspiciously familiar to Tad!
# Grab only the @display_fields for display:
for ($j=0; $j<@display_fields; $j++) {
$table_fields[$j] = ${$display_fields[$j]};
}
# Use &table_rows with @display_fields to generate the table row for
# the $database_row we're on:
$table_row = &table_rows (@table_fields);
print "$table_row\n";
print "<TD><INPUT TYPE=checkbox
NAME=\"add$counter\"VALUE=\"yes\">$chktext $table_fields[$col]</TD>\n";
print "</TR>\n";
$counter++;
} # end foreach
# Finish up the remaining html, etc. after this
###
And now the code is quite recyclable! :) I have one remaining question,
and that is about the $delimiter and its later transition to $d. In the
variables declaration, I set the delimiter for the data file. In my
case, the delimiter is a pipe (|). Of course, this must be escaped, and
if I do it explicitly in the split command like this:
@fields = split(/\|/o, $data_row);
it works fine. If I define delimiter like so:
$delimiter="\|";
and replace \| in the split line shown above with $delimiter, it doesn't
work. Likewise, if I put the $d = quotemeta ($delimiter); immediately
after the declaration of $delimiter, it does not work. It only seems to
work if I quotemeta immediately before the foreach section I started
with in the code snippet above. Keep in mind that $d and $delimiter are
not used anywhere else other than what you see above, so I don't think
I'm reassigning the value of them. But of course this nice little
program would be even more recyclable if the \ or quotemeta could be up
in the variable declaration section so I wouldn't have to go a hunting
to comment it out. :-)
Holly <my programs are never REALLY finished>
You know what to get rid of in the header to email me.
------------------------------
Date: Mon, 4 Aug 1997 16:55:00 -0700
From: Tom Phoenix <rootbeer@teleport.com>
To: Chris Schoenfeld <chris@ixlabs.com>
Subject: Re: Are subs in a modules predeclared?
Message-Id: <Pine.GSO.3.96.970804163544.12101E-100000@kelly.teleport.com>
On Mon, 4 Aug 1997, Chris Schoenfeld wrote:
> I noticed I do not have to use () after my argumentless subs called from
> modules. e.g. Module->Dostuff;
Not to nitpick, but that's not strictly speaking a module call, but an OO
call. (Inheritance may come into play.)
> Is this because they are automatically predeclared?
If I understand what you're asking, no. Essentially, you need only let
Perl know that you don't want something unknown to be interpreted as a
string, which is the default. (But see below for how to change the
default, and why this is a good idea.)
$foo = insight;
That is, if Perl sees at compile time that you don't have a sub insight,
it will assume (by default) that you mean to assign the seven-character
string 'insight' to $foo. This isn't due to a lack of insight on Perl's
part, it's due to a lack of &insight. If you have &insight (that is, if
you've defined that sub by the time the compiler sees that line) Perl will
assume that you meant to assign the result of the sub call to $foo.
(Corollary: This code will do something _interesting_.)
$foo = insight;
sub insight { "Aha!" }
$bar = insight;
print "This could be a hard-to-find bug: $foo $bar\n";
When you call a sub in one of these ways, though,
$foo = &insight; # One way to call a sub
$foo = insight(); # Not the same! (see docs)
$foo = Package->insight; # OO calling syntax
...there's no ambiguity. Perl knows that you can't mean the string, so you
always get the function call.
Moral: Use the 'use strict' pragma, so that Perl can help you keep from
having mysterious hard-to-find bugs. And -w doesn't hurt, either.
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/
------------------------------
Date: Mon, 04 Aug 1997 18:34:25 -0400
From: Derrick Miller <derrickm@herald-mail.com>
Subject: Can I use a sub within a sub?
Message-Id: <33E658BE.871FE869@herald-mail.com>
In Perl, can I call a subroutine from another subroutine??
In other words, will the following code snippet work? I have something
very similar, and @print_popup works when called from the main program
body, but not when called from within @main_menu. It is making me angry.
Please help.
@main_menu;
sub main_menu {
@print_popup;
}
sub print_popup{
print "<SELECT NAME=\"choice1\">\n";
print "<OPTION VALUE=\"Yes\">Yes</OPTION>\n";
print "<OPTION VALUE=\"No\">No</OPTION>\n";
print "</SELECT>";
}
------------------------------
Date: Mon, 4 Aug 1997 17:26:25 -0700
From: Tom Phoenix <rootbeer@teleport.com>
To: Shane Zatezalo <shane@fammed.ohio-state.edu>
Subject: Re: filtering CR & CRLF from file
Message-Id: <Pine.GSO.3.96.970804172445.12101H-100000@kelly.teleport.com>
On 4 Aug 1997, Shane Zatezalo wrote:
> Anyone have an easy way to filter a file
> to change to<->from cr & crlf?
Sure, use Perl! :-)
perl -pi.bak -e 's/old/new/g' somefiles*
Just use the right stuff for old and new. :-) 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/
------------------------------
Date: Fri, 01 Aug 1997 11:42:53 +0200
From: Webmaster <webmaster@tdnet.it>
Subject: Help me!!! SOS
Message-Id: <33E1AF9D.2BDD@tdnet.it>
Salve,
sapete dirmi come posso fare una ricerca case insensitive?
Grazie mille!!
Halle,
how I make a search case insensitive?
Thanks!!!
------------------------------
Date: Mon, 4 Aug 1997 21:28:23 -0700
From: Tom Phoenix <rootbeer@teleport.com>
To: Webmaster <webmaster@tdnet.it>
Subject: Re: Help me!!! SOS
Message-Id: <Pine.GSO.3.96.970804212503.9341F-100000@kelly.teleport.com>
On Fri, 1 Aug 1997, Webmaster wrote:
> how I make a search case insensitive?
Use the /i option, like this. It's documented in the perlop(1) manpage.
/match_this/i;
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/
------------------------------
Date: Tue, 05 Aug 1997 11:08:44 +0800
From: Choa Peng Peng <ppchoa@contact.com.sg>
Subject: Help! Redirecting URL
Message-Id: <33E6993C.2198F13@contact.com.sg>
Hi,
I'm having problem redirecting to another URL in my Perl5 script.
Currently, I'm trying:
print $query->redirect('http://xxx.pm'); and/or
print $query->redirect(-uri=>'http://xxx.pm', -nph=>1);
without any success. I'm using netscape enterprise web server. This
xxx.pm runs well if I access from the browser directly.
The netscape browser returns(on the same page):
HTTP/1.0 302 Found Status: 302 Found Uri: http://xxx.pm Location:
http://xxx.pm Content-type: text/html
ps: xxx-is replaced by actual path and program name
How can I solve this problem? Do I miss out anything?
Thanks,
peng
------------------------------
Date: 4 Aug 1997 18:08:01 GMT
From: "Purcell's Business Products" <rick@eagleweb.net>
Subject: Help! Script Displayed
Message-Id: <01bca100$ddddbde0$179198cd@main>
I have installed Perl on my NT 4 server and can execute perl scripts from
the command line. I have also added the .pl extension in the registry.
My problem is that whenever I call a perl script from the browser (with the
? following the pl extenstion) the text of the script is displayed in the
browser.
I think it is a matter of association but I have not been able to figure it
out yet.
I am using IIS
Thanks
Richard Durham
webmaster@eagleweb.net
------------------------------
Date: Mon, 04 Aug 1997 18:25:55 -0400
From: Stephane Robertson <Stephane.Robertson@hec.ca>
Subject: How-to cut the last characters of a varibles
Message-Id: <33E656F3.76BE4B9A@hec.ca>
Hello,
How can I cut the last characters of a variable?
For example: I need to use printf "%20s", $variable;
and if the $variable is more than 20 characters I want it
to be cut to the 20th characters. Even if the variable is
more then 20 characters
I want 20 characters to be printed on the screen.
How do I do that?
Thanks in advance
Stephane
EMAIL: Stephane.robertson@hec.ca
------------------------------
Date: Mon, 04 Aug 1997 18:30:39 -0400
From: Stephane Robertson <Stephane.Robertson@hec.ca>
Subject: howto change variable to Variable
Message-Id: <33E6580F.384675A9@hec.ca>
Hello,
How can we change the first character of a variable to upper case
like this:
$my_variable = "hello";
^
I want it to be :
$my_variable = "Hello";
^
thankx in advance.
Stephane
EMAIL = Stephane.Robertson@hec.ca
------------------------------
Date: 4 Aug 1997 21:35:27 GMT
From: "Matt D. Hall" <matthall@brigadoon.com>
Subject: I need help debugging (I've been trying for hours)
Message-Id: <01bca11f$a165e940$965a81ce@matthall>
Hey group, I could *really* use some help debugging a search script I've
been
writing. I've printed out on paper, studied, found no bugs. Studied in
electronic form, found no bugs. The shell I have access to will not allow
me to
execute from the command line, so that's no help. Can you guys and girls
please
take a real good look at my code, and search for those bugs? I really need
you
to help me here (other people often see things that you might miss on your
own). Thanks!
Please tell me about the bugs or ask questions via e-mail instead of the
newsgroup since I rarely find time to read my newsgroups. E-Mail me at:
matthall@brigadoon.com
If you wish to see the files that are being searched, just ask and I'll
send
'em to you (there just simple files I created to let me know if the script
works). Or if you would like to see the library being used (X-Perl), I'll
send
it to you. The code is as follows...
#!/usr/bin/perl
######### Settings #########
@Files = ("search1.htm", "search2.htm", "search3.htm");
$Href = "http://www.sprockets.com/";
$Fontsize = 2;
$Bgcolor = "#FFFFFF";
$Background = "";
$Textcolor = "#000000";
$Logo = "";
$SearchName = "Sprocket Search";
######### Begin CGI #########
require "xperl.cgi";
&ParseQuery(*input);
$Search = "$input{'search'}";
$Case = "$input{'case'}";
$IncludeCount = 0;
$Results = "";
if ($Logo ne "")
{
$Logo = "<center>\n<img src=\"$Logo\">\n</center>\n<br>\n";
}
if ($Background ne "")
{
$Background = " background=\"$Background\"";
}
if ($Search eq "")
{
&CgiError("Missing search phrase", "You'll have to supply what phrase
you
would like $SearchName to look for. <A HREF=\"$ENV{'HTTP_REFERER'}\">Go
back</A> and do so now.");
}
foreach $file (0..$#Files)
{
open(FILE, "$Files[$file]");
@Lines = <FILE>;
close(FILE);
$SearchFile = join(" ",@Lines);
if ($Case eq "insensitive")
{
if ($SearchFile =~ /$Search/i)
{
$include[$file] = 1;
$IncludeCount++;
}
else
{
$include[$file] = 0;
}
}
else
{
if ($SearchFile =~ "$Search")
{
$include[$file] = 1;
$IncludeCount++;
}
else
{
$include[$file] = 0;
}
}
if ($SearchFile =~ /<title>(.*)<\/title>/i)
{
$Titles[$file] = "$1";
}
else
{
$Titles[$file] = "$Files[$file]";
}
if ($SearchFile =~ /<!-- LOCATION="(.*)" -->/i)
{
$Hrefs[$file] = "$1";
}
else
{
$Hrefs[$file] = $Href . $Files[$file];
}
if ($include[$file] == 1)
{
$KeyToNum{$Titles[$file]} = $file;
}
}
foreach $key (sort keys(%KeyToNum)))
{
$Results .= "<li><a
href=\"$Hrefs[$KeyToNum{$key}]\">$Titles[$KeyToNum{$key}]</a>";
}
if ($Results eq "")
{
$Results = "<center><font color="#FF0000">No matches
found!</font></center><br>";
}
&Header;
print STDOUT <<EOF;
<html>
<head>
<title>$SearchName</title>
</head>
<body bgcolor="$Bgcolor" text="$Textcolor"$Background>
<basefont size="$Fontsize">
$Logo
<center><b>$SearchName</b> found the search string "<b>$Search</b>" in
these
<b>$IncludeCount</b> files:<p>
<hr>
</center>
<ul>
$Results
</ul>
<hr align="center">
<center><a href="$ENV{'HTTP_REFERER'}">Search for another
phrase</a>?</center>
</body>
</html>
EOF
THANKS! THANK YOU! And more... THANKS!
--
Matt D. Hall
matthall@brigadoon.com
------------------------------
Date: Mon, 4 Aug 1997 17:39:48 -0700
From: Tom Phoenix <rootbeer@teleport.com>
To: "Matt D. Hall" <matthall@brigadoon.com>
Subject: Re: I need help debugging (I've been trying for hours)
Message-Id: <Pine.GSO.3.96.970804172906.12101I-100000@kelly.teleport.com>
On 4 Aug 1997, Matt D. Hall wrote:
> The shell I have access to will not allow me to execute from the command
> line, so that's no help.
You can install Perl on your own machine and run Perl from there. Or you
can do it the way the cavemen did it before the command-line debugger was
invented, and just keep putting in print statements until you find out
what's wrong. (I'm only half joking, because this method can actually
work.)
> #!/usr/bin/perl
>
> ######### Settings #########
> @Files = ("search1.htm", "search2.htm", "search3.htm");
Oh, if you're not using -w and 'use strict' to help you find bugs, you're
not trying hard enough! (I should probably stop here, but I can't help
myself.)
> require "xperl.cgi";
> &ParseQuery(*input);
If you would use CGI.pm, you would be able to debug from the command line
very easily.
> $Search = "$input{'search'}";
Those double quotes are only misleading. (And I'd even leave out the
singles.) You'll be using this string later in a regular expression. Don't
you want to do some validation to ensure that it doesn't have, say,
unmatched parens? Or do you want to use quotemeta on it?
> open(FILE, "$Files[$file]");
Maybe that open is failing. Since you're not checking, we'll never know!
:-) Always check the return value from open.
> @Lines = <FILE>;
> close(FILE);
> $SearchFile = join(" ",@Lines);
That's not necessarily the best way to do that. I would think you would
want to search line-by-line, since this can take a lot of memory for large
files. But if you do want to slurp the whole thing, there are more
efficient ways. (And better, too. Do you mean to be putting spaces between
your lines?)
> if ($SearchFile =~ /$Search/i)
Here's where you may want \Q, and possibly /o. (They're in the docs.)
Well, that's enough for me. Somebody else will probably point out another
half-dozen items worthy of fixing. Have fun with it!
--
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/
------------------------------
Date: 4 Aug 1997 19:35:18 GMT
From: junkmail@sysc.abdn.ac.uk (Kyzer)
Subject: Re: Inserting within a string?
Message-Id: <5s5atm$2g$1@info.abdn.ac.uk>
Hurrah, for 'tis said that Burt Lewis did write:
: I think this is simple, but once again I can't seem to get it.
: I have a string: aaaaaaaaaaaaaa
: I want to insert the letter x after the 5th a
: new string: aaaaaxaaaaaaaaa
: Appreciate any help on this.
The simple answer is $str='aaaaaaaaaaa'; $str =~ s/^aaaaa/aaaaax/;
Whether it's what you really want is another thing altogether :)
--
Stuart 'Kyzer' Caie, Aberdeen University, Scotland. Email to: kyzer@4u.net
My opinions are not those of Aberdeen University, and I do not speak for or
on behalf of AUCC.
..100% Amiga, forever!.. http://www.abdn.ac.uk/~u13sac/
--
Random sig of the day:
Mr Bishop from next door used to complain of a drafty passage, saucy devil.
------------------------------
Date: 04 Aug 1997 16:25:04 -0700
From: Randal Schwartz <merlyn@stonehenge.com>
To: SHIVA MANTRI <smantri@osf1.gmu.edu>
Subject: Re: Inserting within a string?
Message-Id: <8cwwm1tttb.fsf@gadget.cscaper.com>
>>>>> "SHIVA" == SHIVA MANTRI <smantri@osf1.gmu.edu> writes:
SHIVA> On 4 Aug 1997, it was written:
>> I have a string: aaaaaaaaaaaaaa
>>
>> I want to insert the letter x after the 5th a
>>
>> new string: aaaaaxaaaaaaaaa
>>
SHIVA> Here is a reply from an amatuer (who replied from what he read till now)
SHIVA> This thing can be resolved w/ references (I think) more easily.
Or even a built-in function.
SHIVA> #!/usr/local/bin/perl
[15 line script deleted, using split and arrays...]
Or even:
substr($str, 5, 0) = "x";
substr is your friend. Use substr.
print "Just another Perl hacker," # but not what the media calls "hacker!" :-)
## legal fund: $20,495.69 collected, $182,159.85 spent; just 392 more days
## before I go to *prison* for 90 days; email fund@stonehenge.com for details
--
Name: Randal L. Schwartz / Stonehenge Consulting Services (503)777-0095
Keywords: Perl training, UNIX[tm] consulting, video production, skiing, flying
Email: <merlyn@stonehenge.com> Snail: (Call) PGP-Key: (finger merlyn@ora.com)
Web: <A HREF="http://www.stonehenge.com/merlyn/">My Home Page!</A>
Quote: "I'm telling you, if I could have five lines in my .sig, I would!" -- me
------------------------------
Date: 4 Aug 1997 19:11:24 GMT
From: nvp@shore.net (Nathan V. Patwardhan)
Subject: Re: Inserting within a string?
Message-Id: <5s59gs$1og@fridge-nf0.shore.net>
Burt Lewis (Burtlewis@ici.net) wrote:
: I have a string: aaaaaaaaaaaaaa
: I want to insert the letter x after the 5th a
: new string: aaaaaxaaaaaaaaa
There's a whole bunch of ways to do this ...
Well, you could use substr(), like:
$word = "aaaaaaaaaaaaaa"; $before = substr($word, 0, 5);
$after = substr($word, 6, length($word)); $final = $before."x".$after;
print $final."\n"; # blech!
Or even:
$word = "aaaaaaaaaaaaaa";
print substr($word, 0, 5)."x".substr($word, 6, length($word))."\n";
Or you could roll your own (blech):
$i=0;
$word = "aaaaaaaaaaaaaa";
(@chars) = split(//, $word);
for(@chars) { $i++; $_ = $_."x" if $i == 5; push(@new_word, $_);
print join("", @new_word)."\n";
Or ... (you get the picture).
--
Nathan V. Patwardhan
nvp@shore.net
------------------------------
Date: Mon, 4 Aug 1997 15:41:37 -0400
From: SHIVA MANTRI <smantri@osf1.gmu.edu>
To: Burt Lewis <burt@ici.net>
Subject: Re: Inserting within a string?
Message-Id: <Pine.OSF.3.95q.970804153755.27156B-100000@osf1.gmu.edu>
On 4 Aug 1997, it was written:
> I think this is simple, but once again I can't seem to get it.
>
> I have a string: aaaaaaaaaaaaaa
>
> I want to insert the letter x after the 5th a
>
> new string: aaaaaxaaaaaaaaa
>
> Appreciate any help on this.
>
> Burt Lewis
>
> burt@ici.net
>
>
>
Here is a reply from an amatuer (who replied from what he read till now)
This thing can be resolved w/ references (I think) more easily.
#!/usr/local/bin/perl
$string = "aaaaaaaaaa";
print $string, "\n";
#SPLIT THE STRING AND PUT IT IN AN ARRAY AND STORE THE ARRAY LENGTH
@array1 = split(/ */, $string);
$temp = @array1;
#COPY THE FIRST FEW ELEMENTS
@array2[0..3]= @array1[0..3];
#PUT x
$array2[4] ="x";
#COPY THE REMAINING ELEMENTS
@array2[5..$temp] = @array1[4..$temp];
@array1 = @array2;
print @array1, "\n";
Shiva..
---
7032738119,7039938736
------------------------------
Date: Tue, 05 Aug 1997 00:32:40 GMT
From: pete@horus.cix.vapethis.co.uk (Pete Jordan)
Subject: Re: JAPH (was: function pointer dereferencing)
Message-Id: <memo.19970805013241.41895A@horus.cix.co.uk>
Tom Grydeland <tom@mitra.phys.uit.no> wrote:
> > "'Not twisted,' Salzy once said of her own
> > passion, 'it is helical. That sounds better.'"
>
> Indeed it does
Are we allowed an R A Lafferty thread in here :)
Pete Jordan
= = = = = = = = = = = = = = = = = = = = = = =
Horus Communications
http://www.horus.cix.co.uk/
= = = = = = = = = = = = = = = = = = = = = = =
"'Not twisted,' Salzy once said of her own
passion, 'it is helical. That sounds better.'"
------------------------------
Date: Sun, 03 Aug 1997 20:05:14 GMT
From: simon_lee@super.zippo.com (Simon Lee)
Subject: Re: mapping output to specific xterm
Message-Id: <33e9d395.6439779@snews.zippo.com>
On 4 Aug 1997 14:02:22 GMT, tphilip@bnr.ca (Teebu Philip) enlightened
us with:
>
>I would like to map input provided by a user as input to a specific xterm
>that I have spawned from my perl script. A pointer to where in the FAQ or
>in the camel book or a code fragment would be appreciated.
>
This is not in camel.
I did it by getting the perl script to write a #!/bin/csh file which I
chmod +x, then execute, e.g.
#!/bin/csh
/some_path/to/your/exe <<RUN
1
2
quit
RUN
That launches your prog & chooses option 1 then 2 <cr> then quit. Its
a bit messy but it gets the job done. BTW if I try to redirect the
output to /dev/null I get an error. I'm sure there must be a more
elegant solution somewhere.
Simon
------------------------------
Date: 4 Aug 1997 18:06:10 GMT
From: honig@kummer.mathematik.hu-berlin.de (Thomas Honigmann)
Subject: Re: More on angle operator's ignorance
Message-Id: <5s55mi$mcb@suncom.rz.hu-berlin.de>
In article <xz2afjenu23.fsf@uebemc.siemens.de>, Ronald Fischer wrote:
>I recently posted a message about problems with the angle operator,
> while(<>) { ... }
>in that it bails out on filenames starting with a '+' sign (giving the
>message "can't open file" although the file is clearly readable).
According to the perlop manpage while(<>) { ... } is equivalent to
while ($ARGV = shift) { open(ARGV, $ARGV); while (<ARGV>) { ... }
(Actually it seems more like
while (...) { open(...) or warn "Can't open $ARGV: $!\n"; ...
but this isn't the point.)
Now look up open() in the perlfunc manpage and you will find that
a leading '+' in the filename has a special meaning: open with
read and write access (actually the man page only talks about
'+<' and '+>' but since it also states that '<' can be ommitted ...
don't know whether this should be considered a bug in the manpage
or in the implementation). So if you have a '+xxx' in your @ARGV
perl tries to open 'xxx' (don't believe me: see yourself with
strace/truss or alike).
>I checked that the same occurs on files starting with a '-' sign, but
Since '-' doesn't have a special meaning for open() this must be
a different problem. The only reason I can imagine right now is
that perl has erronously taken your filename for a switch. This
can happen if perl is called without a scriptname (the script
given just by -e). To avoid this kind of ambiguity use '--'
between between the switches and the arguments you want in @ARGV
(see the perlrun man page):
perl -e 'while(<>) { ... }' -- -xxx
>did not find any other "magical" characters leading to this
>behaviour.
What I said above about open() shows that '>', '<' and any
whitespace should also be "magical" and in fact there are
(tested with perl 5.004 on Solaris). '>' behaves a little different
(as you may have guessed): having '>xxx' in @ARGV doesn't give
an error message (suitable permissions assumed) but instead
of reading from '>xxx' an empty file xxx is created.
As far as I can see there is no way to handle filenames
starting with whitespace (aside from using sysopen and
sysread of course) since leading whitespace is just
ignored by open(). To handle '+', '>', '<' in @ARGV you
might use
@ARGV = map { "<$_" } @ARGV;
before while(<>) { ... }, although this will give incorrect
error messages if any of the files in @ARGV doesn't exist.
OTOH this seems not such a big problem if @ARGV is generated
by shell wildcards.
HTH,
Thomas
------------------------------
Date: Mon, 04 Aug 1997 18:42:43 -0400
From: Bill Cowan <billc@tibinc.com>
To: rewards <rewards@compusmart.ab.ca>
Subject: Re: NT Perl Sources and problem
Message-Id: <33E65AE3.EE40D2A9@tibinc.com>
rewards wrote:
>
[SNIP]
> > Also does anyone know some good resource links for PERL on NT
> SERVER.
> >
>
> If you find anything regarding PERL on WinNT 4.0 Server I would
> appreciate knowing. I am a so-called Newbie to Perl let alone on a NT
> Server. It seems all the info and FAQ's is on UNIX. Some FAQ's or
> basic procedures would really help about now.
>
Useful URLs for Win32 Perl (NT Perl)
------------------------------------
Win32 Perl for Windows NT:
http://www.activeware.com/ [also online web pages]
http://www.perl.com/CPAN/ports/win32/Perl5/
Searchable Archive for Perl-Win32-users Mailing List:
http://www.divinf.it/perl-win32/index.sht
(Does not include messages for last 2 to 3 months.)
Evangelo's Frequently Asked Questions (FAQ):
http://www.endcontsw.com/people/evangelo/Perl_for_Win32_FAQ.html
Database access via ODBC by Dave Roth's Win32::ODBC module:
Win32::ODBC Home Page with Online Documentation:
http://www.roth.net/odbc/
Also see FAQ for database questions.
Download from:
http://www.perl.com/CPAN/authors/Dave_Roth/
CPAN has Win32 specific modules at:
http://www.perl.com/CPAN/modules/by-category/
and follow category 22 for Windows.
Note: These URLs also point to other Win32 Perl resources.
Misc URL's
----------
http://www.perl.com/CPAN/authors/Aldo_Calpini/
http://www.roth.net/perl/adminmisc.htm
http://www.netaxs.com/~joc/perlwin32.html
http://www.interlinx.qc.ca/~fil/Perl/
-- Bill
------------------------------------------------------------------------
Bill Cowan <billc@tibinc.com> Voice:919-490-0034 Fax:919-490-0143
Tiburon, Inc./3333 Durham-Chapel Hill Blvd Suite E-100/Durham, NC 27707
------------------------------
Date: 5 Aug 1997 07:37:13 GMT
From: mjw101@york.ac.uk (Dirge )
Subject: Re: Perl Interface to /etc/passwd
Message-Id: <5s6l79$j6$2@netty.york.ac.uk>
Creeping stealthily through the corridors of comp.lang.perl,
I overheard Matthew Burnham say:
: fozz@cray.com (Doran Barton) wrote:
: [snip]
: >Assuming you have crypt support, all you will need to do is utilize this
: >Perl functions:
: [snip]
: >sub crypt_passwd {
: > local($passwd) = @_;
: > local($salt);
: >
: > srand(time());
: > $salt = &to64(rand(32767),2);
: >
: > return(crypt($passwd,$salt));
: >}
: Since you know about using crypt properly, I can't get it to work
: properly in a .htpasswd file.
: Does it matter what salt I use?
: ie. can I do crypt($passwd, 'aa');?
: or can I do crypt($passwd, 'bb');
: and either one will work when htaccess validates the password?
It's generally a bad idea to use a set salt. I don't know about htaccess,
but when I was looking at crypt, ISTR that its process was to take a key
(the salt) and repeadtedly encrypt the password through use of that key,
with modifications happening each time. The encypted password is then
passed back with the initial salt tacked on the front so that the password
can be checked in the future. It is exceptionally hard to decrypt the
password, the only way a check can be made is by encrypting the passwd
again. Using a set salt will reduce the effectiveness of crypt.
: I can't see how it will manage to do this, since it would have to go up
: to at least (depending on how many different characters are valid) 26^2
: crypts to check for all the valid two-letter salts, etc.
Its higher than that.... around about 62^2, cos a slat can have
upper+lowercase and numbers. I don't think punctuation is used...
The point is that it is infeasible to try crakcing a passwd this way: you
have to know the passwd and salt in order to compare the two.
: Or, since I can't get htpasswd to work properly when I use perl's crypt
: function, has a particular salt got to be used?
I doubt it. The problem may well be that perl and htaccess do not use the
same crypt function.
: Will crypt yield the same results across platforms? ie. will I get the
: same crypt from the same salt on my own win95 system as on a FreeBSD
: system.
Well, ideally it should. However... the version of Perl I have on my
95machine doesn't have crypt due to "excessive paranoia" so I can't check.
--
Michael
"May all your dreams - bar one - be fulfilled"
A Sathuli blessing from the Drenai novels by David Gemmel.
------------------------------
Date: 4 Aug 1997 20:53:21 GMT
From: "Sergio Stateri Jr" <serginho@alpha.hydra.com.br>
Subject: Problem with Perl Modules...
Message-Id: <01bca118$d25f9de0$ca75e7c8@AFXTD_202.Autofax>
Hi ! I'm having problem with too many Perl Modules...I'm using Perl 5.004
under Windows NT Server 4.0. I really don't know what's happening. Is the
Most Perl Modules avaliable only for Linux ?? Per example : I Try to
install XBase module, Telnet module, NNTPClient Module, and nothing works..
Thanks for any help...
--
----------------------------------------------------------
Sergio Stateri Jr
Sco Paulo (SP) - Brazil
e-mail: serginho@mail.serve.com
----------------------------------------------------------
------------------------------
Date: Mon, 4 Aug 1997 23:55:16 -0500
From: Chris Oxenreider <oxenreid@state.net.no_spam>
Subject: reading a file and having embeded variables intepreted(sp).
Message-Id: <Pine.OSF.3.95.970804233112.32481C-100000@judith.state.net>
NOTE: Please remove the .no_spam at the end of my e-mail address to
reply.
(put there for obvious reasons)
Hi,
Ok, so im having a bit of brain block. I would like to do something with
perl, i am quite sure it can be/has been done.
I would like to take the output of a perl program and put the contents of
variables in to a form read in via the open statement, and output the
result.
Now, i cant seem to figure out how to do this. The output of this program
just prints the variable names, with out interpretation. (ie $f_name is
printed as
$f_name and not as chirs) The solution is something obvious, and i am
missing
it, please help. Thanks in advance.
Examples:
---
#!/usr/local/bin/perl
#
$f_name = "chris";
$l_name = "battenberg";
$bgcolor = "pink";
open (FILE, "/path/to/file.html") || die "can not open $!\n";
while (<FILE>) {
print "$_";
}
#end
---
---#file.html---
<html>
<head>
<title> Foo Bar</title>
<body BGCOLOR=\"$bgcolor\" >
<p>
Dear Mr. $l_name:</p>
<p>
$f_name, blah blah blah, doodle doodle dee, wubba, wubba wubba.
Emmmm Tee Veee Ski.
</p>
</body>
</html>
---end fiel.html---
===============================================================================
Christopher G. Oxenreider | I support the | Cute Quote Server Busy.
oxenreid@state.net.no_spam | E F F |
#include<std_disclaimer.h> | www.eff.org |
http://www.state.net/~oxenreid | Are you? |
===============================================================================
------------------------------
Date: Mon, 04 Aug 1997 13:11:57 -0600
From: ussen@hotmail.com
Subject: running perl script
Message-Id: <870717708.14240@dejanews.com>
I have installed perl and Omni on w95. Now I can get the Perl window
to
open and type my program but don't know how to run it and see if it
works.
there is no menu bar to give me the option "run x.pl". How does
httpd(omni) tie into this?
-------------------==== Posted via Deja News ====-----------------------
http://www.dejanews.com/ Search, Read, Post to Usenet
------------------------------
Date: 4 Aug 1997 16:17:45 -0500
From: shriramv@sashimi.wwa.com (Shriram Venkatraman)
Subject: Simple perl question
Message-Id: <5s5gtp$1oj@sashimi.wwa.com>
Hi Perl gurus,
How do you open a file in read/write access mode and read from it?
I tried open (FILEHANDLE, "+> $filename") and it truncated filename to 0;
so now, I cant read from it.
A sample of my code is:
#!/usr/bin/perl
$filename = "myfile";
open (FILEHANDLE, "+> $filename");
while (<FILEHANDLE>)
{
$contents .= <FILEHANDLE>;
}
close (FILEHANDLE);
print "$contents";
__END__
Any help will be appreciated, Thanks in advance
Shriram
------------------------------
Date: Mon, 04 Aug 1997 01:42:02 -0700
From: "Mark J. Schaal" <mark@tstonramp.com>
Subject: Re: Simple Socket Question
Message-Id: <33E595DA.7D21@tstonramp.com>
Technical Support wrote:
>
> I am trying to write a scoket based program that will spit out some
> text, ask the user for a name, and spit out user related text. What
> happens is that when I run the program, the socket is opened, it does
> the input and then spits out ALL of the text (before and after). I have
> the code written so it should print, then read, then print, but it seems
> to like to read first. any ideas?
>
I would help if you post a short example illustrating the problem.
One thing to note is that buffering is done differently for sockets
than for other filehandles and setting the socket to autoflush will
often produce behavior that seems more desirable.
mark
--
Mark J. Schaal TST On Ramp Sysadmin mark@tstonramp.com
------------------------------
Date: Mon, 4 Aug 1997 16:29:17 -0700
From: Tom Phoenix <rootbeer@teleport.com>
To: Technical Support <tech@penn.com>
Subject: Re: Simple Socket Question
Message-Id: <Pine.GSO.3.96.970804162703.12101C-100000@kelly.teleport.com>
On Mon, 4 Aug 1997, Technical Support wrote:
> I have the code written so it should print, then read, then print, but
> it seems to like to read first.
Sounds like buffering. Check out $| in perlvar(1) and maybe select() (one
arg) in perlfunc(1). 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/
------------------------------
Date: 4 Aug 1997 18:30:26 -0600
From: mfuhr@dimensional.com (Michael Fuhr)
Subject: Re: socket based DNS lookup in perl5?
Message-Id: <5s5s72$m86@flatland.dimensional.com>
"David J. Topper" <dtopper@pathfinder.com> writes:
> I'm about to start writing a socket based DNS lookup package using
> perl5, and am wondering if some of this work has already been done.
Yup -- you can always check the Comprehensive Perl Archive Network
(CPAN) to see if your particular wheel has already been built:
http://www.perl.com/CPAN/CPAN.html
> I know there is a socket module, but am really wondering if there are
> any of the libresolv routines available for perl5?
Net::DNS is a resolver written entirely in Perl. You can get it from
CPAN or from my homepage:
http://www.perl.org/CPAN/modules/by-module/Net/
http://www.dimensional.com/~mfuhr/perldns/
> I've heard there is a function which will allow me to send requests and
> not have to wait for a response using UDP.
Net::DNS has a background query, which sends off a UDP packet and returns
to you immediately. You can then do some other work while waiting for
the packet to return.
Hope this helps!
--
Michael Fuhr
http://www.dimensional.com/~mfuhr/
------------------------------
Date: Mon, 4 Aug 1997 21:20:55 GMT
From: aml@world.std.com (Andrew M. Langmead)
Subject: Re: Sorting a password file
Message-Id: <EEErAw.1Dy@world.std.com>
paries@advicom.net writes:
>I have a file that is : delimited
>uname:passwd:group:auth
>what I am trying to do is order by group and load it into a array of
>arrays fot one particular group or auth.
>Thanks for any help or pointers to doc.
Since you said that you would be thankful for pointers to
documentation, check <URL:http://www.perl.com/CPAN/doc/manual
/html/pod/perlfaq4/How_do_I_sort_an_aray_by_anyth.html>
For starters, though, you might be looking for something like this:
while(<FILE>) {
chomp;
push @data, [ split /:/ ]; # split record into array, push record onto list
}
# sorted records by group field.
@sorted = sort { $a->[2] <=> $b->[2] } @data;
Although your text implies you might be wanting the two dimensional
array have the first indice be the group or auth number, in which case
you may not even need to sort them to get them into this format.
while(<FILE>) {
chomp;
@record = split /:/;
push @{ $data[$record[2]] }, @record[0,1,3];
}
for $group ( 0 .. $#data ) {
for $record (@{$data[$group]}) {
print "$record->[0]:$record->[1]:$group:$record->[2]\n";
}
}
--
Andrew Langmead
------------------------------
Date: 04 Aug 1997 16:13:52 -0700
From: Sanford Morton <sanford@halcyon.com>
To: silvern@vetrol.com
Subject: Re: The Most Dangerous Script on the NET
Message-Id: <m3hgd5bky7.fsf@halcyon.com>
silvern@vetrol.com wrote:
> Please let me know where to find
> "The most dangerous script on the net"
There's one, aka "Executing Commands on a Unix Web Server", at
http://www.halcyon.com/sanford/cgi/exec.html
--------
Sanford Morton, Ph.D. CGI Resources
sanford@halcyon.com http://www.halcyon.com/sanford/cgi/
------------------------------
Date: 4 Aug 1997 23:44:15 GMT
From: Dennis Moore <nepuba@gnzh.rqh>
Subject: Re: The Most Dangerous Script on the NET
Message-Id: <5s5pgf$e2e@news.tamu.edu>
silvern@vetrol.com wrote:
: Please let me know where to find
: "The most dangerous script on the net"
here you go.. just be careful, and don't ask how it came into my hands!
#!/usr/bin/perl
# WARNING WARNING WARNING WARNING WARNING WARNING WARNING WARNING
# This is The *MOST* Dangerous Script On The Net (tm)
# WARNING WARNING WARNING WARNING WARNING WARNING WARNING WARNING
=head1 NAME
TheMostDangerousScriptOnTheNet - name says it all
=head1 SYNOPSIS
TheMostDangerousScriptOnTheNet
=head1 DESCRIPTION
=head2 History of C<TheMostDangerousScriptOnTheNet>
The original author, Ernest Scribbler, was found dead by his wife shortly
after running the Script for his first (and last) time. Mrs. Scribbler
didn't last long after retyping her husband's fateful last command.
Several brave police inspectors and computer hackers, in attempts to get to
the bottom of this most perilous script have also lost their lives.
It was not long before the army became interested in the military potential
of The Script. They spent long nights in Script-proof conditions trying to
create a German version of The Script. One of them saw two words of The
Script and spent several weeks in the hospital. Soon we had the joke in a
form which our hackers couldn't understand, but the Germans could. One
late July night, The Script was anonymously uploaded to a German FTP
site...
=head1 AUTHOR
Ernest Scribbler, RIP.
=cut
print "Wenn ist das Nunstuck git und Slotermeyer?\n";
print "Ja! Beiherhund das Oder die Flipperwaldt gersput!\n";
exit 0;
__END__
--
pity this busy monster, manunkind, | Dennis Moore | Sarah
not. Progress is a comfortable disease. | archon tamu.edu | McLachlan
-e.e. cummings: One Times One | archon on the irc | "Black"
If I cried me a river of all my confessions would I drown in my shallow regret?
------------------------------
Date: Mon, 4 Aug 1997 17:23:49 -0700
From: Tom Phoenix <rootbeer@teleport.com>
To: Phillip Lenhardt <philen@ans.net>
Subject: Re: Trouble With : Delimited Database
Message-Id: <Pine.GSO.3.96.970804171036.12101G-100000@kelly.teleport.com>
On Mon, 4 Aug 1997, Phillip Lenhardt wrote:
> On Mon, 4 Aug 1997, Tom Phoenix wrote:
> > open NAMES, "data.dat"
> > or die "Can't read data.dat: $!";
>
> I think in general it is a bad idea to use die in a script that is sending
> html unless you have already sent the header (ie. Content-type:
> text/html\n)) since whoever is trying to access the page when die gets
> called is going to experience a hang. Even then, what end user wants to
> see you diagnostic message? I would recommend using the Carp.pm module or
> writing your own subroutine/package for handling errors in cgi scripts.
You make some good points. Let me make two points which I didn't make in
the quoted text above.
First, it's vital to check that any open() succeeded, unless you're
enought of an expert to know better or enough of a fool to not care. :-)
The rest of your script may do weird and unexpected things if an open
fails, so you've got to check.
Second, a die doesn't have to mess up the HTML that a script is sending.
There are several ways to keep that from being a problem. For example, die
can be trapped by a routine which can format a nice message to the page's
user, while sending the error text to the program's maintainer by e-mail.
(You mention some other possibilities, which can also be useful.)
Of course, as long as you're checking for errors, you can report them
however is convenient for you. I don't mind, so long as you do check. Here
are some sample ways.
eval { $my_page = &do_my_page }; # May die() in there
if ($@) {
# Something went wrong
print $header, $error_message, $@;
} else {
# Everything worked!
print $header, $my_page;
}
exit;
open FILE, "whatever"
or &my_die("open of 'whatever' failed: $!");
unless (open FILE, "whatever") { print <<"END"; exit }
Content-type: text/plain
An error occurred while trying to open the file 'whatever' for
reading: $! . Please inform <whoever\@wherever> to fix this darn
script as soon as possible because you're feeling irked and grumpy
about it. Thank you.
END
exit unless open FILE, "whatever"; # Be rude :-)
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/
------------------------------
Date: Mon, 04 Aug 1997 15:30:28 -0700
From: Anneke Floor <anneke@intranet.org>
Subject: Unparse form data?
Message-Id: <33E65804.154B@intranet.org>
Hi,
Sorry for the newbie question, but I really can't find my answer in the
FAQ or the Camell or Llama books, and none of the people around me have
been able to help... So, if you can spare a moment and a little
patience, I would appreciate an answer to this frustrating bottleneck in
my program.
When you parse an HTML form, all the %20's are turned into spaces, all
the %2F's are turned into slashes, question marks to %3F's, and so on
and so on...
If I wanted to turn a string back into something like this:
Is%20this%20a%20 string%3F
How would I do that?
$new = ($string =~ /(\W)/sprintf("%X", $1)/eg);
works for numbers, but not for non word characters, and I don't know the
step to take that will translate the " " char (for example) to the
correct number that will give me, when converted by sprintf, %20.
(Plus, that doesn't stick the % in front of the hexadecimal number,
which I haven't been able to figure out how to do, when evaluating the
right side of a regexp).
An answer, or a pointer to an answer, would be wonderful!
Thanks,
Anneke.
------------------------------
Date: Tue, 5 Aug 1997 05:25:53 GMT
From: ebohlman@netcom.com (Eric Bohlman)
Subject: Re: Unparse form data?
Message-Id: <ebohlmanEEFDr5.FGy@netcom.com>
Anneke Floor (anneke@intranet.org) wrote:
: When you parse an HTML form, all the %20's are turned into spaces, all
: the %2F's are turned into slashes, question marks to %3F's, and so on
: and so on...
: If I wanted to turn a string back into something like this:
: Is%20this%20a%20 string%3F
: How would I do that?
I'd go over to CPAN and get the URI::Escape module (well actually, I'd
just use the copy I already have) and then write something like:
use URI::Escape;
my $escaped=uri_escape("Is this a string?");
print "$escaped\n";
------------------------------
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 815
*************************************
