[7862] in Perl-Users-Digest
Perl-Users Digest, Issue: 1487 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Dec 16 22:07:13 1997
Date: Tue, 16 Dec 97 19:00:22 -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 Tue, 16 Dec 1997 Volume: 8 Number: 1487
Today's topics:
Re: Character set conversion in CGI (Honza Pazdziora)
chmod <ktupper1@maine.rr.com>
Re: chmod <TheGayCafe@aol.com>
Re: chmod (Martien Verbruggen)
Re: closures and sort <tchrist@mox.perl.com>
Re: Framework for building custom HTTP servers? (Jerry LeVan)
Re: help decode a pattern (Abigail)
How to base64 encode a file <TheGayCafe@aol.com>
Re: How to base64 encode a file (Mike Stok)
Re: how to send entire script code to STDOUT if STDIN e (Joshua J. Kugler)
missing socket.ph <wrmattil@ix.netcom.com>
Perl and Website ON W95 (Gilles Maire)
Re: Perl and Website ON W95 (Martien Verbruggen)
Re: Perl Implementation of Checksum? (Martien Verbruggen)
Re: Perl Implementation of Checksum? nospam@minivend.com
Re: Perl Implementation of Checksum? (Martien Verbruggen)
Re: Perl Implementation of Checksum? (Jim Michael)
Re: pgp encrypion via perl script <zenin@best.com>
Re: Return value after OPEN() <tchrist@mox.perl.com>
Re: Script calls embedded in web pages ushere@ibm.net
Re: Solution: getting list of directories, returned as (Joshua J. Kugler)
SORRY! Repeated Posts Re: Solution: getting list of dir (Joshua J. Kugler)
Re: Wacky idea: a PERL server <tchrist@mox.perl.com>
Re: where did the newline come from? (John Moreno)
Re: Which language pays most 17457 -- C++ vs. Java? <steve@seasoned-software.com>
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Tue, 16 Dec 1997 10:56:23 GMT
From: adelton@fi.muni.cz (Honza Pazdziora)
Subject: Re: Character set conversion in CGI
Message-Id: <adelton.882269783@aisa.fi.muni.cz>
lpa@fimnet.fi (Lauri Parikka) writes:
> I'm making a www-interface to text-databases. Now I should make a routine
> to change character set on fly for Windows, Macintosh, DOS and UNIX when
> sending the text to be saved by www-browser. What is the easiest way or is
> there any modules for changing character sets for text strings?
Convert::Recode -- but depends on external GNU recode program.
Convert::Translit -- it should work according to RFC but it doesn't
convert characters with diacritics.
Cz::Cstocs -- my module that knows the most common charsets used in
Czech language -- 1250 1252 ascii cork il1 il2 kam koi8 mac
macce pc2 tex vga -- and can convert between them including
diacritics and symplifying, when the character is not
available in the destination character set.
Hope this helps,
--
------------------------------------------------------------------------
Honza Pazdziora | adelton@fi.muni.cz | http://www.fi.muni.cz/~adelton/
I can take or leave it if I please
------------------------------------------------------------------------
------------------------------
Date: 17 Dec 1997 00:52:53 GMT
From: "Kenneth Tupper" <ktupper1@maine.rr.com>
Subject: chmod
Message-Id: <01bd0a85$d19d0a60$1a51d2cc@yoda.maine.rr.com>
Where do I go to change the chmod? This one subject is driving me crazy!
--
Kevin Tupper
http://home.maine.rr.com/snowbird
------------------------------
Date: Tue, 16 Dec 1997 18:39:36 -0700
From: Gay Cafe <TheGayCafe@aol.com>
To: Kenneth Tupper <ktupper1@maine.rr.com>
Subject: Re: chmod
Message-Id: <34972D58.487A@aol.com>
Hi Kenneth,
I assume you're trying to figure out how to chmod one of your perl
scripts so that it will execute on the server.
This is something that you do from the command line on your server, so
telnet over there, log in, and change to the directory where your script
is located. Then type this, pressing ENTER when you're done:
chmod 755 yourscriptname.here
That should do the trick. Sometimes I have more than one perl script,
and I need to 'chmod 755' all of them, so I'll do something like this:
chmod 755 *.pl
Which will set the executable bit attibute on all the files that have
the extension of '.pl' in the current directory.
Nathan Johansen
nathan@npj.com
Kenneth Tupper wrote:
>
> Where do I go to change the chmod? This one subject is driving me crazy!
> --
> Kevin Tupper
> http://home.maine.rr.com/snowbird
------------------------------
Date: 17 Dec 1997 01:36:06 GMT
From: mgjv@comdyn.com.au (Martien Verbruggen)
Subject: Re: chmod
Message-Id: <677aa6$4u3$2@comdyn.comdyn.com.au>
In article <01bd0a85$d19d0a60$1a51d2cc@yoda.maine.rr.com>,
"Kenneth Tupper" <ktupper1@maine.rr.com> writes:
> Where do I go to change the chmod? This one subject is driving me crazy!
What exactly do you mean? You cannot change the chmod, in most cases..
chmod() is either a perl builtin function, a system call, or a command
line utility.
You can use chmod to change the access permission mode of a file,
however, and maybe that is what you mean?
if you mean the perl function: perldoc -f chmod
if you mean the command line function: man chmod
if you mean the system call: man -s 2 chmod
(or whatever way you change the section for man pages on your system)
If none of the above help, maybe you could be a bit more specific
about what exactly it is you want to do?
Martien
--
Martien Verbruggen |
Webmaster www.tradingpost.com.au | Make it idiot proof and someone will
Commercial Dynamics Pty. Ltd. | make a better idiot.
NSW, Australia |
------------------------------
Date: 17 Dec 1997 02:07:55 GMT
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: closures and sort
Message-Id: <677c5r$bth$1@csnews.cs.colorado.edu>
[courtesy cc of this posting sent to cited author via email]
In comp.lang.perl.misc,
clake@belay.cs.utah.edu (Chad Lake) writes:
: I'm having a bit of trouble understanding the binding of the
:variables $a and $b in sort routines.
I see that. :-)
First, you can't use closures to bind up $a and $b. They aren't
lexicals; they're globals. Closures close over lexicals.
An important thing to know is that $a and $b is the package
the call to sort was compiled in. If you say
package Dunno;
@x = sort Elsewhere::by_magic @y;
Then the $a and $b used in &Elsewhere::by_magic are globals that are
set in package Dunno. Bizarre, perhaps even brain-damaged, but true.
That being said, here's a simple sort by value sort:
sub bv_sort(\%) {
my $hr = shift;
return scalar keys %$hr unless wantarray();
return sort { $hr->{$a} <=> $hr->{$b} } keys %$hr;
}
@ordered_keys = bv_sort(%random_hash);
Personally, I usually just use
@ordered_keys = sort { $hash{$a} <=> $hash{$b} } keys %hash;
Well, usually. Othertimes I do a fancy btree binding out of DB_File
to an in-core hash.
--tom
--
Tom Christiansen tchrist@jhereg.perl.com
X-Windows: It was hard to write; it should be hard to use.
--Jamie Zawinski
------------------------------
Date: 16 Dec 1997 19:31:01 -0500
From: levan@eagle.eku.edu (Jerry LeVan)
Subject: Re: Framework for building custom HTTP servers?
Message-Id: <6776g5$gt1$1@eagle.eku.edu>
In article <wx07m95vztf.fsf@sws5.ctd.ornl.gov>,
Dave Sill <dsill@sws5.ctd.ornl.gov> wrote:
>Is there a module or recipe for creating small special-purpose HTTP
>servers in perl?
>
>Say I've got a program, e.g., "ls", and I want to create a web-based
>interface for it--an HTTP daemon that listens to some odd port, does
>whatever user authentication I want (tcpcontrol or tcpwrappers can
>handle the host access control), and presents an HTML form with
>buttons for the various options to ls and a text entry field for the
>list of files or directories. The user fills out the form, hits
>"send", the server validates the form data, runs the appropriate ls
>command, and formats the output as HTML.
>
>I know I could do something similar with Tk, but the beauty of HTTP is
>that every schmoe in the world has a terminal that can access it.
>
>--
>Dave Sill <dsill@sws5.ctd.ornl.gov> <URL:http://web.infoave.net/~dsill>
>Lockheed Martin Energy Research Oak Ridge National Lab Workstation Support
>Take the qmail Challenge. See <URL:http://web.infoave.net/~dsill/qmail.html>
Take at look at "mhttpd" a http server written in Perl.
<http://eagle.eku.edu:4000/PERL/>
It does user authentication, cgi's and most of the usual web stuff.
--Jerry LeVan
levan@eagle.eku.edu <http://eagle.eku.edu:4000/>
------------------------------
Date: 17 Dec 1997 00:16:48 GMT
From: abigail@fnx.com (Abigail)
Subject: Re: help decode a pattern
Message-Id: <slrn69e6ip.50c.abigail@betelgeuse.wayne.fnx.com>
Larry Daffner (ldaffner@rsn.hp.com) wrote on 1568 September 1993 in
<URL: news:f5ok9d5m7m4.fsf@rsn.hp.com>:
++
++ The [^\]]* construct simply keeps the inside expression from matching
++ a ], in case there's another one on the line (Literally, match 0 or
++ more non-] characters). Thus, if you have something like [foo][bar],
++ it would match [foo], and not [foo][bar]. This could also be written
++ (and probably more correctly) as /^\[(.*?)\]/ (since the non-greedy
++ operator would stop at the first ]).
Why more correctly? I don't think there's any difference between
/^\[([^\]]*)\]/ and /^\[(.*?)\]/, but there's a big difference
between /^\[([^\]]*)\]$/ and /^\[(.*?)\]$/.
[^\]] will never match a ], but (.*?) certainly can.
Abigail
--
perl -wle 'print "Prime" if (1 x shift) !~ /^1?$|^(11+?)\1+$/'
------------------------------
Date: Tue, 16 Dec 1997 18:28:46 -0700
From: Gay Cafe <TheGayCafe@aol.com>
Subject: How to base64 encode a file
Message-Id: <34972ACE.6EA9@aol.com>
I'd like to know how to convert an open file to base64 ASCII encoding.
I get the feeling that this is ridiculiously simple, but I tend to make
these things difficult, so I thought I'd make use of UseNet and ask.
I appreciate any guidance in advance,
Nathan Johansen
mailto: nathan@npj.com
------------------------------
Date: 16 Dec 1997 21:02:20 -0500
From: mike@stok.co.uk (Mike Stok)
Subject: Re: How to base64 encode a file
Message-Id: <677brc$1br$1@stok.co.uk>
In article <34972ACE.6EA9@aol.com>, Gay Cafe <TheGayCafe@aol.com> wrote:
>I'd like to know how to convert an open file to base64 ASCII encoding.
>
>I get the feeling that this is ridiculiously simple, but I tend to make
>these things difficult, so I thought I'd make use of UseNet and ask.
>
>I appreciate any guidance in advance,
There's a module, MIME::Base64, on CPAN. CPAN is the comprehensive perl
archive network, browse http://www.perl.com and follow a CPAN link, or ftp
to ftp.funet.fi and look under /pub/languages/perl/CPAN
NAME
encode_base64 - Encode string using base64 encoding
decode_base64 - Decode base64 string
SYNOPSIS
use MIME::Base64;
$encoded = encode_base64('Aladdin:open sesame');
$decoded = decode_base64($encoded);
DESCRIPTION
This module provides functions to encode and decode
strings into the Base64 encoding specified in RFC 2045 -
MIME (Multipurpose Internet Mail Extensions).
Hope this helps,
Mike
--
mike@stok.co.uk | The "`Stok' disclaimers" apply.
http://www.stok.co.uk/~mike/ | PGP fingerprint FE 56 4D 7D 42 1A 4A 9C
http://www.tiac.net/users/stok/ | 65 F3 3F 1D 27 22 B7 41
stok@colltech.com | Collective Technologies (work)
------------------------------
Date: Wed, 17 Dec 1997 01:20:05 GMT
From: jkugler@inreach.com (Joshua J. Kugler)
Subject: Re: how to send entire script code to STDOUT if STDIN eq "help"
Message-Id: <34972a44.21391255@news.inreach.com>
On Mon, 15 Dec 1997 20:22:08 -0500, "E. Brian Depenbrock"
<ebd@sunline.net> wrote:
()I have a perl script I wrote and used perl2exe to convert it to an
()executable. I did this because the boneheads I wrote it for are
nosey and
()like to look at stuff, then they break it.
()However, I want them to be able to see the code so someone else can
modify
()it later if need be.
()
()So, what I want is a way to have the script print itself to STDOUT
if the
()STDIN value is equal to help or something like that. I can get it
to send
()segments of text, but not the show thing.
()
()Here is part of my current code: Note: the first line basically
forces my
()notes to display to the screen each time it is run.
The only thing that comes to mind is using a "here" document with all
your code in it. Check out the "Cooperating with Other Languages"
section in "Programming Perl." It has a little vignette on
non-executed perl in a perl script.
As my ISP's news server isn't always reliable, please reply via e-mail as well.
Joshua J. Kugler
Computer Consultant--Web Developer
Real e-mail address spelled out to prevent spam. jkugler at inreach dot com
http://www.cwebpages.com/jkugler
Every knee shall bow, and every tongue confess, in heaven, on earth, and under the earth, that Jesus Christ is LORD -- Count on it!
------------------------------
Date: Tue, 16 Dec 1997 06:09:54 -0600
From: "William R. Mattil" <wrmattil@ix.netcom.com>
Subject: missing socket.ph
Message-Id: <34966F92.41C6@ix.netcom.com>
Hello all,
I recently installed perl 5.004_4 on a risc6k using the smit installable
archive from www.bull.de. However, the socket.ph file is missing, and
there may be others. At this point compiling from the sources is not an
option. Can anyone tell me where I can find this file ??? It doesn't
apprear to be in the source distribution either.
Regards
Bill
--
William R. Mattil | Fred Astaire wasn't so great.
wrmattil@ix.netcom.com | Ginger had to do it all backwards
(972) 256-3219 | and... in high heels.
------------------------------
Date: Wed, 17 Dec 1997 00:57:10 GMT
From: Gilles.Maire@ungi.com (Gilles Maire)
Subject: Perl and Website ON W95
Message-Id: <349722c2.58484655@news.imaginet.fr>
Hi,
I have reinstalled my perl 5004 on my window 95 and when I execute a
CGI I have a dos window and my script is excuted inside.
Any idea please ?
Regards
GM
Amicalement
Gilles.Maire@ungi.com
|||||||||||||||||||||||||||||| - UNGI - ||||||||||||||||||||||||||||||
http://www.ungi.com
------------------------------
Date: 17 Dec 1997 01:38:47 GMT
From: mgjv@comdyn.com.au (Martien Verbruggen)
Subject: Re: Perl and Website ON W95
Message-Id: <677af7$4u3$3@comdyn.comdyn.com.au>
In article <349722c2.58484655@news.imaginet.fr>,
Gilles.Maire@ungi.com (Gilles Maire) writes:
> I have reinstalled my perl 5004 on my window 95 and when I execute a
> CGI I have a dos window and my script is excuted inside.
> Any idea please ?
Yes. This sounds like perl is working fine. Good.
If you have problems with CGI or with the web server you are using,
please try one of the comp.infosystems.www.* groups.
Martien
--
Martien Verbruggen |
Webmaster www.tradingpost.com.au | The gene pool could use a little
Commercial Dynamics Pty. Ltd. | chlorine.
NSW, Australia |
------------------------------
Date: 17 Dec 1997 00:10:24 GMT
From: mgjv@comdyn.com.au (Martien Verbruggen)
Subject: Re: Perl Implementation of Checksum?
Message-Id: <67759g$4ak$1@comdyn.comdyn.com.au>
In article <6771c4$squ$1@shell3.ba.best.com>,
rsr@best.com (Roy S. Rapoport) writes:
>
> I'm looking for an implementation of checksum in perl, or possibly an
> idea on how I could implement it myself. A search on 'sum' on both
> the FAQ and the CPAN module listing has come up with no relevant
> matches ...
>
I think CPAN uses the MD5 algorithm to do checksum like things. There's
a module out there (on CPAN) that takes care of this.
Martien
--
Martien Verbruggen | My friend has a baby. I'm writing down
Webmaster www.tradingpost.com.au | all the noises the baby makes so later
Commercial Dynamics Pty. Ltd. | I can ask him what he meant - Steven
NSW, Australia | Wright
------------------------------
Date: 17 Dec 97 00:42:51 GMT
From: nospam@minivend.com
Subject: Re: Perl Implementation of Checksum?
Message-Id: <3497200b.0@news.one.net>
Martien Verbruggen <mgjv@comdyn.com.au> wrote:
> In article <6771c4$squ$1@shell3.ba.best.com>,
> rsr@best.com (Roy S. Rapoport) writes:
>>
>> I'm looking for an implementation of checksum in perl, or possibly an
>> idea on how I could implement it myself. A search on 'sum' on both
>> the FAQ and the CPAN module listing has come up with no relevant
>> matches ...
>>
> I think CPAN uses the MD5 algorithm to do checksum like things. There's
> a module out there (on CPAN) that takes care of this.
I would go along with the MD5 suggestion, but a simple checksum is
built into the unpack() function:
sub checksum {
return unpack "%32c*", join "", @_;
}
That is for 32 bits, adjust yours accordingly. There is now also
a 64-bit CRC module out as well.
Regards,
Mike Heins http://www.minivend.com/ ___
Internet Robotics |_ _|____
Just because something is 131 Willow Lane, Floor 2 | || _ \
obviously happening doesn't Oxford, OH 45056 | || |_) |
mean something obvious is <mikeh@minivend.com> |___| _ <
happening. --Larry Wall 513.523.7621 FAX 7501 |_| \_\
------------------------------
Date: 17 Dec 1997 01:30:02 GMT
From: mgjv@comdyn.com.au (Martien Verbruggen)
Subject: Re: Perl Implementation of Checksum?
Message-Id: <6779uq$4u3$1@comdyn.comdyn.com.au>
In article <3497200b.0@news.one.net>,
nospam@minivend.com writes:
> I would go along with the MD5 suggestion, but a simple checksum is
> built into the unpack() function:
Go figure, I never knew that :)
Martien
--
Martien Verbruggen |
Webmaster www.tradingpost.com.au | Very funny Scotty, now beam down my
Commercial Dynamics Pty. Ltd. | clothes.
NSW, Australia |
------------------------------
Date: Wed, 17 Dec 1997 02:00:51 GMT
From: genepool@netcom.com (Jim Michael)
Subject: Re: Perl Implementation of Checksum?
Message-Id: <genepoolELB9LF.Cn0@netcom.com>
Roy S. Rapoport (rsr@best.com) wrote:
: I'm looking for an implementation of checksum in perl, or possibly an
...
: (Basically, I need a way to compare two files to see if they're
: identical, and sum seems the quickest way to do it).
The last time I looked into this issue, MD5 looked like the best way to
go. I found a fast C program for doing file verification on the Debian
Linux site (including source) http://www.debian.org. I don't know how the
Perl MD5 module compares performance-wise.
Cheers,
Jim
------------------------------
Date: 17 Dec 1997 02:47:50 GMT
From: Zenin <zenin@best.com>
Subject: Re: pgp encrypion via perl script
Message-Id: <882327077.375380@thrush.omix.com>
Michael Budash <mbudash@sonic.net> wrote:
: Er ... in my example, I use echo to pass the _unencrypted_ data _to_ pgp
: via a pipe, then simply capture the _encrypted_ data from pgp's stdout via
: perl's backtick facility.
: >> ps cannot see the contents of pipes.
: Based on what I just said, in your opinion, am I still OK? Looks like it
: to me...
Nope. Ps will still see the un-encrypted data on the command line.
If you do a ps, you'd see the data as something like:
12525 p0 S+ 0:00.36 sh -c echo YOUR NON-ENCRYPTED DATA HERE
12526 p0 S+ 0:00.36 pgp -z YOUR PASS PHRASE
See what we meen? You won't see the "pipe" data, but you'll still
see the data *before* it gets into the pipe if you use this method.
: I'm still not clear why Open3 is the "right" way, and not just "another"
: way, unless there are real and immediate security concerns, which there do
: not appear to be, or noticable performance hits to the machine, which no
: one has mentioned at all. So why?
For both. If you fork a shell (ala "echo") to send the data into
pgp, you *WILL* be able to see the non-encrypted data in a ps
listing. If you use the -z (I think that's it) option, you also
put the pgp pass phrase onto the command line.
Forking an extra shell also has some overhead, but security is the
main problem. Use IPC::Open3. If you're on NT/95, I'm pretty sure
the perl5.004 release (NOT the ActiveWare port) has fork()
available, but I could be wrong (it happends a lot).
: FYI to all, I'm using PGP 5.0 for Irix Unix, not 2.6.2. PGP 5.0 is much,
: much better.
Except in the fact that it completely, and totally breaks the
interface so that any and all programs built to talk to lesser
versions will crash and burn when you upgrade. I talked to
some of ViaCrypt's development guys that think it was as stupid
a move as I do, but the marketing people thought they knew better
then us... :-/
It may be nicer, but I can't install it without breaking dozens of
applications on our system, or run two versions.
--
-Zenin
zenin@best.com
------------------------------
Date: 17 Dec 1997 01:20:51 GMT
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: Return value after OPEN()
Message-Id: <6779dj$8vu$2@csnews.cs.colorado.edu>
[courtesy cc of this posting sent to cited author via email]
In comp.lang.perl.misc,
Russ Allbery <rra@stanford.edu> writes:
:That would require using signal handlers; wouldn't it be better in the
:more common case to close your pipe and then check the value of $? ?
Yes, but again that only works on read pipes. Write pipes
need $SIG{PIPE} handling.
--tom
--
Tom Christiansen tchrist@jhereg.perl.com
"A pithy saying is worth its weight in gold." --Larry Wall
------------------------------
Date: Tue, 16 Dec 1997 21:40:40 -0500
From: ushere@ibm.net
To: "Don Badowski Jr." <ddbadowski@fedex.com>
Subject: Re: Script calls embedded in web pages
Message-Id: <34973BA8.E14@ibm.net>
Don Badowski Jr. wrote:
>
> Can anyone tell what if any thing I may be doing wrong or assuming in
> the following case?:
> I created a simple perl script file named"test.cgi":
> #!/usr/bin/perl/
> print "Content-type: text/html\n\n";
>
> print "hello";
>
> Next I created a HTML file called testing.shtml:
> <html>
> <head><title>TITLE</title></head>
> <body>
> This is a test of CGI and PERL<br>
> <!--#exec cgi="test.cgi"-->
I need to point to cgi-bin on my ISP's server:
<!--#include virtual="/cgi-bin/scriptname.pl" -->
or,
<a href="/cgi-bin/scriptname.pl"> goforit link</a>
hope this helps
------------------------------
Date: Wed, 17 Dec 1997 01:20:04 GMT
From: jkugler@inreach.com (Joshua J. Kugler)
Subject: Re: Solution: getting list of directories, returned as an array
Message-Id: <34972a40.21387520@news.inreach.com>
On 14 Dec 1997 22:00:07 -0600, scribble@tekka.wwa.com (Tushar Samant)
wrote:
()>use File::Find;
()>my @dirlist
()>find(sub {push(@dirlist, $File::Find::name) if -d;}, '.');
()>-----
()>Now, wasn't that easy? :) On large trees, this may be slow as it
()>cycles through EVERY file, directory or not.
()
()I guess I still don't understand the problem. If you already knew
()which entries were directories, why would you be writing a program?
I just thought there would be some way of calling a listing of
directory entries, but then that would most likely be system
dependent, now, wouldn't it? :) Would defeat my whole purpose.
For ex: under MS-DOS, you can type "dir /ad" and get a list of just
directories. But, like I said, system dependent.
As my ISP's news server isn't always reliable, please reply via e-mail as well.
Joshua J. Kugler
Computer Consultant--Web Developer
Real e-mail address spelled out to prevent spam. jkugler at inreach dot com
http://www.cwebpages.com/jkugler
Every knee shall bow, and every tongue confess, in heaven, on earth, and under the earth, that Jesus Christ is LORD -- Count on it!
------------------------------
Date: Wed, 17 Dec 1997 01:25:09 GMT
From: jkugler@inreach.com (Joshua J. Kugler)
Subject: SORRY! Repeated Posts Re: Solution: getting list of directories, returned as an array
Message-Id: <34972af8.21570695@news.inreach.com>
I'm really sorry about all those repeated posts. My ISP's news server
kept telling me that there was an error posting the message, so I kept
retrying. Oops.
j----- k-----
As my ISP's news server isn't always reliable, please reply via e-mail as well.
Joshua J. Kugler
Computer Consultant--Web Developer
Real e-mail address spelled out to prevent spam. jkugler at inreach dot com
http://www.cwebpages.com/jkugler
Every knee shall bow, and every tongue confess, in heaven, on earth, and under the earth, that Jesus Christ is LORD -- Count on it!
------------------------------
Date: 17 Dec 1997 01:12:33 GMT
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: Wacky idea: a PERL server
Message-Id: <6778u1$8vu$1@csnews.cs.colorado.edu>
[courtesy cc of this posting sent to cited author via email]
In comp.lang.perl.misc,
Dave Sill <dsill@sws5.ctd.ornl.gov> writes:
:Perl is nifty, but it's just too expensive to start up a new perl
:process to handle a quick job like munging/matching mail/news headers
:on a busy SMTP/NNTP server.
Usually you overestimate the impact, but in the case of several
msgs per second, you're right. You should look into embedding
a persistent perl interpreter in your application. Both nvi
and apache do this, and I thought there were hooks for inn
as well.
$ man perlembed
--tom
--
Tom Christiansen tchrist@jhereg.perl.com
There are probably better ways to do that, but it would make the parser
more complex. I do, occasionally, struggle feebly against complexity... :-)
--Larry Wall in <7886@jpl-devvax.JPL.NASA.GOV>
------------------------------
Date: Tue, 16 Dec 1997 20:21:10 -0500
From: phenix@interpath.com (John Moreno)
Subject: Re: where did the newline come from?
Message-Id: <1d1d3sl.d66xja1kcie80N@roxboro-163.interpath.net>
oberon <oberon@nospam.erols.com> wrote:
> I've got a script, with the following code fragment in it:
>
> $num_date = <STDIN>;
> ($num_month = $num_date) =~ s/^(\d+) \d{4}/$1/;
>
> $num_date is set to "4 1997\n" via STDIN, and after my substitution,
> $num_month was "4\n". I may be missing something very basic here, but I
> have no idea how the newline got added to $num_month. As I see it, it
> should have value "4", and nothing else.
That's because you aren't looking at it right - what you are doing is
equivalent to:
$num_date = "4 1997\n";
$num_month=$num_date;
$num_month =~ s/^(\d+) \d{4}/$1/;
Then you delete the \d{4} you are left with the 4 and the newline.
--
John Moreno
------------------------------
Date: Mon, 15 Dec 1997 17:53:40 -0800
From: steve <steve@seasoned-software.com>
To: "Craig A. Johnston" <caj@urth.autarch.com>
Subject: Re: Which language pays most 17457 -- C++ vs. Java?
Message-Id: <3495DF24.7E812DDC@seasoned-software.com>
This is a multi-part message in MIME format.
--------------2B010269728445D70EC0B66F
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Craig A. Johnston wrote:
> COBOL. COBOL pays the most. Get to it, son.
BUT, as to C v. JAVA? JAVA is HYPE! It is NOT available(read runnable) on
every platform, and C IS, for the most part. ALSO, C should compile faster,
and has more support. Many companies(according to the latest computer
magazines) are finding JAVA inadequate, and slow.
For client side processing on the internet, JAVA can't be beat. There is NO
contender. M/S ASP requires more downloads, and just isn't as widely
supported). In every other way, C beats JAVA!
C may pay more, but JAVA IS widely use by internet sites, and commands a
premium.
> --
> Craig A. Johnston <> UNIX/TCP-IP/LAN consulting and custom programming
> caj@autarch.com <> in C/perl/shell. Qmail spoken here.
--------------2B010269728445D70EC0B66F
Content-Type: text/x-vcard; charset=us-ascii; name="vcard.vcf"
Content-Transfer-Encoding: 7bit
Content-Description: Card for steve
Content-Disposition: attachment; filename="vcard.vcf"
begin: vcard
fn: steve
n: ;steve
org: SEASONED SOFTWARE
email;internet: steve@seasoned-software.com
note: notes would be here!
x-mozilla-cpt: ;0
x-mozilla-html: TRUE
version: 2.1
end: vcard
--------------2B010269728445D70EC0B66F--
------------------------------
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 1487
**************************************
