[27906] in Perl-Users-Digest
Perl-Users Digest, Issue: 9270 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Jun 9 00:05:54 2006
Date: Thu, 8 Jun 2006 21:05:08 -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 Thu, 8 Jun 2006 Volume: 10 Number: 9270
Today's topics:
Re: Adding hashes <rvtol+news@isolution.nl>
Binding array to pattern (Seymour J.)
Re: Binding array to pattern xhoster@gmail.com
Re: Binding array to pattern <noreply@gunnar.cc>
Re: Binding array to pattern <tadmc@augustmail.com>
Can I "break out" of an if{} block? usenet@DavidFilmer.com
Re: Can I "break out" of an if{} block? <someone@example.com>
Re: Can I "break out" of an if{} block? <tadmc@augustmail.com>
Re: Can I "break out" of an if{} block? <benmorrow@tiscali.co.uk>
Re: filehandle to a member of a zip archive <benmorrow@tiscali.co.uk>
Re: Finding all modular extensions to Perl on a system. <benmorrow@tiscali.co.uk>
IBM Developerworks Article <sigzero@gmail.com>
Re: IBM Developerworks Article <sigzero@gmail.com>
Re: LV & BM values <bol@adv.magwien.gv.at>
Re: Multiple Line output using Win32::Printer <veatchla@yahoo.com>
Re: Need help <tadmc@augustmail.com>
Re: Need help <jgibson@mail.arc.nasa.gov>
Re: Need help <hoosier45678@hotmail.com>
Re: Need help <antwonmedford@hotmail.com>
Re: Need help <tadmc@augustmail.com>
Re: nested quantifier or unrecognized escape error <peace.is.our.profession@gmx.de>
Re: perldocs (etc) on recursion in Perl? Don't understa (David Combs)
Re: PerlIO omission <ced@blv-sam-01.ca.boeing.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Fri, 2 Jun 2006 11:01:17 +0200
From: "Dr.Ruud" <rvtol+news@isolution.nl>
Subject: Re: Adding hashes
Message-Id: <e5p63u.a0.1@news.isolution.nl>
Graham Drabble schreef:
> I possibly should have also said that in the case I'm currently
> working on I can guarantee the hashes have identical keys.
Your 'apples pears' communicated the opposite. :)
--
Affijn, Ruud
"Gewoon is een tijger."
------------------------------
Date: Thu, 08 Jun 2006 18:05:54 -0300
From: "Shmuel (Seymour J.) Metz" <spamtrap@library.lspace.org.invalid>
Subject: Binding array to pattern
Message-Id: <44889f42$11$fuzhry+tra$mr2ice@news.patriot.net>
I'd like to bind an array to a pattern. I couldn't find anything in
the Camel book about the context for the left side of the binding
operator. I ran some tests, and it appears that I get scalar context
if I write
while (@anarray =~ /pattern/g) {
block;
}
which means that I match against the size rather than the contents. I
tried
while ("@anarray" =~ /pattern/g) {
block;
}
but that went into a loop. Is there a better way to do this than
$_="@anarray";
while (/pattern/g) {
block;
}
?
Is there a description that I missed of interpolation for the left
side of the binding operator?
--
Shmuel (Seymour J.) Metz, SysProg and JOAT <http://patriot.net/~shmuel>
Unsolicited bulk E-mail subject to legal action. I reserve the
right to publicly post or ridicule any abusive E-mail. Reply to
domain Patriot dot net user shmuel+news to contact me. Do not
reply to spamtrap@library.lspace.org
------------------------------
Date: 08 Jun 2006 22:08:11 GMT
From: xhoster@gmail.com
Subject: Re: Binding array to pattern
Message-Id: <20060608191324.722$p9@newsreader.com>
"Shmuel (Seymour J.) Metz" <spamtrap@library.lspace.org.invalid> wrote:
> I'd like to bind an array to a pattern. I couldn't find anything in
> the Camel book about the context for the left side of the binding
> operator. I ran some tests, and it appears that I get scalar context
> if I write
I don't know about the camel book, but from perldoc perlop:
Binding Operators
Binary "=~" binds a scalar
expression to a pattern
match.
So yes, it is a scalar.
>
> while ("@anarray" =~ /pattern/g) {
> block;
> }
>
> but that went into a loop.
Of course it did, what with the while there and all. Oh, you mean
an infinite loop. Yep, it does seem to. But then again, so does:
while ("$_" =~ /pattern/g) {
So apparently the reinterpolation is performed each time and thus the
string is not known to be the same.
> Is there a better way to do this than
>
> $_="@anarray";
> while (/pattern/g) {
> block;
> }
I have no idea why you want to do it in the first place, but I can't think
of a better way to convert an array into a string and then repeatedly
matching on it in a while loop. (I guess localizing $_ first might be a
good idea.) I guess one possibly better alternative would be:
foreach ("@anarray" =~ /pattern/g) {
As it seems unlikely that the intermediate list would break the memory
bank.
Xho
--
-------------------- http://NewsReader.Com/ --------------------
Usenet Newsgroup Service $9.95/Month 30GB
------------------------------
Date: Fri, 09 Jun 2006 01:30:51 +0200
From: Gunnar Hjalmarsson <noreply@gunnar.cc>
Subject: Re: Binding array to pattern
Message-Id: <4erq9dF1ge4orU1@individual.net>
Shmuel (Seymour J.) Metz wrote:
> I'd like to bind an array to a pattern.
Why?
> Is there a better way to do this than
>
> $_="@anarray";
> while (/pattern/g) {
> block;
> }
>
> ?
This is more readable IMO:
foreach my $element ( @anarray ) {
while ( $element =~ /PATTERN/g ) {
...
}
}
--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl
------------------------------
Date: Thu, 8 Jun 2006 19:33:18 -0500
From: Tad McClellan <tadmc@augustmail.com>
Subject: Re: Binding array to pattern
Message-Id: <slrne8hgee.3rt.tadmc@magna.augustmail.com>
Shmuel (Seymour J.) Metz <spamtrap@library.lspace.org.invalid> wrote:
> I'd like to bind an array to a pattern.
That makes no sense.
A pattern match is *defined* to operate on a string. An array
is not a string.
Why would you like to bind an array to a pattern?
(and what is your new definition of "pattern match" to go along with it?)
Do you instead want to apply a pattern match to each _element_
of an array? If so, then use foreach or grep.
> I
> tried
>
> while ("@anarray" =~ /pattern/g) {
> block;
> }
>
> but that went into a loop.
Errr, the "while" construct _is_ a loop. If you don't want a loop,
then don't use "while".
> Is there a description that I missed of interpolation for the left
> side of the binding operator?
Interpolation has nothing to do with any of Perl's other operators.
Interpolation happens with "strings" without regard to what
operator the string is an operand for.
What is it that you are ultimately trying to achieve?
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: 8 Jun 2006 16:40:44 -0700
From: usenet@DavidFilmer.com
Subject: Can I "break out" of an if{} block?
Message-Id: <1149810044.079469.282200@f6g2000cwb.googlegroups.com>
At any point in a loop, I can "break out" of it with a 'last', or I can
"break out" of a subroutine with a 'return'.
Is there a similar way to easily "break out" of an if{} block (without
a goto)?
Thanks!
--
David Filmer (http://DavidFilmer.com)
------------------------------
Date: Thu, 08 Jun 2006 23:57:57 GMT
From: "John W. Krahn" <someone@example.com>
Subject: Re: Can I "break out" of an if{} block?
Message-Id: <9Q2ig.23785$A8.12456@clgrps12>
usenet@DavidFilmer.com wrote:
> At any point in a loop, I can "break out" of it with a 'last', or I can
> "break out" of a subroutine with a 'return'.
>
> Is there a similar way to easily "break out" of an if{} block (without
> a goto)?
Sure, just put a loop inside the if block:
if ( $expression ) { {
last if $oops;
} }
John
--
use Perl;
program
fulfillment
------------------------------
Date: Thu, 8 Jun 2006 19:41:10 -0500
From: Tad McClellan <tadmc@augustmail.com>
Subject: Re: Can I "break out" of an if{} block?
Message-Id: <slrne8hgt6.3rt.tadmc@magna.augustmail.com>
usenet@DavidFilmer.com <usenet@DavidFilmer.com> wrote:
> At any point in a loop, I can "break out" of it with a 'last', or I can
> "break out" of a subroutine with a 'return'.
>
> Is there a similar way to easily "break out" of an if{} block (without
> a goto)?
Yes, by nesting another if:
if ( $something ) {
# do this always
if ( ! $want_to_last ) { # unless ( $want_to_last ) is "nicer"
# do this when not "lasting"
}
}
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Fri, 9 Jun 2006 01:45:45 +0100
From: Ben Morrow <benmorrow@tiscali.co.uk>
Subject: Re: Can I "break out" of an if{} block?
Message-Id: <pusml3-h7q.ln1@osiris.mauzo.dyndns.org>
Quoth usenet@DavidFilmer.com:
> At any point in a loop, I can "break out" of it with a 'last', or I can
> "break out" of a subroutine with a 'return'.
>
> Is there a similar way to easily "break out" of an if{} block (without
> a goto)?
Any block (except for the pseudoblocks which are part of if{}, else{},
do{} &c.) is treated as a loop which loops once. So just add another set
of braces and use 'last':
if (1) {{
#...
last if #...
#...
}}
Ben
--
All persons, living or dead, are entirely coincidental.
benmorrow@tiscali.co.uk Kurt Vonnegut
------------------------------
Date: Fri, 9 Jun 2006 01:37:48 +0100
From: Ben Morrow <benmorrow@tiscali.co.uk>
Subject: Re: filehandle to a member of a zip archive
Message-Id: <sfsml3-h7q.ln1@osiris.mauzo.dyndns.org>
Quoth "scottmf" <fleming.scott@gmail.com>:
> > s/open\(/mod_open(/;
> >
> > is a lot easier than
> >
> > s/open\(/mod_open(\$/;
> >
> > (Seems like:
> > s/<FH>/<\$FH>/g;
> > s/(printf? )FH/$1\$FH/g;
> > would come pretty darn close though.
>
> While I realize I could go through all of the scripts I need to update
> and change every filehandle reference, it seems like there *should* be
> a way to have my modified open function simply take a bareword
> filehandle the same as open() does (and still "use strict;")
Use prototypes. This is what they are for.
~% perl -le'print prototype "CORE::open"'
*;$@
The fact the second arg is optional is probably not something you want
to emulate, so
use strict;
use Symbol;
sub my_open (*$;@) {
my $FH = defined $_[0] ?
Symbol::qualify_to_ref $_[0], caller :
($_[0] = Symbol::gensym);
shift;
my $op = shift;
return open $FH, $op, @_;
}
will emulate open.
However, a much better idea if you're writing your own function is to
write it to return an open FH, rather than opening onto one passed in.
It makes the implementation much simpler, and, as you can see, makes
replacing the function with another later much easier.
Ben
--
I touch the fire and it freezes me, [benmorrow@tiscali.co.uk]
I look into it and it's black.
Why can't I feel? My skin should crack and peel---
I want the fire back... Buffy, 'Once More With Feeling'
------------------------------
Date: Thu, 8 Jun 2006 17:39:16 +0100
From: Ben Morrow <benmorrow@tiscali.co.uk>
Subject: Re: Finding all modular extensions to Perl on a system.
Message-Id: <ke0ml3-ihn.ln1@osiris.mauzo.dyndns.org>
Quoth dwmyers@my-deja.com:
> I have a box that needs to be replaced, and this is a web server on
> which my predecessor (fired, and not on good terms) installed a
> plethora of Perl, including some custom modules (I have these) and some
> packages, the extent of which I'm not sure.
>
> Is there any way to list all modules installed by CPAN that are not
> part of the regular Perl distribution?
The 'autobundle' command from the CPAN shell.
> Are there tools that could scour a system for all perl and perl
> modules, with particular emphasis on modules that extend the language?
Well,
perl -le'print for @INC'
will show you where perl looks for modules, so you could start by
looking through all those. Other than that, you're into searching the
filesystem for files matching '*.pm'...
Note that the %INC hash contains the paths to all files required or used
by a Perl program, so you may be able to use that to modify your
programs to print a list...
Ben
--
All persons, living or dead, are entirely coincidental.
benmorrow@tiscali.co.uk Kurt Vonnegut
------------------------------
Date: 8 Jun 2006 17:48:03 -0700
From: "Robert Hicks" <sigzero@gmail.com>
Subject: IBM Developerworks Article
Message-Id: <1149814083.414828.51720@u72g2000cwu.googlegroups.com>
http://www-128.ibm.com/developerworks/aix/library/au-tcldsktop.html?ca=dgr-lnxw07TCL
If you want to weigh in on OSNews there is a short talk going here:
http://www.osnews.com/comment.php?news_id=14849
:Robert
------------------------------
Date: 8 Jun 2006 17:54:32 -0700
From: "Robert Hicks" <sigzero@gmail.com>
Subject: Re: IBM Developerworks Article
Message-Id: <1149814472.093620.219270@i39g2000cwa.googlegroups.com>
Robert Hicks wrote:
> http://www-128.ibm.com/developerworks/aix/library/au-tcldsktop.html?ca=dgr-lnxw07TCL
>
> If you want to weigh in on OSNews there is a short talk going here:
>
> http://www.osnews.com/comment.php?news_id=14849
>
> :Robert
That will teach me to pay attention to where I am posting now won't it!
ha!
:Robert
------------------------------
Date: Fri, 2 Jun 2006 12:02:02 +0200
From: "Ferry Bolhar" <bol@adv.magwien.gv.at>
Subject: Re: LV & BM values
Message-Id: <1149242523.417334@proxy.dienste.wien.at>
Hi Ilya,
Many thanks for your help and your patience.
>perl -MO=Terse -ce "print index $_, q(ab)"
Could you explain in short terms what a BM actually IS?
I understand that's a special kind of string, a PV with special
(non-visible) data and some kind of magic. But
how and when it will be created/used? And concerning LVs - I know that there
are some
functions which can be used on the left side of an assignment (pos, vec,
substr). But I can't understand
why there is a special kind of SV for this. I thought it's the function
requiring special coding to implement
lvalue behaviour, but the SVs used as arguments (and passed as return
values) shouldn't be SVs as usual?
Which special kind of behaviour provide a LV SV?
BTW: does XS support LVALUE functions? If so, are there special coding
requirements?
Many thanks again for your help, and kind greetings,
Ferry
--
Ing. Ferry Bolhar-Nordenkampf
A-1010 Vienna / AUSTRIA
E-mail: bol@adv.magwien.gv.at
"Wenn hier einer schuld ist, dann immer nur der Computer."
------------------------------
Date: 8 Jun 2006 18:46:28 -0700
From: "l v" <veatchla@yahoo.com>
Subject: Re: Multiple Line output using Win32::Printer
Message-Id: <1149817588.307983.13150@j55g2000cwa.googlegroups.com>
Jack D wrote:
> "l v" <veatchla@yahoo.com> wrote in message
> news:1149800427.838297.218040@u72g2000cwu.googlegroups.com...
>
>>Jack D wrote:
>>
>>>I'm trying to output mutilple lines to a printer using Win32::Printer. I
>>>have only suceeded in printing one line so far. Does anyone know how
>
> force
>
>>>it to print multiple lines? The output is shows rectangles in between
>
> each
>
>>>word.
>>>
>>>Sample code below
>>>
>>>use strict;
>>>use Win32::Printer;
>>>my @array = keys %ENV;
>>>
>>>printMultiple();
>>>
>>>sub printMultiple {
>>> my $dc = new Win32::Printer( papersize => A4,
>>> description => 'Test,
>>> unit => 'mm') or die "Failed
>
> to
>
>>>create printer object";
>>> if ($dc) {
>>> my $textToPrint = join("\r\n",@oldarray);
>>> my $font = $dc->Font('Times New Roman', 12);
>>> $dc->Font($font);
>>> $dc->Color(0, 0, 0);
>>> $dc->Write($textToPrint, 10, 10);
>>> $dc->Close;
>>> }
>>>}
>>>__END__
>>>
>>>Jack
>>>
>>>
>>
>>What does you print show when you change the "\r\n" in the join to ':'?
>>my $textToPrint = join(':',@oldarray);
>
>
> Is this a trick question? It prints the colon of course.
>
> Jack
>
>
No trick, a diagnostic question since you did not include an example of
the output. Then the rectangles that are printed are either from the
\r or the \n. Try with just the \n and see what happens. Did you get
the rectangles? Did you get the print you wanted? Try with the \r and
do the same test. Try with "\n\n".
--
Len
------------------------------
Date: Thu, 8 Jun 2006 17:57:20 -0500
From: Tad McClellan <tadmc@augustmail.com>
Subject: Re: Need help
Message-Id: <slrne8haqg.3lb.tadmc@magna.augustmail.com>
perl newbie <antwonmedford@hotmail.com> wrote:
> Subject: Need help
Need subject!
Please put the subject of your article in the Subject of your article.
> Hello, I am attempting to build a page that uses a cgi script to
> extract info from
> a delimited text file database and then place it into an html file for
> viewing (see files below.)
> I don't know how to properly insert the
> cgi
> script into my html page.
You never insert CGI programs into HTML pages.
CGI programs run on a web *server* (the _output_ of CGI programs
goes to the client (browser)).
> In other words, I need to "marry" the cgi
> script
> to my html page.
> Questions:
>
> 1) How might I achieve the aforementioned task? I have tried both
><!--#include virtual="/cgi-bin/tips.cgi"--> and <!--#exec
> cgi="/cgi-bin/tips.cgi" -->
SSI is not CGI.
> (see cgi file below).
> Does anyone know the proper perl
> syntax to place text where you want on a page and constain it to a
> selected area?
You do that the same way regardless of what programming language
you choose to use.
ie. That is not a Perl question (it is an HTML question).
> Cgi file http://dailytips.tripod.com/cgi-bin/tips.cgi
That is not a CGI file.
That resource is the *output* from a CGI program.
We need to see the program's source code if we are to debug it.
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Thu, 08 Jun 2006 16:13:39 -0700
From: Jim Gibson <jgibson@mail.arc.nasa.gov>
Subject: Re: Need help
Message-Id: <080620061613396328%jgibson@mail.arc.nasa.gov>
In article <1149798833.544921.327520@g10g2000cwb.googlegroups.com>,
perl newbie <antwonmedford@hotmail.com> wrote:
> Hello, I am attempting to build a page that uses a cgi script to
> extract info from
> a delimited text file database and then place it into an html file for
> viewing (see files below.) The database will contain "tips for the
> day" and is
> arranged in four fields containing the month, day, year, and tip or
> event
> info (I have "dummy data" in it now.). The script gets the current
> date and compares it to the date listed for the tip. If they match it
> extracts that record and prints it. I
> compare the month and the date but not the year. There is a foreach
> loop
> used for iteration. My script works well with the sample data that I
> have
> when the cgi script is run.
If you are having a problem with your Perl script and want help, you
should post a version here that is short-as-possible but still
demonstrates the problem. However, you say your script works well.
>
> I use a WYSIWYG web program called "Webpagemaker." I can draw a box
> then
> click in it and paste my html content or script in it. I have a
> limited
> knowledge of cgi and html and I don't know how to properly insert the
> cgi
> script into my html page. On my html page listed below, I simply typed
> in
> the result in the box but I want that info generated by the cgi instead
> so
> that it will change daily. In other words, I need to "marry" the cgi
> script
> to my html page.
You do NOT want to insert your CGI script into your HTML page. You
should keep the two separate for now. Your HTML page gets sent to the
client browser. The CGI script is executed on the server and it MUST
generate a valid HTTP response, usually an HTML page (containing only
HTML tags and text, but NO CGI script!)
Normally, you will have a static HTML page with a form linked to a CGI
script. Submitting that form to the server results in the CGI script
being executed, and the CGI script generates another HTML page (with
your tip of the day, for example), which gets returned to the client
browser as a response to the form submittal.
Once you learn CGI, you can think about using one of the many HTML
template methods that allow you to intermix CGI scripts and HTML in a
single file. However, the scripting parts still get executed by the
server, and the HTML sent to the client contains no CGI script code.
Alternatively, you can use PHP, with PHP code embedded in an HTML file.
There are many websites and books that teach people how to program CGI,
sometimes in Perl. Get one as soon as possible. I don't have any good
links at hand. Start with <http://learn.perl.org> if nothing else.
Try "CGI Programming with Perl", Gueilich, et. al., O'Reilly
<http://www.bookpool.com/.x/SSSSSS_C200/sm/1565924193>
<http://safari.oreilly.com/?XmlId=1-56592-419-3>
Posted Via Usenet.com Premium Usenet Newsgroup Services
----------------------------------------------------------
** SPEED ** RETENTION ** COMPLETION ** ANONYMITY **
----------------------------------------------------------
http://www.usenet.com
------------------------------
Date: Thu, 08 Jun 2006 19:27:03 -0500
From: James <hoosier45678@hotmail.com>
Subject: Re: Need help
Message-Id: <pan.2006.06.09.00.26.57.793676@hotmail.com>
On Thu, 08 Jun 2006 13:33:53 -0700, perl newbie wrote:
> Questions:
These are SO not perl questions.
> 1) How might I achieve the aforementioned task?
<iframe src="/cgi-bin/tips.cgi">
<!-- Alternate content for non-supporting browsers -->
<h3>no soup for you</h3>
</iframe>
> 3) Also, A hard return must be used after each record in the data text
> file
> according to my understanding of cgi. Using my file, what if I wanted
> my
> last field (the tips or event field) to contain let's say a recipe for
> the
> day instead of a tip for the day. The recipe would consist of more
> than one
> line. How could all of that be grouped together as one unit since
> there
> would be a hard return for each line of the recipe?
print "<pre>$tip</pre>"
or:
print "$_<br>\n" foreach split /\n/, $tip;
------------------------------
Date: 8 Jun 2006 18:27:25 -0700
From: "perl newbie" <antwonmedford@hotmail.com>
Subject: Re: Need help
Message-Id: <1149816445.607005.313790@y43g2000cwc.googlegroups.com>
I know you should keep the cgi seperate from your html but I was just
looking for a way to output the result of the cgi script onto my index
page. I actually did that sucessfully, I just don't know how to place
the result exactly where I want it and to constrain it in a certain
area.
I know CGI and SSI are not the same thing. I was just asking if the
fact that I could not "call" my perl script from index using
<!--#include virtual="/cgi-bin/tips.cgi"--> or <!--#exec
cgi="/cgi-bin/tips.cgi" -->was because my temporary host lycos/tripod
doesn't support SSI.
In my cgi file, all I did was to insert my html between the two
PrintTags. You should be able to see all of my source codes by just
visting the addresses and right-clicking.
Tad McClellan wrote:
> perl newbie <antwonmedford@hotmail.com> wrote:
>
> > Subject: Need help
>
>
> Need subject!
>
> Please put the subject of your article in the Subject of your article.
>
>
> > Hello, I am attempting to build a page that uses a cgi script to
> > extract info from
> > a delimited text file database and then place it into an html file for
> > viewing (see files below.)
>
> > I don't know how to properly insert the
> > cgi
> > script into my html page.
>
>
> You never insert CGI programs into HTML pages.
>
> CGI programs run on a web *server* (the _output_ of CGI programs
> goes to the client (browser)).
>
>
> > In other words, I need to "marry" the cgi
> > script
> > to my html page.
>
>
> > Questions:
> >
> > 1) How might I achieve the aforementioned task? I have tried both
> ><!--#include virtual="/cgi-bin/tips.cgi"--> and <!--#exec
> > cgi="/cgi-bin/tips.cgi" -->
>
>
> SSI is not CGI.
>
>
> > (see cgi file below).
>
> > Does anyone know the proper perl
> > syntax to place text where you want on a page and constain it to a
> > selected area?
>
>
> You do that the same way regardless of what programming language
> you choose to use.
>
> ie. That is not a Perl question (it is an HTML question).
>
>
> > Cgi file http://dailytips.tripod.com/cgi-bin/tips.cgi
>
>
> That is not a CGI file.
>
> That resource is the *output* from a CGI program.
>
> We need to see the program's source code if we are to debug it.
>
>
> --
> Tad McClellan SGML consulting
> tadmc@augustmail.com Perl programming
> Fort Worth, Texas
------------------------------
Date: Thu, 8 Jun 2006 22:12:25 -0500
From: Tad McClellan <tadmc@augustmail.com>
Subject: Re: Need help
Message-Id: <slrne8hpop.433.tadmc@magna.augustmail.com>
perl newbie <antwonmedford@hotmail.com> wrote:
> You should be able to see all of my source codes by just
> visting the addresses and right-clicking.
How do you know what my right mouse button is mapped to?
[snip TOFU.
Don't do that unless you want all of your future posts to be invisible.
]
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Fri, 02 Jun 2006 09:58:45 +0200
From: Mirco Wahab <peace.is.our.profession@gmx.de>
Subject: Re: nested quantifier or unrecognized escape error
Message-Id: <e5ora2$d8n$1@mlucom4.urz.uni-halle.de>
Thus spoke Mirco Wahab (on 2006-06-02 09:43):
> Thus spoke Francois Massion (on 2006-06-02 07:16):
> ...
> my $shortStr = 'CAD++ mit';
> my $longStr = 'CAD++ mit zusätzlichen Scanning- und Digitalisierfunktionen';
>
> my $pat = quotemeta( $shortStr );
> if($longStr =~ /$pat/){
> print "match {". $pat ."}\n"; }
> ...
>
> prints:
> match {CAD\+\+\ mit}
This:
if($longStr =~ "\Q$shortStr\E") {
print "match {". $pat ."}\n";
}
will work too, because
"\Q...\E"
resolves internally to the
quotemeta() call mentioned
above.
Regards
Mirco
------------------------------
Date: Fri, 2 Jun 2006 02:14:42 +0000 (UTC)
From: dkcombs@panix.com (David Combs)
Subject: Re: perldocs (etc) on recursion in Perl? Don't understand _WCPS_ example
Message-Id: <e5o6ui$2l9$1@reader1.panix.com>
In article <1146988612.341941.301370@i39g2000cwa.googlegroups.com>,
<usenet@DavidFilmer.com> wrote:
>Greetings. I was reading Steve Oualline's book, "Wicked Cool Perl
>Scripts." ...
I'm thinking of buying that book -- what's your opinion
of it?
Thanks!,
David
------------------------------
Date: Thu, 8 Jun 2006 22:42:37 GMT
From: Charles DeRykus <ced@blv-sam-01.ca.boeing.com>
Subject: Re: PerlIO omission
Message-Id: <J0KCEy.7pr@news.boeing.com>
Bo Lindbergh wrote:
> In article <J0Jvn7.988@news.boeing.com>,
> Charles DeRykus <ced@blv-sam-01.ca.boeing.com> wrote:
>
>> Bo Lindbergh wrote:
>>> Why is there no truncate operation in PerlIO?
>>>
>> There is though: perldoc -f truncate
>
> "PerlIO", not "Perl I/O". There's a difference.
>
Oops, yes. That's "big boy" stuff...
--
Charles DeRykus
------------------------------
Date: 6 Apr 2001 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 6 Apr 01)
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: due to the current flood of worm email banging on ruby, the smtp
server on ruby has been shut off until further notice.
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 9270
***************************************
