[16598] in Perl-Users-Digest
Perl-Users Digest, Issue: 4010 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Aug 14 14:05:40 2000
Date: Mon, 14 Aug 2000 11:05:20 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Message-Id: <966276319-v9-i4010@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Mon, 14 Aug 2000 Volume: 9 Number: 4010
Today's topics:
"Setting locale failed" error on 5.6 rpm upgrade <kwythers@forestry.umn.edu>
Re: "Setting locale failed" error on 5.6 rpm upgrade (Robert Hallgren)
Accessing ODBC data using PERL <darwal@altavista.net>
Re: Accessing ODBC data using PERL <jeff@vpservices.com>
Ascii highlight code? <odriscol@lucent.com>
Re: Ascii highlight code? <mjcarman@home.com>
Re: Ascii highlight code? (Logan Shaw)
Can't call a script from html created by another script <rsouthgate@hotmail.com>
Re: CGI, How to get back to cached dokument <Bulent@khio.no>
Compilation error for 5.6 under win32 kyberneticist@my-deja.com
Re: delete string from file? nobull@mail.com
Re: dr watson (Abigail)
Re: GET HEALTHY 3249 <newsposter@cthulhu.demon.nl>
Re: grep() optimisation (Mark-Jason Dominus)
Re: grep() optimisation (Abigail)
Re: How to replace the newline in perl? coughlan@gothaminteractive.com
Re: Message board code (Jon S.)
Re: Negativity in Newsgroup -- Solution (Jon S.)
Re: Negativity in Newsgroup -- Solution <abe@ztreet.demon.nl>
Re: Negativity in Newsgroup -- Solution <smerr612@mailandnews.com>
Re: Negativity in Newsgroup -- Solution nobull@mail.com
Re: Negativity in Newsgroup -- Solution <russ_jones@rac.ray.com>
Re: Net::SMTP is this package available for Win32 PERL? <nickco3@yahoo.co.uk>
Re: Newbie post problem. nobull@mail.com
Re: Organizing and verifying a set of tree structures (Abigail)
Pass a value from cgi to cgi <MarkLee@hotmail.com>
passing from a korn shell to a perl script <mail@mail.com>
Re: Perl code for a newbie!! <juex@my-deja.com>
Re: Perl code for a newbie!! <craig.pugsley@mimesweeper.com>
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 14 Aug 2000 10:46:10 -0500
From: "Kirk R. Wythers" <kwythers@forestry.umn.edu>
Subject: "Setting locale failed" error on 5.6 rpm upgrade
Message-Id: <39981442.73337E49@forestry.umn.edu>
When I installed 5.6 (via an rpm) I got the following error:
perl: warning: Setting locale failed.
perl: warning: Please check that your locale settings:
LANGUAGE = (unset),
LC_ALL = (unset),
LANG = "(null)"
are supported and installed on your system.
perl: warning: Falling back to the standard locale ("C").
I'm not sure what I should do next. Can someone point me in the right
direction to get these "local settings" set?
Thanks, Kirk
--
Kirk R. Wythers University of Minnesota
Email: kwythers@forestry.umn.edu Department of Forest Resources
Tel: 612.625.22611530 Cleveland Ave. N.
Fax: 612 625.5212 Saint Paul, MN 55108
------------------------------
Date: Mon, 14 Aug 2000 17:17:21 GMT
From: sandhall@swipnet.se (Robert Hallgren)
Subject: Re: "Setting locale failed" error on 5.6 rpm upgrade
Message-Id: <slrn8pgahh.1hu.sandhall@poetry.lipogram>
On Mon, 14 Aug 2000 10:46:10 -0500,
Kirk R. Wythers <kwythers@forestry.umn.edu> wrote:
> When I installed 5.6 (via an rpm) I got the following error:
>
> perl: warning: Setting locale failed.
Have a look at 'perldoc perllocale' under "LOCALE PROBLEMS".
Robert
--
Robert Hallgren <sandhall@swipnet.se>
PGP: http://www.lipogram.com/pgpkey.asc
5F1E 95C2 F0D8 25A3 D1BE 0F16 D426 34BD 166A 566C
------------------------------
Date: Mon, 14 Aug 2000 18:54:19 +0100
From: "DAWallace" <darwal@altavista.net>
Subject: Accessing ODBC data using PERL
Message-Id: <8n9bto$3sd$1@newsg3.svr.pol.co.uk>
Hello Everybody,
I'm trying to extract information from a Microsoft Access database using
PERL. Here's the code...
print "Content-Type: text/html\n\n";
print "Hello World<br>";
use OLE;
$cnKwiz = CreateObject OLE "ADODB.Connection" or die "Create Object :
$!";
$cnKwiz->Open('kwizCom');
$sql = "Select * from TKC~1~01";
$rsKwiz = $cnKwiz->Execute($sql);
$out = $rsKwiz->FIELDS('Question')->VALUE;
print $out;
and I'm receiving the following error...
Can't call method "FIELDS" on an undefined value at "odbc_test.pl" line
8.
I'm just testing the code locally at the moment. I'm running Personal Web
Server on Win 98 with Active State PERL 5.6.0.616. (I realise this isn't
the best environment to develop PERL stuff, but thems the breaks!!) I'd
rather not use any obscure PERL modules either since the company looking
after our server doesn't seem to know it's arse from it's elbow!!
Any help would be greatly appreciated.
--
Darren A. Wallace
------------------------------
Date: Mon, 14 Aug 2000 10:59:58 -0700
From: Jeff Zucker <jeff@vpservices.com>
Subject: Re: Accessing ODBC data using PERL
Message-Id: <3998339E.B77A3E97@vpservices.com>
DAWallace wrote:
>
> Hello Everybody,
> I'm trying to extract information from a Microsoft Access database using
> PERL. Here's the code...
> ...
> use OLE;
> I'd
> rather not use any obscure PERL modules
OLE is a quite obscure way to access access. Try DBI with DBD::ODBC or
DBD::ADO.
--
Jeff
------------------------------
Date: Mon, 14 Aug 2000 16:07:29 +0100
From: Steven O'Driscoll <odriscol@lucent.com>
Subject: Ascii highlight code?
Message-Id: <39980B31.BF4F7804@lucent.com>
I have written a perl prog to list manpage contents as html, my problem is that
I can't display highlighted text it displays 4 of each character, so options
becomes ooooppppttttiiiioooonnnnssss. To remove underlined text I use
s/_\010//g; I just need the code for highlighted text, unless I'm missing
something more fundamental. I use nroff to format the man page.
Any help greatly appreciated.
Steven O'Driscoll
------------------------------
Date: Mon, 14 Aug 2000 11:02:49 -0500
From: Michael Carman <mjcarman@home.com>
Subject: Re: Ascii highlight code?
Message-Id: <39981829.BBFC248F@home.com>
Steven O'Driscoll wrote:
>
> I have written a perl prog to list manpage contents as html, my
> problem is that I can't display highlighted text it displays 4 of
> each character, so options becomes ooooppppttttiiiioooonnnnssss.
> To remove underlined text I use s/_\010//g; I just need the code
> for highlighted text, unless I'm missing something more fundamental.
> I use nroff to format the man page. Any help greatly appreciated.
Does your source file contain 'ooooppppttttiiiioooonnnnssss' or is that
your display mucking things up? The former seems unlikely, but if it is,
this will change quadruples back to singles:
s/(\w)\1{3}/$1/g
HTH
-mjc
------------------------------
Date: 14 Aug 2000 13:02:52 -0500
From: logan@cs.utexas.edu (Logan Shaw)
Subject: Re: Ascii highlight code?
Message-Id: <8n9c8c$2ud$1@provolone.cs.utexas.edu>
In article <39981829.BBFC248F@home.com>,
Michael Carman <mjcarman@home.com> wrote:
>Steven O'Driscoll wrote:
>>
>> I have written a perl prog to list manpage contents as html, my
>> problem is that I can't display highlighted text it displays 4 of
>> each character, so options becomes ooooppppttttiiiioooonnnnssss.
>> To remove underlined text I use s/_\010//g; I just need the code
>> for highlighted text, unless I'm missing something more fundamental.
>> I use nroff to format the man page. Any help greatly appreciated.
>
>Does your source file contain 'ooooppppttttiiiioooonnnnssss' or is that
>your display mucking things up? The former seems unlikely, but if it is,
>this will change quadruples back to singles:
I think what they're saying is that they're using the output of "man"
(or "nroff"), and it does bold characters by printing them then
backspacing then printing them again several times. Unix terminals
understand this and of course so do old dot matrix prints (since the
backspace moves the print head back a character, and the subsequent
character is pounded into the paper again, leaving a bit more ink).
Anyway, the point is that the source probably contains the letter "o"
followed by a control-H, followed by the letter "o" again, and this
repeats so that there is a total of four "o"'s, the last of which is
not followed by a backspace.
The simple solution to this problem to remove all backspaces and
characters that follow them. This will remove both the underlines and
the extra characters in the bold text (assuming underlines come after
the character they underline). So,
s/\b.//g;
It might be better for some reason to match it more precisely,
which means using backreferences:
s/(.)(?:\b\1)+/$1/g;
This matches any character and then matches a sequence of pairs
consisting of backspaces and the character matched. It replaces
it with just character matched. Of course, if you wanted to,
you could do this:
s/(.)(?:\b\1)+/<B>$1<\/B>/g;
It wouldn't be the greatest HTML code at all, but I suppose it would
work. (Besides, you could fix it later with "s/<\/B><B>//;".)
It would be nice to do something like this:
s/(?:(.)(?:\b\1)+)+/<B>$1<\/B>/g;
but the problem is that in that statement I want the "$1" to refer to
all of the characters that match the pattern "(.)", which it doesn't.
Hey, Perl should allow named backreferences and allow me to declare one
of them as an array type so I can do this, right? O.K., maybe not.
But if it did, then "(?$variablename:pattern)" would be one possible
syntax. And heck, might as well allow arrays as well with
"(?@arrayname:pattern)". Then I could write this:
s/(?:(?@chars:.)(?:\b$chars[$#chars])+)/'<B>'.join('',@chars).'</B>'/e;
Well *that's* easy to read, huh?
Hope that helps (the code part, not the rumination part).
- Logan
------------------------------
Date: Mon, 14 Aug 2000 18:04:43 +0100
From: "Rob" <rsouthgate@hotmail.com>
Subject: Can't call a script from html created by another script
Message-Id: <8n98ig$13$1@news5.svr.pol.co.uk>
Hi,
This ones been getting to me for a while now, so I'm swallowing my pride,
ready for a barrage of critisism;
Basically I have a Perl script that takes a load of inputs from a standard
HTML form, checks all of them against a MS Access database file and creates
some HTML to display the results, fairly simple and no problems with it. In
the html created there are a few hidden form fields and a submit button.
That calls another script which does basically the same as the first but
sets a cookie as well. Again not a problem, but with this I have a problem.
In fact I don't - both scripts work exactly as intended under winNT running
Apache for NT, but the people hosting the site are using IIS and when
uploaded there the first script still works great but when you click the
button to get to the second - nothing, just a connecting to <server address>
in the status bar. Eventually I get an error that the server is down, but it
isn't obviously. The weird thing I can call the script from a form if there
is nothing being passed to it, but as soon as I put a hidden field in it
hangs again, or even just a name to the button.
So, thats about it, if anyone wants to see the code let me know and i'll
post it, but i'll warn you now, it isn't very neat!!
Thanks very much
Robin
------------------------------
Date: Mon, 14 Aug 2000 19:46:14 +0200
From: Bulent Sarinc <Bulent@khio.no>
Subject: Re: CGI, How to get back to cached dokument
Message-Id: <39983066.91032FAB@khio.no>
thanx for the tips,
i solved in this (surprising) way.
i wrote all data to a file the when i click at submit button,
then a new page showed the users temp result (form).
In that page i made two buttons,
one saying "Continue Send" and the second saying "Go Back" with
onClick=javascript:history.back() as one of you wrote
The surprising part was that It worked under Internet Explorer too
I thought IE didnt support javascript at all
It looks like javascript works under IE only when it is used inside onClick etc
events
it that true?
Bulent
Colin Keith wrote:
> In article <39942837.B6CAEC7A@khio.no>, Bulent Sarinc <Bulent@khio.no> wrote:
> >CGI, How to get back to cached already-filled-form from a CGIscript
> >without erasing the text in the fields.?
>
> I don't quite understand this. If you me the user filled in the data and
> submitted it and you want to go back ... well, why not just redraw the page
> with the information they submitted to your script? I wouldn't suggest
> relying on the browser to cache the information though. Mine seems to do
> it with a degree of randomness. Mind you, most things around me seem to be
> random :)
>
> Try this as a very short + sweet (actually nasty) script to demo what I
> mean:
> #!/usr/bin/perl
>
> use strict;
> use CGI qw/:standard/;
>
> my($cgi) = CGI->new();
> # First calling, draw the form
> draw_form() if(!$cgi->param('number'));
> # Something submitted, check it
> draw_form($cgi->param('number')) if($cgi->param('number') !~ /^\d+$/);
> # It was okay, say thank you
> print header(), start_html('A Simple Example'), h1('Thank you'), end_html();
>
> sub draw_form {
> print header(), start_html('A Simple Example'), h1('A Simple Example'),
> start_form(), "Number: ",
> textfield(-name=>'number',
> -size=>30,
> -default=>$_[0] ? $_[0] : 'Your Number'),
> ($_[0] ? 'You must enter a number!': ''),
> br(), submit(), end_form(), hr(), end_html(), "\n";
> exit(0);
> }
>
> (Originally I wrote a snippet, but I wanted to test that it worked, so I
> ended up doing a program but that was too long, so I cut it down to the
> above)
> Hope it helps,
>
> Col.
>
> ---
> Colin Keith
> Systems Administrator
> Network Operations Team
> ClaraNET (UK) Ltd. NOC
------------------------------
Date: Mon, 14 Aug 2000 16:38:24 GMT
From: kyberneticist@my-deja.com
Subject: Compilation error for 5.6 under win32
Message-Id: <8n97a0$55s$1@nnrp1.deja.com>
A quick search through the archives didn't show anything similar, so
here goes.
I thought that instead of using the binary distribution of perl, I'd
compile stable.tar.gz
I installed MingW MSVCRT version of gcc 2.95.2
I installed dmake.
I set up the dmake configuration, and makefile for mingw.
I set the paths.
Run dmake.
hmmm... Got a warning here or there about pointer type.
*chugs away for a while*
Uh-oh. Little trouble with Socket.c
cd ..\ext\Socket && \
..\..\miniperl -I..\..\lib Makefile.PL INSTALLDIRS=perl
Writing Makefile for Socket
cd ..\ext\Socket && D:\temp\dmake\DMAKE-~1.1PL\dmake.exe -S
gcc -c -g -O2 -DWIN32 -fno-strict-aliasing -DPERL_MSVCRT_READFIX -g -O2
-DVERSION=\"1.72\" -DXS_VERSION=\"1.72\" -I..\..\lib\CORE
Socket.c
Socket.c: In function `boot_Socket':
Socket.c:1224: incompatible type for argument 1 of `strcmp'
dmake.exe: Error code 1, while making 'Socket.o'
dmake.exe: Error code 255, while making '..\lib\auto\Socket\Socket.dll'
Anyway, just thought I'd mention it, on the off chance it wasn't my
fault, and that it might be something fairly easy to solve.
Can I modify socket.c? Is it safe to simply remove it, if I'm not
going to use any sockets any time soon on this machine?
Thanks for any responses, apologies for not doing the usual lurk thing.
Kyber.
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: 14 Aug 2000 17:36:20 +0100
From: nobull@mail.com
Subject: Re: delete string from file?
Message-Id: <u9g0o7dcl7.fsf@wcl-l.bham.ac.uk>
"öÅÎÑ âÕÛÕÅ×" <ebu@pisem.net> writes:
> How to delete string or change it while parsing...
Please see the answer to this question in the FAQ (perlfaq5)
--
\\ ( )
. _\\__[oo
.__/ \\ /\@
. l___\\
# ll l\\
###LL LL\\
------------------------------
Date: 14 Aug 2000 17:10:39 GMT
From: abigail@foad.org (Abigail)
Subject: Re: dr watson
Message-Id: <slrn8pg9ve.tj3.abigail@alexandra.foad.org>
haggi@work (haggi@tappe.net) wrote on MMDXL September MCMXCIII in
<URL:news:39979719.C9C7BDF3@tappe.net>:
==
== I start an shell command with perl on WinNT(SP5) and check the output.
== but sometimes this command produces an error with the "dr. watson" window.
Perhaps you should use the "sherlock holmes" window instead.
Abigail
--
perl -e 'for (s??4a75737420616e6f74686572205065726c204861636b65720as?;??;??)
{s?(..)s\??qq \?print chr 0x$1 and q ss\??excess}'
------------------------------
Date: 14 Aug 2000 15:02:42 GMT
From: Erik van Roode <newsposter@cthulhu.demon.nl>
Subject: Re: GET HEALTHY 3249
Message-Id: <8n91mi$hol$1@internal-news.uu.net>
Michael Carman <mjcarman@home.com> wrote:
> x wrote:
>>
>> On Sun, 13 Aug 2000 08:54:39 GMT, ggdbfm@yahoo.com wrote:
>>
>> > I lost a tone of weight using his personalized weight loss
>> > program and services directly over the internet. [...]
>> > Sorry if I posted in the wrong area, I am new at this. If I
>> > did it wont happen again
>>
>> [...] you are a professional [...] spammer [...]
> What? You mean that posting about a diet program to a comp.* ng wasn't
> an honest mistake?
``Honestly, I tried posting top alt.scam.diet, but selected all 30000
newsgroups my provider has instead.''
Erik
------------------------------
Date: Mon, 14 Aug 2000 15:39:49 GMT
From: mjd@plover.com (Mark-Jason Dominus)
Subject: Re: grep() optimisation
Message-Id: <399812c4.4a4c$27d@news.op.net>
In article <966252069UBK.fvw@var.cx>, fvw <fvw+usenet@var.cx> wrote:
><3997cde7.3c98$31e@news.op.net> (mjd@plover.com):
>>In article <966231197VVC.fvw@var.cx>, fvw <fvw+usenet@var.cx> wrote:
>[snip good solution for a different case]
>
>My apologies, I have not been clear enough. My data always consists
>of 6 colon-terminated strings,
Then what about my second suggestion?
------------------------------
Date: 14 Aug 2000 15:40:14 GMT
From: abigail@foad.org (Abigail)
Subject: Re: grep() optimisation
Message-Id: <slrn8pg4lt.tj3.abigail@alexandra.foad.org>
Anno Siegel (anno4000@lublin.zrz.tu-berlin.de) wrote on MMDXL September
MCMXCIII in <URL:news:8n8ra8$ev4$1@lublin.zrz.tu-berlin.de>:
`` fvw <fvw+usenet@var.cx> wrote in comp.lang.perl.misc:
`` ><3997cde7.3c98$31e@news.op.net> (mjd@plover.com):
`` >>In article <966231197VVC.fvw@var.cx>, fvw <fvw+usenet@var.cx> wrote:
`` >[snip good solution for a different case]
`` >
`` >My apologies, I have not been clear enough. My data always consists
`` >of 6 colon-terminated strings, followed by a string that I have to
`` >check for matching of substrings. so tr/:// would end up always end up
`` >>=6. The reason I've added the ([^:]:){6} to the beginning of the regexp
`` >is to stop anything from $b from matching anywhere in the first fields
`` >of the string. After advice from someone in this group, I've already
`` >added a ^ to the beginning of it (resulting in a huge speed gain), which
`` >might make it a bit more clear that all I want to do is ignore the first
`` >six colon-terminated fields, while still preserving them in the result
`` >of the grep().
``
`` In that case you may be able to save some time if you prepare a
`` secondary array with the colon-containing prefix chopped off once
`` and for all. That way, m/^([^:]:){6}/ will only have to run once
`` for each of the strings.
And if the number of digits between the colons is always the same, clever
use of substr() or pos() eliminates the use of that regex.
Abigail
--
perl -wleprint -eqq-@{[ -eqw\\- -eJust -eanother -ePerl -eHacker -e\\-]}-
------------------------------
Date: Mon, 14 Aug 2000 17:01:33 GMT
From: coughlan@gothaminteractive.com
Subject: Re: How to replace the newline in perl?
Message-Id: <8n98l9$6ho$1@nnrp1.deja.com>
What exactly does this mean? I understand what you are suggesting, Joe,
and it's clever, but it didn't work. It gave me a line count.
How are you exporting your excel data? Are you sure that we have a \n
only in the data? Is there an excel option I'm missing? Here's what I
tried, Thanks!
#!/usr/bin/perl
my $msdos = 1;
open (IN, "killme.CSV") || warn "Could not open file.\n";
local $/ = "\r\n" if $msdos; # So that \n by itself is not end of line
while($_ = <IN>) {
s/-\n/-/g; # Convert soft hyphen to hard hyphen
s/\n/ /g if $msdos; # Convert lone LF into a blank
s/\r /\n/ if $msdos; # Convert what used to be CRLF to LF
$count++ if /\n/; # Count full lines, not partials ...
}
print "# lines: " . $count;
In article <Pine.GHP.4.21.0008121209150.4459-100000@hpplus03.cern.ch>,
"Alan J. Flavell" <flavell@mail.cern.ch> wrote:
> On 12 Aug 2000, Joe Smith wrote:
>
> > The CSV files I've looked at have two types of \n in them:
>
> Oh dear. In Perl the notation \n denotes the platform-dependent
> newline representation. On a given platform the meaning of \n is
> well-defined, there can't be two kinds of them.
>
> What I'm trying to say is that if you don't use clear terminology
> you're only going to make a confusing topic even more confusing.
>
>
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Mon, 14 Aug 2000 16:11:58 GMT
From: jonceramic@nospammiesno.earthlink.net (Jon S.)
Subject: Re: Message board code
Message-Id: <39981a1d.10350740@news.earthlink.net>
On Mon, 14 Aug 2000 12:11:46 GMT, gregosse2409@my-deja.com wrote:
>I will soon start to developp a message board (forum) in Perl.
>It will only use text files (no database).
>But I'm sure that some of you have already done such things...
>
>All URLs, sources and advices... are welcome !
Learning Perl has this as one of their examples IIRC.
Jon
------------------------------
Date: Mon, 14 Aug 2000 16:10:37 GMT
From: jonceramic@nospammiesno.earthlink.net (Jon S.)
Subject: Re: Negativity in Newsgroup -- Solution
Message-Id: <3998177f.9680710@news.earthlink.net>
On 14 Aug 2000 07:26:00 GMT, ebohlman@netcom.com (Eric Bohlman) wrote:
>Drew Simonis (care227@attglobal.net) wrote:
>: Methinks the Schwartz is growing weary.
>
>I don't think Randal was expecting the Spanish Inquistion.
Nooobody expects the Spanish Inquisition!
Our only principle is:
"Use Strict;"
Our second...
Er, um,
Our TWO main principles are
"Use Strict;"
and use "-w"
:)
Anyway, who the hell is this Randal character anyway? It's not like
he ever taught anyone how to learn perl or anything... ;)
Jon
------------------------------
Date: Mon, 14 Aug 2000 18:33:11 +0200
From: Abe Timmerman <abe@ztreet.demon.nl>
Subject: Re: Negativity in Newsgroup -- Solution
Message-Id: <hp7gpskqflmra4c0djks7eq9nfgig7r9t1@4ax.com>
On Mon, 14 Aug 2000 16:10:37 GMT, jonceramic@nospammiesno.earthlink.net
(Jon S.) wrote:
> On 14 Aug 2000 07:26:00 GMT, ebohlman@netcom.com (Eric Bohlman) wrote:
>
> >Drew Simonis (care227@attglobal.net) wrote:
> >: Methinks the Schwartz is growing weary.
> >
> >I don't think Randal was expecting the Spanish Inquistion.
>
> Nooobody expects the Spanish Inquisition!
>
> Our only principle is:
>
> "Use Strict;"
Can't locate object method "Use" via package "Strict"
--
Good luck,
Abe
------------------------------
Date: Mon, 14 Aug 2000 16:42:03 GMT
From: Steven Merritt <smerr612@mailandnews.com>
Subject: Re: Negativity in Newsgroup -- Solution
Message-Id: <8n97gp$5gn$1@nnrp1.deja.com>
In article <8n86u8$iq9$2@nntp9.atl.mindspring.net>,
ebohlman@netcom.com (Eric Bohlman) wrote:
> I don't think Randal was expecting the Spanish Inquistion.
No one expects the Spanish Inquisition!
Steven
--
King of Casual Play
The One and Only Defender of Cards That Blow
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: 14 Aug 2000 18:10:13 +0100
From: nobull@mail.com
Subject: Re: Negativity in Newsgroup -- Solution
Message-Id: <u9d7jbdb0q.fsf@wcl-l.bham.ac.uk>
"Ricky J. Sethi" <uscphysics@hotmail.com> writes:
> Rather than entering the fray I propose a possible solution: why
> doesn't someone create a comp.lang.perl.newbie newsgroup?
It's funny how often this suggestion comes up in newsgroup
discussions despite the fact that it is so obviously fatally flawed.
Your solution relies on the co-operation of the exact same group of
people who's refusal to act co-operatively creates the problem.
Now please slap your forhead and say "D'oh!"
--
\\ ( )
. _\\__[oo
.__/ \\ /\@
. l___\\
# ll l\\
###LL LL\\
------------------------------
Date: Mon, 14 Aug 2000 12:50:29 -0500
From: Russ Jones <russ_jones@rac.ray.com>
Subject: Re: Negativity in Newsgroup -- Solution
Message-Id: <39983165.1230EE84@rac.ray.com>
"Randal L. Schwartz" wrote:
>
> just did these two things,
Read the group, do your homework, exhibit an almost fanatical devotion
to the Pope...
--
Russ Jones - HP OpenView IT/Operatons support
Raytheon Aircraft Company, Wichita KS
russ_jones@rac.ray.com 316-676-0747
Quae narravi, nullo modo negabo. - Catullus
------------------------------
Date: Mon, 14 Aug 2000 16:39:24 +0100
From: Nick Condon <nickco3@yahoo.co.uk>
Subject: Re: Net::SMTP is this package available for Win32 PERL?
Message-Id: <399812AC.73DBAC01@yahoo.co.uk>
psb154@my-deja.com wrote:
> Hello,
>
> Can someone point me at an ftp/http site where I can download the
> package:
> net:smtp
>
> for Win32 PERL please.
Net::SMTP is part of the 'libnet' package, which you can get from CPAN:
http://search.cpan.org/search?dist=libnet
------------------------------
Date: 14 Aug 2000 17:33:30 +0100
From: nobull@mail.com
Subject: Re: Newbie post problem.
Message-Id: <u9itt3dcpx.fsf@wcl-l.bham.ac.uk>
"George Crane" <georgec@webleicester.co.uk> writes:
> print "location: backtotheserver.htm?allmyinformation=here"
>
> However, if I do that Im gonna get an ugly string across the location field
> in the browser. Ideally, I want to use the Post method but I cant figure out
> how to return to a page on the normal server using post and add all the
> relevant headers for field content.
The HTTP protocol provides no way for a server to instruct the client
to perform a POST request with a different request body. There are
security arguments for why this is so. The HTTP protocol does provide
a way for the response to a POST request to instruct the client to
post the _same_ request body to a different URL - but this is often
not properly implemented and (IIRC) should require user confirmation
anyhow.
You may be able to do what you want with client-side scripting
(e.g. Javascript) to send a form which immediately submits itself
without user interaction.
This has nothing whatever to do with Perl.
--
\\ ( )
. _\\__[oo
.__/ \\ /\@
. l___\\
# ll l\\
###LL LL\\
------------------------------
Date: 14 Aug 2000 15:31:08 GMT
From: abigail@foad.org (Abigail)
Subject: Re: Organizing and verifying a set of tree structures
Message-Id: <slrn8pg44q.tj3.abigail@alexandra.foad.org>
Martien Verbruggen (mgjv@martien.heliotrope.home) wrote on MMDXL
September MCMXCIII in <URL:news:slrn8pfjch.vgf.mgjv@martien.heliotrope.home>:
@@ On 13 Aug 2000 15:31:52 GMT,
@@ Abigail <abigail@foad.org> wrote:
@@ > Bart Lateur (bart.lateur@skynet.be) wrote on MMDXXXVII September MCMXCIII
@@ > in <URL:news:hdu7psgn362q3e1kd9a992q02tvecb7f13@4ax.com>:
@@ > ~~ I have the subtask of modifiying data that should be ordered in a
@@ > ~~ treelike structure. The user can modify the relationship between two
@@ > ~~ items, so that if one is subordinate to the other, the reverse can't be
@@ > ~~ true. No cycles. It's not just *verifying* that there are no cycles, but
@@ ^^^^^^^^^
@@ > ~~ *removing* the inverse link, if this link did exist before.
@@ >
@@ > That's a vague specification. If you have the links 'A => B', 'B => C',
@@ > 'C => A', what is "the inverse link"?
@@
@@ Specification excluded that.
Well, if there are no cycles, you don't have to verify that there are no
cycles, and you don't have to remove any links forming a cycle.
In case of the absense of cycles, the program to check for existance of
cycles and removing any edges forming a cycle is remarkable simple, and
portable to any datastructure you may wish to use:
perl -e:
I think you are mixing up pre- and postconditions. By promoting
postconditions to preconditions, algorithms become remarkably simple. ;-)
Abigail
--
perl -wleprint -eqq-@{[ -eqw+ -eJust -eanother -ePerl -eHacker -e+]}-
------------------------------
Date: Tue, 15 Aug 2000 01:02:48 +0800
From: Mark <MarkLee@hotmail.com>
Subject: Pass a value from cgi to cgi
Message-Id: <39982638.41229806@hotmail.com>
I want to pass a value from abc.cgi to xyz.cgi by sumitting a form.
The xyz.cgi contains a hidden value that will be pushed into an array.
While the submit action in abc.cgi was taking, the hidden value in
xyz.cgi will be automatically pushed into the array firstly, then the
passed value of abc.cgi will be appended into the array.
Does anyone know how to implement this process? Thanks.
Mark.Lee
------------------------------
Date: Mon, 14 Aug 2000 11:55:46 -0500
From: GI812 <mail@mail.com>
Subject: passing from a korn shell to a perl script
Message-Id: <39982492.A35371F1@mail.com>
--------------5125A1948E31DBE4712D1C57
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
I am trying to pass a filename to a perl script. The file will be
different everytime (otherwise this would have been really
easy). I have a korn shell like this:
ftp -n 137.28.152.112 <<!
user **** ****
cd TEMP
put $1
bye
!
record.p $1
I figure I can't really pass the "$1" to my perl script, but was
wondering how I could just get the name of the file that is
ftp'd into a variable in my record.p. Any ideas? Would it just be
easier to do everything in my perl script?
--------------5125A1948E31DBE4712D1C57
Content-Type: text/html; charset=us-ascii
Content-Transfer-Encoding: 7bit
<!doctype html public "-//w3c//dtd html 4.0 transitional//en">
<html>
I am trying to pass a filename to a perl script. The file will be
different everytime (otherwise this would have been really
<br>easy). I have a korn shell like this:
<p><b>ftp -n 137.28.152.112 <<!</b>
<br><b>user **** ****</b>
<br><b>cd TEMP</b>
<br><b>put $1</b>
<br><b>bye</b>
<br><b>!</b>
<br><b>record.p $1</b>
<p>I figure I can't really pass the "$1" to my perl script, but was wondering
how I could just get the name of the file that is
<br>ftp'd into a variable in my record.p. Any ideas? Would
it just be easier to do everything in my perl script?</html>
--------------5125A1948E31DBE4712D1C57--
------------------------------
Date: Mon, 14 Aug 2000 09:05:34 -0700
From: "Jürgen Exner" <juex@my-deja.com>
Subject: Re: Perl code for a newbie!!
Message-Id: <399818d3@news.microsoft.com>
"Craig Pugsley" <craig.pugsley@mimesweeper.com> wrote in message
news:JRTl5.4763$pR4.93030@news6-win.server.ntlworld.com...
> I would like to request comment to the thread of a discussion I seem to be
> having with the entire Tech-community on the web at the moment. Please
have
> a quick look over the threads above. What do you think of the comments? Am
I
> being hopelessly naive? Or do I have a point? All comments gratefully
> received!
Above? Above? Can't see any thread before your comment.
> [follow full-quote deleted]
jue
------------------------------
Date: Mon, 14 Aug 2000 17:16:08 +0100
From: "Craig Pugsley" <craig.pugsley@mimesweeper.com>
Subject: Re: Perl code for a newbie!!
Message-Id: <aXUl5.4887$pR4.95656@news6-win.server.ntlworld.com>
There are several sub-threads under my initial main question. At one point,
it digresses into this totally different comment altogether! I admit, it is
getting slightly confusing! Persist.
CraigP
"Jürgen Exner" <juex@my-deja.com> wrote in message
news:399818d3@news.microsoft.com...
> "Craig Pugsley" <craig.pugsley@mimesweeper.com> wrote in message
> news:JRTl5.4763$pR4.93030@news6-win.server.ntlworld.com...
> > I would like to request comment to the thread of a discussion I seem to
be
> > having with the entire Tech-community on the web at the moment. Please
> have
> > a quick look over the threads above. What do you think of the comments?
Am
> I
> > being hopelessly naive? Or do I have a point? All comments gratefully
> > received!
>
> Above? Above? Can't see any thread before your comment.
>
> > [follow full-quote deleted]
>
> jue
>
>
------------------------------
Date: 16 Sep 99 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 16 Sep 99)
Message-Id: <null>
Administrivia:
The Perl-Users Digest is a retransmission of the USENET newsgroup
comp.lang.perl.misc. For subscription or unsubscription requests, send
the single line:
subscribe perl-users
or:
unsubscribe perl-users
to almanac@ruby.oce.orst.edu.
| NOTE: The mail to news gateway, and thus the ability to submit articles
| through this service to the newsgroup, has been removed. I do not have
| time to individually vet each article to make sure that someone isn't
| abusing the service, and I no longer have any desire to waste my time
| dealing with the campus admins when some fool complains to them about an
| article that has come through the gateway instead of complaining
| to the source.
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
To request back copies (available for a week or so), send your request
to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
where x is the volume number and y is the issue number.
For other requests pertaining to the digest, send mail to
perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
sending perl questions to the -request address, I don't have time to
answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V9 Issue 4010
**************************************
