[22786] in Perl-Users-Digest
Perl-Users Digest, Issue: 5007 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon May 19 21:05:55 2003
Date: Mon, 19 May 2003 18:05:16 -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 Mon, 19 May 2003 Volume: 10 Number: 5007
Today's topics:
ANNOUNCE: Alpha release of Lingua::Phonology <jaspax@u.washington.edu>
ANNOUNCE: Readonly v1.02 <sdn@comcast.net>
Re: can't open perl script ??? <bwalton@rochester.rr.com>
Re: CGI Question: Submitting row in a form <kbass1@nc.rr.com>
Code reference from a subclass <juanf@lsi.upc.es>
Re: Error message with perl -MCPAN -e shell <randy@theoryx5.uwinnipeg.ca>
GD::Graph error "libgd was not built with FreeType Font (kathygao)
Re: Help!: Error with 'Benchmark' module (entropy123)
Re: Help!: Error with 'Benchmark' module <bwalton@rochester.rr.com>
Re: Help!: Error with 'Benchmark' module <bwalton@rochester.rr.com>
Re: How do I pop this? <cwilbur@mithril.chromatico.net>
Re: How do I pop this? (Tad McClellan)
Re: How to pass the fullpath file name using start_mult <usenet@tinita.de>
Re: Locate a module <noreply@gunnar.cc>
Re: making scalar variables from array elements, put in (bryan)
Re: multiple sort subroutine (Veky)
Re: multiple sort subroutine (Quantum Mechanic)
Net::SSLeay::set_timeout for sslcat? (Skip Montanaro)
Re: Perl based shopping cart - does anyone have a recom <palladium@spinn.net>
Re: PHP or Perl ? <postmaster@localhost.localdomain>
Re: PHP or Perl ? <postmaster@localhost.localdomain>
Sendmail::Milter - Different Instance of Perl <danny@lennon.postino.com>
STDERR Error logging not working in ActivePerl/ISAPI Pe (Thomas)
Strange invisible char from csh and/or tcsh (Brian)
Re: Strange invisible char from csh and/or tcsh (Veky)
Re: Strange invisible char from csh and/or tcsh (Quantum Mechanic)
Syslog parsing with Perl (Big Brother)
Re: Syslog parsing with Perl (Tad McClellan)
Re: Syslog parsing with Perl <mbudash@sonic.net>
Re: why key is added to hash after defined ? (Veky)
Re: win32 perl installation perl mans? <randy@theoryx5.uwinnipeg.ca>
YAPC::Canada -- A Success <jkeen@concentric.net>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 19 May 2003 19:03:15 GMT
From: JS Bangs <jaspax@u.washington.edu>
Subject: ANNOUNCE: Alpha release of Lingua::Phonology
Message-Id: <8134200311e3a10c5e410850705aa579@TeraNews>
I'm happy to announce the alpha release of Lingua::Phonology, a Perl
module designed to provide an easy way to describe linguistic phonologies.
Lingua::Phonology provides a way to easily program feature geometries,
segments, phonetic symbols to spell segments, and a powerful
rule-application mechanism.
This is the alpha release. Please send me bug reports, requests for
features, or code fixes.
Lingua::Phonology is currently available on CPAN, with full documentation.
Jesse S. Bangs jaspax@u.washington.edu
http://students.washington.edu/jaspax/
http://students.washington.edu/jaspax/blog
------------------------------
Date: Mon, 19 May 2003 19:03:15 GMT
From: "Eric J. Roode" <sdn@comcast.net>
Subject: ANNOUNCE: Readonly v1.02
Message-Id: <7f8ac8bb5ed41eb14486ddb677f1d7a7@TeraNews>
Readonly v1.02 has been released to CPAN.
Readonly is a module for creating non-modifiable scalars, arrays, and
hashes. It has several advantages over "use constant"; see the
README file or the module documentation for details.
One major drawback of Readonly has been its slowness. This has been
partially remedied in v1.02. If you can build XS extensions, you can
install a companion module, Readonly::XS, which significantly speeds
up Readonly's implementation of scalars. Now Readonly scalars are
about as fast as "use constant" scalars or regular read/write
scalars. Arrays and hashes remain slow.
--
Eric
$_ = reverse sort qw p ekca lre Js reh ts
p, $/.r, map $_.$", qw e p h tona e; print
------------------------------
Date: Tue, 20 May 2003 00:53:55 GMT
From: Bob Walton <bwalton@rochester.rr.com>
Subject: Re: can't open perl script ???
Message-Id: <3EC97B97.10003@rochester.rr.com>
throni wrote:
> Hallo,
> ich habe folgendes Problem:
> wenn ich mein CGI Script "allform.pl" aufrufe, bekomme ich folgende
> Fehlermeldung:
>
> "The specified CGI application misbehaved by not returning a complete set of
> HTTP headers. The header it did return are:
>
> Can't open perl script "???????????????": Invalid argument."
>
> Kann mir bitte jemand helfen?
Ja. Look up and follow all the pointers given in the FAQ:
perldoc -q 500
Then if you still have trouble, boil your script down to a short concise
subset which still generates the problem, and post that code.
--
Bob Walton
------------------------------
Date: Mon, 19 May 2003 22:14:16 GMT
From: "Kevin Bass" <kbass1@nc.rr.com>
Subject: Re: CGI Question: Submitting row in a form
Message-Id: <YGcya.60243$fr6.3481016@twister.southeast.rr.com>
"Chris Olive" <nospam@raytheon.com> wrote in message
news:1H7ya.3322$c6.3271@bos-service2.ext.raytheon.com...
> Kevin Bass wrote:
> > Hello:
> >
> > I am attempting to submit rows in a form individually. When the submit
> > button is clicked,
> > an individual row will be updated and the screen will return to its
current
> > state with the
> > updated data from the submit. The submitted data is being stored in a
> > database (Oracle).
> >
> > I have written the code that will handle this event but I am
encountering
> > problems. I can
> > dynamically generate the form but the only the first submit works
correctly.
> > When I click the
> > additional submits on the form (other then the first submit), they do
not
> > capture the data and return the prior data (if there was prior data
sorted).
> > So, in other words, only the first submit works and the others do not.
How
> > can I get pass this problem? If code is needed, please let me know. I
hope
> > that I am clear on this explanation. Thanks! Kevin
> >
> > -----------------------------------------
> > | | | submit
> > -----------------------------------------
> > | | | submit
> > -----------------------------------------
> > | | | submit
> > -----------------------------------------
> > | | | submit
> > -----------------------------------------
> >
> >
>
> Dude, you're going to have to submit more than this cursory overview of
> what you are attempting in order to get a clear answer. You may feel
> you are making the right attempt at accomplishing this, but without some
> code or a little more information, it's hard to say why it's not working.
>
> Also, be aware that your problem may have absolutely nothing to do with
> Perl (and very likely it DOESN'T, just sniffing at this), and many here
> are a bit averse to dealing with CGI problems IN GENERAL, much less
> those that have nothing to do with Perl. I don't mind. But others
> sometimes do (and this isn't just my list), so just be aware of that
> sentiment.
>
> Assuming you are even using Perl for this solution, my gut feeling is
> that somehow your form(s) are not set up properly to return the data as
> you would expect. If you a ARE handing your data back correctly, then
> you aren't interpretting it as you would like.
>
> I'm sure help can be provided with more information provided.
>
> Chris
> -----
> Chris Olive
> Systems Consultant
> Raytheon Technical Services Corporation
> Indianapolis, IN
>
> email: olivec(AT)indy(DOT)raytheon(DOT)com
>
Thank you for responding. I have figured out my problem. My problem dealt
with the format in which I was submitting and the way which my Perl code was
handling the information. I was handling the submittal for the entire page
instead of handling the submitting within my dynamically generated code. My
code is generating the HTML from within my while loop and the form tags had
to be placed there to give the effect of multiple forms represented by each
row of data instead of the entire page being a submittal point. My question
was part CGI but mainly the Perl code that was generated it. :-) Sorry for
on expressing myself a little better in the initial message.
Kevin
------------------------------
Date: Mon, 19 May 2003 20:34:18 +0200
From: Juan Francisco Fernandez Carrasco <juanf@lsi.upc.es>
Subject: Code reference from a subclass
Message-Id: <3EC923AA.2B2C841E@lsi.upc.es>
Hi all!
My problem is this:
I have two classes which are like this: A is B's superclass.
I also have a method "newAddr" in A which gets the code reference from
the method "new".
I thought this scheme would give me the code reference of B's "new" if
I would call "newAddr"
from a B instance, but this is not what happens. It gives me the code
reference of A's "new" instead.
The trivial solution, which is to put "newAddr" in class B is not
possible.
Moreover, getting the code reference qualifying "new" with B is no
possible because B has a bunch
of siblings which will use "newAddr" as well.
Could anybody help me with this?
Why I get the to te code reference of the superclass (A) instead of
that of the subclass (B)?
What is the way to access the right code reference withou moving
"newAddr" from A?
This is the code which originates the problem:
##############################
# CLASS A
##############################
# class constructor
sub new(){
my $proto=shift(@_);
my $class=ref($proto)|| $proto;
my $self={};
bless($self,$class);
return $self;
}#end of new
# gets the address of the method new
# in order to be called after a dynamical
# loading of the class
sub newAddr(){
my $res=\&new;
return $res;
}#end of newAddr
#####################
# CLASS B
####################
@ISA = qw(IndexAccess Loadable Exporter);
use IndexAccess;
require Exporter;
use Loadable;
# class constructor
# it is enabled to get a hash
# with a custom setup of SWISH-e
# (see SWISH module's documentation for how to
# build that hash) or use a default set up
sub new($%){
my $proto=shift(@_);
my $class=ref($proto)|| $proto;
my $self = $class->SUPER::new();
......object building..........
bless($self,$class);
return $self;
}#end of new
Thanks in advance
Juan Fco Fernandez
------------------------------
Date: Mon, 19 May 2003 14:00:05 -0500
From: "Randy Kobes" <randy@theoryx5.uwinnipeg.ca>
Subject: Re: Error message with perl -MCPAN -e shell
Message-Id: <UQ9ya.17178$NC4.76582@news1.mts.net>
"Alan" <waty-spam@powerup.com.au> wrote in message
news:mB%xa.504$po1.35400@nnrp1.ozemail.com.au...
> "leeper" <sav_me_to_nospam@hotmail.com> wrote in message
> news:ba9qnm$qf$1@perki.connect.com.au...
> > kill -9 1142 maybe?
> Yes I tried kill -9 1142 it returned PID does not exist. I rebooted and
> retried perl -MCPAN -e shell. When the error appeared I ran
> ps aux
> This did not show a process id of 1142.
Try looking in your CPAN.pm home directory (eg, /root/.cpan/,
or $HOME/.cpan/) for a file called .lock (with the leading period).
If it exists, remove it, and launch the CPAN shell again.
best regards,
randy kobes
------------------------------
Date: 19 May 2003 13:42:26 -0700
From: kathygao@lucent.com (kathygao)
Subject: GD::Graph error "libgd was not built with FreeType Font"
Message-Id: <88dccc3e.0305191242.3ca27c34@posting.google.com>
I encountered a problem when using GD::Graph module.. I try to change
font size in my code, but got following error message ..
"libgd was not built with FreeType font.."
This error message was generated by following line
$my_graph->set_font_size('cetus.ttf',18) or die $my_graph->error ;
Anybody encountered the same error message ?
------------------------------
Date: 19 May 2003 16:08:46 -0700
From: email_entropy123@yahoo.com (entropy123)
Subject: Re: Help!: Error with 'Benchmark' module
Message-Id: <90cdce37.0305191508.552c05af@posting.google.com>
ctcgag@hotmail.com wrote in message news:<20030519121037.366$sD@newsreader.com>...
> email_entropy123@yahoo.com (entropy123) wrote:
> > here is my code, it is straight from the 'Mastering Algorithms with Perl'
> > book....
> >
> > Appreciate it if you look it over and find my error...
>
> Is this a joke?
>
> > timethese(10000, {quadratic => 'quadratic(1, 1, -1)',
> > bruteforce => 'forloop(0, 1)' });
> ^^^^^^^
>
> Xho
Sadly no joke. I fixed the 'forloop' part, but still the damned thing
did not run. I went to the website and downloaded the code
examples...which did work..
Matt
------------------------------
Date: Tue, 20 May 2003 00:35:37 GMT
From: Bob Walton <bwalton@rochester.rr.com>
Subject: Re: Help!: Error with 'Benchmark' module
Message-Id: <3EC9774E.6040806@rochester.rr.com>
ctcgag@hotmail.com wrote:
> email_entropy123@yahoo.com (entropy123) wrote:
>
>>here is my code, it is straight from the 'Mastering Algorithms with Perl'
>>book....
>>
>>Appreciate it if you look it over and find my error...
>>
>
> Is this a joke?
Sigh. Probably not. The OP doesn't realize the hash key is the
arbitrary name and the value is the code to be timed. So the
"bruteforce" line should go:
forloop => 'bruteforce(0, 1)' });
He also doesn't realize there is a typo in his copy of the code
"straight from ...": sub quadtratic is defined; sub quadratic is
called. So as soon as the first error is fixed, the second one, which
looks pertty similar, will appear.
I checked: the "bruteforce => 'forloop(0, 1)..." error exists in the
book (first edition); the other error does not. The error was corrected
in the 2000 reprint, and appears in the errata on the O'Reilly web site.
Sigh.
>
>
>>timethese(10000, {quadratic => 'quadratic(1, 1, -1)',
>> bruteforce => 'forloop(0, 1)' });
>>
> ^^^^^^^
>
> Xho
>
>
--
Bob Walton
------------------------------
Date: Tue, 20 May 2003 00:41:58 GMT
From: Bob Walton <bwalton@rochester.rr.com>
Subject: Re: Help!: Error with 'Benchmark' module
Message-Id: <3EC978CC.4050204@rochester.rr.com>
entropy123 wrote:
> ctcgag@hotmail.com wrote in message news:<20030519121037.366$sD@newsreader.com>...
>
>>email_entropy123@yahoo.com (entropy123) wrote:
>>
>>>here is my code, it is straight from the 'Mastering Algorithms with Perl'
>>>book....
>>>
>>>Appreciate it if you look it over and find my error...
>>>
>>Is this a joke?
>>
>>
>>>timethese(10000, {quadratic => 'quadratic(1, 1, -1)',
>>> bruteforce => 'forloop(0, 1)' });
>>>
>> ^^^^^^^
>>
>>Xho
>>
>
>
> Sadly no joke. I fixed the 'forloop' part, but still the damned thing
> did not run. I went to the website and downloaded the code
> examples...which did work..
> Matt
>
In addition to that, you misspelled the name of sub quadratic as sub
quadtratic when you defined the sub. Fix that also and see if it works.
--
Bob Walton
------------------------------
Date: Mon, 19 May 2003 18:12:07 GMT
From: Charlton Wilbur <cwilbur@mithril.chromatico.net>
Subject: Re: How do I pop this?
Message-Id: <873cjazu3z.fsf@mithril.chromatico.net>
Brian McCauley <nobull@mail.com> writes:
> Mark <mark@nospam.com> writes:
>
> > I don't think stopping "top-posting" is a worthwhile endeavour -- I'd
> > analogize it to correcting other people's spelling mistakes.
>
> A better analogy would be it's like correcting other people's driving
> on the wrong side of the road.
>
> [ Snip oft repeated minority view as to why top-posting is better ]
>
> > At bottom, it comes down to style and bureaucratizing style is (at
> > least) undemocratic and (at worst) autocratic.
>
> So expecting everyone fall in line with what the majority consider
> acceptable behaviour is undemocratic. Hmmmm....
Good analogy, because it then extends to this:
When you're in London, you drive on the left side of the road. When
you're in Toronto, you drive on the right side of the road. When
you're in Boston, you drive in the middle.
When you're in a corporate environment, or one where top-posting is
the custom, you top-post. When you're in a newsgroup environment, or
one where bottom-posting is the custom, you bottom-post. When you're
in a crazy environment, post in the way that preserves your life and
your sanity.
Driving on the right side of the road in London, or on the left side
of the road in Toronto, gets you arrested or killed. Top-posting in
comp.lang.perl.misc gets you killfiled by the regulars with clues; the
only people left reading your messages will be clueless themselves,
and they're not the people you want help from, if you're posting a
request for help.
Further, this isn't a democracy; it functions mostly as an anarchy.
The only real penalty for top-posting is getting your questions
ignored by many of the clueful regulars. If you don't value that,
then there's little anyone can do to convince you not to top-post; of
course, it won't matter, since you'll have been plonked.
Charlton
------------------------------
Date: Mon, 19 May 2003 17:17:19 -0500
From: tadmc@augustmail.com (Tad McClellan)
Subject: Re: How do I pop this?
Message-Id: <slrnbcilvf.37f.tadmc@magna.augustmail.com>
Mark <mark@nospam.com> wrote:
> I don't think stopping "top-posting" is a worthwhile endeavour
Welcome to the killfile then.
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: 19 May 2003 23:00:50 GMT
From: Tina Mueller <usenet@tinita.de>
Subject: Re: How to pass the fullpath file name using start_multipart_form
Message-Id: <babnn2$qtk89$1@ID-24002.news.dfncis.de>
GauthK <news1@jarunee.org> wrote:
> It's a browser problem , I've just try to access the same web page from
> a windows station and it works ; so I'm looking how to make it works
> with linux/mozilla
it's a browser *and* security issue. works with opera, but
opera asks me this before:
| The files listed below have been selected, without your
| intervention, to be sent to another computer. Do you want
| to send these files?
|
| [Infos...]
hth, tina
--
http://www.tinita.de/ \ enter__| |__the___ _ _ ___
http://Movies.tinita.de/ \ / _` / _ \/ _ \ '_(_-< of
http://www.perlquotes.de/ \ \ _,_\ __/\ __/_| /__/ perception
http://www.tinita.de/peace/link.html - Spread Peace
------------------------------
Date: Mon, 19 May 2003 22:43:48 +0200
From: Gunnar Hjalmarsson <noreply@gunnar.cc>
Subject: Re: Locate a module
Message-Id: <babfp8$r8bbn$1@ID-184292.news.dfncis.de>
Ryan wrote:
> I've just installed a new perl module in a non-standard location (say
> /home/ryan/) and of course my perl script can't find it when I make do
> a;
> use Image::Magick
> So, can someone please tell me how to point to the right location??!!
The Image::Magick module is just an interface to the ImageMagick
library. I hope you have installed that, too, or else it's pointless
to have the script 'find' the module.
/ Gunnar
--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl
------------------------------
Date: 19 May 2003 14:07:21 -0700
From: lepore@brandeis.edu (bryan)
Subject: Re: making scalar variables from array elements, put into table
Message-Id: <dc6e7ce5.0305191307.5032010c@posting.google.com>
Brian McCauley <nobull@mail.com> wrote in message writes:
> > so i guess the simple question is, can i make scalar variables from
> > array elements?
>
> Array elements are scalar variables.
> I suspect you are looking for symbolic references.
> Stop doing so - just use a suitably shaped array.
should i also quit trying to make the loop create new variables?
-bryan
------------------------------
Date: Mon, 19 May 2003 18:37:19 +0000 (UTC)
From: veky@cromath.math.hr (Veky)
Subject: Re: multiple sort subroutine
Message-Id: <bab88v$36a$1@bagan.srce.hr>
Dok je Veky citao comp.lang.perl.misc, pod PIDom 7339 (290325 off, 4 to go...),
primijetio je kreaturu zvanu quantum_mechanic_1964@yahoo.com (Quantum Mechanic),
ispod cijih su prstiju izasle (izmedu ostalih) sljedece rijeci:
|> http://www.perldoc.com/perl5.8.0/pod/perlfaq4.html
|> #What's-wrong-with-always-quoting--%24vars--
|> I suppose this is authoritative enough... :-)
|
|What about composite keys, such as:
|
| $y = 'abc';
| $z = '123';
| $x{$y,$z} = 'something';
|
|When I look at this in the debugger, the key is shown as 'abc\c123'.
Yes, I know that.
|If later your code is not expecting the '\c' in the key, but expects
|',' [comma], your code is broken.
Don't expect. Just use it (in reading _and_ in writing).
It's not a bug, it's a feature. Really. See $; in perlvar.
You can even set $; to "," if you like, but \034 is much less likely to
occur than "," in "normal" subscripts.
--
\#{% Sad gradi svoj grad iz snova... znaj da mozes i znaj da znas...
------------------------------
Date: 19 May 2003 15:13:25 -0700
From: quantum_mechanic_1964@yahoo.com (Quantum Mechanic)
Subject: Re: multiple sort subroutine
Message-Id: <f233f2f0.0305191413.bc672f3@posting.google.com>
veky@cromath.math.hr (Veky) wrote in message news:<bab88v$36a$1@bagan.srce.hr>...
> |If later your code is not expecting the '\c' in the key, but expects
> |',' [comma], your code is broken.
>
> Don't expect. Just use it (in reading _and_ in writing).
> It's not a bug, it's a feature. Really. See $; in perlvar.
> You can even set $; to "," if you like, but \034 is much less likely to
> occur than "," in "normal" subscripts.
Ahh, thanks, I had forgotten about that.
Then I just need to remember to use $; outside of hash key context, such as:
# %x has keys like $x{$y$z}...
$k = 'something';
@keys_i_want = grep /$;$k/, keys %x;
[although I probably shouldn't index %x this way.]
-QM
------------------------------
Date: 19 May 2003 12:28:10 -0700
From: skip@pobox.com (Skip Montanaro)
Subject: Net::SSLeay::set_timeout for sslcat?
Message-Id: <727daa7e.0305191128.1040bb90@posting.google.com>
Is it possible to set a timeout in Net::SSLeay so it applies to
subsequent calls to Net::SSLeay::sslcat? The set_timeout
function isn't documented as far as I can tell, but it appears
that if worse comes to worse, I can duplicate the sslcat
code and call
set_timeout($ssl, $MYTIMEOUT);
after the call to $new(ctx).
I'm just trying to use sslcat() as a "ping" for POP/SSL and
IMAP/SSL servers. I don't need to carry on a protocol-
specific dialog.
Thanks,
Skip Montanaro
skip@pobox.com
------------------------------
Date: Mon, 19 May 2003 13:43:59 -0600
From: "Rodney" <palladium@spinn.net>
Subject: Re: Perl based shopping cart - does anyone have a recommendation?
Message-Id: <vciet4fiv03d8c@corp.supernews.com>
"Steinar Kjærnsrød" <kjaernsr@online.no> wrote in message
news:G01ya.13564$8g5.213590@news2.e.nsc.no...
> While it might be fun to reinvent this wheel, I don't have the time, and
was
> wondering if anyone has recommendations on Perl based shopping
> carts/shopping systems? My problem is certainly not that I can't find any,
> but rather the opposite! There seem to be lots of such systems around and
> it's difficult to get a grasp on the pros and cons by just reading the
> announcements and basic documentation.
>
> The system I'm looking for need not be freeware/GPL based, but should
> preferrably cost no more than ~300-600$.
>
> I'm not looking for fully fledged e-commerce systems/application servers.
> The system/modules/scripts should as a minimum offer/implement this:
>
> + easy to interface to a product database/inventory, preferrably through
DBI
> or through generic interfaces
> + the same goes for the customer database
> + stateful shopping basket, tracking the customers shopping in each
session
> (client side code OK, i.e. Javascript ++). The shopping basket should
allow
> for easy adding and removal of items, changing the number of items,
checkout
> etc
> + HTML (Javascript ok) based GUI through templates, preferrably through
the
> Template TK
>
> Any hints, tips and experiences with such software will be appreciated.
> Thanks in advance,
>
> --
> Steinar Kjærnsrød kjaernsr@online.no
>
>
How about RedHat's Interchange on Linux?
------------------------------
Date: Mon, 19 May 2003 23:04:41 +0100
From: bengee <postmaster@localhost.localdomain>
Subject: Re: PHP or Perl ?
Message-Id: <sBcya.21362$9C6.1109020@wards.force9.net>
wizard wrote:
> In alt.html bengee <postmaster@localhost.localdomain> wrote:
>
>>I was merely stating that Perl can be used as an ASP, as well as CGI.
>
>
> Do you, by any chance, know what CGI means?
> And how the f*** Perl can be used as CGI?
Yes i know what CGI means. ASP and CGI can both be written in Perl.
Ben
------------------------------
Date: Mon, 19 May 2003 23:05:13 +0100
From: bengee <postmaster@localhost.localdomain>
Subject: Re: PHP or Perl ?
Message-Id: <YBcya.21363$9C6.1109000@wards.force9.net>
Isofarro wrote:
> bengee wrote:
>
>
>>I was merely stating that Perl can be used as an ASP,
>
>
> What? as a complete scripting language with all the modules, or just some
> watered down inferior facsimilie of the real thing?
As a complete scripting language with all the modules.
Ben
------------------------------
Date: Mon, 19 May 2003 20:35:16 GMT
From: "Danny Aldham" <danny@lennon.postino.com>
Subject: Sendmail::Milter - Different Instance of Perl
Message-Id: <8ebya.28619$Vi5.834111@news1.calgary.shaw.ca>
I have been using the cpan module Sendmail::Milter to write a script that
captures, sorts, stores and/or discards e-mail messages. But , I am being
tripped up by the fact that "Each milter callback could quite possibly run
in a different instance of the Perl interpreter" , as the man pages point
out. Sure enough, I need to process the complete message from connect to
close, as I want to capture all the headers & message body, and then process
them. As the machine gets busy processing mail I am getting messages mixed
together. Does anyone know a method or strategy that can deal with this
multi-threading?
thanks,
Danny Aldham
www.postino.com
------------------------------
Date: 19 May 2003 14:30:34 -0700
From: thomas-ggl-01@data.iatn.net (Thomas)
Subject: STDERR Error logging not working in ActivePerl/ISAPI Perl
Message-Id: <4f2cac50.0305191330.5ba8766e@posting.google.com>
Hello,
Usually ActivePerl/ISAPI Perl from ActiveState logs STDERR output to a
Perl-Err.log or PerlIS-Err.log file in the \perl\bin directory.
However I've just recently installed the latest version of Perl from
ActiveState onto two Win2K servers, and although I am writing to
STDERR and I have scripts that should be writing failures to those log
files, I am not seeing any .log files written.
I have PerlEx installed also, and it *IS* logging to .log files in the
\perl\bin directory, no problem. I have searched through the registry
for ActiveState Perl, and cannot find any settings that would seem to
turn logging on/off. I've also searched for help on Google and on
ActiveState's website, I can't find anything about Perl error log
files for it.
Any ideas?
Thanks!
Regards,
Thomas
------------------------------
Date: 19 May 2003 11:45:10 -0700
From: lucid1@mediaone.net (Brian)
Subject: Strange invisible char from csh and/or tcsh
Message-Id: <961d6f35.0305191045.5292f586@posting.google.com>
Hi all,
I'm executing a system call using qx, like this:
@output = qx "sytem call 2>dev/null";
For KSH users this works fine. If the command produces no output, the
size of my array is 0 and it contains nothing (undef I guess).
However, with tcsh, the command returns nothing, but some weird kind
of empty string is put in the array. If I print it like this:
print "-$_-";
I get the output of "--" to the screen. However, if I do this:
if (/^\s*$/) { ... }
It is NOT true. So even though my string looks like it's empty, I
can't use a regex to detect it. I threw in the \s* to hope to catch
the mystery symbol but it didn't work.
So what is this mystery character and how can I weed it out?
Thanks for any help.
------------------------------
Date: Mon, 19 May 2003 18:54:01 +0000 (UTC)
From: veky@cromath.math.hr (Veky)
Subject: Re: Strange invisible char from csh and/or tcsh
Message-Id: <bab989$lh4$1@bagan.srce.hr>
Dok je Veky citao comp.lang.perl.misc, pod PIDom 8173 (290341 off, 1 to go...),
primijetio je kreaturu zvanu lucid1@mediaone.net (Brian),
ispod cijih su prstiju izasle (izmedu ostalih) sljedece rijeci:
|if (/^\s*$/) { ... }
|It is NOT true. So even though my string looks like it's empty, I
|can't use a regex to detect it. I threw in the \s* to hope to catch
|the mystery symbol but it didn't work.
|So what is this mystery character and how can I weed it out?
First try length . Then try substr with ord .
Or just printf it with %vd ...
--
\#{% Sad gradi svoj grad iz snova... znaj da mozes i znaj da znas...
------------------------------
Date: 19 May 2003 15:21:34 -0700
From: quantum_mechanic_1964@yahoo.com (Quantum Mechanic)
Subject: Re: Strange invisible char from csh and/or tcsh
Message-Id: <f233f2f0.0305191421.728139f@posting.google.com>
lucid1@mediaone.net (Brian) wrote in message news:<961d6f35.0305191045.5292f586@posting.google.com>...
> Hi all,
>
> I'm executing a system call using qx, like this:
>
> @output = qx "sytem call 2>dev/null";
>
> For KSH users this works fine. If the command produces no output, the
> size of my array is 0 and it contains nothing (undef I guess).
>
> However, with tcsh, the command returns nothing, but some weird kind
> of empty string is put in the array. If I print it like this:
>
> print "-$_-";
>
> I get the output of "--" to the screen. However, if I do this:
>
> if (/^\s*$/) { ... }
>
> It is NOT true. So even though my string looks like it's empty, I
> can't use a regex to detect it. I threw in the \s* to hope to catch
> the mystery symbol but it didn't work.
>
> So what is this mystery character and how can I weed it out?
>
> Thanks for any help.
To find each character's ASCII value in a string:
print ord $_, "\n" foreach split //, $weird_chars;
If you can't find it from that, post the relevant code for review...
-QM
------------------------------
Date: 19 May 2003 13:46:45 -0700
From: jonasb@alum.rpi.edu (Big Brother)
Subject: Syslog parsing with Perl
Message-Id: <79c1dbe1.0305191246.52707479@posting.google.com>
Hi -
I'm building a centralized logging system, and want to use Perl to
create a CGI interface for reviewing/searching/analyzing the logfiles
from Syslog. I wrote a script that basically reads in the log file and
outputs it to a web page, but I'm a little bit concerned about
searching. If I want to do just a plain search on one of the log
files, I will have to open the file and parse through it - my question
is if I have the logfile open in the Perl script, will this put a lock
on it and prevent logging to this file? I'm basically looking for
input on how I should go about doing this. I see that a lot of people
are using mySQL and searching that, but I'd rather not deal with that
(mainly because I'm going to have a ton of data and will need to
archive it regularly so as not to overflow on disk space). I also
don't want to just copy the syslog file every time I need to search
it.
Any suggestions would be appreciated! Please email me directly if
possible, as I won't have newsgroup access for the next few days.
Thanks
B
------------------------------
Date: Mon, 19 May 2003 17:23:54 -0500
From: tadmc@augustmail.com (Tad McClellan)
Subject: Re: Syslog parsing with Perl
Message-Id: <slrnbcimbq.37f.tadmc@magna.augustmail.com>
Big Brother <jonasb@alum.rpi.edu> wrote:
> my question
> is if I have the logfile open in the Perl script, will this put a lock
> on it and prevent logging to this file?
No.
open() does not lock files.
flock() locks files.
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Mon, 19 May 2003 22:32:21 GMT
From: Michael Budash <mbudash@sonic.net>
Subject: Re: Syslog parsing with Perl
Message-Id: <mbudash-E855C8.15321919052003@typhoon.sonic.net>
In article <slrnbcimbq.37f.tadmc@magna.augustmail.com>,
tadmc@augustmail.com (Tad McClellan) wrote:
> Big Brother <jonasb@alum.rpi.edu> wrote:
>
> > my question
> > is if I have the logfile open in the Perl script, will this put a lock
> > on it and prevent logging to this file?
>
>
> No.
>
> open() does not lock files.
>
> flock() locks files.
but only in the view of other programs using flock().
--
Michael Budash
------------------------------
Date: Mon, 19 May 2003 18:41:16 +0000 (UTC)
From: veky@cromath.math.hr (Veky)
Subject: Re: why key is added to hash after defined ?
Message-Id: <bab8gc$8j1$1@bagan.srce.hr>
Dok je Veky citao comp.lang.perl.misc, pod PIDom 7339 (290326 off, 3 to go...),
primijetio je kreaturu zvanu Matija Papec <mpapec@yahoo.com>,
ispod cijih su prstiju izasle (izmedu ostalih) sljedece rijeci:
|>|>Test for defined $hash{foo1} && defined $hash{foo1}{foo2} ...
|>|>this way, if there is no foo1 key in hash, short-circuiting of "&&" will
|>| ^^^^^^^^^^^^^^^^^^^
|>|Actually 'exists' does that, although defined is just fine most of the time.
|>Yes, but original poster tested with defined, so I thought that would be
|>fine for him...
|You firstly wrote "defined $hash{foo1}" and after that "this way, if there
|is no foo1 key in hash"
|from which it can be concluded that first statement tests for existence of
|'foo1' key.
The conclusion would be wrong, and, of cource, non valid, by what I
wrote down there.
|On the other hand this is pretty irrelevant here since if $hash{foo1} is
|undef there surely can't be no $hash{foo1}{mykey}
[croatian]A i to sto kazes... :-)[/croatian]
|>BTW, my statement is mathematically correct. I said "if...then", and
|>that direction really holds. I never said anything about the
|>converse...:-)
|I see, you're mathematician..
Of course. Is it so obvious:-? :-)
|PMF? :)
Not exactly, but... let's say so.
Math faculty in Zagreb.
--
\#{% Sad gradi svoj grad iz snova... znaj da mozes i znaj da znas...
------------------------------
Date: Mon, 19 May 2003 14:09:51 -0500
From: "Randy Kobes" <randy@theoryx5.uwinnipeg.ca>
Subject: Re: win32 perl installation perl mans?
Message-Id: <2_9ya.17185$NC4.76203@news1.mts.net>
"Ryan & Treena Carrier" <ryanc@nci1.net> wrote in message
news:ac1c94bd16ceabec96638efbdbe77bde@TeraNews...
> I'm running ActiveState's perl engine. When a module is not available
> through ppm, and I get it from CPAN, I install using the perl Makefile.PL,
> nmake, nmake test, nmake install method. Is there a way (from the
> command line, maybe?) to get to the man pages (pods)? When a
> module is installed through ppm, it automagically installs the man
> pages within the 'documentation' web page.
Assuming you're referring to the html docs generated from
the pods, and not the unix man pages, what you could do
within the distribution's source directory is generate the
html pages from the pods of the distribution, copy them to
blib/html/, make a .ppd file through 'nmake ppd', make a .tar.gz
archive of the blib/ directory, and then do a 'ppm install
Name_of_local_ppd_file.ppd' - this will, in addition to what is
done by 'nmake install', also copy the html docs to the relevant
location on your system and update the table of contents
accordingly. The PPM::Make module on CPAN can help
with a number of these steps.
best regards,
randy kobes
------------------------------
Date: 20 May 2003 00:41:07 GMT
From: "James E Keenan" <jkeen@concentric.net>
Subject: YAPC::Canada -- A Success
Message-Id: <babtj3$sg@dispatch.concentric.net>
There should be at least one mention on this list of the great job which
Ottawa.pm and friends did in organizing the first Yet Another Perl
Conference::Canada at Carleton University in Ottawa on May 15 and 16.
Congratulations to Jay Lawrence, Steve Jenkins, Marc Tessier, Daniel Allen
and all the others (pardon me for not remembering more names) who helped
make this conference a success.
------------------------------
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.
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 5007
***************************************
