[10894] in Perl-Users-Digest
Perl-Users Digest, Issue: 4495 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Dec 25 08:07:20 1998
Date: Fri, 25 Dec 98 05:00:35 -0800
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Fri, 25 Dec 1998 Volume: 8 Number: 4495
Today's topics:
Re: attach html file to email (Clay Irving)
Re: attach html file to email <ebohlman@netcom.com>
Automatic E-Mail FollowUp System Released! (Mike Watkins)
Re: challenge: 99 bottles of perl (was Re: The quine pa (Andre L.)
Re: challenge: 99 bottles of perl (was Re: The quine pa (Andre L.)
Re: challenge: 99 bottles of perl (was Re: The quine pa (Ronald J Kimball)
Re: challenge: 99 bottles of perl (was Re: The quine pa (Larry Rosler)
Re: challenge: 99 bottles of perl (was Re: The quine pa (Matthew Bafford)
Re: challenge: 99 bottles of perl (was Re: The quine pa <uri@sysarch.com>
Re: challenge: 99 bottles of perl (was Re: The quine pa <uri@sysarch.com>
Re: challenge: 99 bottles of perl (was Re: The quine pa (Abigail)
Re: challenge: 99 bottles of perl (was Re: The quine pa <uri@sysarch.com>
Re: challenge: 99 bottles of perl (was Re: The quine pa (Andre L.)
Re: Equivilent of C's is_alpha() function? <tchrist@mox.perl.com>
Re: Forum / Web board (Mike Schechter)
Re: Need to output a file starting at a specified line (Larry Rosler)
Re: Nested sorting (Larry Rosler)
Re: New module Net::RawIP <ksv@gw.al.lg.ua>
problem in a script which contains 'crypt' function <marcop@chollian.net>
Problem with use base <ol@twics.com>
Problem writing a file from web browser <swettboy@ncats.net>
Re: Regex question - removing HTML tags.... (Gilly)
Re: Regex question - removing HTML tags.... (Gilly)
Re: Regex question - removing HTML tags.... (Gilly)
Re: Retrospective on comp.lang.perl.moderated? (Ronald J Kimball)
Re: Running Perl/tk? <walton@frontiernet.net>
www.universityweb.com biggy7117@my-dejanews.com
Special: Digest Administrivia (Last modified: 12 Dec 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 25 Dec 1998 05:40:33 -0500
From: clay@panix.com (Clay Irving)
Subject: Re: attach html file to email
Message-Id: <75vq31$i05@panix.com>
In <3682ED99.D6C198CA@dowebpages.com> Bill Binkley <bwb@dowebpages.com> writes:
>Need to attach an html file to a email that I am sending with a perl
>script!
>Any information or where to look would be appreciated very much,
This question is asked every few days in this newsgroup. Try:
http://www.dejanews.com/dnquery.xp?QRY=attach&DBS=2&ST=PS&defaultOp=AND&LNG=ALL&format=terse&showsort=score&maxhits=25&subjects=&groups=comp.lang.perl.misc&authors=&fromdate=&todate=
--
Clay Irving
clay@panix.com
------------------------------
Date: Fri, 25 Dec 1998 11:04:51 GMT
From: Eric Bohlman <ebohlman@netcom.com>
Subject: Re: attach html file to email
Message-Id: <ebohlmanF4IpG4.ILq@netcom.com>
Bill Binkley <bwb@dowebpages.com> wrote:
: Need to attach an html file to a email that I am sending with a perl
: script!
: Any information or where to look would be appreciated very much,
The MIME:: modules on CPAN would be a good place to start.
------------------------------
Date: Fri, 25 Dec 1998 02:26:18 GMT
From: mwatkins@3dmail.com (Mike Watkins)
Subject: Automatic E-Mail FollowUp System Released!
Message-Id: <368df758.31554105@news.compuserve.com>
Hi there,
We would like to announce that we have just released our newest
project, the Automatic E-Mail FollowUp System. This script allows an
unlimited number of users to automatically follow up on their
prospects with personalized messages. Features include, unlimited
followups, unlimited customized mailing lists, Admin Contol Panel,
Member Contol Panel, plus much more! Very inexpensive and easy to
setup and install!
For full details, please visit http://www.promotion4free.com/scripts/
Thanks for your time,
Mike Watkins
mwatkins@3dmail.com
Watkins CGI Scripts
http://www.promotion4free.com/scripts
------------------------------
Date: Thu, 24 Dec 1998 21:33:10 -0500
From: alecler@cam.org (Andre L.)
Subject: Re: challenge: 99 bottles of perl (was Re: The quine page)
Message-Id: <alecler-2412982133100001@dialup-635.hip.cam.org>
In article <39hful2r13.fsf@ibnets.com>, Uri Guttman <uri@ibnets.com> wrote:
> the hardest part is getting the 's' right. any other short ways of
> having 1 or 0 's' based on a boolean are welcome.
For what it's worth...
$i = @ARGV ? shift : 99;
my @a= qw/bottle of beer on the wall/;
print <<END while $i;
$i $a[0]${\($i<2?'':'s')} @a[1..5],
$i $a[0]${\($i<2?'':'s')} @a[0..2]
Take one down and pass it around,
${\--$i} $a[0]${\($i<2?'':'s')} @a[1..5]
END
Merry Whatever,
Andre
------------------------------
Date: Thu, 24 Dec 1998 21:37:53 -0500
From: alecler@cam.org (Andre L.)
Subject: Re: challenge: 99 bottles of perl (was Re: The quine page)
Message-Id: <alecler-2412982137530001@dialup-635.hip.cam.org>
In article <alecler-2412982133100001@dialup-635.hip.cam.org>,
alecler@cam.org (Andre L.) wrote:
Ah, shoot. Line 5 is supposed to read,
$i $a[0]${\($i<2?'':'s')} @a[1,2]
Andre
------------------------------
Date: Thu, 24 Dec 1998 21:47:51 -0500
From: rjk@linguist.dartmouth.edu (Ronald J Kimball)
Subject: Re: challenge: 99 bottles of perl (was Re: The quine page)
Message-Id: <1dkk8j7.1hhqv9s16jciidN@bay1-36.quincy.ziplink.net>
Uri Guttman <uri@ibnets.com> wrote:
> $n = shift || 99 ;
> print <<BEER while $n ;
> $n bottle@{[$s='s'x($n>1)]} of beer on the wall, $n bottle$s of beer!
> Take one down and pass it around,
> @{[--$n]} bottle@{['s'x($n!=1)]} of beer on the wall!
>
> BEER
How about this?
$_=shift||99;$b='"$_ bottle$s[$_==1] of beer"';$w=' on the wall';@s='s';print
eval$b,"$w, ",eval$b,"!\nTake one down, pass it around,\n",eval'$_--;'.$b,$w,
"!\n\n"while$_
More statements, but shorter overall. Also, don't run it with warnings on.
(Making it warnings-safe requires six more characters! :-)
--
_ / ' _ / - aka - rjk@linguist.dartmouth.edu
( /)//)//)(//)/( Ronald J Kimball chipmunk@m-net.arbornet.org
/ http://www.ziplink.net/~rjk/
"It's funny 'cause it's true ... and vice versa."
------------------------------
Date: Thu, 24 Dec 1998 19:09:26 -0800
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: challenge: 99 bottles of perl (was Re: The quine page)
Message-Id: <MPG.10eca1c54b46bfe1989979@nntp.hpl.hp.com>
In article <alecler-2412982133100001@dialup-635.hip.cam.org> on Thu, 24
Dec 1998 21:33:10 -0500, Andre L. <alecler@cam.org> says...
> In article <39hful2r13.fsf@ibnets.com>, Uri Guttman <uri@ibnets.com> wrote:
> > the hardest part is getting the 's' right. any other short ways of
> > having 1 or 0 's' based on a boolean are welcome.
...
> ${\--$i} $a[0]${\($i<2?'':'s')} @a[1..5]
0 bottle of beer? Uri had this one right! Burp...
--
(Just Another Larry) Rosler
Hewlett-Packard Company
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Thu, 24 Dec 1998 22:23:01 -0500
From: dragons@scescape.net (Matthew Bafford)
Subject: Re: challenge: 99 bottles of perl (was Re: The quine page)
Message-Id: <MPG.10eccf1ebb8eab5698976c@news.scescape.net>
In article <MPG.10ec86c6d0a18497989976@nntp.hpl.hp.com>, lr@hpl.hp.com
says...
=> In article <39hful2r13.fsf@ibnets.com> on 24 Dec 1998 16:01:28 -0500,
=> Uri Guttman <uri@ibnets.com> says...
=> ...
=> > the hardest part is getting the 's' right. any other short ways of
=> > having 1 or 0 's' based on a boolean are welcome.
=>
=> I like this:
=>
=> $n > 1 && 's'
What about 0?
I drank 0 bottle of beer.
:-)
Happy Vacation!
--Matthew
------------------------------
Date: 24 Dec 1998 22:36:49 -0500
From: Uri Guttman <uri@sysarch.com>
Subject: Re: challenge: 99 bottles of perl (was Re: The quine page)
Message-Id: <x7zp8cj3ji.fsf@sysarch.com>
>>>>> "MB" == Matthew Bafford <dragons@scescape.net> writes:
MB> In article <MPG.10ec86c6d0a18497989976@nntp.hpl.hp.com>, lr@hpl.hp.com
MB> says...
MB> => In article <39hful2r13.fsf@ibnets.com> on 24 Dec 1998 16:01:28 -0500,
MB> => Uri Guttman <uri@ibnets.com> says...
MB> => ...
MB> => > the hardest part is getting the 's' right. any other short ways of
MB> => > having 1 or 0 's' based on a boolean are welcome.
MB> =>
MB> => I like this:
MB> =>
MB> => $n > 1 && 's'
MB> What about 0?
MB> I drank 0 bottle of beer.
if you look at my original code, i use a different boolean for the last
line.
$n != 1 && 's' would work for that.
uri
--
Uri Guttman ----------------- SYStems ARCHitecture and Software Engineering
Perl Hacker for Hire ---------------------- Perl, Internet, UNIX Consulting
uri@sysarch.com ------------------------------------ http://www.sysarch.com
The Best Search Engine on the Net ------------- http://www.northernlight.com
------------------------------
Date: 24 Dec 1998 22:39:10 -0500
From: Uri Guttman <uri@sysarch.com>
Subject: Re: challenge: 99 bottles of perl (was Re: The quine page)
Message-Id: <x7ww3gj3fl.fsf@sysarch.com>
>>>>> "RJK" == Ronald J Kimball <rjk@linguist.dartmouth.edu> writes:
RJK> Uri Guttman <uri@ibnets.com> wrote:
>> $n = shift || 99 ;
>> print <<BEER while $n ;
>> $n bottle@{[$s='s'x($n>1)]} of beer on the wall, $n bottle$s of beer!
>> Take one down and pass it around,
>> @{[--$n]} bottle@{['s'x($n!=1)]} of beer on the wall!
>>
>> BEER
RJK> How about this?
RJK> $_=shift||99;$b='"$_ bottle$s[$_==1] of beer"';$w=' on the
RJK> wall';@s='s';print eval$b,"$w, ",eval$b,"!\nTake one down, pass
RJK> it around,\n",eval'$_--;'.$b,$w, "!\n\n"while$_
RJK> More statements, but shorter overall. Also, don't run it with
RJK> warnings on. (Making it warnings-safe requires six more
RJK> characters! :-)
well, i wasn't trying for the actual shortest one but why not? i was
minimally replacing the crap i saw on the site with something much more
perlish.
i could shrink mine with some text merging too but i didn't do that in
the first pass except for the 's' in the first line. i will play with
mine some more.
uri
--
Uri Guttman ----------------- SYStems ARCHitecture and Software Engineering
Perl Hacker for Hire ---------------------- Perl, Internet, UNIX Consulting
uri@sysarch.com ------------------------------------ http://www.sysarch.com
The Best Search Engine on the Net ------------- http://www.northernlight.com
------------------------------
Date: 25 Dec 1998 04:35:43 GMT
From: abigail@fnx.com (Abigail)
Subject: Re: challenge: 99 bottles of perl (was Re: The quine page)
Message-Id: <75v4mv$4ul$1@client3.news.psi.net>
Andre L. (alecler@cam.org) wrote on MCMXLII September MCMXCIII in
<URL:news:alecler-2412982133100001@dialup-635.hip.cam.org>:
++ In article <39hful2r13.fsf@ibnets.com>, Uri Guttman <uri@ibnets.com> wrote:
++
++ > the hardest part is getting the 's' right. any other short ways of
++ > having 1 or 0 's' based on a boolean are welcome.
++
++ For what it's worth...
++
++ $i = @ARGV ? shift : 99;
++ my @a= qw/bottle of beer on the wall/;
++ print <<END while $i;
++ $i $a[0]${\($i<2?'':'s')} @a[1..5],
++ $i $a[0]${\($i<2?'':'s')} @a[0..2]
++ Take one down and pass it around,
++ ${\--$i} $a[0]${\($i<2?'':'s')} @a[1..5]
++
Here's one that prints 'no more bottles of beer' at the end:
#!/usr/local/bin/perl -wis
use strict; chomp $/;
print map {<<EOT
$_ Bottle$^I of beer on the wall,
$_ bottle$^I of beer,
Take one down and pass it around,
${\do {($^I,$/) = ($/,$^I) if -- $_ < 2; $_ || "no more"}} bottle$^I of beer.
EOT
} reverse 1 .. shift || 99;
__END__
Abigail
------------------------------
Date: 24 Dec 1998 23:23:30 -0500
From: Uri Guttman <uri@sysarch.com>
Subject: Re: challenge: 99 bottles of perl (was Re: The quine page)
Message-Id: <x7soe4j1dp.fsf@sysarch.com>
>>>>> "RJK" == Ronald J Kimball <rjk@linguist.dartmouth.edu> writes:
RJK> How about this?
RJK> $_=shift||99;$b='"$_ bottle$s[$_==1] of beer"';$w=' on the
RJK> wall';@s='s';print eval$b,"$w, ",eval$b,"!\nTake one down, pass
RJK> it around,\n",eval'$_--;'.$b,$w, "!\n\n"while$_
i reduced mine to the same length (i think) as yours. i stole your @s
trick which is cool. but i like my style better as i don't need no
stinkin' evals!
$n=shift||99;@s='s';$o=' on the wall';print<<B while$n
@{[$b="$n bottle$s[$n<1] of beer"]}$o, $b!
Take one down and pass it around,
${\--$n} bottle$s[$n==1] of beer$o!
B
i played with the here doc and tried a quoted string but it comes out
about the same. i tried to factor out the other common text (bottle, of
beer) but the overhead was longer than a copy.
uri
--
Uri Guttman ----------------- SYStems ARCHitecture and Software Engineering
Perl Hacker for Hire ---------------------- Perl, Internet, UNIX Consulting
uri@sysarch.com ------------------------------------ http://www.sysarch.com
The Best Search Engine on the Net ------------- http://www.northernlight.com
------------------------------
Date: Fri, 25 Dec 1998 03:43:07 -0500
From: alecler@cam.org (Andre L.)
Subject: Re: challenge: 99 bottles of perl (was Re: The quine page)
Message-Id: <alecler-2512980343070001@dialup-521.hip.cam.org>
In article <MPG.10eca1c54b46bfe1989979@nntp.hpl.hp.com>, lr@hpl.hp.com
(Larry Rosler) wrote:
> 0 bottle of beer? Uri had this one right! Burp...
I wasn't aware that "0 bottles" was plural. :-/
I reckon ma English ain't no better than ma Perl.
Andre
------------------------------
Date: 25 Dec 1998 02:03:30 GMT
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: Equivilent of C's is_alpha() function?
Message-Id: <75urpi$dtr$1@csnews.cs.colorado.edu>
[courtesy cc of this posting sent to cited author via email]
In comp.lang.perl.misc,
"Paul Makepeace" <Paul.Makepeace@POBox.com> writes:
:/[[:alpha:]]/ would be the POSIX way. A variety of GNU tools have
:implemented this but not perl.
Perl is not "a GNU tool",
--tom
--
"Lazy people never bother to actually read the manual. Instead they
(like kids) pick something with big, colorful buttons."
--Eugene Tyurin <gene@insti.physics.sunysb.edu>
------------------------------
Date: Fri, 25 Dec 1998 03:14:17 GMT
From: mschechter@earthlink.net (Mike Schechter)
Subject: Re: Forum / Web board
Message-Id: <36830235.12894661@news.earthlink.net>
On Thu, 24 Dec 1998 20:42:40 -0500, "Ian" <ianf@mediaone.net> wrote:
>
>I am trying to create a forum (kinda like an advanced WWW Board) and I am
>looking for input on how the best way to do this would be. Im running a Unix
>server and want to do this in PERL. Any suggestions? Also, is it possible to
>have a CGI script actually create a file? I know how to have PERL open a
>file in append or write mode, but can it create a file? Thanks so much guys.
>And yes I have looked around but I couldnt find the answer :-(
>BTW Merry Christmas.
Ian,
To create a file, open it with:
open (FILEHANDLE, ">$file_var");
Of course, you can hard code in the name of the file if you like. >
creates a file by opening it. If the file exists and you open it with
>, you clobber what was in the file in the first place, basically
overwriting it, if you will.
As for a WWW Board, there are many, many, many of them out there
already, written in Perl, that you could look at. Head over to
http://www.cgi-resources.com/Programs_and_Scripts/Perl/, and go to the
Bulletin Board section, and oh the wonders you shall find... :)
Mike Schechter
------------------------------
Date: Thu, 24 Dec 1998 19:02:04 -0800
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: Need to output a file starting at a specified line
Message-Id: <MPG.10eca005af9e361d989978@nntp.hpl.hp.com>
In article <nv8u57.lf2.ln@magna.metronet.com> on Thu, 24 Dec 1998
14:42:31 -0600, Tad McClellan <tadmc@metronet.com> says...
...
> #!/usr/bin/perl -w
Where, oh where, is 'use strict;' in a demo program? :-)
...
> foreach $i (0..$#lines) {
> printf "%6d: $lines[$i]", $i;
> }
It is a Good Idea never to interpolate arbitrary stuff into the format
of a printf. You would be very unhappy if any line had a percent sign
in it.
printf "%6d: %s", $i, $lines[$i];
--
(Just Another Larry) Rosler
Hewlett-Packard Company
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Thu, 24 Dec 1998 18:47:57 -0800
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: Nested sorting
Message-Id: <MPG.10ec9cb752701adb989977@nntp.hpl.hp.com>
[Posted to comp.lang.perl.misc and copy mailed.]
In article <wsmzp8dg6ah.fsf@hzsac328.nl.lucent.com> on 24 Dec 1998
11:53:26 +0100, Micha3 Rutka <rutka@lucent.com> says...
> lr@hpl.hp.com (Larry Rosler) writes:
> > + Here it is (for unsigned, signed case is a simple excercise):
> > If you have a simple way for the signed case, please show it to us.
>
> I still think that it is a simple excercise. However, I have a bad
> experince of sending simple (good) things here. There are people here,
> which takes an idea, use it, want become famous by publishing it, and
> are not fair enough to credit a guy who had the idea first.
Some of us think *you* are a bad experience!
> It is not the first case in history. The inventor of the "Hook Law",
> had the same problem. Hook law is so simple that Hook was afraid that
> others would not credit him for such a simple formula. Therefore, he
> published it, but encrypted. So, here is a simple way for the signed
> case ;-):
Hooke's Law (of linear elasticity: F = - k x).
>
> Version: 2.6.3i
>
<SNIP> of line noise
> -----END PGP MESSAGE-----
>
> As you see, this code is explained by pseudocode. It covers a
> big-endian only. For making it portable just use the same strategy as
> previous.
Thanks, but no thanks.
Here is my tested code for arbitrary floating-point numbers, including
denorms and infinities.
#!/usr/local/bin/perl -w
use strict;
my @a = ( -1e-323, -0.01, -0.1, -0.9, -1, -1.1, -10, -1e308, -1e309,
0, +1e-323, +0.01, +0.1, +0.9, +1, +1.1, +10, +1e308, +1e309 );
my $big_endian = pack('N', 1) eq pack('L', 1);
my @sorted = map substr($_, 8) => sort
map { (($big_endian ? pack 'd', $_ : reverse pack 'd', $_) ^
($_ < 0 ? "\xFF" x 8 : "\x80" . "\x00" x 7)) . $_ } @a;
print "@sorted\n";
__END__
Now no one will know or care if you got it right.
...
> LR> I gave you the clue in my post, which you snipped:
> LR> + LR> One then has to reverse the bytes in the packed representation.
>
> Then why you did not implemented it? I have also idea, that the best
> product on the market would be a wireless power supply. Can you
> implement it for me?
Very funny. I implemented it and tested it before posting it, of
course. The reverse, not the wireless power supply.
> Regards,
>
> Michal
Hardly. I am turned off by sarcasm without a hint of a smiley.
Off till New Year for sorely-needed vacation.
--
(Just Another Larry) Rosler
Hewlett-Packard Company
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Fri, 25 Dec 1998 07:57:45 +0200
From: "Sergey V. Kolychev" <ksv@gw.al.lg.ua>
Subject: Re: New module Net::RawIP
Message-Id: <Pine.LNX.3.96.981225074900.32517B-100000@gw.al.lg.ua>
On Tue, 22 Dec 1998, Tripp Lilley wrote:
> "William R. Ward" wrote:
>
> > Why not just Net::IP?
>
> Or, better yet, Net::IPv4.
>
Sorry ,but my module related only for _raw_ IP packets
Look at Net::TCP ,Net::Inet from Net-ext at CPAN created by
Spider Boardman.
btw latest Net::RawIP 0.03a available from
http://www.ic.al.lg.ua/~ksv/Net-RawIP-0.03a.tar.gz
This version contain important fixes for compiling compability.
>
>
----------------------Alchevsk Linux User Group-----------------------
UNIX is user friendly. It's just selective who the friends are.
Linux is like wigwam - no windows, no gates, apache inside.
http://www.ic.al.lg.ua/~ksv | e-mail: ksv@gw.al.lg.ua
PGP key & Geekcode: finger ksv@gw.al.lg.ua
------------------------------
Date: Fri, 25 Dec 1998 10:08:22 GMT
From: "Sang-Chan,Lee" <marcop@chollian.net>
Subject: problem in a script which contains 'crypt' function
Message-Id: <01be2fef$3270e020$26b47ca4@Magicall2.dacom.co.kr>
$)CHi,
I made a perl script that took a password, encrypted it, saved it to a data
file, and then showed the information of being registered to users.
However, when I tested the script on a browser of my PC (win95) with Samber
server, it failed to return the registration message. Nothing was showed on
the browser.
So, when I tried to run the script on dos mode, there's no problem.
The script returned normal html messages and encrypted password was printed
on the data file.
As I felt the 'crypt' function questionable, when I erased 'crypt' function
in the script, and then run the script on a browser, there's no problem.
What's the problem with it.
Any pointers gratefully appreciated.
Thanks.
S.C.Lee
------------------------------
Date: Fri, 25 Dec 1998 12:55:32 +0900
From: Kevin Baker <ol@twics.com>
Subject: Problem with use base
Message-Id: <Pine.HPP.3.95.981225125445.2306P-100000@beehive.twics.com>
HI,
does anyone have experience with using this? The man page says that it
establishes an IS-A relationship with the base class.
I tried it with this bit of code
package HTML::Customer;
use strict;
#require HTML;
use base qw(HTML);
but get this error message
Can't locate object method "new" via package "HTML::Customer" at
manilow.pl line 113.
However if I uncomment the require line it works.
Is there any reason why this is happening? If I understand the man page I
shouldn't need the require, right?
I'd like to just write this. Saves me a whole line! woooo whooo!
package HTML::Customer;
use strict;
use base qw(HTML);
Kev
bash-2.01$ perl -v
This is perl, version 5.005_02 built for i386-svr5
------------------------------
Date: Thu, 24 Dec 1998 22:02:03 -0500
From: "Jason Swett" <swettboy@ncats.net>
Subject: Problem writing a file from web browser
Message-Id: <3682fc8e.0@news.ncats.net>
Rookie here. On a Unix server, I can run a CGI script via telnet that
re-writes a little test file. This won't work when run from a browser.
Is there something special that needs to be done to give the browser user
permissions to re-write the file?
I've used CHMOD to give RWX access to the test file, but that doesn't sem to
cut it.
Any ideas? Thanks.
------------------------------
Date: Fri, 25 Dec 1998 11:53:57 GMT
From: mingtian@hanmail.net (Gilly)
Subject: Re: Regex question - removing HTML tags....
Message-Id: <36837b66.5742368@usenet.kornet21.net>
abigail@fnx.com (Abigail) wrote:
:'- - >' is of course valid. It just doesn't mean what Gilly thinks it means.
<!-- So, what about this then? "- - >
BTW, Communicator 4.5 for win32 shows the above code for there is " (i think)
it's not proper to use RE for <!-- --> or <script> </script> .. as sometimes
strange chars could be there within the codes.
@}`,--- ">#F([%Tg%e)` #me %M%o(`
ICQ: 15668514
------------------------------
Date: Fri, 25 Dec 1998 11:59:43 GMT
From: mingtian@hanmail.net (Gilly)
Subject: Re: Regex question - removing HTML tags....
Message-Id: <36847de4.6380144@usenet.kornet21.net>
tadmc@metronet.com (Tad McClellan) wrote:
:GiLLY (hklife@soback.kornet21.net) wrote:
:
:: :<!-- So, what about this? --
:: :>
:
:: s/<!\s*-\s*-.*?-\s*-\s*>//gs;
: ^^^ ^^^ ^^^
:
: I don't think spaces are allowed there (I know they are not in
: SGML, but if we want to call what is accepted by popular browsers
: "real HTML", then I don't know ;-)
<!- - So, what about this then?
- - >
Communicator 4.5 for win32 thinks the above as a comment.
and don't know about IE as i don't have it.
@}`,--- ">#F([%Tg%e)` #me %M%o(`
ICQ: 15668514
------------------------------
Date: Fri, 25 Dec 1998 12:01:08 GMT
From: mingtian@hanmail.net (Gilly)
Subject: Re: Regex question - removing HTML tags....
Message-Id: <36857e42.6474464@usenet.kornet21.net>
abigail@fnx.com (Abigail) wrote:
:GiLLY (hklife@soback.kornet21.net) wrote on MCMXLI September MCMXCIII in
:<URL:news:3681e0f3.25474765@news.snu.ac.kr>:
:++ :<!-- So, what about this? --
:++ :>
:++
:++ s/<!\s*-\s*-.*?-\s*-\s*>//gs;
:
:
:<!-- So, what - - > about this then? -->
if both '- - >' and '-->' are valid then which is the closing tag?
@}`,--- ">#F([%Tg%e)` #me %M%o(`
ICQ: 15668514
------------------------------
Date: Thu, 24 Dec 1998 21:47:50 -0500
From: rjk@linguist.dartmouth.edu (Ronald J Kimball)
Subject: Re: Retrospective on comp.lang.perl.moderated?
Message-Id: <1dkk4pl.prjb891kt6tgzN@bay1-36.quincy.ziplink.net>
Excession <daccles@bad.spam.no.spam.pcug.org.au> wrote:
> rjk@linguist.dartmouth.edu (Ronald J Kimball) wrote:
>
> >Excession <daccles@bad.spam.no.spam.pcug.org.au> wrote:
>
> >> When the EFNET #perl channel denizens were confronted (on a few occasions)
> >> with the 'hmm, well why didn't the .misc newsgroup die as expected', their
> >> response was remarkable silence.
>
> >Maybe you expected .misc to die, but no one else did.
>
> Rubbish. A heap of people claimed that they were going to leave the .misc
> group and concentrate all of their activity in the .moderated group, and as a
> direct result of this migration, nobody would use .misc anymore.
Then I guess a heap of people had exagerrated notions of their own
importance. Does that answer the question? :-)
But regardless of expectation, comp.lang.perl.moderated was certainly
not intended to replace comp.lang.perl.misc.
<http://www.dejanews.com/getdoc.xp?AN=355417968>
REQUEST FOR DISCUSSION (RFD)
moderated group comp.lang.perl.moderated
[...]
RATIONALE
[...]
comp.lang.perl.misc would still be left in place for more
general discussion, and for those topics that no one seems
to agree on a place for.
[By the way, when you post links to messages on DejaNews, make sure you
use the "View for Bookmarking" link, not the search result link.]
--
_ / ' _ / - aka - rjk@linguist.dartmouth.edu
( /)//)//)(//)/( Ronald J Kimball chipmunk@m-net.arbornet.org
/ http://www.ziplink.net/~rjk/
"It's funny 'cause it's true ... and vice versa."
------------------------------
Date: Fri, 25 Dec 1998 00:30:53 -0500
From: Bob Walton <walton@frontiernet.net>
To: Ilya <ilya@napavlly.rose.hp.com>
Subject: Re: Running Perl/tk?
Message-Id: <3683230D.3E64@frontiernet.net>
Ilya wrote:
>
> If I create a TK interface for a Perl program, and give it to someone else
> to run it on their machine, does that machine have to have TK installed?
> Or can I compile it into a binary like C that does not need an interpreter?
>
> Please post your replies, thank you.
I have had success with Perl/Tk on an NT network by placing the perl
executable (renamed so it won't conflict with anyone's local perl
installation), the perlcrt.dll, and the Tk files in a network-accessible
directory, and having people run my Perl/Tk applications on PC's that
don't have Perl, Tk, or Perl/Tk installed on them. Anyone in my
multi-national corporation can run my applications. They are a bit slow
getting started when first executed, but they work fine. One caveat:
some stuff like glob() requires additional files, some of which will
require modification to work with the renamed perl. I haven't tried
putting a complete copy of perl up on the server. It would probably be
tricky to avoid having it interact with a users local perl
installation. I also don't have a clue how this would fare with other
operating systems.
------------------------------
Date: Fri, 25 Dec 1998 07:05:27 GMT
From: biggy7117@my-dejanews.com
Subject: www.universityweb.com
Message-Id: <75vdfn$27p$1@nnrp1.dejanews.com>
Hello Everyone,
Check out http://www.universityweb.com for University Classes, Online Books
(Linux, Java, Perl) and soon a Classifieds Section.
Thanks and Happy Holidays!
info@universityweb.com
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: 12 Dec 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 Dec 98)
Message-Id: <null>
Administrivia:
Well, after 6 months, here's the answer to the quiz: what do we do about
comp.lang.perl.moderated. Answer: nothing.
]From: Russ Allbery <rra@stanford.edu>
]Date: 21 Sep 1998 19:53:43 -0700
]Subject: comp.lang.perl.moderated available via e-mail
]
]It is possible to subscribe to comp.lang.perl.moderated as a mailing list.
]To do so, send mail to majordomo@eyrie.org with "subscribe clpm" in the
]body. Majordomo will then send you instructions on how to confirm your
]subscription. This is provided as a general service for those people who
]cannot receive the newsgroup for whatever reason or who just prefer to
]receive messages via e-mail.
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 4495
**************************************
