[7180] in Perl-Users-Digest
Perl-Users Digest, Issue: 805 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Aug 1 17:22:34 1997
Date: Fri, 1 Aug 97 14:00:30 -0700
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Fri, 1 Aug 1997 Volume: 8 Number: 805
Today's topics:
Re: [Q] Checkbox forms in Perl <rootbeer@teleport.com>
Re: ANYONE KNOW OF A GOOD BOOK FOR LEARNING PERL <jpm@iti-oh.comNOSPAM>
Re: ARRGH! This class has no class (Daniel E. Macks)
Calculating distances in Perl? <javier@sloan.salk.edu>
Re: Comm.pl doesn't work, need a VTLS front-end (Sami Sandqvist)
Re: Comm.pl doesn't work, need a VTLS front-end <shem@oyt.oulu.fi>
Re: comment (Daniel E. Macks)
Re: comment (Daniel E. Macks)
Re: comments in regular expressions (wish list) (Chris Schleicher)
Re: Computer Books <friedman@uci.edu>
Re: Doubt using PERL and NT (Jim Michael)
make test failures - 5.004_01 <ldadams@mindspring.com>
Matching... (J.Hernetkoski)
Member function question. (Benjamin T Grover)
Re: Microsoft violating Perl license? (was Re: arrogant (Danny Aldham)
moving backwards in a file (W Schipper)
Re: Need Win32 Perl guru phone help - will pay cash (Danny Aldham)
Re: Nobbling "Sender" field in rn? <rootbeer@teleport.com>
None (Piet Barber)
Re: NT Perl Sources and problem <rewards@compusmart.ab.ca>
Re: Perl for Windows <rfernand@internet.com.uy>
Re: Permissions for creating dir <rootbeer@teleport.com>
Re: Questions regarding speed of grep EXPR <sibsib@hotmail.com>
Re: Reading from pipes <helmrl@aur.alcatel.com>
Re: Regexp for postal address? (Michael Schuerig)
Re: setuid perl scripts on HP-UX 10.20 (Vince Skahan)
Re: setuid perl scripts on HP-UX 10.20 <rootbeer@teleport.com>
Re: setuid perl scripts on HP-UX 10.20 <rootbeer@teleport.com>
Re: Stripping ^M from a variable. How? (brian d foy)
Re: Stripping ^M from a variable. How? <rootbeer@teleport.com>
Trick to storing hash of hashes in DBM ! <dlorenso@afai.com>
Re: Trouble With : Delimited Database <rootbeer@teleport.com>
Re: Use ODBM_File/NDBM_File...help (David J. Clark)
Re: use vars & global variables <rootbeer@teleport.com>
Re: Using perl to copy JPG files (Bob)
web/perl file lock problem (LAM Chi-fung)
What is the constant of the universe <adrianh@pobox.co.uk>
Re: Why does perl do this? <rootbeer@teleport.com>
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Thu, 31 Jul 1997 13:54:38 -0700
From: Tom Phoenix <rootbeer@teleport.com>
To: Jack Lawrence <jlawrenc@acc.jc.edu>
Subject: Re: [Q] Checkbox forms in Perl
Message-Id: <Pine.GSO.3.96.970731135300.20106m-100000@kelly.teleport.com>
On Thu, 31 Jul 1997, Jack Lawrence wrote:
> Is it possible to, after a list of items with checkboxes, to have a
> single checkbox that will either select or deselect the entire list of
> checkboxes?
This sounds like an HTML question. I could give you an answer, but you'd
be better served by an HTML newsgroup, which could give you a better and
more complete answer than you can expect from a Perl newsgroup. (Although
they may just tell you "no". :-) Hope this helps!
--
Tom Phoenix http://www.teleport.com/~rootbeer/
rootbeer@teleport.com PGP Skribu al mi per Esperanto!
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: 31 Jul 1997 19:33:14 GMT
From: "Joshua Marotti" <jpm@iti-oh.comNOSPAM>
Subject: Re: ANYONE KNOW OF A GOOD BOOK FOR LEARNING PERL
Message-Id: <01bc9de8$8bd3fa70$36601ec6@bach>
Yeah... it's called (clever enough)
"Learning Perl"
--
Josh,
Gavin Dragon...
Remove NOSPAM from address...
DanitoFool <danitofool@aol.com> wrote in article
<19970727040900.AAA24785@ladder01.news.aol.com>...
> I am looking for a good book or online manual to learn perl from, please
> help and e-mail me back if you know of any?
>
------------------------------
Date: 1 Aug 1997 05:25:29 GMT
From: dmacks@sas.upenn.edu (Daniel E. Macks)
Subject: Re: ARRGH! This class has no class
Message-Id: <5rrs09$jbp$1@netnews.upenn.edu>
Adrian Hawryluk (adrianh@yucc.yorku.ca) said:
: I want a class to have an instance of a file handle unique to that
: instance. But file handles are of type GLOB. A GLOB reference cannot
: be declared using my, although it can be referenced by a SCALAR. If
: delcared using local in side of the "class", then referenced using a
: SCALAR, each instance will have a reference to the *same* file handle.
:
: This is useless to me. I require that each instance have seperate file
: handles. The only workaround I've come up with is to declare the
: filehandle(s) beforehand and then passing that handle to a member
: function of that class. I would perfer that the class would dynamically
: produce a filehandle. Is there a way of doing this?
How 'bout using IO::* streams? Each stream is just a (scalar)
reference to an IO instance. In the newer perls, many of the
filenhandle-using routines are just wrappers around IO::* routines. Or
if your perl is a bit older, you might get the functionality you need
from the FileHandle module.
dan
--
Daniel Macks
dmacks@a.chem.upenn.edu
dmacks@netspace.org
http://www.netspace.org/~dmacks
------------------------------
Date: Sat, 02 Aug 1997 02:24:40 -0700
From: Javier Vegas <javier@sloan.salk.edu>
Subject: Calculating distances in Perl?
Message-Id: <33E2FCD8.F7F30E0@sloan.salk.edu>
Hello
In order not to reinvent the wheel, I am
looking for a function/package/library/thingy
that calculates the distance between two points
on earth when I know their latitude and longitude.
I couldnt find anything like that in CPAN.
Anyone knows some code I can recicle?
Thanks,
Javier
------------------------------
Date: 1 Aug 1997 16:28:39 GMT
From: samiss@lehtori.cc.tut.fi (Sami Sandqvist)
Subject: Re: Comm.pl doesn't work, need a VTLS front-end
Message-Id: <slrn45u43ki.i64.samiss@lehtori.cc.tut.fi>
On Thu, 31 Jul 1997 14:58:12 GMT, Matthew H. Gerlach <gerlach@netcom.com> wrote:
>
>Just because Comm.pl is written to support perl 4 doesn't mean that it
>cannot be run under perl 5. In fact I run it all the time with Perl 5.003
>under SunOS and SCO 3.2.4. What version of UNIX are you working with?
>Have you looked into NET::Telnet?
>
>Matthew
Damn. I thought I had checked CPAN properly. I even installed libnet and
others. NET::Telnet seems to be what I want. Thank you for pointing out
the obvious.
Sami
--
"What is the sound of Perl? Is it not the sound of a wall that
people have stopped banging their heads against?"
--Larry Wall in <1992Aug26.184221.29627@netlabs.com>
------------------------------
Date: 01 Aug 1997 13:24:46 +0300
From: Janne Himanka <shem@oyt.oulu.fi>
Subject: Re: Comm.pl doesn't work, need a VTLS front-end
Message-Id: <x467tqb3pt.fsf@clovis.oulu.fi>
>>>>> "Sami" == Sami Sandqvist <samiss@assari.cc.tut.fi> writes:
Sami> I am trying to write a Perl script to use a VTLS library
Sami> database with telnet. The FAQ pointed me to Comm.pl for
Sami> expect-like functionality, but it seems to be written in
Sami> perl4 and even the example programs don't run.
I have written such a gateway with Comm.pl and perl5 and it works
nicely. It is nearly complete; only booleans are lacking. I abandoned
the project when I discovered there were at least one free and one
commercial gateway available. Mail me if you want the sources.
Janne
--
"What did you do with the Pharaoh + shem@oyt.oulu.fi (MIME)
Great Outhouse 8?" + shem@nic.funet.fi
"We ate him. He was unspeakably + http://purl.net/net/himanka/
toothsome." + Oulu Univ., Dept. of Inf. Studies
------------------------------
Date: 1 Aug 1997 06:09:41 GMT
From: dmacks@sas.upenn.edu (Daniel E. Macks)
Subject: Re: comment
Message-Id: <5rruj5$p43$1@netnews.upenn.edu>
Tad McClellan (tadmc@flash.net) said:
:
: =pod
: Anything goes here...
: =cut
:
: Which, of course, messes things up if you actually have pod
: documentation in your script...
...unless you say:
=pod private
snide comments here
=cut
and also fix pod2* such that it takes the following flags:
-P # show only private cuts (ouch!)
-U # show only non-private cuts (default)
-M # synonym for -P -U
Perhaps this distinction between private/programmer and public/user
comments should be incorporated into pod parsers?
dan
--
Daniel Macks
dmacks@a.chem.upenn.edu
dmacks@netspace.org
http://www.netspace.org/~dmacks
------------------------------
Date: 1 Aug 1997 06:20:04 GMT
From: dmacks@sas.upenn.edu (Daniel E. Macks)
Subject: Re: comment
Message-Id: <5rrv6k$m27$1@netnews.upenn.edu>
John Liao (johnliao@cs.buffalo.edu) said:
: Is there a equivalent /* */ for comments in perl?
By "caus[ing] your script to be run through the C preprocessor before
compilation by Perl" (perlrun), it seems like -P should handle such
comments, but it doesn't. Either cc -P or cc -E remove C-sytle inlines
(replaces 'em with spaces, but still better than nothing).
Just wondering out loud,
dan
--
Daniel Macks
dmacks@a.chem.upenn.edu
dmacks@netspace.org
http://www.netspace.org/~dmacks
------------------------------
Date: 1 Aug 1997 11:51:52 -0700
From: chrissch@cs.uoregon.edu (Chris Schleicher)
Subject: Re: comments in regular expressions (wish list)
Message-Id: <5rtb88$b23@psychotix.cs.uoregon.edu>
In article <33E10BC1.212A9324@hekimian.com>,
Joe Buehler <jbuehler@hekimian.com> wrote:
>Along this line, it would be nice to be able to be able to
>stuff the matching portions of a pattern into named variables:
Are you proposing
>$x =~ /(?>$var:some_pattern)(?>$var2:some_pattern_2)/;
is preferable syntax to
($var, $var2) = $x =~ /(some_pattern)(some_pattern_2)/;
?
Regards,
--Chris
--
Chris Schleicher Office: 541/346-3998
Univ of Oregon CIS GTF email: chrissch@cs.uoregon.edu
URL: http://www.cs.uoregon.edu/~chrissch/
------------------------------
Date: 1 Aug 1997 17:12:11 GMT
From: "Eric D. Friedman" <friedman@uci.edu>
Subject: Re: Computer Books
Message-Id: <5rt5db$lan@news.service.uci.edu>
[mailed, posted]
In article <870319228.18976@dejanews.com>, <mlm47@columbia.edu> wrote:
<I am setting up a webpage that lists some of the best books for webpage
<design and development and I would love to get input from people for book
<recommendations.
<I figure books about C, perl, CGI, Java, HTML etc. are all relevant.
When writing about the Perl Language, a capital P is preferred.
Rather than reinvent the wheel, why don't you just link to
the Camel Critiques section of www.perl.com ?
HTH,
Eric
--
Eric D. Friedman
friedman@uci.edu
------------------------------
Date: Fri, 1 Aug 1997 10:41:36 GMT
From: genepool@netcom.com (Jim Michael)
Subject: Re: Doubt using PERL and NT
Message-Id: <genepoolEE8DpC.2w3@netcom.com>
Jim Michael (genepool@netcom.com) wrote:
: map p: /delete
It was a long day. Change all instances of 'map' to 'net use'.
Cheers,
Jim
------------------------------
Date: Fri, 01 Aug 1997 11:16:24 -0400
From: Larry Adams <ldadams@mindspring.com>
Subject: make test failures - 5.004_01
Message-Id: <33E1FDC8.5817@mindspring.com>
I built 5.004_01 on Solaris 2.5.1, using SUNWspro's cc (ver 4.x),
and the only tests failed were:
lib/io_sock.......No such file or directory at ./lib/io_sock.t line 29.
lib/io_udp........Can't call method "sockname" without a package or
object reference at ./lib/io_udp.t line 35.
lib/socket........ld.so.1: ./perl: fatal: relocation error: symbol not
found: __inet_ntoa: referenced in ../lib/auto/Socket/Socket.so
I checked the io_sock.t file, line 29 which looks like:
$listen = IO::Socket::INET->new(Listen => 2,
I then checked the IO:Socket.pm file, and followed all the "use" and
"require" lines in everything referenced - all the files referenced are
there...
I did a "strings" command on Socket.so and found several references to
the _inet_ntoa, but the "ar" command would not list the contents,
because it is not in archive format..., guess it can't handle dynamic
shared stuff.
Can anyone tell me which file or directory is not being found?
It seems that the 3 errors are related, and depend on each other in some
manner. I would assume that if the io_sock test could find what it is
looking for, the others would pass.
TIA
-Larry
------------------------------
Date: 1 Aug 1997 06:06:52 GMT
From: jjjj@zenith.yok.utu.fi (J.Hernetkoski)
Subject: Matching...
Message-Id: <5rruds$mlv$1@news.utu.fi>
Hello again!
I'd need to match all lines between <pre> and </pre>-tags
and in the following code, $prices should include all text
between <pre> and </pre>-tags.
($prices) = ($results = m#<PRE> ([^</PRE>]*)#i);
$results contains an html-file, that have <pre>-tags, but
I can't get it match.
Any ideas ?
--
Jukka
------------------------------
Date: 31 Jul 1997 22:38:11 GMT
From: stryker@defcon.engin.umich.edu (Benjamin T Grover)
Subject: Member function question.
Message-Id: <5rr44j$rb1@srvr1.engin.umich.edu>
I need to get all the names of the hashed member functions basically I am
trying to build a directory type structure. I instantiate a new
directory when I build the directory tree, then I add the "files" to the
directory tree class. I need to know how to get back the file names.
Here is the add_file function:
sub Add_Signal
{
my($class,$currSignal) = @_;
$class->{$currSignal} = new Signal();
}
How do I get the $currSignal back when I want to print them out?
thanks in advance,
Ben
------------------------------
Date: 31 Jul 1997 21:05:23 -0700
From: danny@lennon.postino.com (Danny Aldham)
Subject: Re: Microsoft violating Perl license? (was Re: arrogant #*(@#)
Message-Id: <5rrna3$mag$1@lennon.postino.com>
Zenin (zenin@best.com) wrote:
: John Callender <jbc@west.net> wrote:
: > I'm curious what folks think about whether or not the proprietary Perl
: > port for Windows constitutes a violation of Larry's intellectual
: > property.
: >snip<
: They can copyright any and all parts that they wrote, namely the
: Win32 aspects, as long as they aggree to ship the perl source free
: of charge when shipping/selling perl.
Make the point moot by not using the private ports. Activeware's port
sucks anyways, since it doesn't allow you to install modules, or use
fork. Get the GNU-win32 dev kit at ftp.cygnus.com , and roll your own
fully-functional perl.
--
Danny Aldham SCO Ace , MCSE , JAPH , DAD
I don't need to hide my e-mail address, I broke my sendmail.
------------------------------
Date: 1 Aug 1997 17:57:13 GMT
From: schipper@morgan.ucs.mun.ca (W Schipper)
Subject: moving backwards in a file
Message-Id: <5rt81p$4jj$1@coranto.ucs.mun.ca>
I am trying to write a filter to reformat email files so that none of
the lines in the text are longer than 72 characters. I also want the
filter to take words that have gotten hyphenated at the end of the line
(e.g. hyph-
enated)
I have no problem doing the hyphen removal. My code looks like this:
while ($Checkline = <ARCHIVE>) {
if ($Checkline =~ /[a-z][^A-Z]-$/){
$leftpart = substr($Checkline,rindex($Checkline," "));
chop($leftpart);
$Checkline = <ARCHIVE>;
$rightpart = substr ($Checkline,0,index($Checkline," "));
$Hyphwd = $leftpart.$rightpart;
$Hyphwd =~ s/-//;
}
}
There may well be easier and simpler ways to do this, but at least it
works.
But what if I want to concatenate the two lines, and break it into new
lines at a space around 70-72 characters in, what do I do? By the time
I get the second part of the word (from lines 3 and 4 of the if
statement), I've moved past the first line containing the first part of
the word. And what if I want to do the entire message part of the file
(aside from the headers)? How do I move back and forth in a file (i.e
concatenate all the lines, count 70 spaces, look for a nearby white
space, insert a line break, count the remaining part of the concatenated
line, etc).
Any pointers would be appreciated. And if it is a naive question i'll
take my lumps.
Bill
------------------------------
Date: 31 Jul 1997 21:00:15 -0700
From: danny@lennon.postino.com (Danny Aldham)
Subject: Re: Need Win32 Perl guru phone help - will pay cash
Message-Id: <5rrn0f$m9d$1@lennon.postino.com>
Jason Pociask (pociask@maricopa.edu) wrote:
: I'm trying to install Perl5.003 (Activeware build 307) on a Win95 PC
: (P166).
: PERL itself installs fine -- I have a couple Perl programs that I
: developed
: on Unix that run fine on the Win95 PC also.
: But what I really want to do is add the LIBWWW-PERL-5.10 modules so I
: can do some web stuff (Mostly getting URL's to parse the returned
: pages).
: The docs for LIBWWW-PERL5.10 say that there are 4 other modules that
: must
: be installed first:
What I suggest is not simple, but will make your life with perl
easier in the long run. Go to ftp.cygnus.com/pub/gun-win32/gnu-win32
and download the development kit. Then go to a CPAN site and get
the perl5.04_01 source (or latest.tar.gz). Install both, and then
read the README.cygwin32 in the perl source. You CAN build a perl
binary that will let you install modules, and like I said earlier,
make your life easier in the long run.
--
Danny Aldham SCO Ace , MCSE , JAPH , DAD
I don't need to hide my e-mail address, I broke my sendmail.
------------------------------
Date: Fri, 1 Aug 1997 08:42:19 -0700
From: Tom Phoenix <rootbeer@teleport.com>
To: David Regis <dregis@exeter.ac.uk>
Subject: Re: Nobbling "Sender" field in rn?
Message-Id: <Pine.GSO.3.96.970801083419.9029S-100000@kelly.teleport.com>
On Fri, 1 Aug 1997, David Regis wrote:
> I use "rn" to read news, but inevitably every post I make attracts
> junk e-mails (including, I expect, this one).
>
> I see clever people who can nobble the sender fields on their posts
> Now while the rn man pages are full and fine I don't recognise how to
> nobble this using rn.
Ah, but what does this have to do with Perl? (rn hasn't been re-written in
Perl yet, has it? :-) If you really want to do this (and I wouldn't
advise it) you could ask in a newsgroup about newsreaders:
http://www.yahoo.com/Computers_and_Internet/Software/
Internet/Usenet/Usenet/
Info on mail filtering and other methods may be available through this
URL.
http://www.yahoo.com/Computers_and_Internet/
Communications_and_Networking/Electronic_Mail/Junk_Email/
Hope this helps!
[Followups set to news.software.readers]
--
Tom Phoenix http://www.teleport.com/~rootbeer/
rootbeer@teleport.com PGP Skribu al mi per Esperanto!
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Fri, 1 Aug 1997 16:10:18 -0400 (EDT)
From: pietb@nic.mil (Piet Barber)
Subject: None
Message-Id: <Pine.SUN.3.96.970801160707.10155B-100000@ops.nic.mil>
In the Perldoc manpage for CGI.pm, on page 39, there is a reference that
"importing CGI.pm methods, [you] can create visually elegant scripts"
And gives the code here as an example:
=--Begin Code--=
use CGI standard,html2;
print
header,
start_html('Simple Script'),
h1('Simple Script'),
start_form,
"What's your name? ",textfield('name'),p,
"What's the combination?",
checkbox_group(-name=>'words',
-values=>['eenie','meenie','minie','moe'],
-defaults=>['eenie','moe']),p,
"What's your favorite color?",
popup_menu(-name=>'color',
-values=>['red','green','blue','chartreuse']),p,
submit,
end_form,
hr,"\n";
if (param) {
print
"Your name is ",em(param('name')),p,
"The keywords are: ",em(join(", ",param('words'))),p,
"Your favorite color is ",em(param('color')),".\n";
}
print end_html;
=---End Code---=
When I add the SheBang to the program above, and try to run it as is, the
sucker won't run, giving me this error:
=---Begin Complaint---=
Undefined subroutine &main::start_html called at exp2.pl line 3.
=----End Complaint----=
Now, my question is (maybe I overlooked something, or maybe I'm just
stupid): What am I missing? Do I have to add any more stuff to the top of
the program to get it to run?
I have, as a brute-force solution, created a new construction of the
variable $query and linked to it through pointers throughout the text of
the above program, and it ran fine.
However, I admit: I'm lazy, and don't want to have to type
"print $query->end_html;" (instead of "print end_html;") every time I
want to call a method in the CGI package. From the text in the manpage
(page 39), I was under the impression that one could get away with my
sought-after lazy method.
'Cause laziness is good, not to mention one of the three aspects of a good
perl programmer.
Piet Barber
DoD Network Information Center
http://nic.mil/cgi-bin/whois?keyword=peb38
------------------------------
Date: Fri, 01 Aug 1997 09:56:16 -0600
From: rewards <rewards@compusmart.ab.ca>
Subject: Re: NT Perl Sources and problem
Message-Id: <33E20720.75DCD7DE@compusmart.ab.ca>
jsbobcat@erols.com wrote:
> I am running Perl 5.0? on NT server. If I go to the command level and
>
> type: test.pl &term=testing&ok=yes
> for example. My test.pl does not work. I have tried
> $buffer = "";
> foreach $test (@ARGV) {$buffer = $buffer.$test;}
>
> Buffer never get's load. @ARGCV is empty.
>
> read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
>
> read does not read stdin because $buffer is still not getting loaded.
>
> What is wrong?
>
> Also does anyone know some good resource links for PERL on NT SERVER.
>
> Thanks,
> Bob
If you find anything regarding PERL on WinNT 4.0 Server I would
appreciate knowing. I am a so-called Newbie to Perl let alone on a NT
Server. It seems all the info and FAQ's is on UNIX. Some FAQ's or
basic procedures would really help about now.
Mark Sears
------------------------------
Date: Fri, 01 Aug 1997 02:52:06 -0300
From: Rafael Fernandez <rfernand@internet.com.uy>
Subject: Re: Perl for Windows
Message-Id: <33E17986.7B53@internet.com.uy>
Michael Ching wrote:
>
> I wrote a VB progra to do that, you give it your perl path and then
> compiling, debugging, etc is run via menus. It is rather buggy
> because I heaven't touched it in a while It checks for semi colons,
> and has a goto line.
>
> I haven't touched it because I found something better....
> I use a text editor called EditPad. MDI, goto, find, word wrap,
> etc. I made another VB program, it reads where perl is, you specify
> the filename, and with one click, it executes.
>
> This is a real time-saver...and it's small and free
> email me if you are interested. MChing@POBoxes.com
Does your program works in Windows 3.11? If it does, I want to
try it!!
------------------------------
Date: Thu, 31 Jul 1997 14:00:26 -0700
From: Tom Phoenix <rootbeer@teleport.com>
To: Guilherme Braz de Carvalho <gbraz@dcc.ufmg.br>
Subject: Re: Permissions for creating dir
Message-Id: <Pine.GSO.3.96.970731135742.20106n-100000@kelly.teleport.com>
On Tue, 29 Jul 1997, Guilherme Braz de Carvalho wrote:
> How can I do to allow my cgi script to create a dir ?
You may use mkdir(), documented in the perlfunc(1) manpage.
> I got a system error. I think that it's because of the user acess to my
> system whith his permissions...
Yes; you can't create a directory where you don't have permissions to
create a directory. Some possible solutions: Fix the permissions, so that
you can create the directory. Make a set-id script which can do what you
need. Ask the system administrator to create the directories you need.
Make a daemon which creates the directories upon request.
I hope that one of those ideas may be useful for you. Good luck!
--
Tom Phoenix http://www.teleport.com/~rootbeer/
rootbeer@teleport.com PGP Skribu al mi per Esperanto!
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Thu, 31 Jul 1997 18:39:05 -0400
From: Scott Blanksteen <sibsib@hotmail.com>
Subject: Re: Questions regarding speed of grep EXPR
Message-Id: <33E11409.A60AE23A@hotmail.com>
Prince Mystery wrote:
>
> foreach (@keys) {
> $counter++ if(/searchString/);
> }
>
> $counter = $#{ grep {/searchString/} @keys } + 1;
>
> Both clock under a second on a 1MB hash brought out of a dbm file, and I
> don't have anything bigger to work on.
>
> Thoughts?
Either use the Benchmark module or make "duplicate" the hash table as
many times as you want with slightly different keys.
Scott
--
Scott I. Blanksteen
sib (at) worldnet (dot) att (dot) net
------------------------------
Date: Fri, 01 Aug 1997 08:29:11 -0400
From: "Ron L. Helms" <helmrl@aur.alcatel.com>
Subject: Re: Reading from pipes
Message-Id: <33E1D697.2781E494@aur.alcatel.com>
robert wrote:
>
> "Ron L. Helms" <helmrl@aur.alcatel.com>:
> >Is there a way to timeout the process (hopefully not SIGS{}) or test the
> >pipe to see if there is data on it before I call $fh->getline?
>
> Take a look at IO::Select, which seems to be able to do exactly what you
> want.
>
> robert
Actually, it did not seem to work as I expected. Did the polling of
readable devices and it didn't always tell me when I had data waiting.
What I found to work, and will write up and try to get added to the FAQ,
is to use Fcntl.
if ($reader_pid = fork()) { # Writer
$transfer->reader(); # Using IO:Pipe
$acknowlg->writer();
# fcntl sets up non-blocking IO for the reader pipe
my ($retval) = fcntl($transfer, &F_SETFL, &O_NONBLOCK);
} else { # Reader
$transfer->writer();
$acknowlg->reader();
my $craft_reader = new IO::Handle;
# fcntl sets up non-blocking IO for the reader pipe
my ($retval) = fcntl($acknowlg, &F_SETFL, &O_NONBLOCK);
# Even set it up for an open2, which creates pipes
$retval = fcntl($craft_reader, &F_SETFL, &O_NONBLOCK);
open2(\*$craft_reader, \*$craft_writer, "/homes/helmrl/bin/craft
$craft") ||
die "Couldn't fork craft: $!, stopped\n";
Setting up the pipes for non-blocking access sends the right signals to
tell <> or ->getline for a handle that there is no more data in the pipe
so exit out of the <>, which is what I wanted.
Thanks for the response, and I hope this helps someone else. I have been
pulling my hair out.
Ron Helms
------------------------------
Date: Fri, 1 Aug 1997 18:12:49 +0200
From: uzs90z@uni-bonn.de (Michael Schuerig)
Subject: Re: Regexp for postal address?
Message-Id: <19970801181249289190@rhrz-isdn3-p22.rhrz.uni-bonn.de>
Tom Phoenix <rootbeer@teleport.com> wrote:
> On Thu, 31 Jul 1997, Michael Schuerig wrote:
>
> > Has anyone come up with or can point me to a regexp that matches postal
> > addresses of the form
> >
> > Firstname Lastname
> > Street or PO Box
> > City Zip
> Maybe you want one which would parse the address, breaking it up into
> those components. Or maybe you want to check that the address is
> syntactically valid (whatever that might mean in this context). Or maybe
> you want one which would be good for matching any postal addresses which
> appear within a block of text. (I'm not sure that that one is even
> possible, in the general case, but I suppose it depends upon the way you
> define a postal address.)
It's intended for a WYSIWYG context. Basically I have the address in
front of my eyes and want to put it into my address book, properly
parsed into parts, of course.
A friend of mine sent me an email notice with his new address. I had to
manually open my address db and filled in the stuff by hand as copying
and pasting would have been slower. Isn't that a disappointment? There
has to be a better way! Now, I'm using a Mac and all the involved
applications are scriptable. I could even use Perl to do the matching,
but there's a more lightweight way to do it.
The best thing would be if I could select an arbitrary chunk of text an
get all contained addresses. But in by far the most cases it's perfectly
okay to select just the address and get it broken down into pieces.
Michael
--
Michael Schuerig I was thrown out of college for cheating on the
mailto:uzs90z@uni-bonn.de metaphysics exam; I looked into the soul
http://www.uni-bonn.de/~uzs90z/ of the boy next to me. -Woody Allen
------------------------------
Date: Thu, 31 Jul 1997 22:32:17 GMT
From: vds@bcstec.ca.boeing.com (Vince Skahan)
Subject: Re: setuid perl scripts on HP-UX 10.20
Message-Id: <EE7Fxu.Dn1@bcstec.ca.boeing.com>
Tom Phoenix <rootbeer@teleport.com> writes:
>On 29 Jul 1997, Sebastian Meyer wrote:
>> Is it possible to run perl scripts setuid on HP-UX 10.20?
>> When I start a setuid perl script it just gives me:
>> YOU HAVEN'T DISABLED SET-ID SCRIPTS IN THE KERNEL YET!
>> FIX YOUR KERNEL, PUT A C WRAPPER AROUND THIS SCRIPT, OR USE -u AND UNDUMP!
>> When I put up the question, howto disable set-id scripts, in
>> comp.sys.hp.hpux I received this one answer:
>>
>> > That is not a feature of hp-ux. however, you can put the script in,
>> > saay, /usr/local/bin and make this a separate file system with
>> > "nosuid" set in /etc/fstab.
I just compiled 5.004_01 on hp/ux 10.20 and setuid/setgid perl scripts
appear to work just fine for me here as long as the file system is mounted
to permit setuid stuff.
I just let Configure figure out all the defaults, did the old
'make install' and they appear to work ok.
Here's the stuff related to gid/uid from Config.pm
===================================================
d_dosuid='define'
d_getpgid='define'
d_setegid='undef'
d_seteuid='undef'
d_setpgid='define'
d_setregid='define'
d_setresgid='define'
d_setresuid='define'
d_setreuid='define'
d_setrgid='undef'
d_setruid='undef'
d_suidsafe='undef'
gidtype='int32_t'
groupstype='gid_t'
uidtype='int32_t'
--
----------- Vince Skahan -------------- vince.skahan@boeing.com -----------
A weird imagination is most useful to gain full advantage of all the
features. - from the amd(8) man page
------------------------------
Date: Fri, 1 Aug 1997 07:39:02 -0700
From: Tom Phoenix <rootbeer@teleport.com>
To: stop.spam@infoband.com
Subject: Re: setuid perl scripts on HP-UX 10.20
Message-Id: <Pine.GSO.3.96.970801073015.9029N-100000@kelly.teleport.com>
On Thu, 31 Jul 1997 stop.spam@infoband.com wrote:
> In article <meyer.870166007@hp01.megatel.de>,
> meyer@megatel.de (Sebastian Meyer) wrote:
> > When I start a setuid perl script it just gives me:
> > YOU HAVEN'T DISABLED SET-ID SCRIPTS IN THE KERNEL YET!
> > FIX YOUR KERNEL, PUT A C WRAPPER AROUND THIS SCRIPT, OR USE -u AND UNDUMP!
> my 10.20 box gave me the same message for a setuid root perl script, but
> will run Korn shell scripts and C programs no prb setuid.
C programs, fine. Korn shell scripts, very dangerous! It's exactly because
of this behavior that Perl puts out that warning. See the Unix FAQ for a
good (but long) explanation of why set-id scripts can be dangerous if your
kernel doesn't handle them right.
http://www.cis.ohio-state.edu/hypertext/faq/usenet/unix-faq/
faq/part4/faq-doc-7.html
The bottom line: On a system like yours, never make a script set-id
unless you've already given out your password to everyone. :-)
Hope this helps!
--
Tom Phoenix http://www.teleport.com/~rootbeer/
rootbeer@teleport.com PGP Skribu al mi per Esperanto!
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Fri, 1 Aug 1997 08:14:18 -0700
From: Tom Phoenix <rootbeer@teleport.com>
To: Vince Skahan <vds@bcstec.ca.boeing.com>
Subject: Re: setuid perl scripts on HP-UX 10.20
Message-Id: <Pine.GSO.3.96.970801080935.9029P-100000@kelly.teleport.com>
On Thu, 31 Jul 1997, Vince Skahan wrote:
> I just compiled 5.004_01 on hp/ux 10.20 and setuid/setgid perl scripts
> appear to work just fine for me here as long as the file system is
> mounted to permit setuid stuff.
Hmmm... I wonder whether all hp/ux 10.20 systems have the same behavior.
Does a set-id shell script run as the id it's set to? And do you know
whether your kernel fixes the problem behavior discussed in the Unix FAQ?
http://www.cis.ohio-state.edu/hypertext/faq/usenet/unix-faq/
faq/part4/faq-doc-7.html
If you need help with making shell scripts for testing these behaviors on
your system, let me know by private e-mail. Thanks!
--
Tom Phoenix http://www.teleport.com/~rootbeer/
rootbeer@teleport.com PGP Skribu al mi per Esperanto!
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Fri, 01 Aug 1997 01:02:46 -0500
From: joe@ (brian d foy)
Subject: Re: Stripping ^M from a variable. How?
Message-Id: <joe-ya02408000R0108970102460001@news.walrus.com>
> Ryan Lynch <lynchrl@ucsub.Colorado.EDU> wrote in article
> <5rqn95$ktq@lace.colorado.edu>...
> > I have a string variable with the following text:
> > What I need is to strip the ^M out of there. I've tried:
> >
> > $my_string =~ s/\r//g;
[snip other things tried]
In article <01bc9de8$79446430$36601ec6@bach>, "Joshua Marotti" <jpm@iti-oh.comNOSPAM> wrote:
> When you read in the string, then print it out, do you see the ^M? if so,
> simply s/^M//g;
think that will work? i wonder what happens if there is an M at the
beginning of the line. might as well drop the global modifier too.
if one wants to remove control characters, one may use, among other
things, \cX, where X is the character of interest. in this case:
$my_string =~ s/\cM//g;
see the Blue Camel [1] for more features of regular expressions.
good luck :)
[1] \c is discussed in the fourth bullet of p. 65
Programming Perl, Larry Wall, Tom Christensen, & Randal L. Schwartz
ISBN 1-56592-149-6.
<URL:http://www.ora.com>
--
brian d foy <comdog@computerdog.com>
------------------------------
Date: Fri, 1 Aug 1997 13:24:25 -0700
From: Tom Phoenix <rootbeer@teleport.com>
To: Ryan Lynch <lynchrl@ucsub.Colorado.EDU>
Subject: Re: Stripping ^M from a variable. How?
Message-Id: <Pine.GSO.3.96.970801132244.29910H-100000@kelly.teleport.com>
On 1 Aug 1997, Ryan Lynch wrote:
> Well, I got it working with the following:
>
> $data =~ s/\^M//g;
That's stripping literal ^M sequences from the string. That is, each match
is matching two characters, not a control-M (which is often what people
mean when they write ^M). I guess that must have been what you wanted! :-)
--
Tom Phoenix http://www.teleport.com/~rootbeer/
rootbeer@teleport.com PGP Skribu al mi per Esperanto!
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: 31 Jul 1997 14:31:46 GMT
From: "D. Dante Lorenso" <dlorenso@afai.com>
Subject: Trick to storing hash of hashes in DBM !
Message-Id: <01bc9dbe$5276dd80$04151ecf@dns1.afai.com>
As you know, dbm does not do hash of hashes. (if you find one that
does...tell me).
Instead, to create a doubly nested structure, you could convert the second
level of
hashes into an array and then join the array with a delimiter...such as the
escape character "\e". That way, a string is created from the hash and the
string can be stored in dbm... then just reverse the process to retreive
your data.
EX:
################################################
dbmopen (%dbmFile, "whatever", 0755);
@order = qw/first middle last email age weight/;
# Use the following code to store the values
foreach $column (@order) {
push (@row, $hash{$key}{$column} ); }
$dbmFile{$key} = join("\e", @row);
# Use this code to retreive the values
@row = split(/\e/, $dbmFile{$key});
foreach $column (@order) {
$hash{$key}{$column} = pop(@row); }
dbmclose (%dbmFile);
################################################
If you are interested in assisting with a dbms that is completely
written in PERL and uses this design, please feel free to send me
your comments and suggestions.
Good Luck!
Dante Lorenso
Accounting Firms Associated inc.
dlorenso@afai.com
------------------------------
Date: Fri, 1 Aug 1997 07:17:39 -0700
From: Tom Phoenix <rootbeer@teleport.com>
To: Armando Ortiz <aortiz@vcnet.com>
Subject: Re: Trouble With : Delimited Database
Message-Id: <Pine.GSO.3.96.970801070944.9029J-100000@kelly.teleport.com>
On Thu, 31 Jul 1997, Armando Ortiz wrote:
> I'm creating a search engine that has a : delimited database with 8
> fields, with one of them being $zip.
I suspect that it's colon-separated rather than colon-delimited, but
that's probably nitpicking. :-)
> I want to search by zip code ONLY,
> but I'm having trouble getting the isolation code to work.
> open(newcomzip,"$database") || die "Can't open zipcode.db: $!\n";
> while (<zipcode>){
> if (/$FORM{'zip'}/){
(You probably want to make the filehandle all caps, like ADDRS or DB. And
you certainly want to open the one you're reading from! :-)
That's searching the whole line for that zip code. And, worse, it's using
a regular expression to do it. REs are powerful, but they're not always
the best solution. You might want something like this.
next unless index($_, $form{zip}) >= 0; # quick elimination
($record, $store, $company, $address, $city, $state, $zip, $phone)
= split /:/;
next unless $zip eq $form{zip}; # final elimination
That way, you can quickly skip past most addresses which don't match, but
you won't be fooled by "12345 Main St." into thinking that you'd found zip
code 12345. Also, note that the actual tests are string comparisons,
rather than numeric. Although it may not matter, this is "more correct"
since the code is not really a number but a string in this sense.
Hope this helps!
--
Tom Phoenix http://www.teleport.com/~rootbeer/
rootbeer@teleport.com PGP Skribu al mi per Esperanto!
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: 31 Jul 1997 15:54:52 -0400
From: dav@miguel.umiacs.umd.edu (David J. Clark)
Subject: Re: Use ODBM_File/NDBM_File...help
Message-Id: <y9nyb6nov3n.fsf@miguel.umiacs.umd.edu>
aod@unisys.com.br (Andre Oliveira Dias) writes:
>
> seth@fellspt.charm.net (Seth Perlman) wrote:
>
> >Using NDBM_File I get the following error msg after it loaded 69595 lines:
> >
> >ndbm store returned -1, errno 2, key "506217" at uidnew.pl line 34,
> ><PASSWD> chunk 69596.
> >
> >-rwx------ 1 seth prog 2025 Jul 21 02:39 uidnew.pl
> >-rw-r--r-- 1 seth prog 669040640 Jul 21 02:40 byuidndbm.pag
> >-rw-r--r-- 1 seth prog 81920 Jul 21 02:40 byuidndbm.dir
> >
> >Any insights into this? Is it possible to load a couple million rows
> >into dbm or ndbm maps...is there any way to get these modules to accept
> >this or do odbm and ndbm have builtin scalability limits?
> >
>
> I had the same problem to build a .dbm file from a hash file.
> May hash has a 9 character(ascii) key field and a 200
> character(ascii) content field, like
> $array{$9_character_key}=$200_character_content.
[discussion of the inadequacies of *dbm snipped]
I've never actually had this problem (though I soon may!), but I would
probably look into Berkeley DB if possible, or barring that, GNU dbm.
Both are _much_ more robust than, say ndbm. For example, they will
allow variable block size. They will also probably be faster for you.
Also, if you have some legacy databases, GNU dbm provides
compatability modes with dbm & ndbm (Berkeley probably does too... I'm
not sure though).
You might want to be careful if you decide to use Berkeley, however,
as the new revision is not well supported by Perl so far as I know
(the new module may have gotten better since last I looked at
it... check CPAN).
For a nifty table comparing the various dbm routines available, see
p. 379 of the turquoise camel book.
-dav
------------------------------
Date: Thu, 31 Jul 1997 07:28:31 -0700
From: Tom Phoenix <rootbeer@teleport.com>
Subject: Re: use vars & global variables
Message-Id: <Pine.GSO.3.96.970731072055.20106L-100000@kelly.teleport.com>
On 29 Jul 1997, Toutatis wrote:
> I traced several replies on the "use vars qw($var)" header, but none of
> them were completely clear to me.
> This is my code, that does NOT do what I want:
>
> ####script1.pl###
> #!/usr/bin/perl -w
> package main;
> use strict;
> use Module.pm;
> require 'script2.pl'
> use vars qw($time $id $databasehandle $input);
> $time = time; #etcetera
>
> #I want to be able to access these variables *whithout* having
> #to say $main::time, or $::$id. For laziness, and I also hope to get
> #rid of the "used only once" -w errors (a problem I still did not
> #read a satisfying answer for).
Your wish is granted. When you refer to $time, it's the global $main::time
which is used. And since you have 'use vars', you should not have any
'used only once' errors. (Or am I misunderstanding you? I can't see how
Perl is failing to do what you want.)
> ####Module.pm####
> package module;
> use vars qw($time $id $databasehandle $input);
> #in script1.pl declared variables are not visible
I'm not sure what you're saying with that comment. $main::time (and
others) are still visible. Do you want $time to mean $main::time in this
package as well? That's odd, but it could be done.
*time = \$main::time;
> ####script2.pl####
> use vars qw($time $id $databasehandle $input);
> #Also here, variables declared in script 1, are not visible.
> print $time; #does not work
It works, but it doesn't do what you want. :-) At the time you run
script2, you haven't yet initialized $time.
Hope this helps!
--
Tom Phoenix http://www.teleport.com/~rootbeer/
rootbeer@teleport.com PGP Skribu al mi per Esperanto!
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Fri, 01 Aug 1997 18:47:24 GMT
From: xxbbell@voicenet.com (Bob)
Subject: Re: Using perl to copy JPG files
Message-Id: <33e22f0a.158286140@netnews.voicenet.com>
Rick Bell <rbell@i4internet.com.au> wrote:
>I am trying to write a program that will read a binary file (jpg or gif)
>and copy it to another new file all using perl. This is my first part
>of a grander plan to take jpg files as input and write out to a database
>with a few extra fields - eventual result to look like a database with
>the following record structure (obviously variable length records)
You may want to look at the File::Copy module.
--
- Bob
http://www.voicenet.com/~bbell
xxbbell@voicenet.com
remove x's to reply
------------------------------
Date: 1 Aug 1997 23:05:18 +0800
From: cflam@hk.super.net (LAM Chi-fung)
Subject: web/perl file lock problem
Message-Id: <zwfupCEGvWiJ078yn@hk.super.net>
Hello, I am now working on a perl/CGI program which perform form data
validation, email web form data back to administrator and save web form
data to a text file. However, someone told me that I need to do file
lock/unlock in order to avoid trouble. How can I achieve this in perl/CGI ?
I am new to CGI/perl. Also, when file is lock, if someone else click the
'submit' button, what would happen ? Just a little delay or a total
system crash ? Thanks a lot.
Regds
LAM Chi-fung
------------------------------
Date: Fri, 01 Aug 1997 13:50:38 -0400
From: Adrian Hawryluk <adrianh@pobox.co.uk>
Subject: What is the constant of the universe
Message-Id: <33E221EC.A5A47E2E@pobox.co.uk>
I can't seem to find a way of declaring constants or defining them. Is
there a way of doing it without using the c preprocessor command line
switch?
Thanx in advance
Adrian
------------------------------
Date: Fri, 1 Aug 1997 08:07:53 -0700
From: Tom Phoenix <rootbeer@teleport.com>
To: Soren Dayton <csdayton+usenet@cs.uchicago.edu>
Subject: Re: Why does perl do this?
Message-Id: <Pine.GSO.3.96.970801074026.9029O-100000@kelly.teleport.com>
On Thu, 31 Jul 1997, Soren Dayton wrote:
> my basic data structure is a tree that I can represent easily enough as
> a hash (and, in fact, both representations are extremely useful because
> I am looking at the data in two seperate ways). I am parsing printcap
> and termcap entries. I wanted to order them for clarity in the output.
> So my ordering would be the following:
>
> distance from root of tree (that is a > b if parent(a) >
> parent(b). for all a, a > root.)
>
> this sounds recursive to me.
I'm not sure whether I understand this exactly, but it sounds like it's a
sorted tree structure. Maybe that should be printed in a (recursive?)
traversal algorithm, without using Perl's built-in sort function. (Does
every node have a parent node? In other words, where and how does that
definition bottom out?)
> but:
>
> In the interests of efficiency the normal calling code for subroutines is
> bypassed, with the following effects: the subroutine may not be a
> ^^^^^^^^^^^^^^^^^^^^^^^^^^^
> recursive subroutine,
> ^^^^^^^^^^^^^^^^^^^^
>
> So I am screwed.
Naw. If you want a recursively-defined sort order, you can still do it in
Perl. You merely can't use the built-in sort algorithm. :-) (You can
still sort the old-fashioned way. But seriously, I hope you don't need to
do that.)
> Why should I have to do extra work to get the same flexibility that I
> have in languages like C, Scheme, Elisp, lisp, ml, python, etc?
I don't know... I think that writing your own sorting algorithm in Perl is
just as hard as writing your own in C. :-)
> map BLOCK LIST
> map EXPR,LIST
> Evaluates the BLOCK or EXPR for each element of LIST (locally setting $_
> to each element)
>
> So I saw a `map' function and I naively went along and wrote something
> that looked at `@_' again. It did not work at all.
Did it take the afternoon off, or did it go on strike? Did it make smoke
come out of the back of the computer? :-) When you say that something did
not work, exactly what do you mean? There are so many ways to not work,
but if you tell us which way it failed we might be able to help.
> The problem I have with perl is not (necessarily) that it does these
> things, but I do not see how it is systematic in a way that I can keep
> track of it.
This is a not-infrequent criticism of Perl. Perl _is_ a bit eccentric, and
a big part of learning Perl is learning The Perl Way of doing tasks, which
can be different than in other languages. Usually (but not always) the
answer is simple when you see how to "cut with the grain, not against it".
Not that being able to see that is always easy! :-)
--
Tom Phoenix http://www.teleport.com/~rootbeer/
rootbeer@teleport.com PGP Skribu al mi per Esperanto!
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: 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 805
*************************************
