[18054] in Perl-Users-Digest
Perl-Users Digest, Issue: 214 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Feb 5 14:06:08 2001
Date: Mon, 5 Feb 2001 11:05:25 -0800 (PST)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Message-Id: <981399925-v10-i214@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Mon, 5 Feb 2001 Volume: 10 Number: 214
Today's topics:
Re: "Average of List of Numbers" by Abigail (Peter da Silva)
Re: A Meta-Hack for your enjoyment (Rudolf Polzer)
Re: A Meta-Hack for your enjoyment (Abigail)
Re: A Meta-Hack for your enjoyment <bart.lateur@skynet.be>
Re: A Meta-Hack for your enjoyment (Rudolf Polzer)
ANNOUNCE: moodss-13.1 <jfontain@free.fr>
Re: Apologies to Joyce Kilmer, a hack for your enjoymen (Rudolf Polzer)
Re: Apologies to Joyce Kilmer, a hack for your enjoymen <bcaligari@my-deja.com>
Re: Apologies to Joyce Kilmer, a hack for your enjoymen (David H. Adler)
Re: Apologies to Joyce Kilmer, a hack for your enjoymen <jdf@pobox.com>
Re: book powerpenguin@my-deja.com
Re: Can't read entire file into string. <aqumsieh@hyperchip.com>
Re: Cleaning paths nobull@mail.com
Re: Comparing File and URL size <jdf@pobox.com>
DBD::Oracle and CGI <boschini@cilea.it>
Re: DBD::Oracle and CGI <somewhere@planet.earth>
Re: exec cgi with parameters problem. Can any of you be (Master)
Re: exec cgi with parameters problem. Can any of you be (Master)
Re: Getting comma separated number from comma separated (Anno Siegel)
getting line number n of a file <andre.bonhote@linux.ch>
Re: getting line number n of a file egwong@netcom.com
Re: getting line number n of a file egwong@netcom.com
Re: getting line number n of a file (John Joseph Trammell)
Re: getting line number n of a file (Abigail)
Re: getting line number n of a file (Abigail)
Re: getting line number n of a file bits101010@my-deja.com
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 5 Feb 2001 16:47:16 GMT
From: peter@abbnm.com (Peter da Silva)
Subject: Re: "Average of List of Numbers" by Abigail
Message-Id: <95mlek$ed4@web.nmti.com>
In article <lbk876t626.fsf@lnc.usc.edu>,
Terrence Brannon <brannon@lnc.usc.edu> wrote:
> "Average of List of Numbers" by Abigail.
Proving a good programmer can write APL in any language.
--
`-_-' In hoc signo hack, Peter da Silva.
'U` "A well-rounded geek should be able to geek about anything."
-- nicolai@esperi.org
Disclaimer: WWFD?
------------------------------
Date: Mon, 5 Feb 2001 15:38:04 +0100
From: rpolzer@web.de (Rudolf Polzer)
Subject: Re: A Meta-Hack for your enjoyment
Message-Id: <slrn97temc.2i1.rpolzer@rebounce.rpolzer-lx>
Clinton A. Pierce <clintp@geeksalad.org> schrieb Folgendes:
> [Posted and mailed]
>
> In article <slrn97t3qc.vht.mgjv@martien.heliotrope.home>,
> mgjv@tradingpost.com.au (Martien Verbruggen) writes:
> > On Sun, 04 Feb 2001 16:30:43 GMT,
> > Clinton A. Pierce <clintp@geeksalad.org> wrote:
> >
> >> require 5.6; # We accept summer whenever it arrives
> >
> > require 5.6.0;
>
> That's what I get for typing it in at the last minute to satisfy
> those who insist on running old Perls. :)
Old? 5.006 is the current version, 5.6.0 is a beta as I read here in this
NG. So I insist on using final releases.
--
$p=q;.;;$_=<<'learn.to/quote';s/./pack"C",9^unpack"C",$&/gem;eval;'RP'
-u""2of{!zye`}&&%+khza)*)'{'d')'$'{'o')'&'Ug'''khza)*)'e'f'n'f'|'}'UgU
C|z})b`mm`gn.g.hgf}al{)'Y'l'{'e)ahjbl{Ug+ r-V)lx-y//zelly)8'9uuy{`g}2t
learn.to/quote
------------------------------
Date: 5 Feb 2001 14:50:01 GMT
From: abigail@foad.org (Abigail)
Subject: Re: A Meta-Hack for your enjoyment
Message-Id: <slrn97tfcp.7qj.abigail@tsathoggua.rlyeh.net>
Rudolf Polzer (rpolzer@web.de) wrote on MMDCCXV September MCMXCIII in
<URL:news:slrn97temc.2i1.rpolzer@rebounce.rpolzer-lx>:
:: Clinton A. Pierce <clintp@geeksalad.org> schrieb Folgendes:
:: > [Posted and mailed]
:: >
:: > In article <slrn97t3qc.vht.mgjv@martien.heliotrope.home>,
:: > mgjv@tradingpost.com.au (Martien Verbruggen) writes:
:: > > On Sun, 04 Feb 2001 16:30:43 GMT,
:: > > Clinton A. Pierce <clintp@geeksalad.org> wrote:
:: > >
:: > >> require 5.6; # We accept summer whenever it arrives
:: > >
:: > > require 5.6.0;
:: >
:: > That's what I get for typing it in at the last minute to satisfy
:: > those who insist on running old Perls. :)
::
:: Old? 5.006 is the current version, 5.6.0 is a beta as I read here in this
:: NG. So I insist on using final releases.
There is no perl 5.006, there will never be a perl 5.006 and there was
never a perl 5.006.
The current "stable" release of perl is 5.6.0. This unfortunally isn't
the best version of perl ever. You might want to consider using 5.005_03.
Perl 5.6.1 is in beta - the second trial was made available last week.
The current development version is 5.7.0. Bleedperl, updated almost
daily, is also availble. It doesn't have a real version number -
it's 5.7.0 + PATCH_NUMBER.
Abigail
--
perl -e '* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / /
% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % %;
BEGIN {% % = ($ _ = " " => print "Just Another Perl Hacker\n")}'
------------------------------
Date: Mon, 05 Feb 2001 16:17:23 GMT
From: Bart Lateur <bart.lateur@skynet.be>
Subject: Re: A Meta-Hack for your enjoyment
Message-Id: <vfkt7tcnogdhn1cludm9drga4ki6i769ci@4ax.com>
Abigail wrote:
>There is no perl 5.006, there will never be a perl 5.006 and there was
>never a perl 5.006.
>
>The current "stable" release of perl is 5.6.0.
5.006 IS 5.6.0. Both are just different ways of writing the same thing.
In fact, if I do
print $];
in 5.6.0, it prints:
5.006
I rest my case.
--
Bart.
------------------------------
Date: Mon, 5 Feb 2001 16:18:26 +0100
From: rpolzer@web.de (Rudolf Polzer)
Subject: Re: A Meta-Hack for your enjoyment
Message-Id: <slrn97th22.3c8.rpolzer@rebounce.rpolzer-lx>
Abigail <abigail@foad.org> schrieb Folgendes:
> Rudolf Polzer (rpolzer@web.de) wrote on MMDCCXV September MCMXCIII in
> <URL:news:slrn97temc.2i1.rpolzer@rebounce.rpolzer-lx>:
> :: Clinton A. Pierce <clintp@geeksalad.org> schrieb Folgendes:
> :: > [Posted and mailed]
> :: >
> :: > In article <slrn97t3qc.vht.mgjv@martien.heliotrope.home>,
> :: > mgjv@tradingpost.com.au (Martien Verbruggen) writes:
> :: > > On Sun, 04 Feb 2001 16:30:43 GMT,
> :: > > Clinton A. Pierce <clintp@geeksalad.org> wrote:
> :: > >
> :: > >> require 5.6; # We accept summer whenever it arrives
> :: > >
> :: > > require 5.6.0;
> :: >
> :: > That's what I get for typing it in at the last minute to satisfy
> :: > those who insist on running old Perls. :)
> ::
> :: Old? 5.006 is the current version, 5.6.0 is a beta as I read here in this
> :: NG. So I insist on using final releases.
>
>
> There is no perl 5.006, there will never be a perl 5.006 and there was
> never a perl 5.006.
>
> The current "stable" release of perl is 5.6.0. This unfortunally isn't
> the best version of perl ever. You might want to consider using 5.005_03.
>
> Perl 5.6.1 is in beta - the second trial was made available last week.
> The current development version is 5.7.0. Bleedperl, updated almost
> daily, is also availble. It doesn't have a real version number -
> it's 5.7.0 + PATCH_NUMBER.
Sorry, I was confused by him saying "use 5.006". Of course, perl -v only
prints 5.005_03.
--
$p=q;.;;$_=<<'learn.to/quote';s/./pack"C",9^unpack"C",$&/gem;eval;'RP'
-u""2of{!zye`}&&%+khza)*)'{'d')'$'{'o')'&'Ug'''khza)*)'e'f'n'f'|'}'UgU
C|z})b`mm`gn.g.hgf}al{)'Y'l'{'e)ahjbl{Ug+ r-V)lx-y//zelly)8'9uuy{`g}2t
learn.to/quote
------------------------------
Date: 5 Feb 2001 10:06:21 -0800
From: Jean-Luc Fontaine <jfontain@free.fr>
Subject: ANNOUNCE: moodss-13.1
Message-Id: <pgpmoose.200102051005.24926@non.non.net>
Hi everybody: here is a new version of moodss.
Check it out! (or at least the screenshots at
http://jfontain.free.fr/moodss3.gif or
http://jfontain.free.fr/moodss4.gif :).
Notes:
- moodss modules can now be written in Perl! Sample Random and
Minimal modules are provided. Documentation (see Random.pm file)
needs improving. Feedback is highly welcomed.
- please let me know if you are interested in writing modules in
Python or Ruby
### CHANGES ###
--- version 13.1 ---
implemented dynamic loading of Perl modules
improved performance and reliability of dynamic loading by filtering
out well known non-moodss packages when scanning for valid moodss
modules
uses and requires tclperl 2.0 to allow multiple concurrent Perl
modules
moodss rpm failed to load modules when used with tcl 8.4 rpm from my
homepage
in netdev module, simplified internal time calculations
in cpustats module display per CPU statistics only if there is more
than 1 CPU
made graph viewers labels colored rectangles thinner
### README ###
This is moodss (Modular Object Oriented Dynamic SpreadSheet) version
13.1.
Moodss won in the Best System Admin Technology category (Tcl Tips and
Tricks, Valuable Real World Programming Examples) at the O'Reilly
Tcl/Tk 1999 Conference.
Linux Magazine calls it a "lifesaver".
Tucows gives it 5 stars (cows or penguins :-).
Moodss is a modular application. It displays data described and
updated in one or more modules, which can be specified in the command
line or dynamically loaded or unloaded while the application is
running. Data is originally displayed in tables. Graphical views
(graph, bar, 3D pie charts, ...), summary tables (with current,
average, minimum and maximum values) and free text viewers can be
created from any number of table cells, originating from any of the
displayed viewers. Thresholds can be set on any number of cells.
Specific modules can easily be developed in the Tcl and Perl scripting
languages or in C.
A thorough and intuitive drag'n'drop scheme is used for most viewer
editing tasks: creation, modification, type mutation, destruction,
.... and thresholds creation. Table rows can be sorted in increasing or
decreasing order by clicking on column titles. The current
configuration (modules, tables and viewers geometry, ...) can be saved
in a file at any time, and later reused through a command line switch,
thus achieving a dashboard functionality.
The module code is the link between the moodss core and the data to be
displayed. All the specific code is kept in the module package. Since
module data access is entirely customizable (through C code, Tcl,
Perl, HTTP, ...) and since several modules can be loaded at once,
applications for moodss become limitless.
For example, thoroughly monitor a dynamic web server on a single
dashboard with graphs, using the Apache, MySQL, cpustats, memstats,
.... modules. If you have replicated servers, dynamically add them to
your view, even load the snmp module on the fly and let your
imagination take over...
Along with a core trace module, random, ps, cpustats, memstats,
diskstats, mounts, route, arp, kernmods, netdev, pci, system, MySQL
(myquery, mystatus, myprocs, myvars) modules for Linux, ping, snmp and
snmptrap for UNIX, apache and apachex modules are included (running
"wish moodss ps cpustats memstats" mimics the "top" application with a
graphic edge and remote monitoring capability).
Thorough help is provided through menus, widget tips, a message area,
a module help window and a global help window with a complete HTML
documentation.
Moodss is multi-langual thanks to Tcl internationalization
capabilities. So far only English and partially French are
supported. Help with other languages will be very warmly welcomed.
Development of moodss is continuing and as more features are added in
future versions, backward module code compatibility will be maintained.
I cannot thank the authors of the tkTable, BLT, MIME/SMTP and the HTML
libraries enough for their great work.
In order to run moodss, you need to install the following packages
(unless you can use the rpm utility, see below):
Tcl/Tk 8.3.1 or above, at (or at a mirror near you)
http://dev.scriptics.com/ or ftp://ftp.scriptics.com/
the latest tkTable widget library at:
http://www.hobbs.wservice.com/tcl/main.html
the latest BLT library at:
ftp://tcltk.sourceforge.net/pub/tcltk/blt/
eventually the latest tclperl library for writing modules in Perl at:
http://jfontain.free.fr/
(see the INSTALL file for complete instructions, for UNIX and also
Windows platforms).
You also have the option of using the moodss rpm file (also in my
homepage), if you are using a Redhat Linux system (6.0 or above).
You can find the required tcl, tk, tktable, blt, tcpperl and other
rpms at: http://jfontain.free.fr/
Whether you like it (or hate it), please let me know. I would like to
hear about bugs and improvements you would like to see. I will correct
the bugs quickly, especially if you send me a test script (module code
with a data trace would be best).
###
you may find it now at my homepage:
http://jfontain.free.fr/moodss-13.1.tar.gz
http://jfontain.free.fr/moodss-13.1-1.i386.rpm
http://jfontain.free.fr/moodss-13.1-1.spec
and a bit later at:
ftp://contrib.redhat.com/ in libc6 sub-directory.
Enjoy and please let me know what you think.
--
Jean-Luc Fontaine mailto:jfontain@free.fr http://jfontain.free.fr/
[[Send Tcl/Tk announcements to tcl-announce@mitchell.org
Send administrivia to tcl-announce-request@mitchell.org
Announcements archived at http://www.egroups.com/list/tcl_announce/
The primary Tcl/Tk archive is ftp://ftp.neosoft.com/pub/tcl/ ]]
------------------------------
Date: Mon, 5 Feb 2001 14:07:40 +0100
From: rpolzer@web.de (Rudolf Polzer)
Subject: Re: Apologies to Joyce Kilmer, a hack for your enjoyment
Message-Id: <slrn97t9cs.15k.rpolzer@rebounce.rpolzer-lx>
Abigail <abigail@foad.org> schrieb Folgendes:
> Rudolf Polzer (rpolzer@web.de) wrote on MMDCCXIV September MCMXCIII in
> <URL:news:slrn97qilt.44h.rpolzer@rebounce.rpolzer-lx>:
> `' Abigail <abigail@foad.org> schrieb Folgendes:
> `' > Rudolf Polzer (rpolzer@web.de) wrote on MMDCCXIV September MCMXCIII in
> `' > <URL:news:slrn97qbos.1i4.rpolzer@rebounce.rpolzer-lx>:
> `' > $$ Abigail <abigail@foad.org> schrieb Folgendes:
> `' > $$ > /^1?$|^(11+?)\1+$/
> `' > $$
> `' > $$ I like this prime test...
> `' > $$ but why does it not get faster when compiled once? I know that the secon
> `' > $$ ? just improves the speed by beginning with small divisors instead of bi
> `' > $$ ones.
> `' >
> `' >
> `' > What makes you think it gets compiled more than once to begin with?
> `'
> `' When I call it more often.
>
>
> What makes you think a regex called "more often" needs to be compiled
> more than once?
perldoc perlop mislead me to this. Of course a pattern does not have to be
recompiled if it does not contain interpolated variables.
--
$p=q;.;;$_=<<'learn.to/quote';s/./pack"C",9^unpack"C",$&/gem;eval;'RP'
-u""2of{!zye`}&&%+khza)*)'{'d')'$'{'o')'&'Ug'''khza)*)'e'f'n'f'|'}'UgU
C|z})b`mm`gn.g.hgf}al{)'Y'l'{'e)ahjbl{Ug+ r-V)lx-y//zelly)8'9uuy{`g}2t
learn.to/quote
------------------------------
Date: Mon, 05 Feb 2001 16:32:03 GMT
From: Brendon Caligari <bcaligari@my-deja.com>
Subject: Re: Apologies to Joyce Kilmer, a hack for your enjoyment
Message-Id: <95mki3$128$1@nnrp1.deja.com>
In article <fHGe6.273433$hD4.66305660@news1.rdc1.mi.home.com>,
clintp@geeksalad.org (Clinton A. Pierce) wrote:
cool....but who is joyce kilmer???
Sent via Deja.com
http://www.deja.com/
------------------------------
Date: 5 Feb 2001 18:56:46 GMT
From: dha@panix2.panix.com (David H. Adler)
Subject: Re: Apologies to Joyce Kilmer, a hack for your enjoyment
Message-Id: <slrn97ttr9.ch1.dha@panix2.panix.com>
On Mon, 05 Feb 2001 16:32:03 GMT, Brendon Caligari
<bcaligari@my-deja.com> wrote:
>cool....but who is joyce kilmer???
Poet who wrote the notorious poem "Trees" (IIRC).
Also there's a rest stop on the New Jersey Turnpike named after him
(IIRC, this Joyce is a him...)
dha
--
David H. Adler - <dha@panix.com> - http://www.panix.com/~dha/
Indeed. I don't know what I was thinking, far less what I was
testing. Anno Siegel
------------------------------
Date: 05 Feb 2001 14:00:18 -0500
From: Jonathan Feinberg <jdf@pobox.com>
Subject: Re: Apologies to Joyce Kilmer, a hack for your enjoyment
Message-Id: <y9vlhs59.fsf@pobox.com>
Brendon Caligari <bcaligari@my-deja.com> writes:
> In article <fHGe6.273433$hD4.66305660@news1.rdc1.mi.home.com>,
> clintp@geeksalad.org (Clinton A. Pierce) wrote:
>
> cool....but who is joyce kilmer???
http://www.everypoet.com/archive/poetry/Joyce_Kilmer/Joyce_Kilmer_trees_trees.htm
--
Jonathan Feinberg jdf@pobox.com Sunny Brooklyn, NY
http://pobox.com/~jdf
------------------------------
Date: Mon, 05 Feb 2001 14:46:45 GMT
From: powerpenguin@my-deja.com
Subject: Re: book
Message-Id: <95meci$qm4$1@nnrp1.deja.com>
In article <%2gf6.2710$B_6.191396@news.total.net>,
"myriam chagal" <mchagal@total.net> wrote:
> please recommend a good perl book
What are you looking for in a book? When starting out I liked Learning
Perl followed by Programming Perl. Now, for general info, I mostly use
the Perl in a Nutshell book and the documentation that comes with Perl
(perldoc).
I also like Programming the Perl DBI for database stuff. I have heard
good things about Object Oriented Perl and will probably check that book
out soon.
I'd recommend that you take a look at the most suggested books at a
local bookstore and picking up the one that you like the best. Each
book has their own style and topics the author concentrates on. While I
may find a book helpful another person may just hate it (and vice
versa).
<plug for a friend's site>
You can find out some info on the O'Reilly books at
http://www.nri.ca/Bookstore/Programming/Perl/ . If you are interested
in the Programming Perl book note that there's a newer version out.
They aren't updating that site anymore since they are working on a brand
new bookstore (and a bunch of other stuff).
</plug>
Sent via Deja.com
http://www.deja.com/
------------------------------
Date: Mon, 05 Feb 2001 16:14:28 GMT
From: Ala Qumsieh <aqumsieh@hyperchip.com>
Subject: Re: Can't read entire file into string.
Message-Id: <7aae81umxn.fsf@merlin.hyperchip.com>
garry@zvolve.com (Garry Williams) writes:
> On Fri, 02 Feb 2001 17:58:31 GMT, LK <lkenny@fisheries.org> wrote:
> >On Fri, 02 Feb 2001 17:47:02 GMT, Ala Qumsieh <aqumsieh@hyperchip.com>
> >wrote:
>
> [snip]
>
> >>Checkout perlfaq3: How can I read in an entire file all at once?
> >>
> >>and checkout perlvar ... look for $/ ..
> >
> >I went several different pl;aces looking for this faq, but I couldn't
> >find it. perhaps I am looking in the wrong places. Would you be able
> >to point me in the right direction?
>
> It's on _your_ machine. Use man and/or perldoc to display the Perl
> manual pages. "Checkout perlfaq3" means execute the command `perldoc
> perlfaq3' or `man perldoc3'.
>
> The fine manual comes with every perl distribution.
True, but in case something went wrong, and the docs aren't properly
installed, then they could be found on www.perl.com.
--Ala
------------------------------
Date: 05 Feb 2001 18:04:00 +0000
From: nobull@mail.com
Subject: Re: Cleaning paths
Message-Id: <u9snltdn1r.fsf@wcl-l.bham.ac.uk>
Ross Burton <ross.burton@mail.com> writes:
> I am trying to clean up a path my code is given in the form of
> "/home/users/ross/work/from-cvs/system/../../docs".
> File::Spec->canonpath does not handle that case (annoyingly), so how
> would I do this in Perl? (5.003)
Would I be right to assume you'd like to see
"/home/users/ross/work/docs"?
This is only right answer if "from-cvs" and "system" are directories,
and not symbolic links to directories.
If, for example, /home/users/ross/work/from-cvs is a symlink to
/usr/local/csv-stuff and there is a directory
/usr/local/csv-stuff/system then the above path would be eqivalent to
/usr/docs.
The File::Spec module is a module for working with file paths purely
hypothetically. It makes no assumption that the paths it is working
with refer to the filesystem of the local machine. As such there is
no possible way for File::Spec to know if something is a symlink.
You should be looking at the abs_path() function from the Cwd module.
--
\\ ( )
. _\\__[oo
.__/ \\ /\@
. l___\\
# ll l\\
###LL LL\\
------------------------------
Date: 05 Feb 2001 13:58:34 -0500
From: Jonathan Feinberg <jdf@pobox.com>
Subject: Re: Comparing File and URL size
Message-Id: <3ddtj6sl.fsf@pobox.com>
"What A Man !" <whataman@home.com> writes:
> I am using LWP::Simple to "getstore($URL, $tmpfile);" I want to
> compare the size of the URL file to the size of the tmpfile, to make
> sure that the download was successful.
Even if the transfer is successful, the sizes might be different, if
the server and your box are of platforms that represent the
end-of-line differently.
If you wish to check the size of a remote file using the LWP, please
see the section "HEAD" in the lwpcook manpage.
--
Jonathan Feinberg jdf@pobox.com Sunny Brooklyn, NY
http://pobox.com/~jdf
------------------------------
Date: Mon, 05 Feb 2001 15:29:15 +0100
From: Matteo Boschini <boschini@cilea.it>
Subject: DBD::Oracle and CGI
Message-Id: <3A7EB8BA.43F32368@cilea.it>
Hello all,
may be this is a stupid question, but I did not find anything about it
in the FAQs or DOCs.
I have a simple perl cgiscript, which use(s) CGI.pm, DBI and
DBD::Oracle.
I need to do a DESCRIBE TABLE from the script.
Describe is not implemnetd in DBI and neither in Pl/Sql, at least to the
best of my understanding.
So I do a @descr = `sqlplus user/passwd \@script.sql`
where script.sql is just
DESCRIBE TABLE
EXIT;
When run on command line, the cgi works fine, but when run from browser
I get a scalar(@descr) = 0.
It seems that there is a time-out or delay or asynchronicity issue.
Any clue ?
Already thanking you,
Matteo Boschini
(boschini@cilea.it)
------------------------------
Date: Mon, 5 Feb 2001 17:11:14 +0100
From: "Dimitri Gunsing" <somewhere@planet.earth>
Subject: Re: DBD::Oracle and CGI
Message-Id: <95mja9$f1q$1@list.pbnec.nl>
> When run on command line, the cgi works fine, but when run from browser
> I get a scalar(@descr) = 0.
> It seems that there is a time-out or delay or asynchronicity issue.
> Any clue ?
Does your oracle server check on any other user validation then
user/password? Maybe the user under which the script is run? Could be that
if you are running the script under anonymous access the IUSR_ account has
no rights to run SQLPLUS?
Dimitri
------------------------------
Date: Mon, 05 Feb 2001 18:08:08 GMT
From: webmaster@homecinemachoice.zerospam.com (Master)
Subject: Re: exec cgi with parameters problem. Can any of you beautiful people help?
Message-Id: <3a7eebf6.5260984@news.btclick.com>
On Thu, 25 Jan 2001 02:10:48 +0000 (UTC), efflandt@xnet.com (David
Efflandt) wrote:
>On Wed, 24 Jan 2001, Master <webmaster@homecinemachoice.zerospam.com> wrote:
>>I have several websites on a dedicated server and they share the
>>Ultimate Bulletin Board in one of the domains.
>>What I want to do is insert one of the forum pages into a page of one
>>of the other domains.
>>Obviously I can't #include virtual since the page being included is on
>>the same server but in a different domain.
>>The only apparent solution is to run a cgi script to display the
>>document :
>>
>>In the source page :
>><!--#exec cgi="/cgi-bin/review_comments.pl?page=000067.html" -->
>
>This is not a Perl question or even a CGI question. You apparently
>neglected to read the apache docs about 'mod_include'. 'exec cgi'
>inherits the query string of the SSI page. But the following should work,
>assuming that .pl is recogized as CGI on your server, and that
>review_comment.pl on the first vhost has the correct full system path to
>the local doc on the other vhost you want it to send:
>
><!--#include virtual="/cgi-bin/review_comments.pl?page=000067.html" -->
>
>Also you might want to look into using the CGI module, which can make life
>easier.
>
>--
>David Efflandt efflandt@xnet.com http://www.de-srv.com/
>http://www.autox.chicago.il.us/ http://www.berniesfloral.net/
>http://cgi-help.virtualave.net/ http://hammer.prohosting.com/~cgi-wiz/
Thanks (I have never read any apache docs :)
------------------------------
Date: Mon, 05 Feb 2001 18:08:27 GMT
From: webmaster@homecinemachoice.zerospam.com (Master)
Subject: Re: exec cgi with parameters problem. Can any of you beautiful people help?
Message-Id: <3a7fec13.5289181@news.btclick.com>
On Thu, 25 Jan 2001 03:18:50 -0500, brian d foy <comdog@panix.com>
wrote:
>In article <3a6f4f41.47589361@news.btclick.com>,
>webmaster@homecinemachoice.zerospam.com wrote:
>
>> What I want to do is insert one of the forum pages into a page of one
>> of the other domains.
>
>> Obviously I can't #include virtual since the page being included is on
>> the same server but in a different domain.
>
>you could play tricks with DocumentRoot or FollowSymLinks.
>
>> The only apparent solution is to run a cgi script to display the
>> document :
>
>> In the source page :
>> <!--#exec cgi="/cgi-bin/review_comments.pl?page=000067.html" -->
>
>most servers don't allow that syntax. if you are using apache
>this is answered in the docs for mod_include.
>
>
>this probably belongs in a servers group though.
>
>--
>brian d foy <comdog@panix.com>
>no longer for hire ;)
Thanks
------------------------------
Date: 5 Feb 2001 16:04:14 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: Getting comma separated number from comma separated file
Message-Id: <95mitu$k42$2@mamenchi.zrz.TU-Berlin.DE>
<time4tea@my-deja.com> wrote in comp.lang.perl.misc:
[question (which is getting ample discussion) snipped]
>If this is not in the FAQ, then i vote it gets added!
A FAQ contains Frequently Asked Questions. Even if you find your
question interesting, voting doesn't make it frequently asked.
Anno
------------------------------
Date: Mon, 05 Feb 2001 17:22:11 GMT
From: Andre Bonhote <andre.bonhote@linux.ch>
Subject: getting line number n of a file
Message-Id: <3A7EE122.2194B56E@linux.ch>
hi ye perl gods!
do you know a way to get eg. line number four of a file without too much
code? it should do something like
head -4 | tail -1
where 4 is the desired line number.
so, you obfuscated perl fetishists, show us what you can! *gg*
thank you
andr=E9
------------------------------
Date: Mon, 05 Feb 2001 17:44:28 GMT
From: egwong@netcom.com
Subject: Re: getting line number n of a file
Message-Id: <0EBf6.4907$tv5.364370@news.flash.net>
Andre Bonhote <andre.bonhote@linux.ch> wrote:
> do you know a way to get eg. line number four of a file without too much
> code? it should do something like
% perl -ne 'print && last if $.=4'
------------------------------
Date: Mon, 05 Feb 2001 17:53:42 GMT
From: egwong@netcom.com
Subject: Re: getting line number n of a file
Message-Id: <GMBf6.4911$tv5.364370@news.flash.net>
egwong@netcom.com wrote:
> Andre Bonhote <andre.bonhote@linux.ch> wrote:
>> do you know a way to get eg. line number four of a file without too much
>> code? it should do something like
> % perl -ne 'print && last if $.=4'
^^^^
Jesus.
% perl -ne 'print && last if $.==4'
------------------------------
Date: Mon, 05 Feb 2001 18:05:11 GMT
From: trammell@bayazid.hypersloth.net (John Joseph Trammell)
Subject: Re: getting line number n of a file
Message-Id: <slrn97toqd.voi.trammell@bayazid.hypersloth.net>
On Mon, 05 Feb 2001 17:44:28 GMT, egwong@netcom.com <egwong@netcom.com> wrote:
> Andre Bonhote <andre.bonhote@linux.ch> wrote:
> > do you know a way to get eg. line number four of a file without too much
> > code? it should do something like
>
> % perl -ne 'print && last if $.=4'
s/=/==/
------------------------------
Date: 5 Feb 2001 18:06:37 GMT
From: abigail@foad.org (Abigail)
Subject: Re: getting line number n of a file
Message-Id: <slrn97tqtd.kt1.abigail@tsathoggua.rlyeh.net>
Andre Bonhote (andre.bonhote@linux.ch) wrote on MMDCCXV September
MCMXCIII in <URL:news:3A7EE122.2194B56E@linux.ch>:
{} hi ye perl gods!
{}
{} do you know a way to get eg. line number four of a file without too much
{} code? it should do something like
{}
{} head -4 | tail -1
{}
{} where 4 is the desired line number.
{}
{} so, you obfuscated perl fetishists, show us what you can! *gg*
From the "it's a regex problem" department:
perl -pwe '($;="-1goto LINE01exit")=~s/.*${\($.<=>4)}(\D*).*/$1/;eval$;' file
From the functional department:
perl -pwe '(sub{goto LINE},sub{},sub{exit})[1+($.<=>4)]->()' file
From the "let's outsource it!" department:
perl -we 'print `head -4 $ARGV[0] | tail -1`' file
From the "life is boring" department:
perl -nwe 'print and last if $. == 4' file
From the PGA:
perl -nwe '$.==4&&die$_' file
Abigail
--
perl -we 'eval {die ["Just another Perl Hacker\n"]}; print ${$@}[$#{@${@}}]'
------------------------------
Date: 5 Feb 2001 18:11:21 GMT
From: abigail@foad.org (Abigail)
Subject: Re: getting line number n of a file
Message-Id: <slrn97tr69.kt1.abigail@tsathoggua.rlyeh.net>
Abigail (abigail@foad.org) wrote on MMDCCXV September MCMXCIII in
<URL:news:slrn97tqtd.kt1.abigail@tsathoggua.rlyeh.net>:
""
"" From the functional department:
""
"" perl -pwe '(sub{goto LINE},sub{},sub{exit})[1+($.<=>4)]->()' file
""
perl -pwe '(sub{},sub{exit},sub{goto LINE})[$.<=>4]->()' file
Abigail
--
map{${+chr}=chr}map{$_=>$_^ord$"}$=+$]..3*$=/2;
print "$J$u$s$t $a$n$o$t$h$e$r $P$e$r$l $H$a$c$k$e$r\n";
------------------------------
Date: Mon, 05 Feb 2001 18:07:53 GMT
From: bits101010@my-deja.com
Subject: Re: getting line number n of a file
Message-Id: <95mq5g$6po$1@nnrp1.deja.com>
open(F,"<$ARGV[0]");
@lines=<F>;
close F;
print "$lines[$ARGV[1]]\n";
In article <3A7EE122.2194B56E@linux.ch>,
Andre Bonhote <andre.bonhote@linux.ch> wrote:
> hi ye perl gods!
>
> do you know a way to get eg. line number four of a file without too
much
> code? it should do something like
>
> head -4 | tail -1
>
> where 4 is the desired line number.
>
> so, you obfuscated perl fetishists, show us what you can! *gg*
>
> thank you
>
> andr=E9
>
Sent via Deja.com
http://www.deja.com/
------------------------------
Date: 16 Sep 99 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 16 Sep 99)
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.
| NOTE: The mail to news gateway, and thus the ability to submit articles
| through this service to the newsgroup, has been removed. I do not have
| time to individually vet each article to make sure that someone isn't
| abusing the service, and I no longer have any desire to waste my time
| dealing with the campus admins when some fool complains to them about an
| article that has come through the gateway instead of complaining
| to the source.
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.
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 V10 Issue 214
**************************************
