[7652] in Perl-Users-Digest
Perl-Users Digest, Issue: 1278 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Thu Nov 6 04:17:50 1997
Date: Thu, 6 Nov 97 01:00:24 -0800
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Thu, 6 Nov 1997 Volume: 8 Number: 1278
Today's topics:
Re: 'sort'ing umlauts (Ottavio G. Rizzo)
Re: 'sort'ing umlauts (Dean Inada)
Re: Creating "Cutoff" date routine to delete files? <qdtcall@esb.ericsson.se>
do "somefile.pl" for perl 4 & 5, any diff? (Pui Ming WONG)
Re: HELP - HOW TO WRITE FILES IF NOT ROOT SUPER USER? (Gerben Wierda)
Re: Help Setting Up Perl 5.0 On Win95 ?? (Hans Schrader)
How to use Perl for NT with IIS <chuck@pacific.net.sg>
Re: How to use Perl for NT with IIS (Hans Schrader)
Re: interrupt system("$cmd") if timeout <cs@zip.com.au>
Re: Newbie: CGI incantations for Mac (Adam Schneider)
Re: ODBC and Apostrophe <cornelio@home.com>
Re: OPEN mechanism <cornelio@home.com>
Re: PERL->ADO->SQL <cornelio@home.com>
Re: Regex question (Abigail)
Response from Demobuilders about Perl2Exe with standard (Paul Murray)
Re: Sorting and Counting with PERL (Abigail)
Re: that @#*$%#! redirection scripts <cs@zip.com.au>
Undefining an associative array element (Wart)
Web-based pop3 program... <klsiu5@ie.cuhk.edu.hk>
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 05 Nov 1997 23:55:37 -0500
From: otto@gauss.math.brown.edu (Ottavio G. Rizzo)
Subject: Re: 'sort'ing umlauts
Message-Id: <sfn2jioc3a.fsf@gauss.math.brown.edu>
toutatis@_SPAMTRAP_toutatis.net (Toutatis) writes:
> Randy Jay Yarger <randy@hs1.hst.msu.edu> wrote:
> > I'm trying to figure out a way to sort a list of names which contain some
> > characters with umlauts. The character with the umlaut should appear after
> > the corresponding character without. So with the list:
> >
man I18N::Collate
(If you're not using Unix: oh well... then it's your problem :)
--
Ottavio G. Rizzo Dep. of Mathematics and Statistics
phone: (613) 545-2432 Queen's University
fax: (613) 545-2964 Kingston, ON, Canada K7K-3N6
------------------------------
Date: 6 Nov 1997 06:44:07 GMT
From: dmi@delta1.deltanet.com (Dean Inada)
Subject: Re: 'sort'ing umlauts
Message-Id: <63rovn$7l3$1@news01.deltanet.com>
In article <Pine.NXT.3.95.971105161358.2611A-100000@hs1>,
Randy Jay Yarger <randy@hs1.hst.msu.edu> wrote:
> sort { $a =~ tr/\366/o/; $b =~ tr/\366/o/; $a cmp $b } @words
So, while attemting to suggest a Schwarzian Transformed alternaive
without the above side effects, I noticed that
(local $_=$_,s/\366/o\377/)[0]
seemed to return the substituted value of $_ Furthur, I see that
($_=0,$_,$_++,++$_,$_++,++$_,$_++)
seems to have the value (5,5,0,5,2,5,4)
While it's clear enough what's happening, it's not obvious to me whether
that behavior could have been predicted from the documentation.
Which raises the question: Can it be depended on?
Or does this exhibit what ANSI C would call "undefined behavior"?
ST {local $_=$_,s/\366/o\377/g} @words
> sort { $a =~ tr/\366/o/; $b =~ tr/\366/o/; $a cmp $b } @words
> TIA,
> Randy Jay Yarger | H-Net, Humanities OnLine
> randy@yarger.tcimet.net | http://yarger.tcimet.net/(local
sub ST(&@){
my $metric=shift;
map {$_->[0]}
sort {$a->[1] cmp $b->[1]}
map {[$_,&{$metric}]} @_
}
------------------------------
Date: 06 Nov 1997 08:59:15 +0100
From: Calle Dybedahl <qdtcall@esb.ericsson.se>
Subject: Re: Creating "Cutoff" date routine to delete files?
Message-Id: <isoh3yo3l8.fsf@godzilla.kiere.ericsson.se>
Alan Hecker <ahecker@dowjones.net> writes:
> I'm a little stuck on how to get to the file dates in perl, so I can
> then parse them & unlink the little devils.
Have a look at the stat() function, described in the perlfunc manpage.
--
Calle Dybedahl, UNIX Sysadmin
qdtcall@esavionics.se http://www.lysator.liu.se/~calle/
------------------------------
Date: 6 Nov 1997 07:38:54 GMT
From: s11976@net2.hkbu.edu.hk (Pui Ming WONG)
Subject: do "somefile.pl" for perl 4 & 5, any diff?
Message-Id: <63rs6e$7qc$1@power42t.hkbu.edu.hk>
Yesterday someone gave me some cgi perl scripts which had
been running on perl4 to convert on another web server which runs
perl 5
I found that the calling of routines by using statement
do "some-libfile.pl"
the variables evaluated there are NOT RETURNED to the main perl
script
Are there any changes regarding the use of the
do "somefile.pl"
statement in perl5 from perl4 ?
What should i do so that the variables evaluated in subroutines
included in the somefile.pl can be returned ?
--
__
/ \_/ ) __ Pui Ming WONG (E-mail: pm@hkbu.edu.hk)
/ ( ------------- } System Support Programmer
( =l=ll===============__} Computing & Telecomm. Services Centre
\ _ ( Hong Kong Baptist University
\_/ \__) 224 Warerloo Road, Hong Kong
------------------------------
Date: Mon, 3 Nov 1997 15:28:53 GMT
From: G.C.Th.Wierda@AWT.nl (Gerben Wierda)
Subject: Re: HELP - HOW TO WRITE FILES IF NOT ROOT SUPER USER?
Message-Id: <EJ2to5.614@AWT.NL>
Gil Vidals <vidals@etica-entertainment.com> wrote:
>I've written a small test program to write to a file. I can only get the
>program to work when I'm logged in as the root superuser (LINUX);
>
>The program is:
>
> $dir = "/tmp";
> $file = "test_file;
>
> open (FILE, ">>" . $dir.$file) ||
> &return_error(500, Cannot open file [$file]");
>
> print FILE "this is a test on how to write files", "\n";
>
> close (FILE);
>
Well, you could have added the missing directory separator. Now, you are
writing in /tmptest_file and not in /tmp/test_file. Didn't you check if the
file was actually there when you were root?
> open (FILE, ">>" . $dir.'/'.$file) ||
---
Gerben Wierda,
Stafmedewerker Adviesraad voor het Wetenschaps- en Technologiebeleid.
Staff member Advisory Council for Science and Technology Policy
Javastraat 42, 2585 AP, Den Haag/The Hague, The Netherlands
Tel (+31) 70 3639922 Fax (+31) 70 3608992
http://www.AWT.nl/prive/wierda/
The fox knows many things, but the hedgehog knows one big thing.
"Joyous distrust is a sign of health. Everything absolute belongs to
pathology."
- Nietzsche
------------------------------
Date: Thu, 06 Nov 1997 07:21:05 GMT
From: hans.schrader@geol.uib.no (Hans Schrader)
Subject: Re: Help Setting Up Perl 5.0 On Win95 ??
Message-Id: <63rr54$qj5$1@toralf.uib.no>
In article <34610da4.463490@news.ececs.uc.edu>, teetshd@ucbeh.san.uc.edu wrote:
Consult the PerlWin32 FAQ's that contain detailed information about how to
install Perl in Win95 or WinNT- or you may want to consult the readme file
or install me notes files that came with your distribution: Don't try to
figure this out yourself- you will 99% make errors and that is NOT
neccessarry. Newest PerlWin32 do come with VERY comfortable and easy setup
programs! That do the hard work!
>I have just unzipped the Perl 5.0 kit that came on a CD with the book
>CGI Programming with Perl5. Unzipping the .GZ file gave me many files
>of different file types.
>
>What do I do next? Do I need to compile this with my c++ compiler? I
>use Perl at work on UNIX but I have no idea how to get going on my
>Win95 machine at home.
>
>Thanks in advance for any help you can give me.
>
>Thanks,
>Greg in Cincinnati
Hans Schrader from Bergen in Norway "Web-Eureka"
hansPERIODschraderSPAMbigfootPERIODcom = http://hjs.geol.uib.no/
[PERIOD="."SPAM="@"]
------------------------------
Date: Thu, 6 Nov 1997 15:00:09 +0800
From: "Chuck" <chuck@pacific.net.sg>
Subject: How to use Perl for NT with IIS
Message-Id: <63rq4e$3le$1@newton.pacific.net.sg>
Hi,
when I run a Perl script on my web server it promt the following error
message:
HTTP/1.0 501 Not Supported.
I already had Perl for Windows NT install. What else do I need to do?
Help?
Thanx.
------------------------------
Date: Thu, 06 Nov 1997 07:22:47 GMT
From: hans.schrader@geol.uib.no (Hans Schrader)
Subject: Re: How to use Perl for NT with IIS
Message-Id: <63rr89$qj5$2@toralf.uib.no>
In article <63rq4e$3le$1@newton.pacific.net.sg>, "Chuck" <chuck@pacific.net.sg> wrote:
Consult the WinPerl32 FAQ's they contain all the info that you need!
> Hi,
>
>when I run a Perl script on my web server it promt the following error
>message:
> HTTP/1.0 501 Not Supported.
>
>I already had Perl for Windows NT install. What else do I need to do?
>
>Help?
>
>Thanx.
>
>
>
>
Hans Schrader from Bergen in Norway "Web-Eureka"
hansPERIODschraderSPAMbigfootPERIODcom = http://hjs.geol.uib.no/
[PERIOD="."SPAM="@"]
------------------------------
Date: 6 Nov 1997 04:56:06 GMT
From: Cameron Simpson <cs@zip.com.au>
To: Helina Chan <helina@torus.eng.yale.edu>
Subject: Re: interrupt system("$cmd") if timeout
Message-Id: <19971106165237-cameron-1-03593@sid.research.canon.com.au>
Helina Chan <helina@torus.eng.yale.edu> writes:
| I could not find information about interrupting
| a process started by system("$cmd") if a specified timeout
| occured.
| For example, rsh will time out in 75 seconds if the
| remote machine is down. Suppose I want to do
| system("rsh $host $cmd");
| and if it did not succeed in $timeout seconds, interrupt
| the above process and print out "system is down".
You need to break the system() up - internally it sort of goes
Parent program Child program
fork()
--------->exec(sh,-c,$cmd)
wait()... ... child runs ...
exit()
<--------
wait() returns
... parent continues ...
Use fork() instead of system. In the child, set an alarm for 75 seconds.
Then wait() in the parent, more or less as normal.
See fork(), exec(), alarm(), waitpid().
--
Cameron Simpson, DoD#743 cs@zip.com.au http://www.zip.com.au/~cs/
Yesterday I saw a bumpersticker that said: "Vote from the Rooftops" followed
by a picture of a sniper. Kinda summed it all up for me.
- Ken Strayhorn Jr. <kes@acpub.duke.edu>
------------------------------
Date: Wed, 05 Nov 1997 23:49:34 -0600
From: DO_NOT_SPAM_acs@bitstream.net (Adam Schneider)
Subject: Re: Newbie: CGI incantations for Mac
Message-Id: <DO_NOT_SPAM_acs-0511972349340001@acs.bitstream.net>
frogkisser@geocities.com wrote:
> What incantations need to go before the #/whatever/bin/perl line for
> MacPerl CGI scripts? I'm running the freeware server Quid Pro Quo 2.0
> which should support the same cgi stuff as MacHTTP or WebStar. Thanks!
You don't need a #!/whatever/perl line in MacPerl scripts. Just save them
as CGI Scripts from MacPerl (you ARE using MacPerl 5, yes?), and fire 'em
up!
I tried running some of my UNIX scripts with Quid Pro Quo on my Quadra
610, and they worked fine. Just make sure you have enough memory free to
run QPQ and MacPerl simultaneously, because MacPerl needs to be open while
you execute CGIs.
Oh, and watch out for path names! UNIX uses "/", Mac uses ":".
Adam
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
Adam Schneider * DO_NOT_SPAM_schneider@pobox.com
(remove "DO NOT SPAM" from my address to send me e-mail)
WWW: http://pobox.com/~schneider/adam.html
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
------------------------------
Date: Wed, 05 Nov 1997 22:50:24 -0800
From: Michael Cornelio <cornelio@home.com>
To: Licensed User <hobo@alumni.stanford.org>
Subject: Re: ODBC and Apostrophe
Message-Id: <346168B0.9726FCCA@home.com>
Licensed User wrote:
>
> Can anyone help me?
>
> I'm trying to update a database using perl and have got most of it
> working successfully except for this one annoying bug. When I try and
> send a insert a field value that contains an apostrophe... The sql call
> breaks.
> for example
>
> $joe="Joe's";
> $bob="Bob";
> $sql_stmt="Insert into friends values('$joe','$bob)";
> $db->Sql($sql_stmt);
>
> I know the conflict comes from the fact that the field delimeters are
> apostrophes and that conflicts with field value... What I don't know of
> is any solution around it? I've tried the ascii representation
> $joe="Joe\047s" but that updates the database with literally "Joe\047s"
>
> Can anyone help or direct me to a page that addresses this?
>
> thank you,
> Stan
Two problems ...
$sql_stmt="Insert into friends values('$joe','$bob)";
1. You're missing a closing parenthesis on $bob and
2. you need to escape the apostrophe in $joe with
a double apostrophe.
try $joe =~ s/'/''/g;
... then ...
$sql_stmt="Insert into friends values('$joe','$bob')";
--
---------------------------------------------------
Michael Cornelio
cornelio@home.com
------------------------------
Date: Wed, 05 Nov 1997 22:46:01 -0800
From: Michael Cornelio <cornelio@home.com>
To: "Scott M. Wiebe" <scott.wiebe@bpal.com>
Subject: Re: OPEN mechanism
Message-Id: <346167A9.AEDE0F55@home.com>
Scott M. Wiebe wrote:
>
> This is a rather indepth question reguarding perl's file handling.
> When files are opened in the various modes, how (exactly) does perl handle the
> file. In particular; when opening for append (">>FILENAME"), is the file a)
> read in it's entirety into memory, b) read line by line (one line in memory at
> a time) until EOF is found or c) some other method which I can't think of at
> this moment.
I assume that PERL basically uses the standard CLib functions for
accessing
files so this should translate into a CLib open or fopen with the append
option. That translates into an OPEN with a SEEK-TO-EOF at the
operating
system level. This operation is usually fairly efficient on most
systems
since the filesize is known apriori. File size may matter a bit, but to
get to the EOF may be as simple as following the chain of blocks in the
file to EOF or looking for the ending block address in a system file
header.
This is more an file system issue than a Perl issue since Perl relies on
the operating system to perform its file I/O.
---------------------------------------------------
Michael Cornelio
cornelio@home.com
------------------------------
Date: Wed, 05 Nov 1997 22:10:17 -0800
From: Michael Cornelio <cornelio@home.com>
To: Jack <NoSPAMa-jackg@microsoft.com>
Subject: Re: PERL->ADO->SQL
Message-Id: <34615F49.A69E9F13@home.com>
Jack wrote:
>
> Using PERL WIN32, does anyone have any sample code using the ADO command
> object to execute SQL code (preferably an MS SQL stored procedure)?
Hi Jack (Pun Intended :-)
You can find ADO->SQL (via ODBC) examples for PerlScript at
the ActiveState site here ...
http://www.activestate.com/reference/aspSamples/index.htm
If you're using plain-old CGI, you might want to look at
Win32::ODBC at http://www.roth.net/odbc/
Hope this helps ...
---------------------------------------------------
Michael Cornelio
cornelio@home.com
------------------------------
Date: 6 Nov 1997 07:12:59 GMT
From: abigail@fnx.com (Abigail)
Subject: Re: Regex question
Message-Id: <slrn662rjh.kcu.abigail@betelgeuse.wayne.fnx.com>
Alan (ahecker@interport.net) wrote on 1528 September 1993 in
<URL: news:34614747.69EA069C@interport.net>:
++
++ Well, to cut to the heart of the matter, I'm worse at them than I
++ thought. With the regex I'm using, the sample line:
++
++ Foo Bar foobar@foobar.com
++
++ becomes:
++
++ foobar Foo Bar
Really? Judging your regex, I don't think so.
I would expect:
Foo Barfoobar@foobar.com
++ The regex, as I have it, is as follows:
++
++ s/(\w+)\s+(\w+)\s+(\.*)/$3 $1 $2/;
^
|
+--- Why do you escape the . ?
++
++ What am I doing wrong?
Don't escape the . and it will be fine:
$ perl -wle
$_ = 'Foo Bar foobar@foobar.com';
s/(\w+)\s+(\w+)\s+(\.*)/$3 $1 $2/;
print;
__END__
foobar@foobar.com Foo Bar
++ As always, any & all help is greatly appreciated.
But I would use split.
Abigail
--
perl -wle 'print "Prime" if (1 x shift) !~ /^(11+?)\1+$/'
------------------------------
Date: 6 Nov 1997 08:20:00 GMT
From: murray-paul@usa.net (Paul Murray)
Subject: Response from Demobuilders about Perl2Exe with standard perl (Win32)
Message-Id: <63rujg$o3e@tmp.boc.com>
In case anyone else is interested in using Perl2Exe to create standalone
executables, I received the following response from the creators of
Perl2Exe to a query about using it with the standard perl distribution,
and with Tk in particular. (Posted with permission):
Does anyone know if it is possible to build a version of Tk
to work with the ActiveWare perl distribution, as suggested?
-Paul Murray
>>>>> Quote
"Perl2Exe is a command line utility for converting perl scripts to exe
files. This allows you to create stand alone programs in perl that do not
require the perl interpreter. You can also ship the exe without having to
ship your perl source code. More information about Perl2Exe can be found at
www.demobuilder.com"
"Unfortunately Perl2Exe does not currently support the standard release of
Perl 5.004. We will eventually produce a version that does support the
standard release, but we do not have a date for when this will be available.
It is likely several months in the future.
Are you building your own binaries, or are you using the GSAR binary
distribution?
The binary GSAR distribution is compiled with Borland, are you aware of a
binary release built with Microsoft's compiler?
An option is to build the TK library for the activeware release. This would
involve building the TK libraries yourself. Activeware's release is
compiled with Microsoft, and is not binary compatible with modules from the
GSAR distribution.
We don't know if building TK for Activeware is possible, it is definetly not
trivial. If you have the time and the inclination, you may want to ask the
author for hints.
If you want to try to mix the TK library with the Activeware binary release,
test it by running your script using the Activeware Perl interpreter,
instead of Perl2Exe. It is easier to test with the interpreter, and if it
works, then is should be possible to get it working with Perl2Exe."
<<<<< End Quote
------------------------------
Date: 6 Nov 1997 07:17:02 GMT
From: abigail@fnx.com (Abigail)
Subject: Re: Sorting and Counting with PERL
Message-Id: <slrn662rr4.kcu.abigail@betelgeuse.wayne.fnx.com>
Brian Kendig (bskendig@netcom.com) wrote on 1528 September 1993 in
<URL: news:bskendigEJ7DMv.B5y@netcom.com>:
++ app6042 wrote:
++
++ > I can't fathom a solution for this. I have a list of about 80,000
++ > timestamps, e.g.,
++ > ...
++ > I need to use PERL to count the number of instances each unique
++ > timestamp occurs. Can someone please help me on this?
++
++ Easy: ;-)
++
++ system "uniq -c mylist.txt > mylist.count";
++
++ Assuming you're on a system that has 'uniq', of course. You could use
++ backquotes or an 'open' statement and read from a pipe executing this
++ command if you wanted to, also.
++
++ No sense reinventing the wheel if you don't need to...
No sense calling system.
map {$hash {$_} ++;} @list;
print map {"$_ occurs $hash{$_} times\n";} keys %hash;
Abigail
--
perl -wle 'print "Prime" if (1 x shift) !~ /^(11+?)\1+$/'
------------------------------
Date: 6 Nov 1997 04:45:02 GMT
From: Cameron Simpson <cs@zip.com.au>
To: weirdo@weirdo.it (Aram Gurekian)
Subject: Re: that @#*$%#! redirection scripts
Message-Id: <19971106164137-cameron-1-03241@sid.research.canon.com.au>
weirdo@weirdo.it (Aram Gurekian) writes:
| I'm trying to set up a redirection script: someone hits "go" on a form,
| URL-XYZ is passed via "GET" method and then the script should redirect
| the browser to URL-XYZ.
| The scripts work fine when executed on the shell (perl clickgo.pl)
| But when I try to call them from the web I get an "internal error,
| misconfiguration etc etc"...
Check the script exits with status 0. I.e., from the shell say
% the-script ...
% echo $?
The echo should say "0".
--
Cameron Simpson, DoD#743 cs@zip.com.au http://www.zip.com.au/~cs/
In My Egotistical Opinion, most people's C programs should be indented six
feet downward and covered with dirt. - Blair P. Houghton
------------------------------
Date: 6 Nov 1997 06:05:15 GMT
From: wart@ugcs.caltech.edu (Wart)
Subject: Undefining an associative array element
Message-Id: <63rmmr$39r@gap.cco.caltech.edu>
I left my camel book at work, else I'd look it up myself.
I'm using a dbm to store some info that can be submitted/displayed
using a cgi-bin. I want to add an option to delete an entry stored
in the dbm file. My attempt at this failed:
dbmopen(%info, $filename, 0644);
if ($remove) {
undef $info{$key_to_delete};
}
dbmclose(%info);
This only seems to remove the value associated with the key, not the
key itself. How can I do this?
--Wart
------------------------------
Date: Thu, 06 Nov 1997 15:29:02 +0800
From: Siu Kwok Leung <klsiu5@ie.cuhk.edu.hk>
Subject: Web-based pop3 program...
Message-Id: <346171BE.9C39BDD0@ie.cuhk.edu.hk>
This is a multi-part message in MIME format.
--------------24A35C52EF033CF7603FA9E2
Content-Type: text/plain; charset=us-ascii
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Content-Transfer-Encoding: 7bit
Hi all.
I am a new beginner of Perl language, and I use the POP3:Client.pm and
make a change to establish a web-based e-mail checking program for
myself. However, if I use "POST" twice, the browser is blank and it
warns that "document contains no data" [ in the $log{'nextpage'} eq
"three" ] , however, when I print the variable $mail[$i] [ in the
$log{'nextpage'} eq "two" ], it run successfully. It really puzzled me
as i ask many but no one can solve it.
So, any perl experts (as i am a newcomer :>)can help me to explain why
this will happen?
Thank you very much.
Ryan
--------------24A35C52EF033CF7603FA9E2
Content-Type: application/x-unknown-content-type-cgi_auto_file; name="retrieve5.cgi"
Content-Transfer-Encoding: base64
Content-Disposition: inline; filename="retrieve5.cgi"
IyEvdXNyL2xvY2FsL2Jpbi9wZXJsICAgICANCiANCnJlcXVpcmUgNS4wMDA7DQoNCnVzZSBD
YXJwOw0KdXNlIFNvY2tldCBxdyhQRl9JTkVUIFNPQ0tfU1RSRUFNIEFGX0lORVQpOw0KDQok
cmVxdWVzdF9tZXRob2QgPSAkRU5WeydSRVFVRVNUX01FVEhPRCd9Ow0KJHNvY2thZGRyID0g
J1MgbiBhNCB4OCc7DQokZmhjbnQgPSAwOw0KJHBvcnRfbm89MTEwOw0KDQppZigkcmVxdWVz
dF9tZXRob2QgZXEgIkdFVCIpDQp7DQogICZFbnRlcigpOw0KfQ0KZWxzaWYoJHJlcXVlc3Rf
bWV0aG9kIGVxICJQT1NUIikNCnsNCiAmcGFyc2VfZm9ybV9kYXRhKCpsb2cpOw0KICRtYWls
c2VydmVyPSRsb2d7J21haWxzZXJ2ZXInfTsNCiAkdXNlcm5hbWU9JGxvZ3sndXNlcm5hbWUn
fTsNCiAkcGFzc3dvcmQ9JGxvZ3sncGFzc3dvcmQnfTsNCiAkcG9wID0gbmV3ICgkdXNlcm5h
bWUsJHBhc3N3b3JkLCRtYWlsc2VydmVyLCRwb3J0X25vKTsgICANCiAkbnVtPSRwb3AtPkNv
dW50Ow0KIGZvcigkaT0xOyAkaTw9ICRwb3AtPkNvdW50OyRpKyspDQogew0KICAgJG1haWxb
JGldPSRwb3AtPlJldHJpZXZlKCRpKTsNCiB9DQogJlJldHVybigpOw0KfQ0KZXhpdCgwKTsN
Cg0Kc3ViIG5ldw0Kew0KIyAgCW15ICRuYW1lID0gc2hpZnQ7DQoJbXkgJHVzZXIgPSBzaGlm
dDsNCglteSAkcGFzcyA9IHNoaWZ0Ow0KCW15ICRob3N0ID0gc2hpZnQgfHwgInBvcCI7DQoJ
bXkgJHBvcnQgPSBzaGlmdCB8fCBnZXRzZXJ2YnluYW1lKCJwb3AzIiwgInRjcCIpIHx8IDEx
MDsNCiMJbXkgJGRlYnVnID0gc2hpZnQgfHwgMDsNCg0KICAgICAgICBteSAkbWUgPSBibGVz
cyANCiAgICAgICAgew0KIwkJREVCVUcgPT4gJGRlYnVnLA0KCQlTT0NLID0+ICRuYW1lIC4g
Ijo6U09DSyIgLiAkZmhjbnQrKywNCgkJU0VSVkVSID0+ICRob3N0LA0KCQlQT1JUID0+ICRw
b3J0LA0KCQlVU0VSID0+ICR1c2VyLA0KCQlQQVNTID0+ICRwYXNzLA0KCQlDT1VOVCA9PiAt
MSwNCgkJU0laRSA9PiAtMSwNCgkJQUREUiA9PiAiIiwNCgkJU1RBVEUgPT4gJ0RFQUQnLA0K
CQlNRVNHID0+ICdPSycsDQoJCUVPTCA9PiAiXHJcbiIsDQoJfSwgJG5hbWU7DQoJaWYgKCRt
ZS0+VXNlcigkdXNlcikgYW5kICRtZS0+UGFzcygkcGFzcykgYW5kIA0KCSRtZS0+SG9zdCgk
aG9zdCkgYW5kICRtZS0+UG9ydCgkcG9ydCkpIA0KICAgICAgICB7DQoJCSRtZS0+Q29ubmVj
dCgkbWUsJGhvc3QsJHBvcnQpOw0KCX0NCiMgJG1lLT5Db25uZWN0KCRtZSwkaG9zdCwkcG9y
dCk7DQojICAgICAgICBwcmludCAiJHVzZXIsJHBhc3MsJGhvc3QsJHBvcnQsJG1lXG4iOw0K
CSRtZTsNCg0KfSAjIGVuZCBuZXcNCg0Kc3ViIFVzZXINCnsNCiAJbXkgJG1lID0gc2hpZnQ7
DQoJbXkgJHVzZXIgPSBzaGlmdCBvciByZXR1cm4gJG1lLT57VVNFUn07DQoJJG1lLT57VVNF
Un0gPSAkdXNlcjsNCn0gIyBlbmQgVXNlcg0KDQpzdWIgUGFzcw0Kew0KCW15ICRtZSA9IHNo
aWZ0Ow0KCW15ICRwYXNzID0gc2hpZnQgb3IgcmV0dXJuICRtZS0+e1BBU1N9Ow0KCSRtZS0+
e1BBU1N9ID0gJHBhc3M7DQp9ICMgZW5kIFBhc3MNCg0Kc3ViIEhvc3QNCnsNCiAgICBteSAk
bWUgPSBzaGlmdDsNCiAgICBteSAkaG9zdCA9IHNoaWZ0IG9yIHJldHVybiAkbWUtPntIT1NU
fTsNCg0KICAgICMgR2V0IGFkZHJlc3MuDQogICAgaWYgKCRob3N0ID1+IC9eKFxkKylcLihc
ZCspXC4oXGQrKVwuKFxkKykkLykgDQogICAgew0KICAgICAgJGFkZHIgPSBwYWNrKCdDNCcs
ICQxLCAkMiwgJDMsICQ0KTsNCiAgICB9IA0KICAgIGVsc2UgDQogICAgew0KCSRhZGRyID0g
Z2V0aG9zdGJ5bmFtZSAoJGhvc3QpIG9yDQoJJG1lLT5NZXNzYWdlKCJDb3VsZCBub3QgZ2V0
aG9zdHlieW5hbWU6ICRob3N0LCQhIikgYW5kIHJldHVybjsNCiAgICB9DQogICAgIyBHZXQg
ZG9tYWluIG5hbWUNCiAgICBteSAkdG1wID0gZ2V0aG9zdGJ5YWRkciAoJGFkZHIsIEFGX0lO
RVQpIG9yDQogICAgJG1lLT5NZXNzYWdlKCJDb3VsZCBub3QgZ2V0aG9zdGJ5YWRkcjogJGhv
c3QsICQhIikgYW5kDQogICAgcmV0dXJuOw0KICAgICRtZS0+e0FERFJ9ID0gJGFkZHI7DQog
ICAgJG1lLT57SE9TVH0gPSAkdG1wOw0KICAgIDE7DQp9ICMgZW5kIGhvc3QNCg0Kc3ViIE1l
c3NhZ2UNCnsNCiAgICBteSAkbWUgPSBzaGlmdDsNCiAgICBteSAkbXNnID0gc2hpZnQgb3Ig
cmV0dXJuICRtZS0+e01FU0d9Ow0KICAgICRtZS0+e01FU0d9ID0gJG1zZzsNCn0gIyBlbmQg
TWVzc2FnZQ0KDQpzdWIgUG9ydA0Kew0KICAgIG15ICRtZSA9IHNoaWZ0Ow0KICAgIG15ICRw
b3J0ID0gc2hpZnQgb3IgcmV0dXJuICRtZS0+e1BPUlR9Ow0KICAgICRtZS0+e1BPUlR9ID0g
JHBvcnQ7DQogICAgICAgIA0KfSAjIGVuZCBwb3J0DQoNCnN1YiBDb25uZWN0DQp7DQogICAg
ICAgIG15ICRtZT1zaGlmdDsNCiAgICAgICAgbXkgKCRtZSwgJGhvc3QsICRwb3J0KSA9IEBf
Ow0KICAgICAgICAkaG9zdCBhbmQgJG1lLT5Ib3N0KCRob3N0KTsNCgkkcG9ydCBhbmQgJG1l
LT5Qb3J0KCRwb3J0KTsNCg0KIyAgICAgICAgcHJpbnQgIiRob3N0LCRwb3J0IjsNCglteSAk
cyA9ICRtZS0+e1NPQ0t9Ow0KCWlmIChkZWZpbmVkIGZpbGVubyAkcykgDQogICAgICAgIHsN
CgkJJG1lLT5DbG9zZTsNCgl9DQogICAgICAgIHNvY2tldCgkcywgUEZfSU5FVCwgU09DS19T
VFJFQU0sIGdldHByb3RvYnluYW1lKCJ0Y3AiKSB8fCA2KSBvcg0KCSRtZS0+TWVzc2FnZSgi
Y291bGQgbm90IG9wZW4gc29ja2V0OiAkISIpIGFuZA0KCXJldHVybiAwOw0KICAgICAgICBj
b25uZWN0KCRzLCBwYWNrKCRzb2NrYWRkciwgQUZfSU5FVCwgJG1lLT57UE9SVH0sICRtZS0+
e0FERFJ9KSkNCiAgICAgICAgb3IgJG1lLT5NZXNzYWdlKCJjb3VsZCBub3QgY29ubmVjdCBz
b2NrZXQgWyRtZS0+e0hPU1R9LCRtZS0+e1BPUlR9XTogJCEiKSANCiAgICAgICAgYW5kIHJl
dHVybiAwOw0KICAgICAgICBzZWxlY3QoKHNlbGVjdCgkcykgLCAkfCA9IDEpWzBdKTsgICMg
YXV0b2ZsdXNoDQoJJG1zZyA9IDwkcz4gb3IgJG1lLT5NZXNzYWdlKCJDb3VsZCBub3QgcmVh
ZCIpIGFuZCByZXR1cm4gMDsNCgljaG9wICRtc2c7DQoJJG1lLT5NZXNzYWdlKCRtc2cpOw0K
CSRtZS0+U3RhdGUoJ0FVVEhPUklaQVRJT04nKTsNCgkkbWUtPlVzZXIgYW5kICRtZS0+UGFz
cyBhbmQgJG1lLT5Mb2dpbjsNCg0KfSAjIGVuZCBDb25uZWN0DQoNCnN1YiBDbG9zZQ0Kew0K
CW15ICRtZSA9IHNoaWZ0Ow0KCWlmICgkbWUtPkFsaXZlKCkpIA0KICAgICAgICB7DQoJICAk
cyA9ICRtZS0+e1NPQ0t9Ow0KCSAgcHJpbnQgJHMgIlFVSVQiLCAkbWUtPkVPTDsNCiAgICAg
ICAgICAkXyA9IDwkcz47DQogICAgICAgICAgY2hvcDsNCiAgICAgICAgICAkcmV0cT0kXzsN
CiAgICAgICAgICAkbWUtPk1lc3NhZ2UoJF8pOw0KICAgICAgICAgIHNodXRkb3duKCRtZS0+
e1NPQ0t9LCAyKSBvciAkbWUtPk1lc3NhZ2UoIiQhIikgDQogICAgICAgICAgYW5kIHJldHVy
biAwOw0KICAgICAgICAgIGNsb3NlICRtZS0+e1NPQ0t9Ow0KCSAgJG1lLT5TdGF0ZSgnREVB
RCcpOw0KCX0NCiAgICAgICAgMTsNCn0gIyBlbmQgQ2xvc2UNCg0Kc3ViIEFsaXZlDQp7DQog
ICAgbXkgJG1lID0gc2hpZnQ7DQogICAgJG1lLT5TdGF0ZSA9fiAvXkFVVEhPUklaQVRJT04k
fF5UUkFOU0FDVElPTiQvaTsNCn0gIyBlbmQgQWxpdmUNCg0Kc3ViIFN0YXRlDQp7DQogICAg
bXkgJG1lID0gc2hpZnQ7DQogICAgbXkgJHN0YXQgPSBzaGlmdCBvciByZXR1cm4gJG1lLT57
U1RBVEV9Ow0KICAgICRtZS0+e1NUQVRFfSA9ICRzdGF0Ow0KfSAjIGVuZCBTdGF0DQoNCnN1
YiBTb2NrZXQgDQp7DQogIG15ICRtZSA9IHNoaWZ0Ow0KICByZXR1cm4gJG1lLT57J1NPQ0sn
fTsNCn0NCg0Kc3ViIExvZ2luDQp7DQoJbXkgJG1lID0gc2hpZnQ7DQoJbXkgJHMgPSAkbWUt
PntTT0NLfTsNCglwcmludCAkcyAiVVNFUiAiICwgJG1lLT5Vc2VyICwgJG1lLT5FT0w7DQoJ
JF8gPSA8JHM+Ow0KCWNob3A7DQogICAgICAgICRyZXR1c3I9JF87DQoJJG1lLT5NZXNzYWdl
KCRfKTsNCgkvXlwrLyBvciAkbWUtPk1lc3NhZ2UoIiRfIikgDQogICAgICAgIGFuZCAkbWUt
PlN0YXRlKCdBVVRIT1JJWkFUSU9OJykNCglhbmQgcmV0dXJuIDA7DQoNCglwcmludCAkcyAi
UEFTUyAiICwgJG1lLT5QYXNzICwgJG1lLT5FT0w7DQoJJF8gPSA8JHM+Ow0KCWNob3A7DQog
ICAgICAgICRyZXRwYXM9JF87DQoJJG1lLT5NZXNzYWdlKCRfKTsNCgkvXlwrLyBvciAkbWUt
Pk1lc3NhZ2UoIiRfIikgDQogICAgICAgIGFuZCAkbWUtPlN0YXRlKCdBVVRIT1JJWkFUSU9O
JykNCglhbmQgcmV0dXJuIDA7DQoJL15cK09LIFxTKyBoYXMgKFxkKykgL2kgYW5kICRtZS0+
Q291bnQoJDEpOw0KDQoJJG1lLT5TdGF0ZSgnVFJBTlNBQ1RJT04nKTsNCg0KIwkkbWUtPlBP
UFN0YXQoKSBvciByZXR1cm4gMDsNCg0KfSAjIGVuZCBMb2dpbg0KDQpzdWIgRU9MIA0Kew0K
ICAgIG15ICRtZSA9IHNoaWZ0Ow0KICAgIHJldHVybiAkbWUtPnsnRU9MJ307DQp9DQoNCg0K
c3ViIENvdW50DQp7DQoJbXkgJG1lID0gc2hpZnQ7DQoJbXkgJGMgPSBzaGlmdDsNCglpZiAo
ZGVmaW5lZCAkYyBhbmQgbGVuZ3RoKCRjKSA+IDApIHsNCgkJJG1lLT57Q09VTlR9ID0gJGM7
DQoJfSBlbHNlIHsNCgkJcmV0dXJuICRtZS0+e0NPVU5UfTsNCgl9DQogICAgDQp9ICMgZW5k
IENvdW50DQoNCnN1YiBSZXRyaWV2ZSANCnsNCiAgICBteSAkbWUgPSBzaGlmdDsNCglteSAk
bnVtID0gc2hpZnQgfHwgcmV0dXJuOw0KDQoJJG1lLT5BbGl2ZSBvciByZXR1cm47DQoNCglt
eSAkcyA9ICRtZS0+U29ja2V0Ow0KCQ0KCQ0KCWxvY2FsIEByZXRhcnJheSA9ICgpOw0KCWxv
Y2FsICRyZXQgPSAnJzsNCg0KCXByaW50ICRzICJSRVRSICRudW0iLCAkbWUtPkVPTDsNCgkk
XyA9IDwkcz47DQoJL15cK09LXHMqLyBvciAkbWUtPk1lc3NhZ2UoJF8pIGFuZCByZXR1cm47
DQoNCgl3aGlsZSgkXyA9IDwkcz4pIA0KICAgICAgICB7DQoJCS9eXC5ccyokLyBhbmQgbGFz
dDsNCgkJJHJldCAuPSAkXzsNCgkJY2hvcDsNCgkJcHVzaChAcmV0YXJyYXksICRfKTsNCgl9
DQoJaWYgKCRyZXQpIA0KICAgICAgICB7DQogICAgICAgICAgcmV0dXJuIHdhbnRhcnJheSA/
IEByZXRhcnJheSA6ICRyZXQ7DQoJfQ0KCXByaW50ICJFTkRfT0ZfTUFJTFxuXG4iOwkNCgly
ZXR1cm47DQp9DQoNCnN1YiBwYXJzZV9mb3JtX2RhdGENCnsNCiBsb2NhbCAoKkZPUk1fREFU
QSk9QF87DQogbG9jYWwgKCRyZXF1ZXN0X21ldGhvZCwgJHBvc3RfaW5mbywgQGtleV92YWx1
ZV9wYWlycywgJGtleV92YWx1ZSwgJGtleSwNCiAgICAgICAgJHZhbHVlKTsNCiANCiByZWFk
KFNURElOLCAkcG9zdF9pbmZvLCAkRU5WeydDT05URU5UX0xFTkdUSCd9KTsNCiBAa2V5X3Zh
bHVlX3BhaXJzID0gc3BsaXQoLyYvLCAkcG9zdF9pbmZvKTsNCiBmb3JlYWNoICRrZXlfdmFs
dWUgKEBrZXlfdmFsdWVfcGFpcnMpDQogew0KICAgKCRrZXksJHZhbHVlKSA9IHNwbGl0ICgv
PS8sICRrZXlfdmFsdWUpOw0KICAgJHZhbHVlID1+IHRyLysvIC87DQogICAkdmFsdWUgPX4g
cy8lKFtcZEEtRmEtZl1bXGRBLUZhLWZdKS9wYWNrICgiQyIsIGhleCAoJDEpKS9lZzsNCiAg
IA0KICAgaWYgKGRlZmluZWQoJEZPUk1fREFUQXska2V5fSkpDQogICB7DQogICAgJEZPUk1f
REFUQXska2V5fSA9IGpvaW4oIlwwIiwgJEZPUk1fREFUQXska2V5fSwgJHZhbHVlKTsNCiAg
IH0NCiAgIGVsc2UNCiAgIHsNCiAgICAkRk9STV9EQVRBeyRrZXl9ID0gJHZhbHVlOw0KICAg
fQ0KIH0NCn0NCg0KIA0Kc3ViIFJldHVybg0Kew0KIGlmKCRsb2d7J25leHRwYWdlJ30gZXEg
InRocmVlIikNCiB7DQogICAgcHJpbnQgIkNvbnRlbnQtdHlwZTogdGV4dC9wbGFpblxuXG4i
Ow0KICAgIGZvcigkaT0xOyRpPD0kbG9neydudW0nfTskaSsrKQ0KICAgIHsNCiAgICAgaWYo
JGxvZ3sncyd9IGVxICIkaSIpDQogICAgIHsNCiAgICAgIHByaW50ICIkbWFpbFskaV0iOw0K
ICAgICB9DQogICAgfQ0KIH0NCiBlbHNpZigkbG9neyduZXh0cGFnZSd9IGVxICJ0d28iKQ0K
IHsNCiBwcmludCAiQ29udGVudC10eXBlOiB0ZXh0L2h0bWxcblxuIjsgDQoNCiBwcmludCAi
PGh0bWw+XG4iOw0KIHByaW50ICI8aGVhZD48dGl0bGU+TWFpbDwvdGl0bGU+PC9oZWFkPlxu
IjsNCiBwcmludCAiPGJvZHk+XG4iOw0KIHByaW50ICIkbXNnIjsNCiBwcmludCAiPGJyPiI7
DQogcHJpbnQgIiRyZXR1c3IiOw0KIHByaW50ICI8YnI+IjsNCiBwcmludCAiJHJldHBhcyI7
DQogcHJpbnQgIjxicj4iOw0KIHByaW50ICI8Zm9ybSBtZXRob2Q9XCJQT1NUXCI+XG4iOw0K
IHByaW50ICI8aW5wdXQgdHlwZT1oaWRkZW4gbmFtZT1cIm51bVwiIHZhbHVlPVwiJG51bVwi
PlxuIjsNCiBwcmludCAiPHByZT5cbiI7DQogZm9yKCRpPTE7JGk8PSRudW07JGkrKykNCiB7
DQogIHByaW50ICI8aW5wdXQgdHlwZT1cInN1Ym1pdFwiIG5hbWU9XCJzXCIgdmFsdWU9XCIk
aVwiPlxuIjsNCiAgcHJpbnQgIjxicj5cbiI7DQogfQ0KICNmb3IoJGk9MTskaTw9JG51bTsk
aSsrKQ0KICN7DQogIyBwcmludCAiPGlucHV0IHR5cGU9XCJoaWRkZW5cIiBuYW1lPVwibWFp
bFwiIHZhbHVlPVwiJG1haWxbJGldXCI+XG4iOw0KICMgcHJpbnQgIjxicj5cbiI7DQogI30g
ICANCiBwcmludCAiPGlucHV0IHR5cGU9aGlkZGVuIG5hbWU9XCJuZXh0cGFnZVwiIHZhbHVl
PVwidGhyZWVcIj5cbiI7DQogcHJpbnQgIjwvZm9ybT5cbiI7DQogcHJpbnQgIjwvYm9keT5c
biI7DQogcHJpbnQgIjwvaHRtbD5cbiI7DQogfQ0KfQ0KDQpzdWIgRW50ZXINCnsNCnByaW50
ICJDb250ZW50LXR5cGU6IHRleHQvaHRtbFxuXG4iOw0KcHJpbnQgPDxnbw0KPGh0bWw+DQo8
aGVhZD48dGl0bGU+bG9naW48L3RpdGxlPjwvaGVhZD4NCjxib2R5Pg0KPGZvcm0gbWV0aG9k
PSJQT1NUIj4NClVzZXJuYW1lPGJyPg0KPGlucHV0IHR5cGU9dGV4dCBuYW1lPSJ1c2VybmFt
ZSIgdmFsdWU9IiRsb2d7J3VzZXJuYW1lJ30iIHNpemU9MjA+PHA+DQpQYXNzd29yZDxicj4N
CjxpbnB1dCB0eXBlPXBhc3N3b3JkIG5hbWU9InBhc3N3b3JkIiB2YWx1ZT0iJGxvZ3sncGFz
c3dvcmQnfSIgc2l6ZT0yMD48cD4NCk1haWxzZXJ2ZXI8YnI+DQo8aW5wdXQgdHlwZT10ZXh0
IG5hbWU9Im1haWxzZXJ2ZXIiIHZhbHVlPSIkbG9neydtYWlsc2VydmVyJ30iIHNpemU9MjA+
PHA+DQo8aW5wdXQgdHlwZT1zdWJtaXQgdmFsdWU9IkVudGVyIj4gPGlucHV0IHR5cGU9cmVz
ZXQgdmFsdWU9IkNsZWFyIj4NCjxpbnB1dCB0eXBlPWhpZGRlbiBuYW1lPSJuZXh0cGFnZSIg
dmFsdWU9InR3byI+DQo8L2Zvcm0+DQo8L2JvZHk+DQo8L2h0bWw+DQpnbw0KfQ0KDQo=
--------------24A35C52EF033CF7603FA9E2--
------------------------------
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 1278
**************************************
