[8284] in Perl-Users-Digest
Perl-Users Digest, Issue: 1901 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sun Feb 15 05:08:10 1998
Date: Sun, 15 Feb 98 02:00:38 -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 Sun, 15 Feb 1998 Volume: 8 Number: 1901
Today's topics:
Re: A Pubilc Apology. <joseph@5sigma.com>
Re: assigning variable names <chris@ixlabs.com>
Big files, read into variable? (Thomas Munn)
Re: Binary Search Trees (Abigail)
Re: Building PERL message board <webmaster@fccj.cc.fl.us>
Re: Can't Install Perl (PhYCokiLL9)
Re: Clearing all variables (Craig Berry)
Curiosity? -w doesn't catch typo in first line (SasEz! Publications and Design)
Re: Decryptable crypt? <joe@ispsoft.de>
generate gif images with perl ? <lecorre@magic.fr>
Re: getting perl script work on AS/400 <c.evans@clear.net.nz>
Re: Good Perl editors <dphi@ix.netcom.com>
Help wanted with loop problem. Please. (User)
Re: How do I get IP address of script user? <webmaster@fccj.cc.fl.us>
How to write to an HTTP_REFERER Document? <cravaccio@usa.net>
Re: How to write to an HTTP_REFERER Document? (Daniel Koch)
Interpeter For The PC <momiji@slip.net>
Interpeter <momiji@slip.net>
Re: Location: returns empty document? <c.evans@clear.net.nz>
Re: MS Visual Perl (A Satire!) <webmaster@fccj.cc.fl.us>
Need a script for mailing services jmahtani@rocketmail.com
Re: Novice: 6 - Can't figure out how to read input from (Marek Jedlinski)
Re: on reading FAQs and gurus answering questions (AShub)
Re: on reading FAQs and gurus answering questions <joseph@5sigma.com>
Re: on reading FAQs and gurus answering questions <joseph@5sigma.com>
Re: Sort help please! <joseph@5sigma.com>
Re: The meaning of sort <genew@rom.on.ca>
Re: Tom Christiansen (Sitaram Chamarty)
Re: what does "deprecate" mean? <joseph@5sigma.com>
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Sat, 14 Feb 1998 19:40:11 -0700
From: "Joseph N. Hall" <joseph@5sigma.com>
Subject: Re: A Pubilc Apology.
Message-Id: <34E654F9.60B2CC67@5sigma.com>
I find most followups to my posts these days with DejaNews. Too much
crap to sift through otherwise.
By the way, I think it's completely outer space weird to say that
an email cc: is "rude." Been USENET-ing 11 years now and that's
the first time I've heard *that* complaint. Time was when the proper
thing to do was reply via email and leave posting to the gurus.
-joseph
David Oswald wrote:
>
> On Sat, 14 Feb 1998 18:07:55 -0500, phenix@interpath.com (John Moreno)
> wrote:
>
> >....
> >sending a email copy should only be done when either the previous poster
> >has requested it or when the poster has reason to believe that THIS post
> >is urgent enough to require a mail copy. Doing it by default is just
> >plain wrong, not to mention rude.
>
> I can't say that I completely agree. I do agree that cc'ing a
> followup Usenet post to the person to whom the post follows is
> unnecessary and probably annoying when speaking of a Usenet group that
> gets less than fifty messages a day.
--
Joseph N. Hall, prop., 5 Sigma Productions mailto:joseph@5sigma.com
Author, Effective Perl Programming . . . . . http://www.effectiveperl.com
Perl Training . . . . . . . . . . . . . . . http://www.perltraining.com
------------------------------
Date: Sat, 14 Feb 1998 21:27:59 -0800
From: Chris Schoenfeld <chris@ixlabs.com>
To: Jfontaine2 <jfontaine2@aol.com>
Subject: Re: assigning variable names
Message-Id: <34E67CDF.56A89127@ixlabs.com>
Since robust parameter processing is boring and thankless, use a module:
Getopt.
http://perl-com.songline.com/CPAN-local//modules/by-category/12_Option_Argument_Parameter_Processing/Getopt/
Jfontaine2 wrote:
>
> I am looking to write a script that will take a given paramater, assign it a
> name, and then concatonate it with other parameters to assemble a file name.
> In the long run, the program will then take the filename and fetch it from the
> server. I am having trouble assigning the parameters names though. Could
> anyone provide me with some insight?? I can be reached at jfontaine2@aol.com
------------------------------
Date: Sun, 15 Feb 1998 00:32:27 GMT
From: munn@bigfoot.com (Thomas Munn)
Subject: Big files, read into variable?
Message-Id: <6c5d42$8sf@nnrp4.farm.idt.net>
I know that someone somewhere is going to flame me for this, but I just wanted
to see what kinds of responses I would get. I am going to be reading in VERY
large (around 80+MB) files. My thought is that I should read the variable
into memory & then manipulate it. How is this done? Or: What is the most
efficient way to take a huge file, make some changes to it via search and
replace, and then have it spit out a new file?
Thomas
munn@bigfoot.com
------------------------------
Date: 15 Feb 1998 07:39:06 GMT
From: abigail@fnx.com (Abigail)
Subject: Re: Binary Search Trees
Message-Id: <6c662q$5re$1@client2.news.psi.net>
Tom Christiansen (tchrist@mox.perl.com) wrote on 1628 September 1993 in
<URL: news:6c4ikm$iaj$1@csnews.cs.colorado.edu>:
++ [courtesy cc of this posting sent to cited author via email]
++
++ In comp.lang.perl.misc,
++ abigail@fnx.com writes:
++ :That's a nice table, but what did you benchmark? What's the problem
++ :you're solving?
++
++ Insert 100,000 random dictionary words into a dynamic set, then
++ produce those strings in sorted order.
That's a kind of problem for which both hashes and trees are overkill.
To get a sorted list, you neither need hashes, nor trees.
Of course trees take more overhead than hashes - specially if you
consider hashes have hardly any Perl overhead, and we don't have
a tree datastructure in C handy. It doesn't have to be a factor 10
though. Appended is a method of building & traversing a tree that's only
about a factor 3 slower than building a hash and sorting the keys.
And if you would write an xsub, I bet trees would be faster than
doing it in Perl.
However, this benchmark doesn't prove that trees are pointless and
hashes are better, unless you also agree hashes are pointless and arrays
are better. The program below offers a third datastructure, an array,
to store words in a dynamic set, then produce those strings in sorted
order. And that datastructure beats hashes.
Trees certainly have their uses. They provide O (log N) and O (k + log
N) query times for nearest neighbour and range queries, and sublinear
search times for multi dimensional queries; which polylog update times.
Types of queries for which hashes are utterly pointless.
Abigail
Benchmark: timing 25 iterations of Sort, Hash, Tree...
Sort: 109 secs (108.60 usr 0.25 sys = 108.85 cpu)
Hash: 168 secs (166.47 usr 0.27 sys = 166.74 cpu)
Tree: 520 secs (518.15 usr 0.77 sys = 518.92 cpu)
#!/usr/local/bin/perl -w
use strict;
use Benchmark;
use vars qw /@words/;
sub do_sort ($);
sub do_hash ($);
sub do_tree ($);
sub make_tree ($$$);
sub inorder ($);
my $file = "/usr/dict/words";
local *DICT;
open DICT, $file or die "Cannot read $file: $!";
chomp (@words = <DICT>);
close DICT;
# We don't have 100k words, just about 25k, add some extra suffixes.
@words = map {("${_}xx", "${_}qx", "${_}qq", "${_}xq")} @words;
# Shuffle (Knuth: TAoCP).
my $i = @words;
while ($i) {
my $t = int rand $i --;
($words [$t], $words [$i]) = ($words [$i], $words [$t]);
}
timethese 25, [
Sort => 'my @words_sort = do_sort \@words',
Hash => 'my @words_hash = do_hash \@words',
Tree => 'my @words_tree = do_tree \@words',
];
sub do_sort ($) {
sort @{+shift};
}
sub do_hash ($) {
my %hash;
foreach (@{+shift}) {$hash {$_} = 1;}
sort keys %hash;
}
sub make_tree ($$$) {
my ($l, $r, $words) = @_;
return [] if $l > $r;
my $mid = int (($l + $r) / 2);
[make_tree ($l, $mid - 1, $words), $words -> [$mid],
make_tree ($mid + 1, $r, $words)];
}
sub inorder ($) {
my $tree = shift;
return () unless @$tree;
(inorder $tree -> [0], $tree -> [1], inorder $tree -> [2]);
}
sub do_tree ($) {
my @sort = sort @{+shift};
my $tree = make_tree (0, $#sort, \@sort);
inorder $tree;
}
__END__
--
perl -wle '$, = " "; print grep {(1 x $_) !~ /^(11+)\1+$/} 2 .. shift'
------------------------------
Date: Sun, 15 Feb 1998 04:03:38 GMT
From: Bill Jones <webmaster@fccj.cc.fl.us>
Subject: Re: Building PERL message board
Message-Id: <34E6680C.389B9FD3@fccj.cc.fl.us>
I have to agree with Tom this time - scary, huh?
News Servers and newsfeeds are cheap - storing a longterm feed is where it
gets expensive. But, in the long term, better than trying to do it/maintain
it yourself.
Bill
Tom Christiansen wrote:
> [courtesy cc of this posting sent to cited author via email]
>
> In comp.lang.perl.misc, junk@spanky.tamu.edu writes:
> :I am creating a message board and I am looking for any help I can get on
> :the code. If anyone has any suggestions or warnings any help would be
> :appreeciated.
>
> I suggest you install a newsserver, and keep a local spool. Anything else
> is too much work, and fairly silly. The Internet has catupulted even
> the Wintel victims past the days of BBS toys.
>
> --tom
> --
> Tom Christiansen tchrist@jhereg.perl.com
> str->str_pok |= SP_FBM; /* deep magic */
> s = (unsigned char*)(str->str_ptr); /* deeper magic */
> --Larry Wall in util.c from the perl source code
------------------------------
Date: 15 Feb 1998 01:02:27 GMT
From: phycokill9@aol.com (PhYCokiLL9)
Subject: Re: Can't Install Perl
Message-Id: <19980215010200.UAA11694@ladder02.news.aol.com>
I'd try to get another copy
>Hi all
>I'm having big problems installing perl under Win95.
>I've unzipped the archive (Pw32a315.zip) and everything seemed allright.
>But when I start the install batch I get:
>
>error, this program can't run in DOS mode.
>
>in a DOS windows, and it ends.
>
>If i start perl from the command line it the same. If i double click the
>icon I get
>
>Execution impossible. Wrong format
>
>So what?
>
>Please answer in e-mail too
>
>
>
------------------------------
Date: 15 Feb 1998 03:08:42 GMT
From: cberry@cinenet.net (Craig Berry)
Subject: Re: Clearing all variables
Message-Id: <6c5m7q$8ls$1@marina.cinenet.net>
Lainer (elaine@lainer.com) wrote:
: Someone else was KIND enough to point me in the right direction politely and
: I have subsequently learned a great deal from his willingness to help.
:
: Why are some people so damned rude to others in here? Nowhere did I see in
: the FAQ that you had to be an expert in Perl to post to this NG. Perhaps
: you should refrain from posting replies if you can't take a lighter tone
: with people and be a little more helpful.
...with reference to this:
: Martien Verbruggen wrote in message <6bvuj0$ak4$3@comdyn.comdyn.com.au>...
: >Then you are NOT calling it as a seperate process. You would need
: >system, exec, backticks or qx// for that.
: >
: >perldoc -f require
: >
: >Please read.
Um, Elaine? Hello? Since when is informing you that you misunderstand a
significant aspect of Perl, providing you with several alternatives you
may wish to explore, and adding a pointer to relevant Perl doc "rude"?
My god, he even says "please"! I've seen plenty of rudeness and
mistreatment on c.l.p.m, but this ain't it!
---------------------------------------------------------------------
| Craig Berry - cberry@cinenet.net
--*-- Home Page: http://www.cinenet.net/users/cberry/home.html
| Member of The HTML Writers Guild: http://www.hwg.org/
"Every man and every woman is a star."
------------------------------
Date: Sun, 15 Feb 1998 06:03:27 GMT
From: sase@sasezdesyn.com (SasEz! Publications and Design)
Subject: Curiosity? -w doesn't catch typo in first line
Message-Id: <34e68339.29655662@news.theriver.com>
Hi all,
In one of my blonde mode moments, I accidentally transposed the #
and ! in my first line of a new program. I had !#/usr/bin/perl
instead of #!/usr/bin/perl Now, the curious part is that running
the program from the command line with the -w switch did not give me
any indication that the first line had a problem. Running from the
web of course did, it gave me a "premature end of script errors
(errno=8)" message. Can anyone fill me in on why -w didn't tell me?
Thanks,
Kathy
-
SasEz! Publications and Design ~ Kathy Burns
Professional Web Design, Hosting, and Maintenance
http://www.sasezdesyn.com mailto:sase@sasezdesyn.com
ICQ #828499 ~Check out our Free web design planning guide!~
-
------------------------------
Date: Sun, 15 Feb 1998 00:29:17 +0100
From: Jochen Wiedmann <joe@ispsoft.de>
To: "Michael R. Harper" <mikihasa@worldnet.att.net>
Subject: Re: Decryptable crypt?
Message-Id: <34E628CC.4C6847E2@ispsoft.de>
> The Unix man page says that crypt is a one-way street. I am looking
> for an encryption command for which there is an inverse operation
> (decrypt?). The Camel book suggested the possibility of using a PGP
> module.
I suggest simply using the Crypt::IDEA or Crypt::DES modules,
available on any CPAN mirror.
Bye,
Jochen
--
Jochen Wiedmann joe@ispsoft.de
07123 14887
------------------------------
Date: Sat, 14 Feb 1998 21:14:56 +0100
From: "LE CORRE" <lecorre@magic.fr>
Subject: generate gif images with perl ?
Message-Id: <6c4tsd$rjf$1@paris.magic.fr>
Does someone know where I can find infos about generating gif images with
perl (like a counter do) ?
thanks (I have already perl scripts counter but it's not enough)
lecorre@magic.fr
------------------------------
Date: 15 Feb 1998 17:57:46 +1300
From: Carey Evans <c.evans@clear.net.nz>
Subject: Re: getting perl script work on AS/400
Message-Id: <873ehlwjlh.fsf@psyche.evansnet>
Bruce Stenberg <polobruce@earthlink.net> writes:
> I have written a cgi script in Perl, for a client that has an as/400.
> Their tech installed the perl 5.03 into the IFS. I am know trying to
> execute it, and the http as/400 server wants be to download the program
> instead of executing it. I read that I needed to write a small cl
> program to execute the perl script, but not not write in cl...
(Didn't I just see this in comp.sys.ibm.as400.misc?)
You need to write a CL program. An ILE CL program should work better.
I assume it'll look something like:
PGM
PERL '/path/to/script'
ENDPGM
If you and their techs don't understand this, hire someone who does.
You also need to get the server set up properly. IBM has manuals (on
a CD-ROM, or paper, or the web) that tell you how to do this.
--
Carey Evans http://home.clear.net.nz/pages/c.evans/
GNU GPL: "The Source will be with you... always."
------------------------------
Date: Sat, 14 Feb 1998 19:14:55 -0800
From: Dale Phillips <dphi@ix.netcom.com>
Subject: Re: Good Perl editors
Message-Id: <34E65DAF.1E43@ix.netcom.com>
Hello
Being a vi user ... try
http://mongoose.bostic.com/vi/
this is a version of vi that has a switch that enables
perl to run inside you vi session ':perldo someperlmagic.pl'
it will also (if built correctly allow you to use tck and tcl/tk
also inside your vi session)
However ... I can't get it to build on a FreeBSD box.
I will be trying to build it on a linux box next week.
Hope this helps.
Justin Baugh wrote:
>
> Zachary Kessin wrote in message ...
> >
> >
> >>Someone asked about editors for perl.
> >
> >I swear by emacs. A lot of people swear at it. You can get an NT
> >version which is Decent. If you use emacs with perl use the cperl.el
> >that comes with the perl source. Not the perl mode that comes with
> >emacs. I at least think the one that comes with perl is better. I
> >assume some people like the other one.
> >
> >As for editors, its is a very personal choice. Try a few.
> >
> >--Zachary Kessin
>
> Maybe I'm a dork, but I use pico. Emacs is an editor that tries to do way
> more than that. Personally I think any editor with macro commands
> reminiscent of WordPerfect 3 is not worth using, let alone installing (ever
> check out how big the distribution is? Emacs weighs in at about 13mb last
> time I checked. </endgratuitousemacsflame>
>
> Granted, for C, emacs is invaluable for m-x compile and m-x line and the
> error window, but since I don't like the command line interface to emacs, I
> don't use it when I'm telnetted in to my Linux box, and therefore use Pico.
> (I prefer the Xwin version of emacs. Keep your snide comments about having
> to be in a GUI to yourself. :)
>
> Cheers,
>
> Justin Baugh
>
> ************************************************************************
> Justin D. Baugh, DorkSci major........uhh wait, that's CompSci
> "CS majors do it better.......wait...hell, we don't do it at all!"
> Jolt Cola - The blood plasma of a New Generation(TM). Try it today!
> Rensselaer Polytechnic Institute, Troy, NY (baughj@rpi.edu)
--
--dp----------------------------------------------
Dale Phillips http://www.netcom.com/~dphi
dphillip@tabfs.com
------------------------------
Date: Sat, 14 Feb 1998 11:40:28 GMT
From: networks@skynet.co.uk (User)
Subject: Help wanted with loop problem. Please.
Message-Id: <34e58223.11815776@news.skynet.co.uk>
Hi,
I've got a couple more problems I'd like some help with.
Here's what I have so far:
----------------------------------------------
-e "search1.txt" || &error_message ("file missing.");
open (DATAFILE, "textfile.txt");
$find = uc $form_data{search};
while (defined($line = <DATAFILE>))
{
($a,$b,$c,$d,$name,$link) = split(/\t/,$line);
if ($a eq $find
or $b eq $find
or $c eq $find
or $d eq $find
or $e eq $find) { push @url, $name, $link; }
}
close (DATAFILE);
----------------------------------------------
and within the html display section of my file I'm using the following
to display the information:
----------------------------------------------
if (@url)
{
foreach $found (@url)
{print "<a href=\"",$found,"\">",$found,"</a><BR>";}
}
else
{ print "<p><b>no match found.</B>";}
----------------------------------------------
As you can see the foreach loop is incorrect, what I'd like to happen
is this:
<A HREF="a url">some text</A></BR>
'a url' being $link and 'some text' being $name
How can I construct, if at all, the foreach loop to do this?
I hope you can advice me :)
Kind regards
------------------------------
Date: Sun, 15 Feb 1998 02:54:01 GMT
From: Bill Jones <webmaster@fccj.cc.fl.us>
To: rjk@coos.dartmouth.edu
Subject: Re: How do I get IP address of script user?
Message-Id: <34E657BA.4F8FA0B9@fccj.cc.fl.us>
Also take a peek at the 'ps -ef' unix command, and start using CGI.pm,
even when you are not writing CGI's, it will give you access to functions
you've only dreamed about.
HTH,
Bill
Chipmunk wrote:
> [posted but not mailed. munged addresses are annoying.]
>
> Martin Oakley wrote:
> >
> > I can get the usename with $uid = getlogin;
> > How can I get the ip address of the user, logged in via telnet,
> > running the perl script?
> >
> > Solaris and other UNIXes seem to do this because they report "last
> > login from xxx.xxx.xxx.xxx"
>
> Look into the UNIX 'last' command.
>
> Chipmunk
------------------------------
Date: Sat, 14 Feb 1998 20:04:23 -0500
From: "Eric" <cravaccio@usa.net>
Subject: How to write to an HTTP_REFERER Document?
Message-Id: <6c5erv$qm1$1@viper.shadow.net>
Is there any way in a script to write to an HTTP_REFERER document? The
REFERER document was formulated by user input and a previous PERL script. Do
I need to set permissions in the previous Perl script so that the new script
can write to the document using HTTP_REFERER?
I'm kind of going nuts here, because everything's lingering on this one
question. If HTTP_REFERER is not the proper variable, is there something
else that can let me write to the document that calls up the PERL program???
I would really appreciate it if someone let me know.
Thanks in advance,
Eric
------------------------------
Date: Sun, 15 Feb 1998 02:53:07 GMT
From: dkoch@amcity.com (Daniel Koch)
Subject: Re: How to write to an HTTP_REFERER Document?
Message-Id: <34e6541c.201772287@news.vnet.net>
On Sat, 14 Feb 1998 20:04:23 -0500, "Eric" <cravaccio@usa.net> wrote:
>Is there any way in a script to write to an HTTP_REFERER document? The
>REFERER document was formulated by user input and a previous PERL script. Do
>I need to set permissions in the previous Perl script so that the new script
>can write to the document using HTTP_REFERER?
>
>I'm kind of going nuts here, because everything's lingering on this one
>question. If HTTP_REFERER is not the proper variable, is there something
>else that can let me write to the document that calls up the PERL program???
>
>I would really appreciate it if someone let me know.
>
>Thanks in advance,
>Eric
>
>
I don't think you understand the way CGI works. The first CGI is not
creating "a document" that can be written to. It just sends a stream
of html to a user's browser.
You have one CGI perl program, and it outputs some html to a user's
browser. The html that is output has a form on it that gets posted to
a second CGI. The second CGI program can send out all kinds of
different html output based on what was passed to it through the form
from the output of the first CGI. What it _cannot_ do is "write" to
what the first CGI sent.
Here's how HTTP_REFERER works:
User is at http://www.yahoo.com/. User finds a link to
http://www.clueless.com/~eric/program.cgi. User follows link.
When program.cgi executes, "$ENV{'HTTP_REFERER'}" is set to
"http://www.yahoo.com/".
Go to comp.infosystems.www.authoring.cgi.
Dan Koch <dkoch@amcity.com>
------------------------------
Date: 15 Feb 1998 02:44:41 GMT
From: "Eric Umehara" <momiji@slip.net>
Subject: Interpeter For The PC
Message-Id: <01bd39bc$3827a8c0$ac8998d1@default>
I'm a novice Perl programmer. Meaning that I just started today. I bought a
book called Learning Perl. I guess it is commonly known as the lamma book.
My question is, is their a way of testing perl scripts on my Win95 PC. My
goal for learning Perl is so I can write CGI scripts for my web page. I
know this is probaly the wrong place to post this but this was the closest
newsgroup to comp.lang.perl I could find. If you could answer my question
along with redirecting me to a more appropriate newsgroup I would
appreciate it.
Thanks
Momiji@Slip.Net
------------------------------
Date: 15 Feb 1998 02:49:44 GMT
From: "Eric Umehara" <momiji@slip.net>
Subject: Interpeter
Message-Id: <01bd39bc$ed0059e0$ac8998d1@default>
I'm a novice Perl programmer. Meaning that I just started today. I bought a
book called Learning Perl. I guess it is commonly known as the lamma book.
My question is, is their a way of testing perl scripts on my Win95 PC. My
goal for learning Perl is so I can write CGI scripts for my web page. I
know this is probaly the wrong place to post this but this was the closest
newsgroup to comp.lang.perl I could find. If you could answer my question
along with redirecting me to a more appropriate newsgroup I would
appreciate it.
Thanks
Momiji@Slip.Net
------------------------------
Date: 15 Feb 1998 16:51:43 +1300
From: Carey Evans <c.evans@clear.net.nz>
Subject: Re: Location: returns empty document?
Message-Id: <8767mhwmnl.fsf@psyche.evansnet>
"P. Schmitz" <schmitzp@no.spam.wxs.nl> writes:
> It's exactly the same as in the C++ source, yet this gives a 'Document
> contains no data' error and the C++ version redirects the browser to Yahoo!,
> as it should. So it still could be a perl-related problem...
Or it could be a problem here:
vvvvvvv
[Browser] <---> [Internet] <---> [Web Server] <-- {MAGIC} --> [Perl]
^^^^^^^
which makes it a question of whether the web server treats .EXE
programs and Perl differently. You won't find the answer to that on
this group.
You might get better results by telnetting to port 80 on the web
server and asking for the document directly, to see what happens.
(Don't complain if your telnet sucks.)
--- You type:
GET /cgi-bin/redirect-me HTTP/1.0
--- You see:
HTTP/1.1 301 Moved Permanently
Date: Sun, 15 Feb 1998 03:49:58 GMT
Server: Apache/1.3b3 Debian/GNU
Location: http://www.yahoo.com/
Connection: close
Content-Type: text/html
(foo bar wibble)
---
--
Carey Evans http://home.clear.net.nz/pages/c.evans/
GNU GPL: "The Source will be with you... always."
------------------------------
Date: Sun, 15 Feb 1998 04:37:15 GMT
From: Bill Jones <webmaster@fccj.cc.fl.us>
To: MARTIN@RADIOGAGA.HARZ.DE
Subject: Re: MS Visual Perl (A Satire!)
Message-Id: <34E66FED.A44520FA@fccj.cc.fl.us>
P++ would be pronouced 'PP', because that would about what it is worth :-)
Martin Vorlaender wrote:
> Stuart Bullock (stuart_bullock@bigfoot.com) wrote:
> : Microstuff Announce MS Visual Perl 2.0 - A Satire
> : =================================================
>
> Let's all hope it continues to be a satire...
>
> cu,
> Martin
>
> P.S.: The official product name of course is MS Visual P++ :-)
> --
> | Martin Vorlaender | VMS & WNT programmer
> Ceterum censeo | work: mv@pdv-systeme.de
> Redmondem delendam esse. | http://www.pdv-systeme.de/users/martinv/
> | home: martin@radiogaga.harz.de
------------------------------
Date: Sat, 14 Feb 1998 21:52:58 -0600
From: jmahtani@rocketmail.com
Subject: Need a script for mailing services
Message-Id: <6c5oqq$jfd$1@nnrp2.dejanews.com>
Hello,
I have a SPARCstation 20 running solaris 2.5.1.. Couple of people have
accounts on it. I was wondering if anyone could share a bourne shell script or
a perl script that will provide these users with a menu when they log on to
the station, and with the help of which they could send email.
Appreciate it.
Thanks
JGM
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/ Now offering spam-free web-based newsreading
------------------------------
Date: Sat, 14 Feb 1998 23:57:27 GMT
From: eristic@lodz.pdi.net (Marek Jedlinski)
Subject: Re: Novice: 6 - Can't figure out how to read input from the keyboard.
Message-Id: <34e62eba.17759637@news.nask.org.pl>
Keywords: If this makes sense to you, you have a big problem...
gabor@vmunix.com (Gabor) wrote:
>And think about it just for a moment. getc gets the next character
>from the buffer, but you still have to hit at least one more character
>to get that character. Namely <enter>.
Yep. I was assuming (hoping ;) that getc puts *all* it gets into
the variable, including <enter>.
>sub get_key
>{
> my $input = <STDIN>;
> $input =~ /^\s*(.)/; # skip leading whitespace and return first
> # non-whitespace char
>}
This certainly works. Thanks!
.marek
--
"This is all very interesting, and I daresay you already
see me frothing at the mouth in a fit; but no, I am not;
I am just winking happy thoughts into a little tiddle cup."
(Vladimir Nabokov)
------------------------------
Date: Sun, 15 Feb 1998 00:50:35 GMT
From: ashton@netcom.com (AShub)
Subject: Re: on reading FAQs and gurus answering questions
Message-Id: <ashtonEoEACB.A68@netcom.com>
Tom Christiansen <tchrist@mox.perl.com> writes:
>In comp.lang.perl.misc, Randal Schwartz <merlyn@stonehenge.com> writes:
>:You can't retrofit clpm as
>:moderated very easily.
>It was done for ciwac.
I don't think that we have _quite_ that number of rabbid wombats. [1]
If there was a good cheerleader with folks willing to hit the gridiron
it might be worth a go. However, it'd be much easier to leave one group
to the retromod whilst tightening the thumbscrews on the new one.
Besides, you'd have a fallback position should the moderators all
upgrade at once and there wouldn't be quite as many sites
with a gaping moderation flag ...
As to the standard footers pointing to the 'clue' and faq sites,
the 'frequent flamers' could simply have five lines in their sigs [2]
and append a couple of urls pointing the needy thataway.
Ashton
--
[1] Oops, wrong group ...
[2] Five is right out!
------------------------------
Date: Sat, 14 Feb 1998 19:43:33 -0700
From: "Joseph N. Hall" <joseph@5sigma.com>
Subject: Re: on reading FAQs and gurus answering questions
Message-Id: <34E655C3.986593A7@5sigma.com>
Sure, we could retro-moderate clpm (some kind of robo-mod). I think
that might be a better strategy than a new group, anyway. Re-charter
and vote. I'll vote for it and argue for it till I'm blue in the face.
Since spending some time in IRC (after all these years not bothering)
I have realized what USENET needs is a kick button. p5p could use
one too. :-)
-joseph
Randal Schwartz wrote:
>
> >>>>> "Cameron" == Cameron Dorey <camerond@mail.uca.edu> writes:
>
> ciwac is moderated, and thus you can do that, since all postings come
> through the robo-moderator script. You can't retrofit clpm as
> moderated very easily. Hence the proposal for clp.moderated or
> something like that.
>
> And the day clp.moderated comes along, I am *abandoning* clp.misc.
--
Joseph N. Hall, prop., 5 Sigma Productions mailto:joseph@5sigma.com
Author, Effective Perl Programming . . . . . http://www.effectiveperl.com
Perl Training . . . . . . . . . . . . . . . http://www.perltraining.com
------------------------------
Date: Sat, 14 Feb 1998 19:45:31 -0700
From: "Joseph N. Hall" <joseph@5sigma.com>
Subject: Re: on reading FAQs and gurus answering questions
Message-Id: <34E65639.8FC83EE8@5sigma.com>
I don't think it would be all that controversial, especially
considering that all of the Perl wizards (so far as I know) would
favor moderating clpm.
As far as "very easily" goes, I wouldn't describe the voting process
as "very easy" no matter what the newsgroup or circumstances.
-joseph
Randal Schwartz wrote:
>
> >>>>> "Tom" == Tom Christiansen <tchrist@mox.perl.com> writes:
>
> Tom> [courtesy cc of this posting sent to cited author via email]
> Tom> In comp.lang.perl.misc, Randal Schwartz <merlyn@stonehenge.com> writes:
> Tom> :You can't retrofit clpm as
> Tom> :moderated very easily.
>
> Tom> It was done for ciwac.
>
> I didn't say it couldn't be done. I said it couldn't be done "very
> easily".
>
> :-)
--
Joseph N. Hall, prop., 5 Sigma Productions mailto:joseph@5sigma.com
Author, Effective Perl Programming . . . . . http://www.effectiveperl.com
Perl Training . . . . . . . . . . . . . . . http://www.perltraining.com
------------------------------
Date: Sat, 14 Feb 1998 19:36:02 -0700
From: "Joseph N. Hall" <joseph@5sigma.com>
Subject: Re: Sort help please!
Message-Id: <34E65401.71985CCE@5sigma.com>
If you use my new Sort::Fields module, you don't have to worry
about what a Schwartzian Transform (that map sort map thing)
is, or how it works.
-joseph
use Sort::Fields;
print fieldsort q/"/, [2], <DATA>;
__END__
1"Hugo"Brown"12 Apple St.
5"Barnie"Lewis"765 Boulder St.
7"Mickey"Mantle"123 Red Rd.
9"Suzy"Burger"89 Appleton St.
10"Fred"Winston"910 Jump St.
11"Norman"Rockwell"102 Poplar Dr.
12"Doris "Lewis"199 Greenfield St.
13"Dee"Brown"88 Nashua St.
Burt Lewis wrote:
> All I want to do is to be able to sort by any field (column).
> What I'm trying to do below is sort by field #2 (first names).
--
Joseph N. Hall, prop., 5 Sigma Productions mailto:joseph@5sigma.com
Author, Effective Perl Programming . . . . . http://www.effectiveperl.com
Perl Training . . . . . . . . . . . . . . . http://www.perltraining.com
------------------------------
Date: Sun, 15 Feb 1998 00:14:20 +0000
From: Gene Wilburn <genew@rom.on.ca>
Subject: Re: The meaning of sort
Message-Id: <34E6335C.EF1CD186@rom.on.ca>
Ah, too much typing, too little thought. Mea culpa. I forgot that the
entries area actually part of a longer string delimited by pipes, so
that the entries are stored in the array as
Events|data
Events - Coming|data
Events - Archived|data
Naturally, this gives the appearance of an improper sort. May the sort
gods be assuaged -- once again it's user error ...
Gene
Kevin Huber wrote:
>
> A simple isolated test:
> #!/usr/bin/perl
>
> @terms=('Events - Coming','Events','Events - Archived');
>
> foreach $term(sort @terms) {
> print $term,"\n";
> }
>
> prints the terms in the order you were expecting. Trailing spaces (or
> control characters) wouldn't affect the sort order. There must be
> something else going on.
>
> Please post code which demonstrates the sorting error.
>
> -Kevin
------------------------------
Date: 15 Feb 1998 06:54:53 GMT
From: sitaram@diac.com (Sitaram Chamarty)
Subject: Re: Tom Christiansen
Message-Id: <slrn6ecm69.prs.sitaram@ltusitaram.diac.com>
On Sat, 14 Feb 1998 17:57:22 -0500, Jonathan Feinberg
<jdf@pobox.com> wrote:
[snip]
>of time, but I feel like I owe it to te community. I hadn't thought in those
>terms before tchrist rekmerged.
^^^^^^ ^^^^^^^^^
So this is what they mean when they talk about the second coming!
:-)
------------------------------
Date: Sat, 14 Feb 1998 19:53:30 -0700
From: "Joseph N. Hall" <joseph@5sigma.com>
Subject: Re: what does "deprecate" mean?
Message-Id: <34E65818.644BF098@5sigma.com>
print "Different words\n" if 'deprecate' ne 'depreciate';
-joseph
David Oswald wrote:
>
> On 13 Feb 1998 14:32:03 -0500, kcohen@julius.ling.ohio-state.edu
> (Kevin B Cohen) wrote:
>
> >okay, i *know* what it means to "deprecate" in english, but what does
> >it mean in perlish? here are some examples of usage (hope i'm not
> >violating any laws of copyright...):
[...]
> "Depreciated" in this context begins by meaning discouraged or
> disapproved of. But it goes farther than that. Consider the value of
> a dollar. If one is buying guns or butter at $1,000,000 / ton the
> dollar isself is a depreciated form of payment where more modern forms
> of payment (such as $1,000.00 bills) would be more convenient. In
> Perltalk the term 'depreciated' [...]
--
Joseph N. Hall, prop., 5 Sigma Productions mailto:joseph@5sigma.com
Author, Effective Perl Programming . . . . . http://www.effectiveperl.com
Perl Training . . . . . . . . . . . . . . . http://www.perltraining.com
------------------------------
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 1901
**************************************
