[7166] in Perl-Users-Digest
Perl-Users Digest, Issue: 791 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Jul 29 18:21:14 1997
Date: Tue, 29 Jul 97 15:00:29 -0700
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Tue, 29 Jul 1997 Volume: 8 Number: 791
Today's topics:
"Fast forward" within while loop? <dq@leland.Stanford.EDU>
[Q] Can you generate "page.html#bottom" in PERL? bowker@iNetWebInc.com
[Q] Convertor from Motorola S37 HEX files to Intel HEX- <ricky@ornet.co.il>
CGI Perl script launches a C++ program <bfawcett@myriad.com>
Re: CGI server internal error <rootbeer@teleport.com>
Comm.pl permission/slave error <gharfst@students.uiuc.edu>
Create E-mail with perl-script <laurijsd@se.bel.alcatel.be>
DBD and Perl on NT <ebu@iki.fi>
Re: deleteing <rootbeer@teleport.com>
Re: export variables <rootbeer@teleport.com>
Gnuwin32 build fails on Fcntl (Danny Aldham)
GZIP, TAR question <pociask@maricopa.edu>
Help: Form2mail <toot@inter.net.il>
Re: How can I get user date and user time with Perl? <rootbeer@teleport.com>
Re: interesting sorting problem (M.J.T. Guy)
litaratur database with perl-interface? (Franz Dollinger)
Looking for a text interface under NT/DOS (Olivier MOLTENI)
Re: may I use perl to make a shopping mall? (Doran Barton)
Re: Mighty Malcolm Beattie! Get the compiler running, p (Mark A. Lehmann)
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Tue, 29 Jul 1997 14:12:45 -0700
From: Qiang Dai <dq@leland.Stanford.EDU>
Subject: "Fast forward" within while loop?
Message-Id: <Pine.GSO.3.96.970729140719.9745A-100000@epic12.Stanford.EDU>
Hi,
I often need to extract certain number of lines from a file.
Sometimes I know how many lines I want, sometimes I
know what the starting and ending lines are. It would be
convenient if I could just ask the while loop to advance
so many lines, once I have identified the starting line,
without the lines being processed by other statements
in the while loop. I am now doing this by turning on and
off a boolean variable. It gets very confusing if I need
to do a few of these within the same while loop.
Is there a good construct in Perl that does this more
efficiently?
Thanks,
John
------------------------------
Date: Tue, 29 Jul 1997 02:42:08 GMT
From: bowker@iNetWebInc.com
Subject: [Q] Can you generate "page.html#bottom" in PERL?
Message-Id: <5rjlaf$hfp@argentina.earthlink.net>
Hi --
In raw HTML, I can send a visitor back to some spot part way down the
page by
<a href="page.html#bottom">CLICK HERE</a>
But if I'm generating the HTML code with PERL, is it possible to jump
part way down the page like that?
/usr/bin/perl;
$var = $something;
print <<"END";
<HTML><BODY>
Welcome, $var
<a name="bottom">Bye-bye</a>
</BODY></HTML>
END
Any suggestions on how to do this ...?
Thanks --
Bob Bowker
bowker@iNetWebInc.com
------------------------------
Date: Tue, 29 Jul 1997 16:41:55 +0300
From: Ricardo Marek <ricky@ornet.co.il>
Subject: [Q] Convertor from Motorola S37 HEX files to Intel HEX-32 files...
Message-Id: <33DDF323.41C67EA6@ornet.co.il>
Hello,
I'm looking for a converter (Perl-script) to translate between Motorola
HEX files into
Intel Hex files. (from S-37 to Intel HEX-32)
I'm sure that someone has invented the wheel and I don't want to
re-invente it.
Please answer via e-mail to: ricky@ornet.co.il
Thanks in advance.
--
--- Ricky -*- Mode: Another-Unix-Hacker -*-
------------------------------------------------------------------------------
--- e-mail: ricky@ornet.co.il ORNET Data Communication
Technologies Ltd.
--- http://w3.ornet.co.il/~ricky (A Siemens Company)
------------------------------------------------------------------------------
- "With a PC, I always felt limited by the software available.
- On Unix, I am limited only by my own knowledge." -- Peter J.
Schoenster
------------------------------
Date: Mon, 28 Jul 1997 21:54:40 -0600
From: Bob Fawcett <bfawcett@myriad.com>
Subject: CGI Perl script launches a C++ program
Message-Id: <33DD6977.478@myriad.com>
I have a question regarding a perl cgi script that launches a C++
program. The C++ program generates a bunch of flat files from a Sybase
backend. The problem is that I cannot get the perl script to launch the
C++ program when the cgi script is hit with a web browser.
I use the the system() function to call the C++ program. I have verified
that it works perfectly fine when the perl script is executed via the
UNIX command line. When I set the $| var to 1 then I get an error that
shows up on the web page stating that the file cannot be executed.
Please help.
Can someone please supply a list of cgi/perl newsgropups.
------------------------------
Date: Tue, 29 Jul 1997 08:21:30 -0700
From: Tom Phoenix <rootbeer@teleport.com>
To: PAUL YAN <PAUL_YAN@non-hp-paloalto-om15.om.hp.com>
Subject: Re: CGI server internal error
Message-Id: <Pine.GSO.3.96.970729081649.21501T-100000@kelly.teleport.com>
On Mon, 28 Jul 1997, PAUL YAN wrote:
> and errors log is :
>
> [28/Jul/1997:09:46:32] failure: for host xxx.xxx.xxx.xxx trying to GET
> /cgi-bin/showEvent.pl, cgi-parse-output reports: the CGI program
> /opt/ns-http/docs/cgi-bin/showEvent.pl did not produce a valid header
> (name without value: got line "<html>
> ")
That's a very good error message. It's telling you that your script is
printing a line which begins "<html>" when the server expects a valid
header. That sounds as if your Perl is fine, but you're having trouble
implementing the CGI interface, so I should really direct you to a CGI
newsgroup to get the answer. Instead, in an irrepressable fit of
helpfulness, I'll tell you that you should make sure that your script runs
something like this before it does any other output.
print "Content-type: text/html\n\n";
Hope this helps!
--
Tom Phoenix http://www.teleport.com/~rootbeer/
rootbeer@teleport.com PGP Skribu al mi per Esperanto!
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Tue, 29 Jul 1997 09:33:58 -0500
From: Greg Harfst <gharfst@students.uiuc.edu>
Subject: Comm.pl permission/slave error
Message-Id: <Pine.SOL.3.91.970729092550.11889B-100000@ux4.cso.uiuc.edu>
I am trying to use Comm.pl, and I get an error:
could not open slave, errno=Not owner at
/home/html/shamrm/public_html/PerlLib/Comm.pl line 1008.
I am the owner of the Comm.pl file and the script calling that
file. I am not familiar with the "Not owner" error.
Can anybody tell me what that error means, what might be causing this
error, or what I can do to fix it?
Here is the code that calls Comm.pl I think the code around 1008
in Comm.pl is failing in its attempt to open SLAVVE, and then calls die
with that error message.
#!/usr/local/perl5/bin/perl
require '/home/html/shamrm/public_html/PerlLib/Comm.pl';
&Comm'init();
$ph = open_proc('cat -n');
for (1..10) {
print $ph "a line=n";
print "got back ", scalar <$ph>;
}
# Test the Comm2.pl library
exit();
------------------------------
Date: Tue, 29 Jul 1997 16:08:47 +0200
From: Laurijssen Dirk <laurijsd@se.bel.alcatel.be>
Subject: Create E-mail with perl-script
Message-Id: <33DDF96F.2588@se.bel.alcatel.be.brol>
I'm trying to send a message upon pushing a "send" button on a
HTML-page.
For now I use a perl-script to do so.
The problem is that I write HTML-statements to the message but when I
receive the message these statements aren't processed. (The tags stay
visible).
In order to do so I could try to convince the Mail-tool that these
statements are attached, but how ? Any other (Javascript/Perl)solutions
?
Kind regards,
Dirk L.
------------------------------
Date: 29 Jul 1997 17:22:47 +0300
From: Erik Bunn <ebu@iki.fi>
Subject: DBD and Perl on NT
Message-Id: <n6nyb6qx7ig.fsf@alpha.hut.fi>
I need to be able to access a database through Perl on an NT machine.
This would be no problem on a unix box - the correct DBD module
exists - but I worry about the NT compile. Should things work
right with the latest perl package, the DBD module package, and
any NT compiler? Should I expect much tweaking of either perl or
DBD headers?
Any info on the subject, or alternative solutions, are appreciated.
(As long as they use NT. Much as I'd like, that one won't change..=)
Thank you;
//erik
--
: erik bunn - +358 50 511 6513 - AL,simulation,VR,scifi,rpg,LARP :
::. .::
:: . So, you think you can tell . ::
:.::.:.:..:... heaven from hell? .:..:.:.::.:
------------------------------
Date: Tue, 29 Jul 1997 07:07:52 -0700
From: Tom Phoenix <rootbeer@teleport.com>
To: Sanjay <malunjkars@aol.com>
Subject: Re: deleteing
Message-Id: <Pine.GSO.3.96.970729065618.21501D-100000@kelly.teleport.com>
On Sun, 27 Jul 1997, Sanjay wrote:
> Brian Thibault wrote:
> > How do I delete a whole line of text from a file when I only know what
> > the line starts with.
> > It is for a deluser script.
> if your filename is say /etc/passwd
> then use the following script:
>
> open(PASSWD,"/etc/passwd");
> my $user_to_be_delted='someuser';
> my @remaining_users=map {!/^$user_to_be_delted/ ? $_ :()} <PASSWD>;
> print @remaining_users;
> close(<PASSWD>);
It's a good thing that this code won't work. I was going to count the
number of things which were _seriously_ wrong with it, but I ran out of
fingers! Perhaps most importantly, do you see why user 'tonya' will be
upset when you go to get rid of user 'tony'?
Fortunately the FAQ has good information about updating one line in a
file.
Hope this helps!
--
Tom Phoenix http://www.teleport.com/~rootbeer/
rootbeer@teleport.com PGP Skribu al mi per Esperanto!
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Tue, 29 Jul 1997 08:02:10 -0700
From: Tom Phoenix <rootbeer@teleport.com>
To: Seema Rani <srani@uu.net>
Subject: Re: export variables
Message-Id: <Pine.GSO.3.96.970729075821.21501P-100000@kelly.teleport.com>
On Mon, 28 Jul 1997, Seema Rani wrote:
> Is there a way to export variables in perl.
> like (export xyz) in shell programming.
Environment variables (documented in perlvar(1)) are automatically
exported to child processes, although you should probably also read the
FAQ entry on trying to change the variables in the parent process. 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: 29 Jul 1997 11:01:36 -0700
From: danny@lennon.postino.com (Danny Aldham)
Subject: Gnuwin32 build fails on Fcntl
Message-Id: <5rlb60$pqa$1@lennon.postino.com>
I am trying to build perl5.004_01 using gnuwin32/b18 . To fix
earlier failures I added a ccflag -DCYGWIN32 , and I am getting
much further along. (miniperl actually builds!) It is now failing
making Fcntl with syntax errors from op.h at line 132 & 134 .
../../op.h:132: syntax error before '{' .
Any help appreciated.
--
Danny Aldham SCO Ace , MCSE , JAPH , DAD
I don't need to hide my e-mail address, I broke my sendmail.
------------------------------
Date: Tue, 29 Jul 1997 00:56:46 -0600
From: Jason Pociask <pociask@maricopa.edu>
Subject: GZIP, TAR question
Message-Id: <33DD942E.2988@maricopa.edu>
I'm trying to get libwww-perl-5.10 installed on a Win95 (P166)
system. I pulled libwww-perl, MD5..., IO..., MIME-Base64..., and
libnet... off CPAN and was able to first GZIP -d them (to create
a single file in "tar" format), then TAR xvfm them, which created
subdirectory structures with files in them.
Problem 1: When you type the files, each end of line is just a
bare linefeed, with no carriage return to force it back to column
it. The JED editor shows them properly, but when I save, it's back
to:
The first line
The next line starts here...
And so on which gets very Ugly
After a While
As you can imagine.
Is there some way to fix that with the usual Win32 implementations
of "tar"? I think I got mine off ftp://ftp.gnu.ai.mit.edu/pub/gnu/.
Problem 2: I try "perl makefile.pl" and get all kinds of nasty
messages about ExtUtils::MakeMaker not being found, etc. I pulled
that module, gzip/tar'ed it, and ended up just copying the stuff
into \perl\lib\extutils\*.*, but that didn't help either. Plus
I can't figure out what "make" these things are wanting me to run,
under Win95...
Am I wasting my time, or can the libwww-perl actually be installed
on a Win95 or WinNT platform? Did I miss something in the FAQ's?
Thanks,
Jason P.
PS: I know that basic Activeware perl install worked, I've been able
to run a couple large perl programs I wrote on Unix on this Win95
box, no problems (but not much "use" stuff going on either).
------------------------------
Date: 29 Jul 1997 11:37:08 GMT
From: "Lior" <toot@inter.net.il>
Subject: Help: Form2mail
Message-Id: <01bc9c13$f69fa2e0$0d9ccbc7@alekto.alekto>
Hello!
Thanks in advance for your help. I am using the Form2mail perl script for
NT
and it doesn't work for me at all. I made some changes
According to the instruction they gave with the script and I am getting
errors all
over again (The changes marked with red in the file attached).
Please help me with this one.
Lior.
begin 600 form2mail.pl
M(R$O=7-R+VQO8V%L+V)I;B]P97)L#0HC*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ
M*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ
M*BHJ*BHJ*BHJ(PT*(R!&;W)M,DUA:6P@=C$N,B!F;W(@5VEN,S(@(" @(" @
M(" @(" @(" @(" @(" @(" @(" @(" @(" @(" @(" @(" @(" @(" @(",-
M"B,@8W)E871E9"!/8W0@,#DL(#$Y.38L('1H:7,@=F5R<VEO;B!*=6P@,#<L
M(#$Y.3<@(" @(" @(" @(" @(" @(" @(" @(" @(" C#0HC($-O<'ER:6=H
M=" Q.3DW(&)Y($5R:6,@5"X@5VEE;FME(&%N9"!,:7%U:60@4VEL=F5R+"!A
M;&P@4FEG:'1S(')E<V5R=F5D+B @(PT*(R!E<FEC0&QI<75I9'-I;'9E<BYC
M;VT@(" @(&AT=' Z+R]W=W<N;&EQ=6ED<VEL=F5R+F-O;2]S8W)I<'1S(" @
M(" @(" @(" @(",-"B,J*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ
M*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHC
M#0HC(%1H:7,@<V-R:7!T(&UA>2!B92!U<V5D(&9R964@;V8@8VAA<F=E(&9O
M<B!N;VXM8V]M;65R8VEA;"!P=7)P;W-E<RP@(" @(" @(PT*(R!A<R!L;VYG
M(&%S('1H:7,@:&5A9&5R(&%N9"!C;W!Y<FEG:'0@;F]T:6-E(')E;6%I;B!I
M;G1A8W0N(" @(" @(" @(" @(" @(",@#0HC(%1H92!C;V1E(&UA>2!N;W0@
M8F4@<V]L9"!O<B!R961I<W1R:6)U=&5D('=I=&AO=70@<')I;W(@=W)I='1E
M;B!C;VYS96YT+B @(PT*(R!">2!U<VEN9R!T:&ES('-C<FEP="!Y;W4@86=R
M964@=&\@:6YD96UN:69Y($QI<75I9"!3:6QV97(@9G)O;2!A;GD@(" @(" @
M(",-"B,@;&EA8FEL:71Y('1H870@;6EG:'0@87)I<V4@9G)O;2!I=',@=7-E
M+B @(" @(" @(" @(" @(" @(" @(" @(" @(" @(" @(" C#0HC*BHJ*BHJ
M*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ
M*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ(PT*(R!!<R!O9B!V97)S:6]N(#$N
M,2!T:&ES('-C<FEP="!N;R!L;VYG97(@<F5Q=6ER97,@0T=)+G!M(&]R(&$@
M8V]M;6%N9&QI;F4@(",-"B,@;6%I;&5R+B!497-T960@=VET:"!097)L(&9O
M<B!7:6XS,B!B=6EL9" S,#,@8GD@06-T:79E5V%R92X@(" @(" @(" @(" @
M(" C#0HC*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ
M*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ(PT*(R!2969E
M<B!T;R!T:&4@9FEL92 B=7-A9V4N:'1M(B!F;W(@:6YS=')U8W1I;VYS(&]N
M(&AO=R!T;R!W<FET92!F;W)M<R @(" @(",-"B,@(" @(" @(" @(" @(" @
M(" @(" @(" @(" @(" @(" @(" @(" @(" @(" @(" @(" @(" @(" @(" @
M(" @(" @(" @(" @(" C#0HC($YO=&4Z(%1H92!S:6UI;&%R:71Y('1O($UA
M='0@5W)I9VAT)W,@9F]R;6UA:6P@<')O9W)A;2!I<R!O;B!P=7)P;W-E('-O
M(" @(PT*(R!T:&%T('EO=2!C86X@=7-E(&5X:7-T:6YG(&9O<FUS(&EF('EO
M=2!M:6=R871E('1O('1H92!W:6XS,B!P;&%T9F]R;2X@(" @(",-"B,@5&AI
M<R!S8W)I<'0@:&]W979E<B!I<R!.3U0@82!P;W)T+"!)(&5N9&5D('5P(')E
M=W)I=&EN9R!T:&4@=VAO;&4@=&AI;F<N(" C#0HC($%N>7=A>2P@8W)E9&ET
M<R!G;R!T;R!-871T(%=R:6=H="!F;W(@=W)I=&EN9R!T:&4@9FEN92!5;FEX
M('-C<FEP=" @(" @(" @(PT*(R!&;W)M36%I;"P@=VAI8V@@9W)E871L>2!I
M;G-P:7)E9"!M92X@2&4@=W)O=&4@82!L;W0@;V8@;W1H97(@9V]O9" @(" @
M(" @(",-"B,@<V-R:7!T<R!W:&EC:"!C86X@8F4@9F]U;F0@870@:'1T<#HO
M+W=W=RYW;W)L9'=I9&5M87)T+F-O;2]S8W)I<'1S(" @(" @(" C#0HC*BHJ
M*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ
M*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ(PT*(R!(:7-T;W)Y.@T*(R @
M('8Q+C(@(# W+S W+SDW("T@;F]W('=O<FMS('=I=&@@;6]S="!U;FEX('-E
M<G9E<G,@=&]O(" @(" @(" @(" @(" @(" @(",-"B,@(" @(" @(" @(" @
M(" @(" M(&%D9&5D('-U<'!O<G0@9F]R(%!E<FQ)4RYD;&P@*'5S960@8GD@
M35,@24E3*2 @(" @(" @(" C#0HC(" @(" @(" @(" @(" @(" @+2!M;W)E
M(&1E=&%I;&5D(&5R<F]R(')E<&]R=',@(" @(" @(" @(" @(" @(" @(" @
M(" @(" @(PT*(R @(" @(" @(" @(" @(" @("T@9&5B=6<@;&]G9VEN9R!O
M<'1I;VX@861D960L('-E="!D;TQO9R!T;R R(" @(" @(" @(" @(",-"B,@
M(" @(" @(" @(" @(" @(" M('-Y;G1A>"!F:7AE<R!I;B!33510(&-O;6UU
M;FEC871I;VX@(" @(" @(" @(" @(" @(" @(" C#0HC(" @(" @(" @(" @
M(" @(" @+2!B971T97(@97)R;W(@=')A<'!I;F<@9'5R:6YG('-M=' @8V]M
M;75N:6-A=&EO;B @(" @(" @(PT*(R @('8Q+C$Q(# S+S U+SDW("T@861D
M960@9FEE;&0@(FAI9&5?8FQA;FMS(BX@4V5T('1H92!V86QU92!T;R B,2(@
M:68@(" @(",-"B,@(" @(" @(" @(" @(" @(" @('EO=2!W86YT(&5M<'1Y
M(&9I96QD<R!O9B!Y;W5R(&9O<FT@=&\@8F4@<W5P<')E<W-E9" @(" C#0HC
M(" @(" @(" @(" @(" @(" @("!I;B!T:&4@96UA:6P@8F]D>2X@(" @(" @
M(" @(" @(" @(" @(" @(" @(" @(" @(" @(" @(PT*(R @('8Q+C$@(# S
M+S T+SDW("T@;F]W(&YO(&QO;F=E<B!N965D<R!#1TDN<&T@(" @(" @(" @
M(" @(" @(" @(" @(" @(" @(",-"B,@(" @(" @(" @(" @(" @(" M(&YO
M=R!D:7)E8W1L>2!U<V5S('-O8VME=',@=&\@8V]M;75N:6-A=&4@=VET:" @
M(" @(" @(" C#0HC(" @(" @(" @(" @(" @(" @("!A(%--5% @<V5R=F5R
M+"!N;R!E>'1E<FYA;"!M86EL<')O9W)A;2!N965D960@(" @(" @(" @(PT*
M(R @(" @(" @(" @(" @(" @("T@;F]W(&%L;&]W<R!M=6QT:7!L92!R96-I
M<&EE;G1S+B!*=7-T(&%D9"!M;W)E(" @(" @(" @(",-"B,@(" @(" @(" @
M(" @(" @(" @(&%D9')E<W-E<R!I;B!T:&4@:&ED9&5N($9O<FT@=&%G("=R
M96-I<&EE;G1S)R @(" @(" @(" C#0HC(" @(" @(" @(" @(" @(" @("!S
M97!E<F%T960@=VET:"!C;VUM87,@(" @(" @(" @(" @(" @(" @(" @(" @
M(" @(" @(" @(PT*(R @(" @(" @(" @(" @(" @("T@4F5D:7)E8W1I;VYS
M('1O(&$@<V5C=7)E('-E<G9E<B!N;W<@=V]R:R!C;W)R96-T;'D@(" @(",-
M"B,@(" @(" @(" @(" @(" @(" M(&%D9&5D('-O<G0@9FEE;&0@9F]R('-P
M96-I9GEI;F<@=&AE(&]R9&5R(&EN('=H:6-H(" @(" C#0HC(" @(" @(" @
M(" @(" @(" @("!T:&4@9FEE;&1S(&%R92!P<FEN=&5D(&EN('1H92!E;6%I
M;"!B;V1Y+B @(" @(" @(" @(" @(PT*(R @(" @(" @(" @(" @(" @("T@
M;&]G9VEN9R!R97-T<FEC=&5D('1O(&5R<F]R<R @(" @(" @(" @(" @(" @
M(" @(" @(" @(",-"B,@(" @(" @(" @(" @(" @(" M('-O;64@;6EN;W(@
M:6UP<F]V96UE;G1S(&%N9"!B=6<@9FEX97,@(" @(" @(" @(" @(" @(" C
M#0HC(" @(" @(" @(" @(" @(" @+2!F:6YA;&QY('5S97,@<W1R:6-T(#HI
M(" @(" @(" @(" @(" @(" @(" @(" @(" @(" @(" @(PT*(R @('8Q+C @
M(#$P+S Y+SDV("T@26YI=&EA;"!R96QE87-E(" @(" @(" @(" @(" @(" @
M(" @(" @(" @(" @(" @(" @(" @(",-"B,J*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ
M*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ
M*BHJ*BHJ*BHJ*BHC#0H-"B-U<V4@<W1R:6-T.R C(&]N;'D@=7-E9"!D=7)I
M;F<@9&5V96QO<&UE;G0L(&-O;6UE;G1E9"!O=70@8F5C875S92!P97)L:7,N
M9&QL#0H@(" @(" @(" @(" @(R!U<V5R<R!H860@<')O8FQE;7,@=VET:"!I
M;F-L=61I;F<@;&EB<F%R:65S+@T*(" @(" @(" @(" @( T*;7D@)&1A=&4@
M/2!L;V-A;'1I;64[#0IM>2 D=F5R<VEO;B ]("<Q+C(G.PT*;7D@*"1S;71P
M<V5R=F5R+"1P;W)T+$!R969E<F5R+"1R971U<FY?861D<BPD9&],;V<L)&UA
M:6QL;V=F:6QE+$!H:61D96XI.PT*#0HC(R,C(R,C(R,C(R,C(R,C(R,C(R,C
M(R,C(R,C(R,C(R,C(R,C(R,C(R,C(R,C(R,C(R,C(R,C(R,C(R,C(R,C(R,C
M(R,C(R,C(R,C(R,-"B,@55-%4B!$149)3D5!0DQ%(%9!4DE!0DQ%4PT*#0HC
M(%-E="!T:&ES('1O('EO=7(@4TU44"!S97)V97(-"B1S;71P<V5R=F5R(#T@
M)VUA:6PN86QE:W1O+F-O+FEL)SL-"B,@36%I;"!P;W)T(&]F('1H92!33510
M('-E<G9E<BX@57-U86QL>2 R-0T*)'!O<G0@/2 R-3L-"B,@:&]S=',@86QL
M;W=E9"!A8V-E<W-I;F<@=&AI<R!C9VD-"D!R969E<F5R(#T@*"=W=W<N86QE
M:W1O+F-O+FEL)RD[#0H-"B,@=&AI<R!I<R!T:&4@9&5F875L="!2971U<FX@
M861D<F5S<R!I9B!N;R!E;6%I;"!W87,@<W5B;6ET=&5D(&)Y('1H92!F;W)M
M#0HD<F5T=7)N7V%D9'(@/2 G=W=W0&QI<75I9'-I;'9E<BYC;VTG.PT*#0HC
M(&QO9V=I;F<N('-E="!T;R P(&9O<B!N;R!L;V=G:6YG+" Q(&9O<B!L;V=G
M:6YG(&5R<F]R<R!A;F0@,B!F;W(@9&5B=6=G:6YG#0HC("AD96)U9V=I;F<@
M;&]G<R!A;&P@4TU44"!S97)V97(@<F5P;&EE<RD-"B1D;TQO9R ](#$[#0HC
M(&QO8V%T:6]N(&]F(&QO9V9I;&4N($]N;'D@=7-E9"!I9B D9&],;V<@:7,@
M<V5T('1O(#$@;W(@,@T*)&UA:6QL;V=F:6QE(#T@)T<Z+W-C<FEP=',O97)R
M;W(N='AT)SL-"@T*(R!%3D0@3T8@55-%4B!$149)3D5!0DQ%(%9!4DE!0DQ%
M4PT*(R,C(R,C(R,C(R,C(R,C(R,C(R,C(R,C(R,C(R,C(R,C(R,C(R,C(R,C
M(R,C(R,C(R,C(R,C(R,C(R,C(R,C(R,C(R,C(R,C(R,C(R,C#0H-"B,@5&AE
M<V4@9FEE;&1S('=I;&P@;F]T(&)E('-E;F0@=VET:"!T:&4@;6%I; T*0&AI
M9&1E;B ]("@G<F5C:7!I96YT)RPG<F5D:7)E8W0G+"=B9V-O;&]R)RPG8F%C
M:V=R;W5N9"<L)W-U8FIE8W0G+ T*(" @(" @(" @(" G;&EN:U]C;VQO<B<L
M)W9L:6YK7V-O;&]R)RPG86QI;FM?8V]L;W(G+"=T97AT7V-O;&]R)RPG=&ET
M;&4G+ T*(" @(" @(" @(" G96YV7W)E<&]R="<L)W)E='5R;E]L:6YK7W1I
M=&QE)RPG<F5T=7)N7VQI;FM?=7)L)RPG<F5Q=6ER960G+ T*(" @(" @(" @
M(" G;F]?=&%B;&4G+"=F;VYT7V9A8V4G+"=F;VYT7W-I>F4G+"=S;W)T)RPG
M:&ED95]B;&%N:W,G*3L-"@T*(R!'970@=&AE($9O<FT@:6YP=70-"FUY("5Q
M=65R>2 ]("9R96%D7VEN<'5T.PT*#0HC($-H96-K(%)E9F5R<FEN9R!54DP-
M"B9C:&5C:U]R969E<F5R.PT*#0HC($-H96-K(%)E<75I<F5D($9I96QD<PT*
M)F-H96-K7W)E<75I<F5D.PT*#0HC(%-E;F0@12U-86EL#0HF<V5N9&UA:6P[
M#0H-"B,@4F5T=7)N($A434P@4&%G92!O<B!2961I<F5C="!5<V5R#0HF<F5T
M=7)N7VAT;6P[#0H-"@T*<W5B(&-H96-K7W)E9F5R97(@>PT*(" @(&UY("@D
M86QL;W=E9%]R969E<F5R+"1R969E<F5R7T]+*3L-"B @("!I9B H)$5.5GLG
M2%144%]2149%4D52)WTI('L-"B @(" @(" @9F]R96%C:" D86QL;W=E9%]R
M969E<F5R("A <F5F97)E<BD@>PT*(" @(" @(" @(" @:68@*"1%3E9[)TA4
M5%!?4D5&15)%4B=](#U^("\D86QL;W=E9%]R969E<F5R+VDI('L-"B @(" @
M(" @(" @(" @(" D<F5F97)E<E]/2R ](#$[#0H@(" @(" @(" @(" @(" @
M;&%S=#L-"B @(" @(" @(" @('T-"B @(" @(" @?0T*(" @('T-"B @("!E
M;'-E('L-"B @(" @(" @)')E9F5R97)?3TL@/2 Q.PT*(" @('T-"@T*(" @
M(&EF("@A)')E9F5R97)?3TLI('L-"B @(" F97)R;W(H)T)A9"!2969E<F5R
M)RD[#0H@(" @?0T*?0T*#0IS=6(@8VAE8VM?<F5Q=6ER960@>PT*(" @(&UY
M("@D<F5Q=6ER92Q <F5Q=6ER960L0$524D]2*3L-"B @("! <F5Q=6ER960@
M/2!S<&QI="@O+"\L)'%U97)Y>R=R97%U:7)E9"=]*3L-"B @("!F;W)E86-H
M("1R97%U:7)E("A <F5Q=6ER960I('L-"@T*(" @(" @("!I9B H(2@D<75E
M<GE[)')E<75I<F5]*2!\?" D<75E<GE[)')E<75I<F5](&5Q("<@)RD@>PT*
M(" @(" @(" @(" @<'5S:"A 15)23U(L)')E<75I<F4I.PT*(" @(" @("!]
M#0H@(" @(" @?0T*#0H@(" @:68@*$!%4E)/4BD@>PT*(" @("9E<G)O<B@G
M0FQA;FL@1FEE;&1S)RP@0$524D]2*3L-"B @("!]#0H-"GT-"@T*<W5B(')E
M='5R;E]H=&UL('L-"B @("!M>2 D=&ET;&4@/2 D<75E<GE[)W1I=&QE)WT@
M?'P@(E1H86YK('EO=2([#0H@(" @;7D@0%1/(#T@<W!L:70H+RPO+"1Q=65R
M>7LG<F5C:7!I96YT)WTI.PT*#0H@(" @:68@*"1Q=65R>7LG<F5D:7)E8W0G
M?2 ]?B O:'1T<"AS*3]<.EPO7"\N*EPN+BHO*2![#0H@(" @(" @('!R:6YT
M(")(5%10+S$N," S,#,@4V5E($]T:&5R7')<;B(@:68@)$5.5GM015),6%-]
M(&5Q(")097)L25,B.R C(&9O<B!P97)L25,N9&QL#0H@(" @(" @('!R:6YT
M("),;V-A=&EO;CH@)'%U97)Y>R=R961I<F5C="=]7&Y<;B([#0H@(" @?0T*
M#0H@(" @96QS92![#0H@(" @(" @("9B=6EL9%]B;V1Y*"(D=&ET;&4B*3L-
M"B @(" @(" @<')I;G0@(CQC96YT97(^7&XB.PT*(" @(" @("!M>2 D9F]N
M=" ]("9C:&5C:U]F;VYT.PT*(" @(" @("!P<FEN=" B/$@Q/B1T:71L93PO
M2#$^7&X\4#X\2%(@<VEZ93TW('=I9'1H/5PB-S5<)5PB/EQN(CL-"@T*(" @
M(" @(" C(&-H96-K('=H971H97(@=7-I;F<@82!T86)L92!O<B!N;W0N(&1E
M9F%U;'0@:7,@>65S+@T*(" @(" @("!I9B H(21Q=65R>7LG;F]?=&%B;&4G
M?2D@>PT*(" @(" @(" @(" @<')I;G0@(CQ404),12!W:61T:#U<(C<U7"5<
M(CY<;CQ44CX\5$0^7&XB.PT*(" @(" @(" @(" @)F-H96-K7V9O;G0[#0H@
M(" @(" @('T-"B @(" @(" @<')I;G0@(D)E;&]W(&ES('=H870@>6]U('-U
M8FUI='1E9"!T;R D5$];,%T@;VX@)&1A=&5<;CQP/EQN(CL-"@T*(" @(" @
M("!P<FEN=" B/%5,/EQN(CL-"B @(" @(" @;7D@*"1K97DL)'9A;'5E+$!S
M;W)T960I.PT*(" @(" @("!M>2 D<V]R=" ]("1Q=65R>7LG<V]R="=].PT*
M(" @(" @("!I9B H)'-O<G0@97$@)V%L<&AA8F5T:6,G*2![#0H@(" @(" @
M(" @("!F;W)E86-H("1K97D@*'-O<G0@:V5Y<R E<75E<GDI('L-"B @(" @
M(" @(" @(" @("!P<FEN=" B/$Q)/B1K97DZ("1Q=65R>7LD:V5Y?3PO3$D^
M7&XB#0H@(" @(" @(" @(" @(" @("!U;FQE<W,@*"AG<F5P('LD7R!E<2 D
M:V5Y?2! :&ED9&5N*7Q\*"$D<75E<GE[)&ME>7TI*3L-"B @(" @(" @(" @
M('T-"B @(" @(" @?0T*(" @(" @("!E;'-I9B H)'-O<G0@/7X@+UYO<F1E
M<CHN*RPN*R\I('L-"B @(" @(" @(" @("1S;W)T(#U^(',O;W)D97(Z+R\[
M#0H@(" @(" @(" @("! <V]R=&5D(#T@<W!L:70H+RPO+" D<V]R="D[#0H@
M(" @(" @(" @("!F;W)E86-H("1K97D@*$!S;W)T960I('L-"B @(" @(" @
M(" @(" @("!I9B H)'%U97)Y>R1K97E]*2![#0H@(" @(" @(" @(" @(" @
M(" @('!R:6YT("(\3$D^)&ME>3H@)'%U97)Y>R1K97E]/"],23Y<;B(-"B @
M(" @(" @(" @(" @(" @(" @("!U;FQE<W,@*"AG<F5P('LD7R!E<2 D:V5Y
M?2! :&ED9&5N*7Q\*"$D<75E<GE[)&ME>7TI*3L-"B @(" @(" @(" @(" @
M("!]#0H@(" @(" @(" @("!]#0H@(" @(" @('T-"B @(" @(" @96QS927%U
M97)Y*2![#0H@(" @(" @(" @(" @(" @<')I;G0@(CQ,23XD:V5Y.B D=F%L
M=64\+TQ)/EQN(@T*(" @(" @(" @(" @(" @(" @=6YL97-S("@H9W)E<"![
M)%\@97$@)&ME>7T@0&AI9&1E;BE\?"@A)'9A;'5E*2D[#0H@(" @(" @(" @
M("!]#0H@(" @(" @('T-"B @(" @(" @<')I;G0@(CPO54P^7&XB.PT*#0H@
M(" @(" @(",@8VAE8VL@:68@8VQO<VEN9R!486)L92!T86=S(&%R92!N965D
M960-"B @(" @(" @:68@*"$D<75E<GE[)VYO7W1A8FQE)WTI('L-"B @(" @
M(" @(" @('!R:6YT("(\+T9/3E0^7&XB(&EF("1F;VYT.PT*(" @(" @(" @
M(" @<')I;G0@(CPO5$0^/"]44CY<;CPO5$%"3$4^7&XB.PT*(" @(" @("!]
M#0H-"B @(" @(" @<')I;G0@(CQ0/CQ(4B!W:61T:#U<(C<U7"5<(B!S:7IE
M/3<^7&XB.PT*#0H@(" @(" @(",@0VAE8VL@9F]R(&$@4F5T=7)N($QI;FL-
M"B @(" @(" @:68@*"1Q=65R>7LG<F5T=7)N7VQI;FM?=7)L)WT@/7X@+VAT
M='!<.EPO7"\N*EPN+BHO*2![#0H@(" @(" @(" @("!P<FEN=" B/%5,/EQN
M/$Q)/CQ!(&AR968]7"(D<75E<GE[)W)E='5R;E]L:6YK7W5R;"=]7"(^(CL-
M"B @(" @(" @(" @('!R:6YT("1Q=65R>7LG<F5T=7)N7VQI;FM?=&ET;&4G
M?2!\?" D<75E<GE[)W)E='5R;E]L:6YK7W5R;"=].PT*(" @(" @(" @(" @
M<')I;G0@(CPO03X\+TQ)/EQN/"]53#Y<;B([#0H@(" @(" @('T-"B @(" @
M(" @<')I;G0@(CPO0T5.5$52/CQ0/CQ(4CX\+U ^7&X\4"!A;&EG;CU<(G)I
M9VAT7"(^/$9/3E0@<VEZ93TM,3Y<;B(L#0H@(" @(" @(" @(" @(")#<F5A
M=&5D('=I=&@@1F]R;3)-86EL('8D=F5R<VEO;B!B>2 \02!H<F5F/5PB(BP-
M"B @(" @(" @(" @(" @(FAT=' Z+R]W=W<N;&EQ=6ED<VEL=F5R+F-O;2]S
M8W)I<'1S+UPB/DQI<75I9"!3:6QV97(\+T$^/"]0/EQN(CL-"@T*(" @(" @
M("!P<FEN=" B/"]&3TY4/EQN(B!I9B D9F]N=#L-"B @(" @(" @<')I;G0@
M(CPO0D]$63Y<;CPO2%1-3#Y<;B([#0H@(" @?0T*#0I]#0H-"G-U8B!S96YD
M;6%I;"![#0H@(" @;7D@*"1A+"1N86UE+"1A;&EA<V5S+"1P<F]T;RPD='EP
M92PD;&5N+"1T:&%T861D<BPD=&AI<V%D9'(L)&DI.PT*(" @(&UY("1S=6)J
M96-T(#T@)'%U97)Y>R=S=6)J96-T)WT@?'P@(E=75R!&;W)M(%-U8FUI<W-I
M;VXB.PT*(" @(&UY("1F<F]M(#T@)'%U97)Y>R=E;6%I;"=]('Q\(")75U<M
M1F]R;2 \)')E='5R;E]A9&1R/B([#0H@(" @;7D@)')E=&%D9'(@/2 D9G)O
M;3L-"B @("!I9B H)'%U97)Y>R=R96%L;F%M92=]*2![#0H@(" @(" @("1R
M971A9&1R(#T@)R(G+B1Q=65R>7LG<F5A;&YA;64G?2XG(B<N(B \)&9R;VT^
M(CL-"B @("!]#0H@(" @)F5R<F]R*").;R!R96-I<&EE;G0A(BD@=6YL97-S
M("1Q=65R>7LG<F5C:7!I96YT)WT[#0H@(" @;7D@0%1/(#T@<W!L:70H+RPO
M+"1Q=65R>7LG<F5C:7!I96YT)WTI.PT*#0H@(" @)'!O<G0@?'P](#(U.PT*
M(" @(&UY("1!1E])3D54(#T@,CL-"B @("!M>2 D4T]#2U]35%)%04T@/2 Q
M.PT*(" @(&UY("1S;V-K861D<B ]("=3(&X@830@>#@G.PT*#0H@(" @*"1N
M86UE+"1A;&EA<V5S+"1P<F]T;RD@/2!G971P<F]T;V)Y;F%M92@G=&-P)RD[
M#0H@(" @*"1N86UE+"1A;&EA<V5S+"1P;W)T*2 ](&=E='-E<G9B>6YA;64H
M)'!O<G0L)W1C<"<I#0H@(" @(" @('5N;&5S<R D<&]R=" ]?B O7EQD*R0O
M.SL-"B @(" H)&YA;64L)&%L:6%S97,L)'1Y<&4L)&QE;BPD=&AA=&%D9'(I
M(#T@9V5T:&]S=&)Y;F%M92@D<VUT<'-E<G9E<BD[#0H-"B @("!M>2 D=&AI
M<R ]('!A8VLH)'-O8VMA9&1R+" D049?24Y%5"P@,"P@)'1H:7-A9&1R*3L-
M"B @("!M>2 D=&AA=" ]('!A8VLH)'-O8VMA9&1R+" D049?24Y%5"P@)'!O
M<G0L("1T:&%T861D<BD[#0H-"B @("!S;V-K970H4RP@)$%&7TE.150L("13
M3T-+7U-44D5!32P@)'!R;W1O*2!O<B F97)R;W(H(D-O=6QD(&YO="!O<&5N
M('-O8VME=#H@)"$B*3L-"B @("!B:6YD*%,L("1T:&ES*2!O<B F97)R;W(H
M(D-O=6QD(&YO="!B:6YD('-O8VME=#H@)"$B*3L-"B @("!C;VYN96-T*%,L
M)'1H870I(&]R("9E<G)O<B@B0V]U;&0@;F]T(&-O;FYE8W0@=&\@)'1H871A
M9&1R.B D(2(I.PT*#0H@(" @<V5L96-T*%,I.R D?" ](#$[('-E;&5C="A3
M5$1/550I.PT*(" @( T*(" @(&EF("@D9&],;V<@/3T@,BD@>PT*(" @(" @
M;W!E;B!,3T<L("(^/B1M86EL;&]G9FEL92(@;W(@)F5R<F]R*")#;W5L9"!N
M;W0@;W!E;B!L;V=F:6QE("1M86EL;&]G9FEL93H@)"$B*3L-"B @("!]#0H@
M(" @)&$]/%,^.R!P<FEN="!,3T<@(B1A7&XB(&EF("1D;TQO9R ]/2 R.PT*
M(" @("9E<G)O<B@B4TU44"!E<G)O<CH@)&$B*2!I9B D82 A?B O7C(O.PT*
M(" @('!R:6YT(%,@(DA%3$\@;&]C86QH;W-T7&XB.PT*(" @("1A/3Q3/CL@
M<')I;G0@3$]'("(D85QN(B!I9B D9&],;V<@/3T@,CL-"B @("!P<FEN="!3
M(")-04E,($923TTZ)&9R;VU<;B([#0H@(" @)&$]/%,^.R!P<FEN="!,3T<@
M(B1A7&XB(&EF("1D;TQO9R ]/2 R.PT*(" @("9E<G)O<B@B4TU44"!E<G)O
M<CH@)&$B*2!I9B D82 A?B O7C(O.PT*(" @(&9O<F5A8V@@)&DH0%1/*2![
M#0H@(" @(" @('!R:6YT(%,@(E)#4%0@5$\Z/"1I/EQN(CL-"B @("!]#0H@
M(" @)&$]/%,^.R!P<FEN="!,3T<@(B1A7&XB(&EF("1D;TQO9R ]/2 R.PT*
M(" @("9E<G)O<B@B4TU44"!E<G)O<CH@)&$B*2!I9B D82 A?B O7C(O.PT*
M(" @('!R:6YT(%,@(D1!5$$@7&XB.PT*(" @("1A/3Q3/CL@<')I;G0@3$]'
M("(D85QN(B!I9B D9&],;V<@/3T@,CL-"B @("!P<FEN="!3(")&<F]M.B D
M<F5T861D<EQN(CL-"B @("!P<FEN="!3(")4;SH@)%1/6S!=(CL-"B @("!F
M;W(@*"1I(#T@,3L@)&D@/"! 5$\[("1I*RLI('L-"B @(" @(" @<')I;G0@
M4R B+"143ULD:5TB.PT*(" @('T-"B @("!P<FEN="!3(")<;B([#0H@(" @
M<')I;G0@4R B4W5B:F5C=#H@)'-U8FIE8W1<;B([#0H@(" @<')I;G0@4R B
M4F5P;'DM5&\Z("1F<F]M7&XB.PT*(" @('!R:6YT(%,@(E@M36%I;&5R.B!&
M;W)M,DUA:6P@=B1V97)S:6]N(&)Y($QI<75I9"!3:6QV97)<;B([#0H@(" @
M<')I;G0@4R B0F5L;W<@:7,@=&AE(')E<W5L="!O9B!Y;W5R(&5M86EL(&9O
M<FTN7&XB.PT*(" @('!R:6YT(%,@(E-U8FUI='1E9"!B>2 D9G)O;5QN(CL-
M"B @("!P<FEN="!3(")<;B([#0H-"B @("!M>2 H)&ME>2PD=F%L=64L0'-O
M<G1E9"D[#0H@(" @;7D@)'-O<G0@/2 D<75E<GE[)W-O<G0G?3L-"B @("!I
M9B H)'-O<G0@97$@)V%L<&AA8F5T:6,G*2![#0H@(" @(" @(&9O<F5A8V@@
M)&ME>2 H<V]R="!K97ES("5Q=65R>2D@>PT*(" @(" @(" @(" @;F5X="!I
M9B!G<F5P('LD7R!E<2 D:V5Y?2! :&ED9&5N.PT*(" @(" @(" @(" @;F5X
M="!I9B H(21Q=65R>7LD:V5Y?2 F)B D<75E<GE[)VAI9&5?8FQA;FMS)WTI
M.PT*(" @(" @(" @(" @<')I;G0@4R B)&ME>3H@)'%U97)Y>R1K97E]7&XB
M.PT*(" @(" @("!]#0H@(" @?0T*(" @(&5L<VEF("@D<V]R=" ]?B O7F]R
M9&5R.BXK+"XK+RD@>PT*(" @(" @(" D<V]R=" ]?B!S+V]R9&5R.B\O.PT*
M(" @(" @("! <V]R=&5D(#T@<W!L:70H+RPO+" D<V]R="D[#0H@(" @(" @
M(&9O<F5A8V@@)&ME>2 H0'-O<G1E9"D@>PT*(" @(" @(" @(" @:68@*"1Q
M=65R>7LD:V5Y?2!\?" A)'%U97)Y>R=H:61E7V)L86YK<R=]*2![#0H@(" @
M(" @(" @(" @(" @<')I;G0@4R B)&ME>3H@)'%U97)Y>R1K97E]7&XB#0H@
M(" @(" @(" @(" @(" @("!U;FQE<W,@*&=R97 @>R1?(&5Q("1K97E]($!H
M:61D96XI.PT*(" @(" @(" @(" @?0T*(" @(" @("!]#0H@(" @?0T*(" @
M(&5L<V4@>PT*(" @(" @("!W:&EL92 H*"1K97DL)'9A;'5E*2 ](&5A8V@@
M)7%U97)Y*2![#0H@(" @(" @(" @("!P<FEN="!3("(D:V5Y.B D=F%L=65<
M;B(-"B @(" @(" @(" @(" @=6YL97-S("@H9W)E<"![)%\@97$@)&ME>7T@
M0&AI9&1E;BE\?"@A)'9A;'5E("8F("1Q=65R>7LG:&ED95]B;&%N:W,G?2DI
M.PT*(" @(" @("!]#0H@(" @?0T*(" @('!R:6YT(%,@(EQN7&XB.PT*#0H@
M(" @(R!396YD($%N>2!%;G9I<F]N;65N="!687)I86)L97,@5&\@4F5C:7!I
M96YT+@T*(" @(&UY($!E;G9?<F5P;W)T(#T@<W!L:70H+RPO+"1Q=65R>7LG
M96YV7W)E<&]R="=]*3L-"B @("!M>2 D96YV.PT*(" @(&9O<F5A8V@@)&5N
M=B H0&5N=E]R97!O<G0I('L-"B @(" @(" @<')I;G0@4R B)&5N=CH@)$5.
M5GLD96YV?5QN(CL-"B @("!]#0H@(" @<')I;G0@4R B+EQN(CL-"B @(" D
M83T\4SX[('!R:6YT($Q/1R B)&%<;B(@:68@)&1O3&]G(#T](#([#0H@(" @
M<')I;G0@4R B455)5"([#0H@(" @=6YD968@)"\[(R @)%\]/$1!5$$^.R @
M<')I;G0[#0H@(" @:68@*"1D;TQO9R ]/2 R*2![#0H@(" @("!C;&]S92!,
M3T<[#0H@(" @?0T*?0T*#0IS=6(@97)R;W(@>PT*#0H@(" @;7D@*"1E<G)O
M<BQ 97)R;W)?9FEE;&1S*2 ]($!?.PT*(" @(&UY("1M:7-S:6YG7V9I96QD
M.PT*(" @( T*(" @("9B=6EL9%]B;V1Y*")-86EL($5R<F]R(BD[#0H-"B @
M("!I9B H)&5R<F]R(#U^("]"860@4F5F97)E<B\I('L-"B @(" @(" @<')I
M;G0@(CQ(,3Y"860@4F5F97)E<B M($%C8V5S<R!$96YI960\+T@Q/EQN(BP-
M"B @(" @(" @(" @(" @(E-O<G)Y+"!B=70@>6]U(&%R92!R97%U97-T:6YG
M(#Q!(&AR968]7"(B+ T*(" @(" @(" @(" @(" B:'1T<#HO+W=W=RYL:7%U
M:61S:6QV97(N8V]M+W-C<FEP=',O7"(^1F]R;3)M86EL/"]!/EQN(BP-"B @
M(" @(" @(" @(" @(F9R;VT@)$5.5GLG2%144%]2149%4D52)WTL('=H;R!I
M<R!N;W0@86QL;W=E9"!T;R!A8V-E<W,@=&AI<R!#1TD@<V-R:7!T+EQN(CL-
M"B @("!]#0H-"B @("!E;'-I9B H)&5R<F]R(#U^("]";&%N:R!&:65L9',O
M*2![#0H@(" @(" @('!R:6YT("(\0T5.5$52/EQN/$@Q/D5R<F]R.B!";&%N
M:R!&:65L9',\+T@Q/EQN(CL-"B @(" @(" @<')I;G0@(CQ404),12!W:61T
M:#U<(C<U7"5<(CY<;CQ44CX\5$0^7&XB('5N;&5S<R D<75E<GE[)VYO7W1A
M8FQE)WT[#0H-"B @(" @(" @;7D@)&9O;G0@/2 F8VAE8VM?9F]N=#L-"B @
M(" @(" @<')I;G0@(E-O<G)Y+"!B=70@=&AE(&9O;&QO=VEN9R!F:65L9',@
M=V5R92!L969T(&)L86YK(&EN('EO=7(@<W5B;6ES<VEO;B!F;W)M.EQN/% ^
M7&XB.PT*#0H@(" @(" @(",@4')I;G0@3W5T($UI<W-I;F<@1FEE;&1S(&EN
M(&$@3&ES="X-"B @(" @(" @<')I;G0@(CQ$1#X\54P^7&XB.PT*(" @(" @
M("!F;W)E86-H("1M:7-S:6YG7V9I96QD("A 97)R;W)?9FEE;&1S*2![#0H@
M(" @(" @(" @("!P<FEN=" B/$Q)/B1M:7-S:6YG7V9I96QD/"],23Y<;B([
M#0H@(" @(" @('T-"B @(" @(" @<')I;G0@(CPO54P^7&XB.PT*#0H@(" @
M(" @('!R:6YT("(\4#X\2%(@<VEZ93TW/EQN5&AE<V4@9FEE;&1S(&UU<W0@
M8F4@9FEL;&5D(&]U="!B969O<F4@>6]U(&-A;B B+ T*(" @(" @(" @(" @
M(" B<W5C8V5S<V9U;&QY('-U8FUI="!T:&4@9F]R;2Y<;E!L96%S92!R971U
M<FX@=&\@=&AE(#Q!(&AR968]7"(B+ T*(" @(" @(" @(" @(" B)$5.5GLG
M2%144%]2149%4D52)WU<(CY3=6)M:7-S:6]N($9O<FT\+T$^(&%N9"!T<GD@
M86=A:6XN7&X\+U ^7&XB.PT*#0H@(" @(" @('!R:6YT("(\+T9/3E0^(B!I
M9B D9F]N=#L-"B @(" @(" @<')I;G0@(CPO5$0^/"]44CY<;CPO5$%"3$4^
M7&XB('5N;&5S<R D<75E<GE[)VYO7W1A8FQE)WT[#0H@(" @(" @('!R:6YT
M("(\+T-%3E1%4CY<;B([#0H@(" @?0T*(" @(&5L<V4@>PT*(" @(" @("!P
M<FEN=" B/$@R/E-O<G)Y+"!A;B!E<G)O<B!O8V-U<F5D(&%N9"!Y;W5R(&UA
M:6P@=V%S(&YO="!T<F%N<VUI='1E9"X\+T@R/EQN(BP-"B @(" @(" @(" @
M(" @(E!L96%S92!S96YD(&5M86EL(&1I<F5C=&QY('1O(#Q!(&AR968]7")M
M86EL=&\Z)'%U97)Y>R=R96-I<&EE;G0G?5PB/B(L#0H@(" @(" @(" @(" @
M("(D<75E<GE[)W)E8VEP:65N="=]/"]!/BY<;E1H86YK('EO=2Y<;CQ0/D5R
M<F]R(&UE<W-A9V4Z("1E<G)O<CPO4#XB.PT*(" @(" @("!I9B H)&1O3&]G
M*2![#0H@(" @(" @(" @("!I9B H;W!E;B!&24Q%+"(^/B1M86EL;&]G9FEL
M92(I('L-"B @(" @(" @(" @(" @("!P<FEN="!&24Q%("(D9&%T92 D97)R
M;W)<;B([#0H@(" @(" @(" @("!]#0H@(" @(" @('T-"B @("!]#0H@(" @
M#0H@(" @<')I;G0@(CPO0D]$63X\+TA434P^7&XB.PT*(" @( T*(" @(&5X
M:70[#0I]#0H-"G-U8B!B=6EL9%]B;V1Y('L-"B @("!M>2 D=&ET;&4@/2 D
M7ULP72!\?" B5&AA;FL@>6]U+B([#0H@(" @;7D@*"1B9V-O;&]R+"1B86-K
M9W)O=6YD+"1L:6YK7V-O;&]R+"1V;&EN:U]C;VQO<BPD86QI;FM?8V]L;W(L
M)'1E>'1?8V]L;W(I(#T-"B @(" H("1Q=65R>7LG8F=C;VQO<B=]('Q\("(C
M1D9&1D9&(BP-"B @(" @("1Q=65R>7LG8F%C:V=R;W5N9"=]+ T*(" @(" @
M)'%U97)Y>R=L:6YK7V-O;&]R)WT@?'P@(B,P,# P1D8B+ T*(" @(" @)'%U
M97)Y>R=V;&EN:U]C;VQO<B=]('Q\("(C-C8P,#DY(BP-"B @(" @("1Q=65R
M>7LG86QI;FM?8V]L;W(G?2!\?" B(T9&,# P,"(L#0H@(" @(" D<75E<GE[
M)W1E>'1?8V]L;W(G?2!\?" B(S P,# P,"(-"B @(" I.PT*(" @('5N9&5F
M("1B86-K9W)O=6YD(&EF("1B86-K9W)O=6YD("%^("]>:'1T<"AS*3]<.EPO
M7"\O:3L-"B @(" -"B @("!P<FEN=" B2%144"\Q+C @,C P($]+7')<;B(@
M:68@)$5.5GM015),6%-](&5Q(")097)L25,B.R C(&9O<B!P97)L25,N9&QL
M#0H@(" @<')I;G0@(D-O;G1E;G0M='EP93H@=&5X="]H=&UL7&Y<;CQ(5$U,
M/EQN/$A%040^7&X@(#Q4251,13XD=&ET;&4\+U1)5$Q%/EQN(BP-"B @(" @
M(" @(" B(" \345402!N86UE/5PB9V5N97)A=&]R7"(@8V]N=&5N=#U<(D9O
M<FTR;6%I;"!V)'9E<G-I;VY<(CY<;B(L#0H@(" @(" @(" @(B @/$U%5$$@
M;F%M93U<(F-O<'ER:6=H=%PB(&-O;G1E;G0]7")C;W!Y<FEG:'0@,3DY-BPQ
M.3DW(&)Y(BP-"B @(" @(" @(" B3&EQ=6ED(%-I;'9E<BP@86QL(')I9VAT
M<R!R97-E<G9E9"Y<(CY<;CPO2$5!1#Y<;CQ"3T19("(L#0H@(" @(" @(" @
M(F)G8V]L;W(]7"(D8F=C;VQO<EPB('1E>'0]7"(D=&5X=%]C;VQO<EPB(&QI
M;FL]7"(D;&EN:U]C;VQO<EPB(BP-"B @(" @(" @(" B=FQI;FL]7"(D=FQI
M;FM?8V]L;W)<(B!A;&EN:SU<(B1A;&EN:U]C;VQO<EPB(CL-"B @("!P<FEN
M=" B(&)A8VMG<F]U;F0]7"(D8F%C:V=R;W5N9%PB(B!I9B D8F%C:V=R;W5N
M9#L-"B @("!P<FEN=" B/EQN(CL@( T*?0T*#0IS=6(@8VAE8VM?9F]N="![
M#0H@(" @;7D@)&9O;G0@/2 P.PT*(" @(&EF("@D<75E<GE[)V9O;G1?9F%C
M92=]("8F("@D<75E<GE[)V9O;G1?9F%C92=](&YE("<@)RDI('L-"B @(" @
M(" @<')I;G0@(CQ&3TY4(&9A8V4]7"(D<75E<GE[)V9O;G1?9F%C92=]7"(B
M.PT*(" @(" @("!I9B H)'%U97)Y>R=F;VYT7W-I>F4G?2 F)B H)'%U97)Y
M>R=F;VYT7W-I>F4G?2!N92 G("<I*2![#0H@(" @(" @(" @("!P<FEN=" B
M('-I>F4]7"(D<75E<GE[)V9O;G1?<VEZ92=](CL-"B @(" @(" @?0T*(" @
M(" @("!P<FEN=" B7"(^7&XB.PT*(" @(" @(" D9F]N=" ](#$[#0H@(" @
M?0T*(" @(')E='5R;B D9F]N=#L-"GT-"@T*<W5B(')E861?:6YP=70@>PT*
M(" @(&UY("@D8G5F9F5R+"! <&%I<G,L("1P86ER+" D;F%M92P@)'9A;'5E
M+" E1D]232D[#0H@(" @(R!296%D(&EN('1E>'0-"B @(" D14Y6>R=215%5
M15-47TU%5$A/1"=](#U^('1R+V$M>B]!+5HO.PT*(" @(&EF("@D14Y6>R=2
M15%515-47TU%5$A/1"=](&5Q(")03U-4(BD@>PT*(" @(" @("!R96%D*%-4
M1$E.+" D8G5F9F5R+" D14Y6>R=#3TY414Y47TQ%3D=42"=]*3L-"B @("!]
M(&5L<V4@>PT*(" @(" @(" D8G5F9F5R(#T@)$5.5GLG455%4EE?4U1224Y'
M)WT[#0H@(" @?0T*(" @(",@4W!L:70@:6YF;W)M871I;VX@:6YT;R!N86UE
M+W9A;'5E('!A:7)S#0H@(" @0'!A:7)S(#T@<W!L:70H+R8O+" D8G5F9F5R
M*3L-"B @("!F;W)E86-H("1P86ER("A <&%I<G,I('L-"B @(" @(" @*"1N
M86UE+" D=F%L=64I(#T@<W!L:70H+STO+" D<&%I<BD[#0H@(" @(" @("1V
M86QU92 ]?B!T<B\K+R O.PT*(" @(" @(" D=F%L=64@/7X@<R\E*"XN*2]P
M86-K*")#(BP@:&5X*"0Q*2DO96<[#0H@(" @(" @(",@<F5M;W9E('!O=&5N
M=&EA;&QY(&1A;F=E<F]U<R!C;VUM86YD<PT*(" @(" @(" D=F%L=64@/7X@
M<R\\(2TM*"Y\7&XI*BTM/B\O9SL-"B @(" @(" @)'9A;'5E(#U^(',O/"A;
M7CY=?%QN*2H^+R]G.PT*(" @(" @(" D1D]237LD;F%M97T@/2 D=F%L=64[
8#0H@(" @?0T*(" @("5&3U)-.PT*?0T*
`
end
------------------------------
Date: Tue, 29 Jul 1997 07:09:56 -0700
From: Tom Phoenix <rootbeer@teleport.com>
To: Matthias St|rz/Hagen Seyring <insel@msn.com>
Subject: Re: How can I get user date and user time with Perl?
Message-Id: <Pine.GSO.3.96.970729070830.21501E-100000@kelly.teleport.com>
On Mon, 28 Jul 1997, Matthias St=FCrz/Hagen Seyring wrote:
> How can i get the user date and time with Perl or the environment
> variables?
my $date =3D localtime;
The localtime() function is documented in perlfunc(1), which shows some
variations which may also be useful. If you have more questions after
you've read the docs, please post again. Hope this helps!=20
--=20
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: 29 Jul 1997 09:10:09 GMT
From: mjtg@cus.cam.ac.uk (M.J.T. Guy)
Subject: Re: interesting sorting problem
Message-Id: <5rkc1h$m9@lyra.csx.cam.ac.uk>
Andrew M. Langmead <aml@world.std.com> wrote:
>
>use Socket;
>for $dottedquad (@addresses) {
> # each $addresses[ has a corresponding $addr32bit[n]
> push @addr32bit, inet_aton $dottedquad;
>}
>
>@addresses = @addresses[ sort by_raw_address 0 .. $#addresses ];
>
>sub by_raw_address {
> # $a and $b are indicies to the array we are tring to sort.
> $addr32bit[$a] <=> $addr32bit[$b];
>}
inet_aton gives you a 4 char string, not a 32 bit integer. So change
that <=> to cmp.
MIke Guy
------------------------------
Date: 29 Jul 1997 09:21:02 GMT
From: Franz.Dollinger@mchp.siemens.de (Franz Dollinger)
Subject: litaratur database with perl-interface?
Message-Id: <870168061.305994@curry.top.tld>
hy,
I want to build up a small literatur database with a perl interface
to make it accessible via WWW/CGI.
It shall contain two kinds of entries, whose fields are to be searched for
keywords:
Articles:
authors, title (2-3 lines of text), journal, date,
abstract (10-20 lines of text), citations, ...
Books:
authors, title, issue, ...
Anyone aware which of the database systems with perl interface are suitable for
that purpose?
thanx alot in advance
bye
franz
------------------------------
Date: 26 Jul 1997 10:15:15 GMT
From: molteni@imaginet.fr (Olivier MOLTENI)
Subject: Looking for a text interface under NT/DOS
Message-Id: <5rcinj$46e@belzebul.imaginet.fr>
Hi,
I'm looking for a text based user interface running under NT or dos.
If you know a sample script or a module doing this, yhanks to tell me where I
can load it.
------------------------------
Date: 29 Jul 1997 16:09:49 GMT
From: fozz@cray.com (Doran Barton)
Subject: Re: may I use perl to make a shopping mall?
Message-Id: <5rl4kd$j5e$1@walter.cray.com>
"Timothy Huang" <timhuang@mail.sysnet.net.tw> writes:
>How can I get the information about title?
>thank you very much!
This is a lot like asking "Can I use flour to make cookies?" The question
is very vague and extremely open-ended.
The answer is invariably "yes". However, you will probably want to use the
CGI extensions to Perl. You may also want to interface with some kind of
database as well.
-Fozz
--
"Even the most mild mannered person could suddenly turn into a glue-sniffing
anti-spammer." -- From a spam selling lists of addresses for spamming
Doran L. Barton -- fozz@cray.com -- Interning at Cray Research, Eagan, MN
------------------------------
Date: 29 Jul 1997 16:11:56 -0500
From: mlehmann@prismnet.com (Mark A. Lehmann)
Subject: Re: Mighty Malcolm Beattie! Get the compiler running, please!
Message-Id: <5b4t9dk1gj.fsf@smokey.prismnet.com>
Malcom is working on this and the whole Perl 5.005 release. He's got plenty
on his plate. One of the efforts in the compiler is to make the "use"
commands load the code better.
Malcom tell us what you need us to do to help you out!
Michael Schilli <mschilli@mission.base.com> writes:
>
> Oh mighty Malcom, hi folks,
>
> is the Perl Compiler still worked on? I mean, I can compile
>
> print "howdy, world!\n";
>
> that's not bad, but something like
>
> use CGI;
> $q = new CGI;
>
> while working as regular Perl script, fails, if compiled, with:
>
> Can't locate object method "new" via package "CGI"
> at hello.pl line 4.
>
> So, is there a chance to get this running?
> Any help apprechiated!
>
> -- Michael
>
> ----------------------------------------------------------
> Michael Schilli http://mission.base.com/mschilli
> ----------------------------------------------------------
--
Mark Lehmann.
------------------------------
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 791
*************************************
