[9560] in Perl-Users-Digest
Perl-Users Digest, Issue: 3154 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Jul 14 13:08:26 1998
Date: Tue, 14 Jul 98 10:00:43 -0700
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Tue, 14 Jul 1998 Volume: 8 Number: 3154
Today's topics:
$my_debugger{contains_bugs} = 1; (Kevin Reid)
Re: arrays and pattern matching (Patrick Timmins)
Re: arrays and pattern matching <*@qz.to>
Re: AWK Interpreter (Patrick Timmins)
Re: compare MS Word files mad_ahmad@my-dejanews.com
direct access? <jrl@ast.cam.ac.uk>
Error Compiling perl <SCOTT.BOSSI@FMR.COM>
Re: Help! MacPerl and STDIN (Kevin Reid)
Re: How to control the number of the child process <westxga@ptsc.slg.eds.com>
HTTP POST format Please Help me! <jrenna@bellsouth.net>
Re: I am an "antispam spammer"? (Jordyn A. Buchanan)
Is it possible to create a STAND ALONE EXECUTABLE? mad_ahmad@my-dejanews.com
Locking SDBM files <clint@netcomuk.co.ukXX>
Looking for simple/dirty text editing scripts <dkk7927@mail.ks.boeing.com>
NEWBIE TO PERL <jstellick@pcisys.net>
Re: NEWBIE TO PERL <quednauf@nortel.co.uk>
Question about embeding Perl quanxing@my-dejanews.com
Re: Readonly arrays (Mark-Jason Dominus)
Regarding FileHandle on Win32 b_pillai@my-dejanews.com
Re: Run a new page from the output of cgi script <qdtcall@esb.ericsson.se>
scripts archive on the CPAN (Gabor)
Re: Simple problem with perl script. (Larry Rosler)
Trouble with AOL <Elohim23@email.msn.com>
Re: w3c/CERN directory protection <i.m.hay@man0524.wins.icl.co.uk>
Re: Why is Dave operating here? (was Re: REPOST: Re: ) <merlyn@stonehenge.com>
Re: Win32 - SMTP <perlguy@inlink.com>
Re: Win32 - SMTP scott@softbase.com
Special: Digest Administrivia (Last modified: 12 Mar 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Tue, 14 Jul 1998 10:27:37 -0400
From: kpreid@ibm.net (Kevin Reid)
Subject: $my_debugger{contains_bugs} = 1;
Message-Id: <1dc48jl.1wnravn1esyt67N@slip166-72-108-242.ny.us.ibm.net>
I am trying to write an alternate Perl debugger.
Here it is (so far):
------------------------------------------------------------------------
package DB;
open DBW, "> Dev:Console:Debug Lines"
or die "Couldn't open debugger output window: $!";
sub DB {
my ($package, $filename, $line) = caller;
my $packlines = \@{"main::_<$filename"};
printf DBW "%-4s %s\n", "$line:", do {chomp (my $temp =
$packlines->[$line]); $temp}
if $package !~ /^Mac/;
1;
}
1;
------------------------------------------------------------------------
However, when the following simple program is run (with my debugger), it
does not wait for input properly:
print "?";
print scalar <STDIN>;
print "end\n";
--
Kevin Reid. | Macintosh.
"I'm me." | Think different.
------------------------------
Date: Tue, 14 Jul 1998 14:07:13 GMT
From: ptimmins@netserv.unmc.edu (Patrick Timmins)
Subject: Re: arrays and pattern matching
Message-Id: <6ofomh$8dn$1@nnrp1.dejanews.com>
In article <6oekmu$gjr$1@nnrp1.dejanews.com>,
ptimmins@netserv.unmc.edu (Patrick Timmins) wrote:
[snip]
> Let me see if I'm following you. You have a string, say $string and you have
> an array called @Types. You want to see if any of the elements in @Types are
> in $string, paying attention to word boundaries. If this is so, how about
> something like:
>
> @Types = qw(dog smog cat rat); $string = "The smoggy Dog snacked on the
> highly rated cat."; $i = 0; foreach $Types (@Types) { if ($string =~
> /(\b$Types\b)/i) { print "\$string contains $1 (which caselessly matches
> \@Types\[$i\])\n"; } ++$i; }
>
> This would print out:
>
> $string contains Dog (which caselessly matches @Types[0])
> $string contains cat (which caselessly matches @Types[2])
>
> and would ignore 'smoggy' and 'rated' in your $string string.
>
> Is this in line with what you're looking to do?
[snip]
Apologies for the formatting. My 'browser' based news reader didn't have it
looking like that when I posted. Here again:
@Types = qw(dog smog cat rat);
$string = "The smoggy Dog snacked on the highly rated cat.";
$i = 0;
foreach $Types (@Types) {
if ($string =~ /(\b$Types\b)/i) {
print "\$string contains $1 (which caselessly matches \@Types\[$i\])\n";
}
++$i;
}
Again, which prints out:
$string contains Dog (which caselessly matches @Types[0])
$string contains cat (which caselessly matches @Types[2])
Patrick Timmins
U. Nebraska Medical Center
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/rg_mkgrp.xp Create Your Own Free Member Forum
------------------------------
Date: 14 Jul 1998 15:12:29 GMT
From: Eli the Bearded <*@qz.to>
Subject: Re: arrays and pattern matching
Message-Id: <eli$9807141057@qz.little-neck.ny.us>
In comp.lang.perl.misc, Ronald J Kimball <rjk@coos.dartmouth.edu> wrote:
> Naomi Wyman <nwyman@mda.ca> wrote:
> > I am trying to match a pattern based on values in an array, which are
> > all strings. I'm thinking using something like: /(\b[@Types]+\b)\s+/i).
> That won't even compile under recent versions of Perl:
Yes it will, with the right context.
> In string, @Types now must be written as \@Types, near "(\b[@Types"
#!/usr/bin/perl
@Types = ( 'abc', 'def', 'ghi' );
while(<>) {
print if /(\b[@Types]+\b)\s+/i;
}
__END__
:r! perl5 -wcx %
/net/u/3/e/eli/.article.22266 syntax OK
> What exactly are you trying to do?
What this RE will do is the equivilent of
/(\b[abc def ghi]+\b)\s+/i
since REs (unless delimited by '') are interpreted in a double-quotish
context. I think what the person was aiming for (and this is not
the best way to do this) is:
@Types = ( 'some', 'set', 'of', 'strings' );
{
local $" = '|';
&do_something if /\b((?:@Types)+)\b\s+/i;
}
But that is because I see people often misunderstand [character classes]
and it seems quite unlikely that someone would want to expand an array
in one.
Elijah
------
/[@Types]/ with $"='' I can imagine being useful, though
------------------------------
Date: Tue, 14 Jul 1998 15:03:20 GMT
From: ptimmins@netserv.unmc.edu (Patrick Timmins)
Subject: Re: AWK Interpreter
Message-Id: <6ofrvo$ic0$1@nnrp1.dejanews.com>
In article <6ofg46$vno$1@news.wolsi.com>,
"David Reynolds" <irisbeau@wolsi.com> wrote:
> I am learning Perl and have have programmed a great deal in AWK. I was
> looking for a perl program that converted AWK code to Perl. I would like to
> see the differences between the two.
>
> David
>
>
Look for a2p (which stands for "AWK to Perl"). Comes with the standard Perl
distribution (I think?).
Patrick Timmins
U. Nebraska Medical Center
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/rg_mkgrp.xp Create Your Own Free Member Forum
------------------------------
Date: Tue, 14 Jul 1998 14:46:11 GMT
From: mad_ahmad@my-dejanews.com
Subject: Re: compare MS Word files
Message-Id: <6ofqvj$h1c$1@nnrp1.dejanews.com>
In article <01bdae72$7064c940$5c0beb2f@colon>,
"Liming Wang" <wangli@nortel.ca> wrote:
> Hi, folks,
>
> I would like to compare two MS Word files in a Perl script. Is anyone
> aware of a robust mechanism for doing this ?
>
> Say, file1.doc and file2.doc are identical in contents, but some words in
> file1.doc are italic while the corresponding words in file2.doc are bold,
> I would want to treat them as different.
>
> Any advices, suggestions are appreciated. TIA.
>
>
hey, i've heard of this software called WinDiff that does exactly that. it's
very nice it reports all the differences in a nice report form, but it's
obviously for windows. i recently created a perl program to compare two
spreadsheets. it's reall simple. i suppose you could do similar stuff to
word using OLE automation, but you'd need to be familiar with the VB function
calls to a word document. if you want i can email you my excel spread sheet
comparer. if you do, send me an EMAIL. good luck, Ahmad Saeed
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/rg_mkgrp.xp Create Your Own Free Member Forum
------------------------------
Date: Tue, 14 Jul 1998 16:24:36 +0100
From: Jim Lewis <jrl@ast.cam.ac.uk>
Subject: direct access?
Message-Id: <35AB7834.6C12@ast.cam.ac.uk>
Hi,
Is there any way in perl to replace a line in a file without having
to recreate the whole file? (i.e. like a direct access file in
FORTRAN)
cheers, Jim Lewis
------------------------------
Date: Tue, 14 Jul 1998 12:22:02 -0400
From: SCOTT BOSSI <SCOTT.BOSSI@FMR.COM>
Subject: Error Compiling perl
Message-Id: <35AB85AA.8943D42D@FMR.COM>
This is a multi-part message in MIME format.
--------------9920F3883B0D131AD81187BC
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Hi,
I'm trying to compile perl 5.004 on an AIX box, running AIX 4.2.1. I
have gcc on the machine, and in my path, and gcc seems to be working
fine, but the install program says that "gcc doesn't seem to be
working". Has anyone else had this problem, or any ideas on how to get
around it?
Thanks..
Scott.Bossi@fmr.com
--------------9920F3883B0D131AD81187BC
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
--------------9920F3883B0D131AD81187BC--
------------------------------
Date: Tue, 14 Jul 1998 10:27:39 -0400
From: kpreid@ibm.net (Kevin Reid)
Subject: Re: Help! MacPerl and STDIN
Message-Id: <1dc48wb.1t09z65c1acooN@slip166-72-108-242.ny.us.ibm.net>
Bart Lateur <bart.mediamind@tornado.be> wrote:
> Normand Rivard wrote:
>
> >My question regards STDIN, STDOUT and STDERR. When I try a simple script
> >like :
> >
> >while (<STDIN>) {
> > print "OK" if (/fred/);
> >}
> >
> >MacPerl prompts me with a console window. I expected some sort of file
> >open dialog asking me to find the input file, but it seems that MacPerl
> >demands STDIN to map on the console and that's all. Am I missing
> >something?
>
> Yes, you're missing something. :-) It's called "Unix compatibility".
> This is the kind of behaviour that is pretty normal on Unix platforms,
> where the most useful thing here is redirection of input/output. If you
> don't provide an input, you'll be prompted to type it in.
>
> The kind of behaviour you're after, is something along these lines:
>
> unless(@ARGV) {
> @ARGV = MacPerl::Choose("Pick a file");
> @ARGV or die "User cancelled";
> }
>
> Excuse me, but my Mac isn't switched on at the moment, so I can't check
> the exact syntax. But something like this ought to do.
He should probably use StandardFile.pl instead of calling
MacPerl::Choose directly.
--
Kevin Reid. | Macintosh.
"I'm me." | Think different.
------------------------------
Date: Tue, 14 Jul 1998 11:12:09 +0000
From: Glenn West <westxga@ptsc.slg.eds.com>
Subject: Re: How to control the number of the child process
Message-Id: <35AB3D09.B7D@ptsc.slg.eds.com>
Sun Guonian wrote:
>
> I set a server, It can fork up to $MAX, for example, 5, child
> processes,
> In the parent process, how to find if a child process is ended and to
> produce
> a new child process ?
> I have tried the $SIG{CHLD}, but it can capture the signal SIGCHLD only
> once.
So what happened when you re-established the signal handler for SIGCHLD
in the signal handler?
------------------------------
Date: Tue, 14 Jul 1998 16:58:10 GMT
From: "John" <jrenna@bellsouth.net>
Subject: HTTP POST format Please Help me!
Message-Id: <C6Mq1.1673$yt4.821042@news2.mia.bellsouth.net>
Hi,
Does anyone know how to do an HTTP Post to a search engine using the HTTP
protocol. I know the format is something like this but I am missing
something where $HTTPDEF is in the request string below: This is an example
tme trying to submit an URL to excite, but of course the HTTPDEF needs
information.
Can anyone help me please?
http://www.excite.com/POST /cgi/add_url.cgi
$HTTPDEFurl=http://www.jvprofit.com/jrdir/credit/creditresource.htm&emailjre
nna@bellsouth.net&look=excite
My email is jrenna@bellsouth.net
------------------------------
Date: Tue, 14 Jul 1998 10:11:33 -0400
From: jordyn@bestweb.net (Jordyn A. Buchanan)
Subject: Re: I am an "antispam spammer"?
Message-Id: <jordyn-1407981011340001@total.confusion.net>
In article <6oem58$q2q$2@knot.queensu.ca>, Frampton Steve R
<3srf@qlink.queensu.ca> wrote:
> In news.admin.net-abuse.email Jordyn A. Buchanan <jordyn@bestweb.net> wrote:
> : Well, perhaps the reponse isn't material that's really widely useful, so
> : it's sent off as an e-mail in order to avoid cluttering the newsgroup. If
> : you don't actually *check* the e-mail address before you send it off, you
> : end up with a bounce.
>
> Wait a second...who the hell sends mail without checking who its going to
> first? (Yeah, I know...lots of people...that doesn't make it a good idea)
>
> It's really a good idea to make sure you don't send something to somebody
> you don't really want to. *Always check the recipient before sending a
> message*.
Good advice, of course. Some munging is not immediately obvious, though,
so even if you glance at the To: line you're not going to realize that
it's an invalid address until it bounces. (Ones that include "NOSPAM" or
say "do.not.reply" are pretty obvious; adding random words to the domain
name or changing the local side of the e-mail address are usually
ambiguous at best.)
Or, if course, it could just get redirected to /dev/null, in which case no
one would know....
Jordyn
|---------------------------------------------------------------|
|Jordyn A. Buchanan jordyn@bestweb.net|
|Bestweb Corporation http://www.bestweb.net|
|Director of Technology +1.914.271.4500|
|---------------------------------------------------------------|
------------------------------
Date: Tue, 14 Jul 1998 14:39:02 GMT
From: mad_ahmad@my-dejanews.com
Subject: Is it possible to create a STAND ALONE EXECUTABLE?
Message-Id: <6ofqi6$d73$1@nnrp1.dejanews.com>
Hi,
I've written this perl program and It's all set.
i now want to turn it into an executable that's stand alone.
is that in any way concievable?
Ahmad Saeed
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/rg_mkgrp.xp Create Your Own Free Member Forum
------------------------------
Date: Tue, 14 Jul 1998 17:57:15 +0100
From: "Clinton Gormley" <clint@netcomuk.co.ukXX>
Subject: Locking SDBM files
Message-Id: <6og2lh$okc$1@taliesin.netcom.net.uk>
OK - I know this has been discussed before (in fact the only reason i though
it an issue was because i saw previous postings!)
I have looked through the faq's and past articles without getting the
answers i need, so please...
I am using an sdbm file to allow people to register user names and passwords
with a web site.
I need to lock the file before making changes.
How do I do this thing?
A previous discussion between Jxrn-Morten Innselset and Stas Bekman about
the berkley db included some code :
use Fcntl;
$db_obj = tie %wdb, 'MLDBM', $full_mldb_name, O_CREAT|O_RDWR,
$mldb_mode or die $!;
$fd = $db_obj->fd;
open DB_FH, "+<&=$fd" or die "dup $!";
# Get the exclusive write lock
unless (flock (DB_FH, LOCK_EX | LOCK_NB)) {
print "$$: CONTENTION; must have exclusive lock! Waiting for write
lock ($!) ...." if $debug;
unless (flock (DB_FH, LOCK_EX)) { die "flock: $!" }
}
# use unless (flock ($fh, LOCK_SH | LOCK_NB)) for read lock
# do the changes
# Release the dbm and lockfile
$db_obj->sync(); # to flush
undef $db_obj;
untie %wdb;
close DB_FH;
Now :
(1) I'm a newbie and don't understand some of the above code,
(2) I get the feeling the same thing doesn't apply to sdbm? and
(3) I have no idea where to find the much vaunted "Camel book".
please help
Clint
------------------------------
Date: Tue, 14 Jul 1998 15:01:00 GMT
From: "D. Kevin Kauzlarich" <dkk7927@mail.ks.boeing.com>
Subject: Looking for simple/dirty text editing scripts
Message-Id: <35AB72AB.4B7CCFBF@mail.ks.boeing.com>
Does anyone know a good place to find simple and quick text editing
scripts?
I'm quite new at using Perl and would like to learn by example while
making my
life a little easier .......
What I'm specifically looking for is a way to insert one text file into
a base file
at marker points.
Probably a simple operation for you guys, but for me well ..........
thanks in advance
--
D. Kevin Kauzlarich
Boeing Wichita
------------------------------
Date: Tue, 14 Jul 1998 09:01:17 -0600
From: Jstellick <jstellick@pcisys.net>
Subject: NEWBIE TO PERL
Message-Id: <35AB72BC.DA467961@pcisys.net>
I was wondering if anyone could tell me some of the basics of PERL and
what it is best used for....THANKS
Sean
------------------------------
Date: Tue, 14 Jul 1998 16:56:04 +0100
From: "F.Quednau" <quednauf@nortel.co.uk>
Subject: Re: NEWBIE TO PERL
Message-Id: <35AB7F93.E7ABF52A@nortel.co.uk>
Jstellick wrote:
>
> I was wondering if anyone could tell me some of the basics of PERL and
> what it is best used for....THANKS
> Sean
Perl stands for 'practical extraction and report language' or, more
nicely 'pathologically eclectic rubbish lister', and I am sure that
there are a few more statements around which summarise Perl's abilities.
Let me throw some of the slogans that you'll always hear here & there,
and which actually hold true:
'There is always more than one way to do it'
'Perl makes easy things easy, and difficult things possible'
A Perl script is compiled and then run. So Perl is its own compiler. In
that way Perl can also carry on compiling while the program is already
running, which makes for some interesting possibilities, e.g. create
code within your script and let it be evaluated by Perl.
I haven't managed yet to scratch my back with Perl, but it does pretty
well in stopping me from sleeping :) Not because working with it so
frustrating, but because you think 'Sure there is a quicker and
less-code-way to do the same stuff I am doing with my script!'. It's fun
to crunch a few lines of code together into even less in Perl.
Perl is good for scanning files, and with scan I mean the sort of scan
you do in bed with that great woman, and you now you won't be able to
sleep for the rest of the night anyway. It's good for changing those
files, Perl can talk to programs, to the OS, to itself, to C libraries
and what have you. Perl is good for CGI, and good for html (of course,
it's a file, all right), good to talk to databases (of course, it's a
program, all right). Perl is a sort of pal that would do anything for
you if you just talk nicely to it. And the more you can express your
desire and thankfulness with less and less words, the happier your Pal
will be :)
For a more objective dissection of the virtues of Perl, try the
PerlFAQ1. Look for www.perl.com. And have fun.
--
____________________________________________________________
Frank Quednau
http://www.surrey.ac.uk/~me51fq
________________________________________________
------------------------------
Date: Tue, 14 Jul 1998 15:11:49 GMT
From: quanxing@my-dejanews.com
Subject: Question about embeding Perl
Message-Id: <6ofsfk$ljk$1@nnrp1.dejanews.com>
Hi,
I tried to embed Perl in a C++ program on Win NT. After some study, I think
I can make it. The problem I have is how to communicate with the inside perl
using pipes or handles, because I try to use Perl as some knid of internal
interpreter let it evaluate values on the fly. I thought the best way to
communicate with it is through pipes. Does anybody have any information about
communicating with perl in this way? The perl I use is from ActiveState.
Thanks in advance.
quanxing
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/rg_mkgrp.xp Create Your Own Free Member Forum
------------------------------
Date: 14 Jul 1998 12:23:34 -0400
From: mjd@op.net (Mark-Jason Dominus)
Subject: Re: Readonly arrays
Message-Id: <6og0m6$4ns$1@monet.op.net>
Keywords: congratulate downfall schnapps vanguard
In article <comdog-ya02408000R1307982319510001@news.panix.com>,
>not out of look. see the constant module.
Or you could do something funny with tied arrays:
package Array::Constant;
use Carp qw(croak);
sub TIEARRAY {
my $pack = shift;
my $self = [@_];
bless $self => $pack;
}
sub STORE {
croak "Attempt to store into read-only array";
}
sub FETCH {
$_[0]->[$_[1]]; # LOD
}
*SHIFT = \&STORE;
*PUSH = \&STORE;
...
1;
------------------------------
Date: Tue, 14 Jul 1998 16:18:49 GMT
From: b_pillai@my-dejanews.com
Subject: Regarding FileHandle on Win32
Message-Id: <6og0d9$v4n$1@nnrp1.dejanews.com>
Hi,
I am working on Perl Extensions. To test my dll generated i have
written some test scripts.
I am doing the following :
$DSFP=FileHandle::new_tmpfile() || die "Unable to open a temp file";
Then i am passing the file pointer returned i.e $DSFP to a function in a
dll. But the problem is the file pointer that is passed gets corrupted.
Is there anything i am supposed to do to file pointer before calling the
function.?
The same script works on Solaris version of perl.
I am using Perl 5.004_02 for Win32.
Any kind of help will be appreciated.
Thanks in advance.
Bye,
Bilio
(email : b_pillai@hotmail.com)
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/rg_mkgrp.xp Create Your Own Free Member Forum
------------------------------
Date: 14 Jul 1998 16:33:16 +0200
From: Calle Dybedahl <qdtcall@esb.ericsson.se>
Subject: Re: Run a new page from the output of cgi script
Message-Id: <isr9zojydv.fsf@godzilla.kiere.ericsson.se>
Maria TheresiaWettstein <mariatw@pendragon.net> writes:
> Can somebody advise me what to do
Post in the right newsgroup.
--
Calle Dybedahl, UNIX Sysadmin
qdtcall@esavionics.se http://www.lysator.liu.se/~calle/
------------------------------
Date: 14 Jul 1998 16:32:04 GMT
From: gabor@vmunix.com (Gabor)
Subject: scripts archive on the CPAN
Message-Id: <slrn6qn1uu.mjn.gabor@vnode.vmunix.com>
I have some scripts that might be useful to people. How do I go about
getting in the scripts archive on the CPAN?
http://www.perl.com/CPAN/scripts
gabor.
--
Randal said it would be tough to do in sed. He didn't say he didn't
understand sed. Randal understands sed quite well. Which is why he
uses Perl. :-)
-- Larry Wall in <7874@jpl-devvax.JPL.NASA.GOV>
------------------------------
Date: Tue, 14 Jul 1998 07:25:46 -0700
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: Simple problem with perl script.
Message-Id: <MPG.10150a4472f6d7e5989738@nntp.hpl.hp.com>
In article <isg1g4lody.fsf@godzilla.kiere.ericsson.se> on 14 Jul 1998
12:26:17 +0200, Calle Dybedahl <qdtcall@esb.ericsson.se> says...
> Nico van Leeuwen <webmaster@acidhouse.com> writes:
>
> > something seems to be wrong:
>
> I can't drive to work in the mornings, can you tell me why?
>
> > foreach $line (@lines) {
> > ($username, $2, $3, $4, $5, $6, $7, $8, $9) = split (/:/, $_, 9);
>
> Take an extra look at what you're splitting, there. Of course, since
> you didn't even give us a hint about what the problem is, this may
> well be entirely unrelated. For all that I know maybe the problem is
> that you didn't turn your computer on.
That line attempts to write into read-only variables, as the '-w' flag
would have revealed.
--
Larry Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Tue, 14 Jul 1998 08:41:39 -0700
From: "Kyle Taing" <Elohim23@email.msn.com>
Subject: Trouble with AOL
Message-Id: <ucVNP3zr9GA.184@upnetnews03>
People who submit forms using an AOL browser (or I.E.-based aol) seem to
experience errors all the time. What is happening is that some form fields
aren't being passed. For example, I have a mail program which is written in
PERL. When some aol people try to submit through the form, it can't because
the "@" in their email address isn't passed or recognized by the PERL
program.
Does anyone know a way to fix this?
Thanks!
David
------------------------------
Date: Tue, 14 Jul 1998 15:25:00 GMT
From: "I.M.Hay" <i.m.hay@man0524.wins.icl.co.uk>
Subject: Re: w3c/CERN directory protection
Message-Id: <gLKq1.838$Xt1.3960417@newsr2.u-net.net>
Tony Curtis wrote in message
>It's not clear what "one at a time" actually means here.
>Nor indeed what "user" means. If you could elaborate...
A user is someone using a browser to access the pages. Another user would be
someone using another browser (probably on another PC) to access the pages.
By one at a time I mean that once a 'user' has been authenticated only they
can access the pages, until they stop accessing them - but, of course, you
can't de-authenticate yourself!
Hmm, it seems to me that the htadm authentication won't do what I want - I
do basically want a single-user login which stops any other user (via
another browser or PC) using the pages until the logged-in user logs out.
How could I do this? Cookies? Or some other way?
------------------------------
Date: Tue, 14 Jul 1998 14:37:32 GMT
From: Randal Schwartz <merlyn@stonehenge.com>
Subject: Re: Why is Dave operating here? (was Re: REPOST: Re: )
Message-Id: <8caf6c4hyl.fsf@gadget.cscaper.com>
>>>>> "Bart" == Bart Lateur <bart.mediamind@tornado.be> writes:
Bart> John Stanley wrote:
>> Do you really not
>> know that Dave is a program and not a person?
Bart> You mean: just like Tom Phoenix?
No, Tom Phoenix is a *real* person.
It's his rate of posting nice answers to questions that's *unreal*.
:-)
print "Just another Perl hacker," # and someone that knows Tom quite well
--
Name: Randal L. Schwartz / Stonehenge Consulting Services (503)777-0095
Keywords: Perl training, UNIX[tm] consulting, video production, skiing, flying
Email: <merlyn@stonehenge.com> Snail: (Call) PGP-Key: (finger merlyn@teleport.com)
Web: <A HREF="http://www.stonehenge.com/merlyn/">My Home Page!</A>
Quote: "I'm telling you, if I could have five lines in my .sig, I would!" -- me
------------------------------
Date: Tue, 14 Jul 1998 14:14:17 GMT
From: Brent Michalski <perlguy@inlink.com>
Subject: Re: Win32 - SMTP
Message-Id: <35AB67B9.F246B24D@inlink.com>
I am successfully using a program called BLAT. It is NOT an SMTP server
though, you have to specify an SMTP server and it routes the mail
through it.
BLAT information can be found at:
http://www.interlog.com/~tcharron/blat.html
Good luck.
Brent
------------------------------
Date: 14 Jul 1998 14:08:55 GMT
From: scott@softbase.com
Subject: Re: Win32 - SMTP
Message-Id: <6ofopn$q2m$1@mainsrv.main.nc.us>
photuris (photuris@photuris.jehosophat.com) wrote:
> I am using ActiveState's Perl for Win32 ...
> what is the best way to have a script generate an
> email using SMTP?
Use my SMTP mail function that works with both UNIX and Exchange
servers. I've posted it numerous times, and a quick dejanews search
should turn it up.
Scott
--
Look at Softbase Systems' client/server tools, www.softbase.com
Check out the Essential 97 package for Windows 95 www.skwc.com/essent
All my other cool web pages are available from that site too!
My demo tape, artwork, poetry, The Windows 95 Book FAQ, and more.
------------------------------
Date: 12 Jul 98 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Special: Digest Administrivia (Last modified: 12 Mar 98)
Message-Id: <null>
Administrivia:
Special notice: in a few days, the new group comp.lang.perl.moderated
should be formed. I would rather not support two different groups, and I
know of no other plans to create a digested moderated group. This leaves
me with two options: 1) keep on with this group 2) change to the
moderated one.
If you have opinions on this, send them to
perl-users-request@ruby.oce.orst.edu.
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 V8 Issue 3154
**************************************
