[12850] in Perl-Users-Digest
Perl-Users Digest, Issue: 260 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Jul 26 12:07:20 1999
Date: Mon, 26 Jul 1999 09:05:10 -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, 26 Jul 1999 Volume: 9 Number: 260
Today's topics:
Re: a bit of a bind.. <keithmur@mindspring.com>
Re: Aliasing long expresions <sfedi@dc.uba.ar>
Re: Aliasing long expresions <sfedi@dc.uba.ar>
Re: Can anyone explain concepts of Perl Objects? <paul.glidden@unisys.com>
Re: changing file owner (Clinton Pierce)
Re: Extracting plain text from email (Larry Rosler)
Re: Extracting plain text from email <tchrist@mox.perl.com>
Re: Extracting plain text from email <cmcurtin@interhack.net>
Re: FAQ 8.45: How do I install a module from CPAN? (Abigail)
Re: File Uploading (Clinton Pierce)
Re: File Uploading <dparrott@ford.com>
Re: Getting page title <jcarrio@imagelink.com.br>
Re: Guru question: Regular Expression (Abigail)
How can I set Env Vars Intelligently for mod_perl ?? kincy@tibco.com
Re: How make .pl files executable? Is there a compiler? <paul.glidden@unisys.com>
Re: How make .pl files executable? Is there a compiler? (Abigail)
HTML::Parser sample <kin@0011.com>
Re: LWP and PUT <dparrott@ford.com>
Re: LWP won't compile into freestanding exe (Reini Urban)
Re: Need installation help on Apache or PWS <kperrier@blkbox.com>
perl.dll question <arnd-nolte@cybernet-ag.de>
Re: reg expression (Abigail)
Re: reg expression <revjack@radix.net>
Re: remove records from database inlandpac@my-deja.com
Re: remove records from database (Anno Siegel)
Screen addressing <Robert.Rawlinson@worldnet.att.net>
SSI command in Perl script problem <steven@*REMOVE*filipowicz.com>
Terminal Emulation with CGI Script? Please... <tarrigoni@arrigoni.com>
Re: Testing MSQL/Perl scripts at home with MS Access/Ac <griffinc@ameritech.net>
Text File Busy (errno = 26) <sohrabSPAMSUX@d2c2.com>
unixware 7 problems <paul.glidden@unisys.com>
Re: Using FAQ in ActiveStates Perl <dparrott@ford.com>
Re: Which group is appropriate? (Abigail)
Digest Administrivia (Last modified: 1 Jul 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 26 Jul 1999 10:57:39 -0500
From: "Keith G. Murphy" <keithmur@mindspring.com>
Subject: Re: a bit of a bind..
Message-Id: <379C8573.C958250E@mindspring.com>
Tom Christiansen wrote:
>
> [courtesy cc of this posting mailed to cited author]
>
> In comp.lang.perl.misc,
> keithmur@mindspring.com writes:
> :On the 2nd point, why does this not work:
> :
> :my $fh = do { local *FH };
> :&FH;
> :sub FH {
> : print "In the sub\n";
> :}
>
> What do you mean, "doesn't work"? It works fine for me, printing out
>
> In the su
>
> as you expect.
>
I'm glad you said that. I was beginning to think I was awfully dense.
I had assumed you'd get the same error I did.
Using 5.004_04 on linux kernel 2.0.36, I get:
Undefined subroutine &main::FH called at /root/bin/testlocal.pl line 3.
Of course, it is not just subroutine symbols that get incorrectly
undefined. "$FH=3", for instance, gets wiped out, too, under 5.004_04.
However, I have since noticed that running ActiveState's 5.005_02 on
Win95, the behavior is as expected (prints "In the sub"). It prints the
above error message if I get rid of the "do" block, as you would
expect.
Perhaps this is where I get chided for not using the latest version of
Perl. However, it is the latest in the Debian "stable" distro, so I
guess I'm not alone. ;-)
I think this may be an actual bug in 5.004. I cannot tell that the
documentation for local has changed in this regard. Please correct me
if I'm wrong.
------------------------------
Date: Mon, 26 Jul 1999 15:10:15 GMT
From: Sergio Bruno Fedi de Oro <sfedi@dc.uba.ar>
Subject: Re: Aliasing long expresions
Message-Id: <7nhtoh$hat$1@nnrp1.deja.com>
> Why alias? You can simply dereference the array ref and assign
> to an array.
That would duplicate the information, a waste of memory.
> > # Here's where I alias the array
> > *files = \@{$$ref_paquetes{$paquete_actual}};
>
> replace with
> @files = @{$$ref_paquetes{$paquete_actual}};
Ditto.
(Besides, I need to modify the original structure, not a copy of it)
Thanks.
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: Mon, 26 Jul 1999 15:30:26 GMT
From: Sergio Bruno Fedi de Oro <sfedi@dc.uba.ar>
Subject: Re: Aliasing long expresions
Message-Id: <7nhuuj$ia8$1@nnrp1.deja.com>
> >I want to alias a long dereferencing expresion, but it doesn't
work...
>
> In what way does it not work?
It gave me the following error (but see below):
Global symbol "%ref_paquetes" requires explicit package name at
ConfigIO.pm line 137.
Compilation failed in require at interback.pl line 5.
BEGIN failed--compilation aborted at interback.pl line 5.
This error was caused because I dereferenced wrongly $ref_paquetes and
perl thought it was a new hash, named %ref_paquetes (thanks "use
strict;" ;-)
> > # Here's where I alias the array
> > *files = \@{$$ref_paquetes{$paquete_actual}};
>
> You are dereferencing an array ref, creating a new array, and taking a
ref to
> it. You are aliasing a *copy* of the array. Is that what doesn't
work?
No, I finally made it work, and this wasn't making a copy, it referenced
to the original array (if you take a reference, then dereference it, and
take back it reference, why should it make a new copy?)
> Since you already have an array ref to start, just use it:
>
> local *files = $ref_paqetes->{$paquete_actual};
Yep, this worked, and much shorter too. Thanks.
Another thing I had to do to make it work is to prefix the typeglob
"files" with the package name, that is, all apparitions of "files" where
replaced by "ConfigIO::files".
Do you know why is this?
Why can't I just use "files"? [as the name of the typeglob]
Is it because I'm using this name in a package? I'm puzzled.
Thanks everyone for the answers.
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: Mon, 26 Jul 1999 10:41:23 -0500
From: "Paul Glidden" <paul.glidden@unisys.com>
Subject: Re: Can anyone explain concepts of Perl Objects?
Message-Id: <7nhvjc$iuo$1@bbnews1.unisys.com>
The best way to learn about perl objects is just to learn object oriented
programming in general. Then perl is just semantics from that point on.
People write books on object oriented programming, and there is an entire
chapter dedicated to perl packages in the camel book. Realistically one
can't explain that sort of thing to someone over a newsgroup. To try would
just make one dumber.
example: read the thread I'm replying to.
------------------------------
Date: Mon, 26 Jul 1999 14:29:43 GMT
From: cpierce1@ford.com (Clinton Pierce)
Subject: Re: changing file owner
Message-Id: <379d7085.1457167666@news.ford.com>
On Mon, 26 Jul 1999 05:22:02 GMT, sberch_no-spam_@world.std.com (S Berch)
wrote:
>I am creating a file with a cgi script. The script runs under the user
>"nobody" and the file that is created has "nobody" as the owner. I
>can't edit this file, or do anything but delete it.
>
>I've tried adding "chown" to the script to get the file back to my
>user name but get an error message that the script running "chown" is
>not the owner.
>
>Other than running the script under my user id, which I'm told is
>risky, is there anything I can do?
Most versions of Unix will not allow you to "give away" a file, unless
you're root.
Make the file readable by you, copy its contents into a new file, delete
the original (assuming the directory is writable by you and it's not "s").
--
Clinton A. Pierce "If you rush a Miracle Man, you get rotten
clintp@geeksalad.org Miracles." -- Miracle Max, The Princess Bride
http://www.geeksalad.org
------------------------------
Date: Mon, 26 Jul 1999 07:19:45 -0700
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: Extracting plain text from email
Message-Id: <MPG.12060e2d1d1532cc989d49@nntp.hpl.hp.com>
In article <379c54f5@cs.colorado.edu> on 26 Jul 1999 06:30:45 -0700, Tom
Christiansen <tchrist@mox.perl.com> says...
> In comp.lang.perl.misc, miker3@ix.netcom.com (Michael Rubenstein) writes:
> :It is a matter of opinion whether these things imply that
> :responses should come after quotes.
>
> Your continued attempts at branding design flaws and outright mistakes
...
I'm glad the issue of 'design flaws' in the tools used finally appeared
in this thread.
I am cursed with using the same tool as the rest of my workgroup for
processing e-mail (not for Netnews, thank God, because they couldn't
care less) -- Micro$oft Outlook/Exchange. When I respond to a message,
the dumb thing presents me with this:
[blinking cursor here]
[my .sig]
> -----Original Message-----
[the indented marked text of the message I am responding to]
Sheer laziness would induce me to type my response in at the top, where
the cursor is. Instead, I have to cut my .sig and paste it at the end;
go back to the top and cut that stupid 'Original Message' line, then
finally begin to edit and insert into the body of the message. My
'system' administrator swears that this order is not individually
configurable (though the quoting style is configurable).
So every message I receive from a member of my workgroup is in Jeopardy
form, and getting them to do anything about it would be a Sysiphean
labor. I simply don't try. But I do send mine out correctly, and hope
that someone else notices and does the same, thereby starting a culture
change. Thus far, I hope in vain.
--
(Just Another Larry) Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: 26 Jul 1999 08:40:02 -0700
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: Extracting plain text from email
Message-Id: <379c7342@cs.colorado.edu>
[courtesy cc of this posting mailed to cited author]
In comp.lang.perl.misc,
lr@hpl.hp.com (Larry Rosler) writes:
:form, and getting them to do anything about it would be a Sysiphean
"Sysiphean" =~ y/iy/yi/
But yes, it feels like that sometimes. You're welcome to use my autofaq
that I posted, or send me patches to the same. I have a couple dozen of
these neophytal training expositions that I've saved over the years,
which I occasionally send out with about three keystrokes (I love
programmable completion) if need be.
--tom
--
I might be able to shoehorn a reference count in on top of the numeric
value by disallowing multiple references on scalars with a numeric value,
but it wouldn't be as clean. I do occasionally worry about that. --lwall
------------------------------
Date: 26 Jul 1999 11:18:55 -0400
From: Matt Curtin <cmcurtin@interhack.net>
Subject: Re: Extracting plain text from email
Message-Id: <xlxr9lv1lsw.fsf@gold.cis.ohio-state.edu>
>>>>> On Mon, 26 Jul 1999 03:14:01 GMT,
miker3@ix.netcom.com (Michael Rubenstein) said:
Michael> And other people seem to think that common sense says that
Michael> the response comes before the quote. Apparently your opinion
Michael> is not universally recognized as common sense.
But it is, among those who have maintained any level of presence on
Usenet for any significant length of time. There are local exceptions
to the global style guidelines, but these are generally only
applicable in newsgroups overrun by inadequately initiated newbies.
comp.lang.perl.* are not newsgroups of this sort.
In this day and age, even having spent a year or more reading news is
almost irrelevant from the perspective of discerning culture and
custom if doing so through ridiculous user interfaces (i.e., DejaNews
or Microsoft Lookout) that hide the traditional presentation of
articles. It must be admitted that stupid tools (which unfortunately
tend to gear themselves toward use by the clueless) only make the
problem worse. Thus the newbie who is determined to be a cybercitizen
finds himself in the position of Bottom, assuming that
well-intentioned long-timers are really playing some sort of game with
them:
I see their knavery: this is to make an ass of me;
to fright me, if they could. But I will not stir
from this place, do what they can: I will walk up
and down here, and I will sing, that they shall hear
I am not afraid.
Failing to recognize a culture and to make one's presentation
palatable to the audience shows gross disrespect for that audience.
Newbies guilty of lacking appropriate respect should be thankful for
the advice offered them as heeding such will help to prevent them from
finding their way into the killfiles of fine clueful users around the
world.
But shockingly few and far between are the newbies sufficiently humble
to learn from their mistakes. So they refuse to stir and we configure
out clients to ignore them.
Sing, they do, but hear them, we do not.
--
Matt Curtin cmcurtin@interhack.net http://www.interhack.net/people/cmcurtin/
------------------------------
Date: 26 Jul 1999 10:34:03 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: FAQ 8.45: How do I install a module from CPAN?
Message-Id: <slrn7povu2.l5o.abigail@alexandra.delanet.com>
Bruce R Miller (miller@altaira.cam.nist.gov) wrote on MMCLI September
MCMXCIII in <URL:news:7n7td7$9cs$1@news.nist.gov>:
()
() Hmm, that last bit! If my installation directory is only writable
() by root (a not uncommon setup ?), I've got to run the whole CPAN
() shell, ftp and everything as root too, right?
I've a user 'camel' that owns everything in /opt/perl. No need to have
'root' own anything Perl related.
Abigail
--
perl -MNet::Dict -we '(Net::Dict -> new (server => "dict.org")
-> define ("foldoc", "perl")) [0] -> print'
-----------== 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: Mon, 26 Jul 1999 14:28:07 GMT
From: cpierce1@ford.com (Clinton Pierce)
Subject: Re: File Uploading
Message-Id: <379c6e6d.1456631665@news.ford.com>
On Mon, 26 Jul 1999 12:39:11 +0100, "Darren Ferguson"
<DarrenF@intro-uk.com> wrote:
>So, what i'm asking is if anybody can provide me of a description of what
>exactly is contained within the boundaries of a "file" input and how to
>parse it. Any help would be much appreciated.
Don't do this by hand. Please. It's error-prone, unnecessary, unsafe,
insecure and foolish. That's a hard wheel to re-invent and you won't get
it right.
Very few people would get it right.
>I'm afraid my provider will not allow me to use CGI.pm or CGI_lib.pl so its
>gotta be straight perl i'm afraid
Then it's not a valid Perl installation. CGI.pm comes with the standard
Perl distribution. Having altered that, your provider isn't really
providing you with Perl, are they?
They had to, though malice or stupidity, manually remove CGI.pm. If it's
their policy, then it's both malice and stupidity. I hope they get hacked
badly--and if they forbid CGI.pm, but allow Perl, they will. Bet on it.
Get a new provider.
--
Clinton A. Pierce "If you rush a Miracle Man, you get rotten
clintp@geeksalad.org Miracles." -- Miracle Max, The Princess Bride
http://www.geeksalad.org
------------------------------
Date: Mon, 26 Jul 1999 10:22:18 -0400
From: "Dennis M. Parrott" <dparrott@ford.com>
To: Clinton Pierce <cpierce1@ford.com>, DarrenF@intro-uk.com
Subject: Re: File Uploading
Message-Id: <379C6F1A.A47E4B5D@ford.com>
Clinton Pierce wrote:
>
> On Mon, 26 Jul 1999 12:39:11 +0100, "Darren Ferguson"
> <DarrenF@intro-uk.com> wrote:
> ((((snip))))
> >I'm afraid my provider will not allow me to use CGI.pm or CGI_lib.pl so its
> >gotta be straight perl i'm afraid
>
cgi_lib.pl I can understand -- there are gurus who claim it has
'security' problems. ...but CGI.pm?!?! It is the standard tool.
> Then it's not a valid Perl installation. CGI.pm comes with the standard
> Perl distribution. Having altered that, your provider isn't really
> providing you with Perl, are they?
>
> They had to, though malice or stupidity, manually remove CGI.pm. If it's
> their policy, then it's both malice and stupidity. I hope they get hacked
> badly--and if they forbid CGI.pm, but allow Perl, they will. Bet on it.
>
> Get a new provider.
>
...or surf out to the net and grab a copy of CGI.pm, put it in
your directory with your CGI scripts and do 'use lib ...' to
use YOUR copy of CGI.pm
> Clinton A. Pierce "If you rush a Miracle Man, you get rotten
> clintp@geeksalad.org Miracles." -- Miracle Max, The Princess Bride
> http://www.geeksalad.org
hey, I didn't know that geeks were allowed to eat salad!
next thing you know, it'll be OK to eat QUICHE!
ps: so what's a geek supposed to eat on a salad, anyway? ;^)
--
-----------------------------------------------------------------------
Dennis M. Parrott | Unix: dparrott@ford.com
PCSE Webmaster | PROFS: DPARROTT
Ford Motor Company | VAX: EEE1::PARROTT
Dearborn, Michigan USA | public Internet: dparrott@ford.com
-----------------------------------------------------------------------
Voice: 313-322-4933 Fax: 313-248-1234 Pager: 313-851-2958
------------------------------
Date: Mon, 26 Jul 1999 12:38:17 -0300
From: Julio Carrio <jcarrio@imagelink.com.br>
Subject: Re: Getting page title
Message-Id: <379C80E9.943E4C7F@imagelink.com.br>
Abigail wrote:
> If you mean the title of HTML pages, then, the answer is, yes, of course.
> The title will always be relatively in the beginning, and you can always
> close the socket as soon as you've got the title.
>
> Abigail
Ok. How I do this? I'm a beginner ...
Julio
------------------------------
Date: 26 Jul 1999 09:59:58 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: Guru question: Regular Expression
Message-Id: <slrn7potu5.l5o.abigail@alexandra.delanet.com>
Kin Lum (kin@0011.com) wrote on MMCLV September MCMXCIII in
<URL:news:379C4A0F.905E27D3@0011.com>:
%% using HTML::Parser is fine. but for such a simple task,
%% using it would be an overkill. can it be done in 2, 3 lines
%% in Perl?
If you know enough about Perl and HTML to classify "HTML::Parser" as
"overkill", I'm sure you can answer that question yourself.
Abigail
--
perl -e '* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / /
% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % %;
BEGIN {% % = ($ _ = " " => print "Just Another Perl Hacker\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: Mon, 26 Jul 1999 15:40:29 GMT
From: kincy@tibco.com
Subject: How can I set Env Vars Intelligently for mod_perl ??
Message-Id: <7nhvhc$ior$1@nnrp1.deja.com>
When I was running standard apache, I had a startup shell script for my
perl scripts which set various environment variables, most importantly,
LD_LIBRARY_PATH. It was something like this:
ROOT=/local
PERLLIB=/local/vantive/perl_dir/perl5003/lib export PERLLIB
CGILIB=/local/httpd/cgi-bin export CGILIB
VANAPI=$ROOT/vantive/vanapi
VANPERL=$VANAPI/Vanperl
SERVER=/local/httpd/cgi-bin/tibtrack.pl
LD_LIBRARY_PATH=$LD_LIBRARY_PATH:$VANAPI:/usr/ucblib:/local/vantive/perl
_dir/perl5003/lib/ucblib:/local/httpd/cgi-bin export LD_LIBRARY_PATH
/local/vantive/perl_dir/perl5003/bin/perl -I $VANPERL -I $CGILIB -I
$PERLLIB $SERVER
how do I something similar with mod_perl ? I know I can use the SetEnv
directive, but based on what I know, i would have to hardcode the
variable, which isn't what I prefer to do. Any help would be
appreciated...
kincy
kincy@tibco.com
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: Mon, 26 Jul 1999 10:26:12 -0500
From: "Paul Glidden" <paul.glidden@unisys.com>
Subject: Re: How make .pl files executable? Is there a compiler?
Message-Id: <7nhumk$i64$1@bbnews1.unisys.com>
once the .pl file has been moved to the unix box, the mode must be changed
to executable.
chmod +x filename
If you don't have shell access to the unix box, you'll have to get an ftp
program such as wsftp that supports the chmod function.
Overall recommendation buy "unix for dummies"
Dimitrio wrote in message <7ngd0d$gq1$1@news.mandic.com.br>...
>Hi,
>How do I make my .pl files into .exe files? Or into unix executables (even
>better)?
>
>Please some one help me with this one,
>Marcos.
>
>
>
>
------------------------------
Date: 26 Jul 1999 10:35:10 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: How make .pl files executable? Is there a compiler?
Message-Id: <slrn7pp005.l5o.abigail@alexandra.delanet.com>
Dimitrio (mdimitrio@yahoo.com) wrote on MMCLV September MCMXCIII in
<URL:news:7ngd0d$gq1$1@news.mandic.com.br>:
`` Hi,
`` How do I make my .pl files into .exe files? Or into unix executables (even
`` better)?
RTFFAQ.
Abigail
--
sub A::TIESCALAR{bless\my$x=>A};package B;@q=qw/Hacker Another
Perl Just/;use overload'""'=>sub{pop @q};sub A::FETCH{bless\my
$y=>B}; tie my $shoe => 'A';print "$shoe $shoe $shoe $shoe\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: Mon, 26 Jul 1999 08:56:37 -0700
From: Kin Lum <kin@0011.com>
Subject: HTML::Parser sample
Message-Id: <379C8535.A44F6BD6@0011.com>
to use HTML::Parser, shouldn't the following code work?
it seems that the method cannot be overridden...
#!/usr/local/bin/perl
require HTML::Parser;
$p = HTML::Parser->new;
$p->parse("<b>hi</b><i><bbb>");
$p->eof;
sub start {
print join(" ", @_), "\n";
}
Kin Lum wrote:
>
> using HTML::Parser is fine. but for such a simple task,
> using it would be an overkill. can it be done in 2, 3 lines
> in Perl?
>
> Abigail wrote:
> >
> > Kin Lum (kin@0011.com) wrote on MMCLIV September MCMXCIII in
> > <URL:news:379BA0E4.6A7A5127@0011.com>:
> > {} can you easily kill all tags except the ones you want to keep:
> > {} <b> <i> <font > <a >
> >
> > If you have simplistic HTML (the kind most browser can understand)
> > you can use the horribly misnamed 'HTML::Parser' module.
> >
> > {} # now kill all tags
> > {} s/<.*?>//g;
> >
> > This is too stupid to take seriously. Please read the FAQ.
> >
> > Abigail
> > --
> > perl -MTime::JulianDay -lwe'@r=reverse(M=>(0)x99=>CM=>(0)x399=>D=>(0)x99=>CD=>(
> > 0)x299=>C=>(0)x9=>XC=>(0)x39=>L=>(0)x9=>XL=>(0)x29=>X=>IX=>0=>0=>0=>V=>IV=>0=>0
> > =>I=>$r=-2449231+gm_julian_day+time);do{until($r<$#r){$_.=$r[$#r];$r-=$#r}for(;
> > !$r[--$#r];){}}while$r;$,="\x20";print+$_=>September=>MCMXCIII=>()'
> >
> > -----------== 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: Mon, 26 Jul 1999 09:51:41 -0400
From: "Dennis M. Parrott" <dparrott@ford.com>
To: HC <carvdawg@patriot.net>
Subject: Re: LWP and PUT
Message-Id: <379C67ED.CBDF2AD7@ford.com>
PUT is server configuration-dependant. Only the fact that PUT is
part of the HTTP std and that servers will make an intelligible
(as opposed to what you may define as 'intelligent'...) response.
check your servers docs, maybe...
HC wrote:
>
> Does anyone have any code showing the correct usage of the HTTP PUT
> method?
> I'm having trouble getting it working correctly. I am on NTServer 4.0,
> using AS 518.
> I have read the docs that come with the install, and looked in the Perl
> Cookbook (which
> is the ONLY site with an example), Perl in a Nutshell, etc.
>
> Thanks
> Carv
--
-----------------------------------------------------------------------
Dennis M. Parrott | Unix: dparrott@ford.com
PCSE Webmaster | PROFS: DPARROTT
Ford Motor Company | VAX: EEE1::PARROTT
Dearborn, Michigan USA | public Internet: dparrott@ford.com
-----------------------------------------------------------------------
Voice: 313-322-4933 Fax: 313-248-1234 Pager: 313-851-2958
------------------------------
Date: Mon, 26 Jul 1999 14:12:40 GMT
From: rurban@xarch.tu-graz.ac.at (Reini Urban)
Subject: Re: LWP won't compile into freestanding exe
Message-Id: <379c6b81.93654718@judy.x-ray.local>
David Greer <dgreer@connectnet.com> wrote:
>When I compile a script using ActiveCorp's PDK PerlApp script into a
>freestanding exe it compiles fine, but when run gives the following
>error:
>
>Can't locate LWP in @INC (@INC contains: . C:\TEMP\crunch) at (eval 1)
>line 109, <FILECHUNK> chunk 1.
>
>crunch is the name of the script and FILECHUNK is a file handle used
>within the script. LWP is used in the script. Anybody run into any
>thing of this sort?
this is a perl2exe related problem. perl2exe (obviously renamed to some
fancy name recently with the same old problems, eeh features) tries to
find all used modules and recursively all modules which are required by
other modules, but does a bad job there.
then it packages everything into one big exe.
on run-time it extracts the gathered scripts and modules into %TEMP%
(without LWP.pm obviously) and fails then.
i did my workarounds by copying and renaming all the needed modules into
the scriptdir. the "compiler" (i would call it "packager") can find,
package and extract them.
otherwise, by manipulating @INC and such, it will work on your system,
but not at the client who is not supposed to have perl installed.
--
Reini Urban
http://xarch.tu-graz.ac.at/autocad/news/faq/autolisp.html
------------------------------
Date: 26 Jul 1999 09:37:59 -0500
From: Kent Perrier <kperrier@blkbox.com>
Subject: Re: Need installation help on Apache or PWS
Message-Id: <58235BFB15BE052E.2638D1A6137C68E6.FBAAFC6FE0C83918@lp.airnews.net>
"Marko Cehaja" <thetaworld@magikomik.de> writes:
> Hi
>
> I want to debug and run my cgi and pl scripts on Windows 98. I have Apache
> server and if needed the Microsoft Personal Webserver. My perl is installed
> properly and it runs scripts, but under PWS and Apache, doesnt write new
> files, or it can open files.
>
> I don't see how to change that on Apache or on PWS. So, the problem is that
> I want my CGI scripts to be able to WRITE something on the harddisk. And I
> use it just for debugging as a local server.
>
> Can someone can help about that basic installation?
Perhaps you should ask this question in a news group that deals with the
server software inquestion, since this isn't a perl problem. If you look
under comp.infosystems.www in your list us usenet news groups you will
probably see a news group that whos name ends with server.ms-windows or
server.windows A group with a name like this would be the proper place
to ask a question about the setup of your webserver, NOT a group that
dicsusses the programming language perl.
Kent
------------------------------
Date: Mon, 26 Jul 1999 17:51:05 +0200
From: "Arnd Nolte" <arnd-nolte@cybernet-ag.de>
Subject: perl.dll question
Message-Id: <7ni0b4$r2t$1@news4.muc.eurocyber.net>
I want to acess the perl.dll to execute perl scripts offline from delphi,
but I only know the name of functions to call. Can anybody tell me where to
find the parameters?
Or is there a better solution to execute a perl script offline?
Thanks for your comments.
--
Arnd Nolte
arnd-nolte @ no spam cybernet-ag.de
------------------------------
Date: 26 Jul 1999 10:03:08 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: reg expression
Message-Id: <slrn7pou43.l5o.abigail@alexandra.delanet.com>
llornkcor (llornkcor@llornkcor.com) wrote on MMCLV September MCMXCIII in
<URL:news:7nhoih$17m$1@birch.prod.itd.earthlink.net>:
== > The problem you describe is asked in variants about 37 times a day.
== > It's also a FAQ. Go to school, and learn to read. Then read.
==
== The purpose of a newsgroup is to ask questions and get answers.
If that's the sole purpose of a newsgroup, ask your question in one of
the 20,000 other newsgroups.
== Of course, I
== have on my computer, about 10 perl FAQ's, and of course, I went to school,
== and learned how to read. And have READ. of course, I couldn't find any
== answers pertaining to the specific issue at hand. That's why I asked.
Then read the FAQ again. Or read the newsgroup. The question is asked many
times a day.
Abigail
--
perl -wleprint -eqq-@{[ -eqw\\- -eJust -eanother -ePerl -eHacker -e\\-]}-
-----------== 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: 26 Jul 1999 15:28:32 GMT
From: revjack <revjack@radix.net>
Subject: Re: reg expression
Message-Id: <7nhur0$jil$1@news1.Radix.Net>
Keywords: Hexapodia as the key insight
llornkcor explains it all:
:The purpose of a newsgroup is to ask questions and get answers.
That's not the purpose of, say, alt.slack, or alt.religion.kibology. :)
------------------------------
Date: Mon, 26 Jul 1999 14:49:42 GMT
From: inlandpac@my-deja.com
Subject: Re: remove records from database
Message-Id: <7nhsi3$gfj$1@nnrp1.deja.com>
I am talking about a flat file (| delimited).
I am new at this and don't appreciate the criticism towards my search
for understanding and knowledge.
These communities are supposed to be for everyone to use; for the
inexperienced to learn and for others to share their knowledge. If you
are not here to share your knowledge and have desires to criticize then
what is the point in you being here?
Please do not assume that I am an experienced coder and should already
know this stuff. If you have some answers or know where I can read
about it, let me know - guide me to the right place.
I have five books on perl and cgi and not one of them helps with my
problem on sorting and removing records from flat file databases.
So, if you have some suggestions for me or have a solution, please let
me know. If you are going to put me down (or anyone else for that
matter), then don't bother writing anything at all.
Thanks,
Chad.
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: 26 Jul 1999 15:33:05 -0000
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: remove records from database
Message-Id: <7nhv3h$7k4$1@lublin.zrz.tu-berlin.de>
Chad Horton <sandc@sprynet.com> wrote in comp.lang.perl.misc:
>No, this is not SQL!
>
>I am writing a perl script that will do this.
No, you're not. To quote from your original posting (which I have
appended in full at the end for reference) you wrote:
> I have only gotten as far as opening the database!^M
This is not a stage of problem solving where you can reasonably turn
to a newsgroup for help.
> I am not using SQL or MSQL.
>I know where I posted my question and thank you for not assuming any further
>as to what I am really asking.
But there is no other way but assuming to get to what you're really
asking. Your problem is described in the vaguest of terms.
>I am sick of people answering what they please and not getting to the point
>of the subject. If you don't know the anser to this specific problem, then
>please do not respond!
Translation: Write my script for me or shut up. Charming.
>This is a legit. perl question. I need to know how to implement this in a
>perl script.
It isn't a perl question. You're asking people to figure out what
you are trying to do, find an algorithm to do it, and then, please,
implement the solution in Perl. It isn't a legit question either,
not at the stage you're at.
The problem you described (if that's an adequate term for what you
posted) could be solved in any of a slew of languages. Someone
proposed SQL, which you, for reasons entirely your own, don't want
to use:
>I know enough about SQL and do not want to use it in this. I also do not
>want to use the SQL modules.
Why not? Any decent database is good at sorting and selecting according
to the values of multiple fields. That seems to be what you need to
do.
Anno
[Chad's original article follows]
Here is my dilema:
I have a database like this:
100|www.pepsi.com|10|10|80|0|
20|www.pepsi.com|1||1|18|0|
20|www.pepsi.com|1|1|18|0|
10|www.pepsi.de|1|1|8|0
65|www.remark.pepsi.com|32|20|10|3|
44|www.pepsi.com|10|10|12|12|
23|www.digipepsi.net|5|15|1|2|
100|www.digipepsi.net|25|30|20|25|
What I need to find the highest value for column 1 for all records per
domain and remove the duplicate records.
So, in this case the results be be this:
100|www.pepsi.com|10|10|80|0|
10|www.pepsi.de|1|1|8|0
65|www.remark.pepsi.com|32|20|10|3|
100|www.digipepsi.net|25|30|20|25|
I have only gotten as far as opening the database!
Please help.
Thanks,
chad.
------------------------------
Date: Mon, 26 Jul 1999 11:44:33 -0400
From: Robert Rawlinson <Robert.Rawlinson@worldnet.att.net>
Subject: Screen addressing
Message-Id: <379C8261.1C2F53F8@worldnet.att.net>
I need to address area's on a terminal screen. I want to put up a form
and then one by one address the area on the screen and get entries. I
seem to be unable to find anything in the CAMEL or LAMA books on doing
this. Could someone point me to a man page or a book to get me started?
Thanks
Bob
--
Robert A. Rawlinson
E. Eileen Rawlinson ________
3456 Franklin Road | [][] \________________
Felicity, Oh 45120 ___ |_______ |
(513) 876-3256 ___/___|___+___ | [] [][] |
(517) 382-7263 | | | | | |
=()--------()---= -----------()()----=
------------------------------
Date: Mon, 26 Jul 1999 16:56:28 +0200
From: Steven Filipowicz <steven@*REMOVE*filipowicz.com>
Subject: SSI command in Perl script problem
Message-Id: <7nhslt$gu4$1@news.worldonline.nl>
Hi All,
I have this SSI command :
<!--#exec cgi="/cgi-bin/countit/countit.pl/"-->
I want to put it into a Perl script I thought I would do it like this :
print "<!--#exec cgi="/cgi-bin/countit/countit.pl/"--> visits.\n";
But offcourse this doesn't work so I tried :
print "<!--#exec cgi=\"/cgi-bin/countit/countit.pl/\"--> visits.\n";
This also doesn't work.
Anyone got an idea?
Thanks!
------------------------------
Date: Mon, 26 Jul 1999 08:10:44 -0700
From: "Tyler Arrigoni" <tarrigoni@arrigoni.com>
Subject: Terminal Emulation with CGI Script? Please...
Message-Id: <S%_m3.1$OT.175@typhoon-sf.snfc21.pbi.net>
Hello,
My company owns two CalComp Laser plotters that each require a "terminal" be
connected to control various operating parameters. Presently, I control
them with a single linux box's ttyS0 and ttyS1 ports using minicom at
9600-8-n-1/VT100. I can then telnet into the box from anywhere and change
settings on the plotter...What I would like to do is let the drafters do
this via their web browsers.
Question: How do I read and write from/to a serial device requiring the
above emulation?
Most of the plotters operations are controlled by single commands with no
prompts from the plotter unless there is an error in syntax. So...I am
imagining a couple rows of submit buttons and a few pulldown boxes for "roll
a"/"roll b" scenarios. Simple enough if I could figure out the IO method.
Also, there are a few commands issued at the plotter command line that makes
the plotter print the plot queue status every 10 secs. Would server push
into a dedicated html frame work here? How?
Any help would be greatly appreciated...I don't know where to start with
this IO type...
Thanks,
Tyler M. Arrigoni, VP Arrigoni & Associates, Inc.
Network Design & Integration Consulting Electrical Engineers
tarrigoni@n-o-s-p-a-m.arrigoni.com
(Remove "n-o-s-p-a-m" from above address)
------------------------------
Date: Mon, 26 Jul 1999 10:24:44 -0500
From: Griffin Caprio <griffinc@ameritech.net>
Subject: Re: Testing MSQL/Perl scripts at home with MS Access/Activestate Perl
Message-Id: <379C7DBC.6016C17C@ameritech.net>
"Paul Foran (Layout/Design)" wrote:
>
> How do I install Linux into my PC while keeping Windows98 Operating system??
Buy any of the current distobutions. Since you are new, go for RedHat
6.0 or Caldera 2.2. You can get them from CompUSA or BeatBuy or you
could order them from http://www.thelinuxstore.com.
> I believe that you have to partition my Harddrive and make one sector active.
> How exactly is this done?
They both come with good instructions.
> Can I run MSQL with Linux to simulate the ISP's config. Is MSQL free for
> perl/CGI development?
yes, mysql is free and easy to use on linux. Check out
http://www.mysql.com. Apache, the web server, will come with your
distribution.
> Thanks Paul
>
"You can't depend on me all your lives.
You have to learn that there is a little
Homer Simpson in all of us." -Homer Simpson
------------------------------
Date: Mon, 26 Jul 1999 10:27:43 -0400
From: "Sohrab" <sohrabSPAMSUX@d2c2.com>
Subject: Text File Busy (errno = 26)
Message-Id: <Fg_m3.1018$CK6.1782@client>
Hi all,
I know that there was a thread floating around in here about a user getting
"Text File Busy" messages, but I only see a snippet of what the problem /
solution was in deja.com.
I've got a problem that may be similar, so please excuse any repetition...
I'm running a set of perl scripts on RedHat Linux 5.1 that are locally
accessing a Postgres database and returning info to a web page. Pretty
basic stuff in the scripts, nothing fancy, some CGI.pm and DBI/DBD for the
database work.
The problem I'm having, is that every once in a while, when I try to execute
a script from my browser (via direct URL) I get a Internal server error 500
from the web server (apache) and the error log says:
<begin quote>
exec of /web/argus/www/cgi-bin/login.pl failed, reason: Text file busy
(errno = 26)
<end quote>
Now, if I try to run the script interactively on the linux box (perl
login.pl) I don't have any trouble.
Is there something I'm not aware of that causes this? If I reboot, the
problem is solved, and it comes back again after a while (I'm not sure what
triggers it)
Thanks for any help,
Sohrab Niramwalla
sohrab@d2c2.com
------------------------------
Date: Mon, 26 Jul 1999 10:32:39 -0500
From: "Paul Glidden" <paul.glidden@unisys.com>
Subject: unixware 7 problems
Message-Id: <7nhv39$ii2$1@bbnews1.unisys.com>
This is a question concerning how DBD interacts with Perl during the
install, but really focuses on how perl installs on unixware boxes.
When trying to statically compile DBD::Oracle for a unixware 7 box I begin
to run into problems when I try to do the "make perl" The make tries to
link to libperl.a, but there wasn't one created.
Tim Bunce feels that perhaps unixware defaults to building a shared
libperl.so instead of building a libperl.a
Is this correct, if so does anyone have any ideas as to what a good course
of action would be for me regarding this situation?
thanks
Paul
------------------------------
Date: Mon, 26 Jul 1999 10:10:24 -0400
From: "Dennis M. Parrott" <dparrott@ford.com>
To: Jody Fedor <JFedor@datacom-css.com>
Subject: Re: Using FAQ in ActiveStates Perl
Message-Id: <379C6C50.B146F296@ford.com>
hmmm... perhaps your 'more' is broken somehow as the 2nd
example works just fine on my WinNT 4 box here at work...
(in a DOS box window... maybe your command shell has a
problem?)
Jody Fedor wrote:
>
> How can I get "More" to work at the command line for Active States Perl
> Docs.
>
> I've tried things like this without any success:
>
> perldoc -q array > more
> perldoc -q array | more
>
> Any Suggestions? My answers are just flying away.
>
> Jody
--
-----------------------------------------------------------------------
Dennis M. Parrott | Unix: dparrott@ford.com
PCSE Webmaster | PROFS: DPARROTT
Ford Motor Company | VAX: EEE1::PARROTT
Dearborn, Michigan USA | public Internet: dparrott@ford.com
-----------------------------------------------------------------------
Voice: 313-322-4933 Fax: 313-248-1234 Pager: 313-851-2958
------------------------------
Date: 26 Jul 1999 10:04:43 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: Which group is appropriate?
Message-Id: <slrn7pou72.l5o.abigail@alexandra.delanet.com>
bane_dewitt@my-deja.com (bane_dewitt@my-deja.com) wrote on MMCLV
September MCMXCIII in <URL:news:7nhj15$a67$1@nnrp1.deja.com>:
** In article <slrn7pn5a1.b7i.abigail@alexandra.delanet.com>,
** abigail@delanet.com wrote:
** > bane_dewitt@my-deja.com (bane_dewitt@my-deja.com) wrote on MMCLIV
** > September MCMXCIII in <URL:news:7nfrm6$7oc$1@nnrp1.deja.com>:
** >
** > \\ Is there any perl language question that _can't_ be answered
** > \\ with "RTFM" and/or "RTFFAQ"?
** >
** > Yes.
**
** For example?
**
** How frequently does that occur here?
Read the group and take score.
Abigail
--
srand 123456;$-=rand$_--=>@[[$-,$_]=@[[$_,$-]for(reverse+1..(@[=split
//=>"IGrACVGQ\x02GJCWVhP\x02PL\x02jNMP"));print+(map{$_^q^"^}@[),"\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: 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". The real FAQ, as it
appeared last in the newsgroup, can be retrieved with the request "send
perl-users FAQ". Due to their sizes, neither the Meta-FAQ nor the FAQ
are included in the digest.
The "mini-FAQ", which is an updated version of the Meta-FAQ, is
available by requesting "send perl-users mini-faq". It appears twice
weekly in the group, but is not distributed in the digest.
For other requests pertaining to the digest, send mail to
perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
sending perl questions to the -request address, I don't have time to
answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V9 Issue 260
*************************************
