[13192] in Perl-Users-Digest
Perl-Users Digest, Issue: 602 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Aug 20 13:07:12 1999
Date: Fri, 20 Aug 1999 10:05:14 -0700 (PDT)
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, 20 Aug 1999 Volume: 9 Number: 602
Today's topics:
Re: BEGIN's in subs (M.J.T. Guy)
Developer wanted: perl, Apache::ASP, minivend project <hassler@my-deja.com>
Re: Directory Size <kistler@fnmail.com>
Re: Find a substring of mixed type but NOT WhiteSpace? poocus@my-deja.com
Re: Find a substring of mixed type but NOT WhiteSpace? poocus@my-deja.com
GWD as Perl editor <jyoyoliu@hotmail.com>
Re: HARASSMENT -- Monthly Autoemail; Spammer Defiant (Michael Rubenstein)
Re: Matching E-mail <flavell@mail.cern.ch>
Re: Matching E-mail <jyoyoliu@hotmail.com>
Re: Newbie : tr/// question (Anno Siegel)
Re: perl + mysql.. <contact@nativetongues.com>
Re: perl + mysql.. <kistler@fnmail.com>
Re: perl + mysql.. (Anno Siegel)
processing html on the fly part 2 <smile777@hotmail.com>
Processing html on the fly <freemasonry@mindspring.com>
Re: Processing html on the fly <ag3@sanger.ac.uk>
Re: Redhat-6.0 & perl & tail <kistler@fnmail.com>
Re: Referring to "my" variables (Sean McAfee)
Re: regular expressions in Perl and Oracle/SQL <prochak@my-deja.com>
replacing @, /, . etc, in POST method <pmt@top.mitre.org>
Re: Request for Comments: www.perl.com <flavell@mail.cern.ch>
Re: Request for Comments: www.perl.com <flavell@mail.cern.ch>
Re: setuid <kistler@fnmail.com>
Re: Skipping . and .. with readdir (Chris Thompson)
Re: Split comp.lang.perl.misc <jyoyoliu@hotmail.com>
Re: What vendors include Perl with their boxes? <nospam.newton@gmx.net>
Re: Why would this autovivify - answers? opinions? <aqumsieh@matrox.com>
Re: Win32 Perl (newbie) <jyoyoliu@hotmail.com>
Digest Administrivia (Last modified: 1 Jul 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 20 Aug 1999 17:00:00 GMT
From: mjtg@cus.cam.ac.uk (M.J.T. Guy)
Subject: Re: BEGIN's in subs
Message-Id: <7pk1ig$qe9$1@pegasus.csx.cam.ac.uk>
In article <7oq435$n5j$1@fcnews.fc.hp.com>, Andrew Allen <ada@fc.hp.com> wrote:
>Although perlref briefly mentions that "In the general case, then,
>named subroutines do not nest properly, although anonymous ones do", I
>was wondering why the following code behaves as it does:
>
> sub a
> {
> my $c;
> BEGIN {$c=7;}
> print "c=$c\n";
> }
>
> a();
> a();
>
>prints out
>
> c=7
> c=
>
>I'd expect either $c to always to be 7, or always to be undef.
Hmm.. looks like there's a bug. It ought to say
Variable "$c" will not stay shared at ...
and then the perldiag entry would explain why.
But it looks like the check doesn't get done for BEGIN {} or END {}
subroutines.
Mike Guy
------------------------------
Date: Fri, 20 Aug 1999 15:42:25 GMT
From: B Hassler <hassler@my-deja.com>
Subject: Developer wanted: perl, Apache::ASP, minivend project
Message-Id: <7pjt0u$u4d$1@nnrp1.deja.com>
Seeking potential sources for development of a new area
of an existing eCommerce web site. The existing site uses
the minivend shopping cart interface and runs on a Linux
platform. The intended development will use Apache::ASP
(preferred) or CGI modules under an Apache 1.3 web server.
Experience with Perl, Apache::ASP, CGI and knowledge of
minivend will be required for this effort.
A non disclosure agreement is required prior to obtaining
the detailed Request for Proposal (signature of the
non-disclosure only indicates you will not disclose the
details of the RFP). Proposal will be accepted through 3
September 1999, and we are anticipating completion of the
project (pending client approval of the recommended proposal)
by 30 September 1999.
For more information, or a copy of the non disclosure, please
contact Barry Hassler via E-Mail at barry.hassler@hcst.com.
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: Fri, 20 Aug 1999 16:52:50 +0200
From: Per Kistler <kistler@fnmail.com>
Subject: Re: Directory Size
Message-Id: <37BD6BC2.B8D8A076@fnmail.com>
Hi Gary
If it's on unix one may just use the unix command "du -ks <dir>"
and process the output with perl.
One could do it more perlish with File::Recurse and fstat
to get the size of each file...
-Per.
Gary Segler wrote:
> Could anyone point me to a faq or Module that can tell me how to get
> the size of a directory? I would like to scan a volume of home
> directories that holds mail stores. My goal is to find out the size
> of the mail store directory for every user.
--
Per Kistler kistler@fnmail.com / kistler@gmx.net
------------------------------------------------------------
------------------------------
Date: Fri, 20 Aug 1999 16:01:22 GMT
From: poocus@my-deja.com
Subject: Re: Find a substring of mixed type but NOT WhiteSpace?
Message-Id: <7pju49$v2p$1@nnrp1.deja.com>
In article <37BD4FF3.E3EBB373@home.com>,
Paul Dobbs <pdobbs@home.com> wrote:
> Hello again Masters..
>
> I found some info from a post by "Bart" to be an excellent
> exmaple
> of how I can use the S/R function to tweak text layout. But
> I still have
> a problem.. lend me thy wisdom..
>
> To grab a substring of just alphanumeric items which are 80
> characters or longer
> and NO whitespace, I can find that with $text =~
> m%(\w{80,})%;
>
> But how do I pick out a substring of mixed character types
> (letter, number and
> symbol but not whitespace) that are >=80 characters long?
>
> The encompassing text string is of variable length.
> The placement of the troublesome periods, slashes and such
> are variable.
>
> EG: The substring could be
>
>
AB34567890AB34567890//34567890..34567890$$34567890AB34567890AB34567890AB
34567890
>
> and be burried within a paragraph of normal english words.
>
> Paul
>
I'm new to perl myself so don't take this as gospel, but have you tried
this:
$text =~
> m%(\w{0,80})%;
this will look for lines with 0 to 80 characters in length.
Hope this helps...
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: Fri, 20 Aug 1999 16:01:25 GMT
From: poocus@my-deja.com
Subject: Re: Find a substring of mixed type but NOT WhiteSpace?
Message-Id: <7pju4d$v2r$1@nnrp1.deja.com>
In article <37BD4FF3.E3EBB373@home.com>,
Paul Dobbs <pdobbs@home.com> wrote:
> Hello again Masters..
>
> I found some info from a post by "Bart" to be an excellent
> exmaple
> of how I can use the S/R function to tweak text layout. But
> I still have
> a problem.. lend me thy wisdom..
>
> To grab a substring of just alphanumeric items which are 80
> characters or longer
> and NO whitespace, I can find that with $text =~
> m%(\w{80,})%;
>
> But how do I pick out a substring of mixed character types
> (letter, number and
> symbol but not whitespace) that are >=80 characters long?
>
> The encompassing text string is of variable length.
> The placement of the troublesome periods, slashes and such
> are variable.
>
> EG: The substring could be
>
>
AB34567890AB34567890//34567890..34567890$$34567890AB34567890AB34567890AB
34567890
>
> and be burried within a paragraph of normal english words.
>
> Paul
>
I'm new to perl myself so don't take this as gospel, but have you tried
this:
$text =~
> m%(\w{0,80})%;
this will look for lines with 0 to 80 characters in length.
Hope this helps...
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: Fri, 20 Aug 1999 11:06:42 -0500
From: "James Liu" <jyoyoliu@hotmail.com>
Subject: GWD as Perl editor
Message-Id: <A%ev3.68$1k2.5677@news.corecomm.net>
Love GWD, but how do I do that?
Bart Lateur <bart.lateur@skynet.be> wrote in message
news:37bd4a29.8080401@news.skynet.be...
> Webmaster wrote:
>
> >Does anyone of you know an good and nice editor for writting perl code?
> >
> >I´m getting tired of notepad
>
> Yes. Go to the links list at
> <http://www.perl.com/reference/query.cgi?section=editors>; in particular
> the link to "Perl for Win32 Editors".
>
> One that is (still) missing from that list is the GWD text editor,
> downloadable from <www.gwdsoft.com>. Not free, but not expensive either,
> it has a (crude) syntax highlighter for Perl, and if you install Perl as
> a "tool", you can launch the script from within Perl, and capture the
> output into a window. Nice.
>
> Bart.
------------------------------
Date: Fri, 20 Aug 1999 16:15:55 GMT
From: miker3@ix.netcom.com (Michael Rubenstein)
Subject: Re: HARASSMENT -- Monthly Autoemail; Spammer Defiant
Message-Id: <37be7e60.10039746@nntp.ix.netcom.com>
On Thu, 19 Aug 1999 14:53:28 -0400, Uriel Wittenberg
<urielw@tiac.net> wrote:
>Tom Christiansen wrote:
>
>> If someone asks me to stop mentioning to them every month or three that
>> their postings have been mangled and maybe they should check into it, then
>> I put an entry in the database so they don't get sent that reminder again.
>
>On noticing this post this morning, I emailed you a fairly unmistakable
>request. You complained it wasn't polite enough and indicated your spamming
>would persist.
It's refreshing to see that in a world of rudeness Tom, at least,
is concerned with politeness.
Unfortunately, I can't seem to find my copy of Miss Manners and
am unable to advise you of the proper etiquette for asking that
someone remove you from his spam list.
------------------------------
Date: Fri, 20 Aug 1999 16:47:11 +0200
From: "Alan J. Flavell" <flavell@mail.cern.ch>
Subject: Re: Matching E-mail
Message-Id: <Pine.HPP.3.95a.990820164549.20918I-100000@hpplus03.cern.ch>
On Fri, 20 Aug 1999, Tom Briles wrote:
> Then, they could provide the answers, and include the questions and the
> answers with the Perl distribution.
>
> Unfortunately, such amazingly useful information would most assuredly be
> very expensive...even 'priceless'.
Priceless indeed, and comes with every free installation of Perl.
But of course you knew that. ;-)
------------------------------
Date: Fri, 20 Aug 1999 11:04:13 -0500
From: "James Liu" <jyoyoliu@hotmail.com>
Subject: Re: Matching E-mail
Message-Id: <x%ev3.67$1k2.5677@news.corecomm.net>
winner!
of the obfuscated perl program!
Abigail <abigail@delanet.com> wrote in message
news:slrn7rqpfi.bq6.abigail@alexandra.delanet.com...
> Winter (tungyat@yahoo.com) wrote on MMCLXXX September MCMXCIII in
> <URL:news:2G4v3.5979$dr6.134029@news1.rdc2.on.home.com>:
> ..
> .. Can anyone write a regular expression to detect email address? I have a
line
> .. of string $str may or may not contain email adress..
>
>
> RTFFAQ.
>
>
>
> Abigail
> --
> sub camel
(^#87=i@J&&&#]u'^^s]#'#={123{#}7890t[0.9]9@+*`"'***}A&&&}n2o}00}t324i;
> h[{e
**###{r{+P={**{e^^^#'#i@{r'^=^{l+{#}H***i[0.9]&@a5`"':&^;&^,*&^$43##@@####;
>
c}^^^&&&k}&&&}#=e*****[]}'r####'`=437*{#};::'1[0.9]2@43`"'*#==[[.{{],,,1278@
#@);
> print+((($llama=prototype'camel')=~y|+{#}$=^*&[0-9]i@:;`"',.|
|d)&&$llama."\n");
>
>
> -----------== Posted via Newsfeeds.Com, Uncensored Usenet News
==----------
> http://www.newsfeeds.com The Largest Usenet Servers in the World!
> ------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers
==-----
------------------------------
Date: 20 Aug 1999 16:09:07 -0000
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: Newbie : tr/// question
Message-Id: <7pjuj3$a1v$1@lublin.zrz.tu-berlin.de>
Abigail <abigail@delanet.com> wrote in comp.lang.perl.misc:
>JustYaz (justyaz@aol.com) wrote on MMCLXXX September MCMXCIII in
><URL:news:19990820015230.11105.00001229@ng-bh1.aol.com>:
><> I looked through the FAQ on www.activestate.com to find out the
><> answer to my queestion. Maybe I missed something but I did not
><> find an answer. Why does this function not accept character classes
><> as defined in Table 7-1 of the Gecko book?
><> ie.
><> tr/\s+/\|/s; # does not accept \s as a space
>
>Because tr/// doesn't do such interpolation. Read the manual.
>Just use:
>
> s/\s+/|/g; # No need to escape | here.
Hmmm... I was going to say
tr/ \t\n\r\f/|/s;
is more efficient, but it ain't so. In fact I find no difference when
"\s" characters are rare. When they're frequent, and hence a lot of
string-shortening is going on, the s/// version is faster by a factor
of 3, probably because s/// has an optimized substitution operation.
I still don't like to engage the huge regex machinery for what a
lightweight like tr/// can do, but occasionally it pays.
Anno
------------------------------
Date: Fri, 20 Aug 1999 16:15:25 +0100
From: "Martin" <contact@nativetongues.com>
Subject: Re: perl + mysql..
Message-Id: <7pjra2$hur$1@gxsn.com>
Hi Abigail...
On that thought... Well I wish I could but heck I always was too curious
about how something works so I end up doing things the hard way...
interesting results though.
:-)
Martin
Abigail <abigail@delanet.com> wrote in message
news:slrn7rqr68.bq6.abigail@alexandra.delanet.com...
> Teru (mtlam@hongkong.com) wrote on MMCLXXIX September MCMXCIII in
> <URL:news:7pg8ua$89j$1@thccy25.nthu.edu.tw>:
> ""
> "" I'm going to write a program in perl to show out the databases, tables
and
> "" indexes of my MySQL databases, so that I can select databases and datas
> "" through the web browser.
> "" But I don't have any idea on how to do it ?
> "" Does anyone know how ?
>
>
> Uhm, perhaps you should hire a programmer?
>
>
>
> Abigail
> --
> package Just_another_Perl_Hacker; sub print {($_=$_[0])=~ s/_/ /g;
> print } sub __PACKAGE__ { &
> print ( __PACKAGE__)} &
> __PACKAGE__
> ( )
>
>
> -----------== Posted via Newsfeeds.Com, Uncensored Usenet News
==----------
> http://www.newsfeeds.com The Largest Usenet Servers in the World!
> ------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers
==-----
------------------------------
Date: Fri, 20 Aug 1999 16:28:51 +0200
From: Per Kistler <kistler@fnmail.com>
To: Teru <mtlam@hongkong.com>
Subject: Re: perl + mysql..
Message-Id: <37BD6623.D676280E@fnmail.com>
Hi Teru
I made a small helpful Perl module to easy the regualar trivaial
access to MySQL from Perl. Of course it needs the DBI/DBD modules.
It's here:
http://kistler.discordia.ch/perl/Pk_MySql.pm.html
Maybe it helps, at least to see how things can be done.
Cheers, Per.
Teru wrote:
>
> I'm going to write a program in perl to show out the databases, tables and
> indexes of my MySQL databases, so that I can select databases and datas
> through the web browser.
> But I don't have any idea on how to do it ?
> Does anyone know how ?
>
> please give me some examples and informations. Thanks a lot.
--
Per Kistler kistler@fnmail.com / kistler@gmx.net
------------------------------------------------------------
------------------------------
Date: 20 Aug 1999 16:25:15 -0000
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: perl + mysql..
Message-Id: <7pjvhb$a3s$1@lublin.zrz.tu-berlin.de>
Martin <contact@nativetongues.com> wrote in comp.lang.perl.misc:
>Hi Abigail...
>
>On that thought...
On *what* thought?
> Well I wish I could but heck I always was too curious
>about how something works so I end up doing things the hard way...
>interesting results though.
Do things the hard way if you like, bit as far as usenet postings go
please do it the *right* way too. That means: Cut your quotes to the
part you're commenting on. You have only responded to Abigail's single
line, but quoted the whole posting. Then place your reply below the
quote. The "style" of slapping a reply on top of everything is lazy
and inconsiderate.
Anno
------------------------------
Date: Fri, 20 Aug 1999 12:54:01 -0400
From: Jeff <smile777@hotmail.com>
Subject: processing html on the fly part 2
Message-Id: <37BD8829.1E529AF5@hotmail.com>
When I run a perl script from my cgi-bin that processes an HTML page and
then spits the page out to the browser, the web browser treats the
cgi-bin
as the starting directory to find images and reference all the paths in
the
web page. I want the web browser to look in another directory, say
http_docs, and use that as the base path. How can I accomplish this in
perl?
Is their an ENV var I need to set or something?
I know you can use <base href="blah...."> in the HTML but I want to do
this within the perl environment. Javascript doesn't use the <base> tag
and you have to set a javascript variable in addition to the <base> if
you go this route.
------------------------------
Date: Fri, 20 Aug 1999 11:28:36 -0400
From: "Mandarin Lodge #343" <freemasonry@mindspring.com>
Subject: Processing html on the fly
Message-Id: <7pjrgl$5m4$1@nntp9.atl.mindspring.net>
When I run a perl script from my cgi-bin that processes an HTML page and
then spits the page out to the browser, the web browser treats the cgi-bin
as the starting directory to find images and reference all the paths in the
web page. I want the web browser to look in another directory, say
http_docs, and use that as the base path. How can I accomplish this in perl?
Is their an ENV var I need to set or something?
Thanks,
Jeff
smile777@hotmail.com
------------------------------
Date: Fri, 20 Aug 1999 16:58:08 +0100
From: Alessandro Guffanti <ag3@sanger.ac.uk>
Subject: Re: Processing html on the fly
Message-Id: <37BD7B10.2172672C@sanger.ac.uk>
Hi. This is an HTML and not a Perl problem.
Just add a <BASE href="http://your.doc.dir">
in the <HEAD> part of the HTML file and all
the relative links will refer to the BASE.
Not quite sure about the syntax of <BASE>
but you can retrieve it from any HTML guide.
BW,
Alessandro G.
Mandarin Lodge #343 wrote:
>
> When I run a perl script from my cgi-bin that processes an HTML page and
> then spits the page out to the browser, the web browser treats the cgi-bin
> as the starting directory to find images and reference all the paths in the
> web page. I want the web browser to look in another directory, say
> http_docs, and use that as the base path. How can I accomplish this in perl?
> Is their an ENV var I need to set or something?
>
> Thanks,
>
> Jeff
>
> smile777@hotmail.com
--
------------------------------
Date: Fri, 20 Aug 1999 16:50:48 +0200
From: Per Kistler <kistler@fnmail.com>
Subject: Re: Redhat-6.0 & perl & tail
Message-Id: <37BD6B48.DB18B86A@fnmail.com>
Hi Eric
The script could trap the HUP signal or one could
start it with: nohup progname args
But if the script asks for stdin, then it needs a terminal.
-Per.
Eric Vielet wrote:
> or if i launch my script at boot time, it does not work.
> I try whith something like : open(TAIL,"tail -f mylogfile |"); , and i
> try to use File::Tail too, but it`s the same thing with both.
--
Per Kistler kistler@fnmail.com / kistler@gmx.net
------------------------------------------------------------
------------------------------
Date: Fri, 20 Aug 1999 15:58:12 GMT
From: mcafee@waits.facilities.med.umich.edu (Sean McAfee)
Subject: Re: Referring to "my" variables
Message-Id: <oWev3.2580$J72.512522@news.itd.umich.edu>
In article <7pjolr$9sk$1@lublin.zrz.tu-berlin.de>,
Anno Siegel <anno4000@lublin.zrz.tu-berlin.de> wrote:
>Tom Briles <sariq@texas.net> wrote in comp.lang.perl.misc:
>>Which made me wonder - "When *are* scalar refs warranted?"
>>And I'm still wondering...
>Large scalars. Scalars you want a subroutine to modify in place.
>Pairs of scalars that from time to time swap their function.
Scalar refs are also useful when you want to define a wrapper class around
an pre-existing class, eg:
----------------------------------------------------------------------
package DBI_Wrapper;
use DBI;
sub new {
my ($class, @args) = @_;
my $dbh = DBI->connect(@args);
bless \$dbh, $class;
}
sub get_columns_from_table {
my ($self, $table, @columns) = @_;
my $dbh = $$self;
local $" = ",";
my $sth = $dbh->prepare("select @columns from $table");
$sth->execute;
return $sth->fetchall_arrayref;
}
----------------------------------------------------------------------
That one was pretty contrived, but here's one similar to code I have in
production. Problem is that several report files need to be parsed, but
whoever is generating the files leaves null bytes in some places where data
is unavailable. I want to process the files with Perl, but I don't want to
constantly be using regexes like /First Name:([^\S\0]+)/. My solution was
to convert the nulls to spaces in the same routine that fetches the next
line from the file:
----------------------------------------------------------------------
package Denullify;
use IO::File;
sub new {
my ($class, $filename) = @_;
my $file = new IO::File $filename;
bless \$file, $class;
}
sub read_line {
my $self = shift;
my $file = $$self;
my $line = <$file>;
$line =~ tr/\000/ /;
$line;
}
----------------------------------------------------------------------
I actually used a tied filehandle, but the code is largely the same.
--
Sean McAfee mcafee@umich.edu
print eval eval eval eval eval eval eval eval eval eval eval eval eval eval
q!q@q#q$q%q^q&q*q-q=q+q|q~q:q? Just Another Perl Hacker ?:~|+=-*&^%$#@!
------------------------------
Date: Fri, 20 Aug 1999 16:19:30 GMT
From: Ed Prochak <prochak@my-deja.com>
Subject: Re: regular expressions in Perl and Oracle/SQL
Message-Id: <7pjv64$vvm$1@nnrp1.deja.com>
In article <37BD0971.B8A5CEED@infineon.com>,
Philippe Emeriau <Philippe.Emeriau@infineon.com> wrote:
>
>
> SZEKERES Istvan wrote:
>
> > In article <37BC1D7B.3F854DDB@infineon.com>, Philippe Emeriau wrote:
> > >I would like to know if there is somewhere in Perl a function that
> > >computes a regular expression and gives the result stored inside a
> > >string ?
> > >Example : the regexp is "foo[1-6]", and I would like to store the
result
> > >"foo1 foo2 foo3 foo4 foo5 foo6" in a variable.
> >
> > Tell me please what value do you expect for the regexp "a.*b" :-)
> >
> > Pista
>
> Well, I have to give you more details on my requirements, so that you
can
> understand now why I have asked such question that seems to be so
silly … ;-)
>
> In fact, I have to provide to a given user (who is an Electronic
Design
> Automation engineer) a Perl API (a Perl package) that will provide a
full
> interface to data stored inside Oracle.
> The user doesn’t care about Oracle, SQL, and all that software stuff,
what he
> only knows is a file, with a given grammar, where he provides some
data to be
> stored in the DB (through another piece of software not mentionned
here !).
> This grammar uses some keywords to define some kind of sections and
> attributes, and the user provides some values for each attribute, and
these
> sections, attributes and values are mapped in the DB via tables and
views.
>
> So, with the Perl API, the user wants to retrieve the stored data, by
> providing for example the name of a section and a regular expression
defining
> a set of attributes. I believe Oracle does not handle correctly such
regexps
> (I was not able to find anything on the subject). That’s why I would
like to
> process inside the Perl API the provided regexp to compute the full
list of
> required attributes, and then build an SQL query with all these
attribute
> names (after maybe a mapping to real names of tables, views, …). The
query is
> then sent to the Oracle server through the Perl DBI/DBD packages, I
get in
> return a specific result, and I have just after to create a specific
Perl
> hash map that is used by the final user …
>
> I hope I was clear in my explaination …
> Maybe you could suggest me some other way to do it, because I’m
really stuck
> with this problem !!!
> Thanks in advance
> Philippe
>
> Philippe EMERIAU
> Senior Software Engineer
> Infineon Technologies Sophia Antipolis
> Gaïa, 2600 Route des Crêtes
> F-06560 Sophia Antipolis – FRANCE
> WARNING : NEW EMAIL !!!
> Email: Philippe.Emeriau@infineon.com
> Tel: (+33)(0)4 92 38 37 21
> Fax: (+33)(0)4 92 38 37 99
>
ORACLE supports a very simple set of reqular expressions via the LIKE
operator.
To solve your problem, You really have to change your basic assumption.
Rather than generating all possible values from a regular expression
(which is impossible), you may have to fetch all the rows, and filter
them via PERL.
Depending how this regular expression of yours is built, you might be
able to do this in parts. If the RegEx has a part that identifies the
tables, handle that first. Then the columns, and finally the rows. You
can generate these selects on the fly in PERL to send to the database.
Without knowing your data model, or the range of flexibility you want,
I really cannot suggest much more.
But you have got to drop the mindset of generating all possible values.
--
Ed Prochak
Magic Interface, Ltd.
ORACLE services
440-498-3702
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: Fri, 20 Aug 1999 13:00:58 -0400
From: Patrick Tully <pmt@top.mitre.org>
Subject: replacing @, /, . etc, in POST method
Message-Id: <37BD89CA.C6F89A39@top.mitre.org>
Hi,
I wrote a cgi program that collects some user data, such as email
address, url and more. The problem is, is that when i get back the
data, all the @,./ etc. charactore are replaced by %NUMBER. Is there
any easy way to replace these %NUMBERS with the original charactors? Am
i doing something wron? I know i could substitute the charactor back in
for every single charactor, but i would imagine there is a simpler way?
Please let me know... Thanks,
-Pat-
tcblue82@yahoo.com
------------------------------
Date: Fri, 20 Aug 1999 16:59:12 +0200
From: "Alan J. Flavell" <flavell@mail.cern.ch>
Subject: Re: Request for Comments: www.perl.com
Message-Id: <Pine.HPP.3.95a.990820165322.20918J-100000@hpplus03.cern.ch>
On 20 Aug 1999, John Stanley wrote:
> So is the use of an imagemap as the only navigation method.
Properly-made client side imagemaps work very well in Lynx. Sometimes
better than in a graphical browser...
The mandatory ALT attributes on the AREA tags do absolutely no harm to
graphical browsers. They might even do some good, if the browser
developers would bother to learn something about the WWW and portable
content.
But I digress. The point was to discuss the merits and demerits of a
specific site, that seems to have been designed specifically for
graphical browsers, forgetting the niceties of text-mode access (by all
kinds of text mode client, of which the Lynx browser is only one).
best regards
------------------------------
Date: Fri, 20 Aug 1999 17:53:30 +0200
From: "Alan J. Flavell" <flavell@mail.cern.ch>
Subject: Re: Request for Comments: www.perl.com
Message-Id: <Pine.HPP.3.95a.990820173856.20918K-100000@hpplus03.cern.ch>
On Fri, 20 Aug 1999, Jon Peterson wrote:
> But who cares? www.perl.com is inaccessible to the millions of people
> out there who don't speak English.
True enough
> I'd far rather see parts of it translated to other
> languages than have effort spent supporting user agents used only by
> comparatively few people.
That's back to front. We see, to take just one example of many, that
extra effort has been spent on turning a bulleted list, badly, into a
series of lines that, in HTML terms, stand in no particular relationship
to each other, and then putting graphical bullets in front of them in
order to give a visual impression of a bulleted list, and then giving
those bullets inappropriate ALT attributes. All of this additional
effort was counterproductive, relative to doing the job the right way
for the WWW in the first place.
You're discussing the investment of _extra_ effort, to repair the
original misguided effort. A properly designed site doesn't need that.
Don't get me wrong: I have nothing against a web page that is visually
attractive on a graphical browser. I just don't think it's a good idea
to spend effort on doing that in ways that are detrimental to the
general accesibility of a WWW document.
This site that we're discussing, it's not so very bad, at least by the
standards of so much that gets extruded onto the WWW nowadays. Many of
the problems are only cosmetic, but they've been created by additional
work. So, if you decry the application of additional work for the wrong
reason, please do your decrying on the right terms.
> Sure, it would be nice if the site worked well in lynx, opera, Netscape 0.99b,
> and whatever else, but it wouldn't be nice because it adhered to some notion
> of WWW correctness it would be nice because it helped a certain number of
> people to obtain useful perl information.
These are not mutually exclusive, you know.
> And there are more cost effective ways of helping people obtain useful
> perl information than ensuring the site is easy to use in all major
> and minor web browsers.
Such as designing _for_ the WWW.
------------------------------
Date: Fri, 20 Aug 1999 16:33:28 +0200
From: Per Kistler <kistler@fnmail.com>
Subject: Re: setuid
Message-Id: <37BD6738.5A4996F9@fnmail.com>
Try to get a better error message. There is the module
CGI::Carp, for instance like:
use CGI::Carp qw(fatalsToBrowser);
Maybe this gives some helpful infos.
-Per.
poocus@my-deja.com wrote:
> Anybody know how to fix this?
--
Per Kistler kistler@fnmail.com / kistler@gmx.net
------------------------------------------------------------
------------------------------
Date: 20 Aug 1999 16:02:13 GMT
From: nospam@nospam.nospam (Chris Thompson)
Subject: Re: Skipping . and .. with readdir
Message-Id: <7pju65$nip$1@pegasus.csx.cam.ac.uk>
In article <37AA1A0A.9561DAD7@home.com>,
Rick Delaney <rick.delaney@home.com> wrote:
[...]
>
>Tom Phoenix wrote:
>>
>> On Thu, 5 Aug 1999, Del Kennedy wrote:
>>
>> > next if $next_c =~ /^\.\.?$/; # skip . and ..
>>
>> Yes, we all write that. Someday soon, someone who wants to hide files is
>> going to sneak them into a directory named ".\n" or "..\n" and we'll all
>> repent! :-)
>
>That's why we now have
>
> /^\.\.?\z/;
>
>which has more style anyway, even if it is a bogey in Perl Golf.
Should be either /^\.\.?\z/s or /\a\.\.?\z/ , surely?
Chris Thompson
Email: cet1 [at] cam.ac.uk
------------------------------
Date: Fri, 20 Aug 1999 10:17:15 -0500
From: "James Liu" <jyoyoliu@hotmail.com>
Subject: Re: Split comp.lang.perl.misc
Message-Id: <bhev3.57$1k2.5125@news.corecomm.net>
Yeah, but moderation would be much easier. Having smaller groups would be
easier to have moderation in them, so none of that junk will get there.
Jonathan Stowe <gellyfish@gellyfish.com> wrote in message
news:37bd1ef6_2@newsread3.dircon.co.uk...
> It wont, in fact cant possibly help: most of the garbage in this group
> is the result of the clueless posting inappropriate things in the first
> place - creating new groups will just create more targets for these
> inappropriate posts. If people arent clueful enough now to post their,
> say, CGI,HTML,Webserver questions to the correct group and not here I
> cant possibly see how this can help.
>
> These kind of suggestions come up every once in a while like some kind of
> weird ritual and the conclusion is always the same - we dont need more
> groups we need more clueful posters.
>
> /J\
> --
> "Killing myself is the last thing I'd ever do" - Homer Simpson
------------------------------
Date: Fri, 20 Aug 1999 18:40:23 +0200
From: "Philip 'Yes, that's my address' Newton" <nospam.newton@gmx.net>
Subject: Re: What vendors include Perl with their boxes?
Message-Id: <37BD84F7.3E821D2B@gmx.net>
Per Kistler wrote:
>
> Vendor Name: SuSE GmbH
> OS Name/Version: Linux 2.2.10
This looks like SuSE's version 6.2 to me. Since you're using Red Hat's
version numbers, you may want to use SuSE's version numbers, rather than
the Linux kernel version. It's the distro you're interested in (and
whether it ships Perl or not) and not which kernel is at its heart. If
SuSE 6.1 used Linux 0.99.x but shipped Perl 5.005_02, you'd want to
know.
Cheers,
Philip
------------------------------
Date: Fri, 20 Aug 1999 10:47:00 -0400
From: Ala Qumsieh <aqumsieh@matrox.com>
Subject: Re: Why would this autovivify - answers? opinions?
Message-Id: <x3yiu6acxwb.fsf@tigre.matrox.com>
"William" <bivey@teamdev.com> writes:
> I've got a bit of a puzzler, any suggestions, or
> FAQ references (I looked, but nothing popped out
> at me) would be appreciated (or just tell me
> I've done something dumb). What's really annoying
> is that the code has been operating for some time,
> and I've only now discovered this. I'm using
> ActiveState Build 517 (Win32).
My first thought would be: UPGRADE. Build 518 is the latest I
believe.
> Executing this line
>
> $g_CurHashRef = \%{$g_DescHash{$Label}};
It would be faster to simply do this:
$g_CurHashRef = $g_DescHash{$Label};
> produces the effect in %g_DescHash seen below:
>
> Before:
> 'XX3A' => HASH(0x68b09c)
> 'XA1' => ARRAY(0x68acb8)
> 0 0
> 1 10
> 'XA3' => ARRAY(0x68ad18)
> 0 20
> 1 3
>
> After:
> 'XX3A' => HASH(0x68b09c)
> '' => ARRAY(0x702a54)
> empty array
> 'XA1' => ARRAY(0x68acb8)
> 0 0
> 1 10
> 'XA3' => ARRAY(0x68ad18)
> 0 20
> 1 3
>
> Doing this:
> %CurHash = %{$g_DescHash{$Label}};
> works fine (I'd say, "as expected" but at this point
> my expectations are pretty low). I can live with the
> change, but I'd like to know what's wrong.-Wm
I can't give a good explanation. I couldn't reproduce your problem on
my version of Perl (version 5.004_04 built for sun4-solaris).
Perhaps its a bug. Try with the latest version of Perl.
HTH,
Ala
------------------------------
Date: Fri, 20 Aug 1999 10:19:29 -0500
From: "James Liu" <jyoyoliu@hotmail.com>
Subject: Re: Win32 Perl (newbie)
Message-Id: <gjev3.59$1k2.5184@news.corecomm.net>
Did I also mention that i'm broke?
where do you expect I could get it traded?
David Cassell <cassell@mail.cor.epa.gov> wrote in message
news:37B339E5.72377D92@mail.cor.epa.gov...
> James Liu wrote:
> >
> > I got Oreilly's Learning Perl (Llama book). I'm running Windows 98.
what
> > should I know about how perl runs on windows? please help.
>
> In addition to Lauren's advice to get ActiveState Perl [build 518
> now], I recommend that you go trade that llama for a gecko.
> Get "Learning Perl on Win32 Systems" by Randal Schwartz, Erik
> Olson, and, hmmm.. let's see.. oh some guy who hates win32.
> :-)
>
> David
> --
> David Cassell, OAO cassell@mail.cor.epa.gov
> Senior computing specialist
> mathematical statistician
------------------------------
Date: 1 Jul 99 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 1 Jul 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.
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" from
almanac@ruby.oce.orst.edu. The real FAQ, as it appeared last in the
newsgroup, can be retrieved with the request "send perl-users FAQ" from
almanac@ruby.oce.orst.edu. 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" from
almanac@ruby.oce.orst.edu.
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 V9 Issue 602
*************************************
