[17007] in Perl-Users-Digest
Perl-Users Digest, Issue: 4419 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Sep 25 00:11:02 2000
Date: Sun, 24 Sep 2000 21:05:08 -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: <969854708-v9-i4419@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Sun, 24 Sep 2000 Volume: 9 Number: 4419
Today's topics:
Re: "not in string" - how to do it? <godzilla@stomp.stomp.tokyo>
Re: "not in string" - how to do it? <jeff@vpservices.com>
Re: best way to compare $var against <DATA> <ren.maddox@tivoli.com>
Re: Fehlermeldung beim =?iso-8859-1?Q?Ausf=FChren?= ein (Gwyn Judd)
Fehlermeldung beim Ausführen eines Scripts! <replynews@bigfoot.com>
Re: MD5 Apache Password Encryption? <wrowe@rowe-clan.you.know.why.net>
New Perl resource website! <admin@cyrebels.org>
Re: Newbie question about perl <anmcguire@ce.mediaone.net>
Re: newbie: redirect problem <tom@tigertom.com>
Problem unlinking files (Programmer Needed) <aprmelton@earthlink.net>
Re: Problem unlinking files (Programmer Needed) (Gwyn Judd)
problems with Net::POP3 in 5.6 <news@#nospam#althepal.com>
Programmer Needed! <aprmelton@earthlink.net>
Re: Programmer Needed! (Abigail)
Re: Pure perl encrypt/decryption? (Logan Shaw)
Re: Pure perl encrypt/decryption? (Abigail)
Re: Range operator with "... /^$/" ollie_spencer@my-deja.com
Re: Range operator with "... /^$/" <ren.maddox@tivoli.com>
Recommendations for Best Beginners book? <frankie@centurytel.net>
Re: Recommendations for Best Beginners book? (Abigail)
Re: Recommendations for Best Beginners book? <tracyterrell@entersysgroup.com>
Re: Recommendations for Best Beginners book? drdementor@my-deja.com
Re: Recommendations for Best Beginners book? (Martien Verbruggen)
Re: References and local (Martien Verbruggen)
Regular expression with underscore , problem drdementor@my-deja.com
Re: Regular expression with underscore , problem (Martien Verbruggen)
Re: Regular expression with underscore , problem drdementor@my-deja.com
Re: The best tutorial? <bwalton@rochester.rr.com>
Re: too many errors in my program (Martien Verbruggen)
Re: when is a DBM worth it <bwalton@rochester.rr.com>
Windows 98 / Active Perl / CGI oi03_2000@my-deja.com
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Sun, 24 Sep 2000 15:53:03 -0700
From: "Godzilla!" <godzilla@stomp.stomp.tokyo>
Subject: Re: "not in string" - how to do it?
Message-Id: <39CE85CF.70ABD8C0@stomp.stomp.tokyo>
Kurt Schmidt wrote:
> Let's say that I have arbitrary strings like
> aklklsdjjf
> ssdalkfj
> srwokgfl
> jkljsdpitl;
> skkdddk
> dlkliujgmn
> klksddffd
> I want to match all strings EXCEPT those that have
> one or more d in it. Seems like a simple question,
> but what is the answer?
Wait! Wait! I have a more challenging problem!
"Let's say..." you ask to match all * substrings *
of strings "...EXCEPT those (which) have one or
more d (included)...." and make new variables with
these extracted substrings! Now this is fun!
*slips on her official Halloween Starfleet Uniform*
This calls for a classic Captain Kirkette trick!
*flirts with both Lulu and O'Roara*
Checkout! Set a course over thatta way!
Bound to be bisexual green slave girls
on a planet near that star!
"Captain to crew, it's schizoid time!"
Godzilla!
--
Are you ready for Roberta The Remarkable Robot?
TEST SCRIPT:
____________
#!/usr/local/bin/perl
print "Content-type: text/plain\n\n";
$data = "aklklsdjjf
ssdalkfj
srwokgfl
jkljsdpitl;
skkdddk
dlkliujgmn
klksddffd";
print "Boss, This Is Your Input:\n\n$data";
$data =~ s/[d]+/\n/g;
@Array = split (/\n/, $data);
chomp (@Array);
$counter = 1;
foreach $element (@Array)
{
if ($element)
{
$var{$counter} = $element;
$counter++;
}
}
$counter--;
print "\n\n\nBoss, I created $counter Captain Kirkette variables:\n\n";
for ($iteration = 1; $iteration <= $counter; $iteration++)
{ print "Variable $iteration is: $var{$iteration}\n"; }
exit;
PRINTED RESULTS:
________________
Boss, This Is Your Input:
aklklsdjjf
ssdalkfj
srwokgfl
jkljsdpitl;
skkdddk
dlkliujgmn
klksddffd
Boss, I created 12 Captain Kirkette variables:
Variable 1 is: aklkls
Variable 2 is: jjf
Variable 3 is: ss
Variable 4 is: alkfj
Variable 5 is: srwokgfl
Variable 6 is: jkljs
Variable 7 is: pitl;
Variable 8 is: skk
Variable 9 is: k
Variable 10 is: lkliujgmn
Variable 11 is: klks
Variable 12 is: ff
------------------------------
Date: Sun, 24 Sep 2000 20:22:19 -0700
From: Jeff Zucker <jeff@vpservices.com>
Subject: Re: "not in string" - how to do it?
Message-Id: <39CEC4EB.83483C62@vpservices.com>
Keith Calvert Ivey wrote:
>
> Jeff Zucker <jeff@vpservices.com> wrote:
>
> >> The full problem is that the string must match certain criteria
> >> and must not match certain other; something like "have a "wxyz"
> >> followed by "mrst" and a q in between them but there must
> >> not be a "d" in between them.
> >
> > print if /wxyz(.+)mrst/ && $1 !~ /d/ && $1 =~ /q/;
> >
> >Or use Larry's answer which is probably oodles more effecient than this.
>
> And works correctly on strings where yours doesn't, such as
> 'wxyzdwxyzqmrst'.
Yep, mea culpa, good catch.
--
Jeff
------------------------------
Date: 24 Sep 2000 19:34:40 -0500
From: Ren Maddox <ren.maddox@tivoli.com>
Subject: Re: best way to compare $var against <DATA>
Message-Id: <m3vgvl9un3.fsf@dhcp11-177.support.tivoli.com>
daniel@chetlin.com (Daniel Chetlin) writes:
> On 22 Sep 2000 23:07:38 -0500, Ren Maddox <ren.maddox@tivoli.com> wrote:
> >{
> > my $found;
> > while(<DATA>) {
> > next unless /$users_newsgroup/; # or $_ eq $users_newsgroup
> > $found++ and last;
> ---------->^^
> > }
> > warn "$users_newsgroup not found\n" unless $found;
> >}
> >
> >This has the added benefit that it will stop processing DATA as soon
> >as a match is found.
>
> I think you want a preincrement for that.
Yes, certainly. Silly me....
--
Ren Maddox
ren@tivoli.com
------------------------------
Date: Sun, 24 Sep 2000 23:49:45 GMT
From: tjla@guvfybir.qlaqaf.bet (Gwyn Judd)
Subject: Re: Fehlermeldung beim =?iso-8859-1?Q?Ausf=FChren?= eines Scripts!
Message-Id: <slrn8st4vv.10r.tjla@thislove.dyndns.org>
I was shocked! How could Ralf Siedow <replynews@bigfoot.com>
say such a terrible thing:
>Hallo,
>
>seitdem ich ein paar empfohlene Update bei meiner Mandrake eingespielt habe
>erscheint jedes mal beim Ausführen eines Perl-Scripts diese Fehlermeldung:
>
>perl: warning: Setting locale failed.
>perl: warning: Please check that your locale settings:
> LANGUAGE = "en",
> LC_ALL = "en",
> LANG = "en"
> are supported and installed on your system.
>perl: warning: Falling back to the standard locale ("C").
Dieses ist nicht ein Perl-Problem. Sie müssen eine der folgenden
Klimavariablen definieren:
LANG
LC_ALL
LANGUAGE
Vermutlich sind Sie genügend, gerades LC_ALL zu definieren:
export LC_ALL=de
Dieses wurde mit dem babelfishübersetzer übersetzt. Traurig, wenn es
unintelligible ist.
--
Gwyn Judd (print `echo 'tjla@guvfybir.qlaqaf.bet' | rot13`)
"The things you are liable to read in
the Bible, they ain't necessarily so."
[Porgy and Bess]
Atheism/Freethought fortune cookie file
------------------------------
Date: Mon, 25 Sep 2000 01:33:06 +0200
From: "Ralf Siedow" <replynews@bigfoot.com>
Subject: Fehlermeldung beim Ausführen eines Scripts!
Message-Id: <8qm2ve$fn06n$1@ID-23826.news.cis.dfn.de>
Hallo,
seitdem ich ein paar empfohlene Update bei meiner Mandrake eingespielt habe
erscheint jedes mal beim Ausführen eines Perl-Scripts diese Fehlermeldung:
perl: warning: Setting locale failed.
perl: warning: Please check that your locale settings:
LANGUAGE = "en",
LC_ALL = "en",
LANG = "en"
are supported and installed on your system.
perl: warning: Falling back to the standard locale ("C").
Kann mir da jemand weiterhelfen, was da schief gelaufen ist?
cu Ralf
------------------------------
Date: 24 Sep 2000 22:53:30 GMT
From: "William A. Rowe, Jr." <wrowe@rowe-clan.you.know.why.net>
Subject: Re: MD5 Apache Password Encryption?
Message-Id: <8qm0la$r46@dispatch.concentric.net>
Ok... am I thinking of HMAC_MD5, or is there no means to encrypt Apache
Apache server style passwords, al la crypt(), using the base perl libraries
like digest::*?
Bill
"Francis Litterio" <franl-removethis@world.omitthis.std.com> wrote in message
news:m3zol0z618.fsf@franl.andover.net...
> "William A. Rowe, Jr." <wrowe@rowe-clan.you.know.why.net> writes:
>
> > Does anyone have an example of how to 'seed' MD5
>
> From the MD5 package documentation:
>
> The MD5 module is depreciated. Use Digest::MD5 instead.
>
> > or Digest::MD5
> > for password encryption? crypt() is useless in this specific situation,
> > so I must use MD5 encryption.
>
> You don't "seed" the MD5 algorithm. You feed it data using either:
>
> Digest::MD5::add()
> or
> Digest::MD5::addfile()
>
> After giving it all the data, you fetch the hash using one of:
>
> Digest::MD5::digest()
> Digest::MD5::hexdigest()
> Digest::MD5::b64digest()
>
> Example:
>
> #!/usr/bin/perl -w
> use strict;
> use Digest::MD5;
>
> my $md5 = Digest::MD5->new();
> $md5->add("Daisy, Daisy, give me your answer do.");
> $md5->add("I'm half crazy over the love of you.");
> $md5->add("It won't be a stylish marriage.");
> $md5->add("I can't afford a carriage.");
> $md5->add("But you'll look sweet upon the seat");
> $md5->add("of a bicycle built for two.");
> $md5->add("Good day, gentlemen.");
>
> print "The hash is: ", $md5->hexdigest(), "\n";
>
> Output of the above program is:
>
> The hash is: f33ec51da8a82bcf6f1712cb1a9f30e1
> --
> Francis Litterio
> franl-removethis@world.std.omit-this.com
> PGP public keys available on keyservers.
------------------------------
Date: Sun, 24 Sep 2000 22:29:52 GMT
From: "Louis F." <admin@cyrebels.org>
Subject: New Perl resource website!
Message-Id: <39CE8087.A149C127@cyrebels.org>
--------------4DA7FD5D72DB783E3C22D48C
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Hi!
Im the webmaster of www.cyrebels.org, i just put it up and i was
wondering if anyone would have
some stuff i could put up on there or maybe have a site that would
affiliate with mine.
Im looking for: code snippets, docs/tutorials or articles.
And im also looking for permanent crew members, so if you're interested,
get in touch wih me!
And i invite ya'll to visit the site! Its gonna be one of the best soon!
:)
btw, sorry if you consider this as spamming...
--
- toqsick [Louis F.]
- iCQ: 12344844
- admin@cyrebels.org
- www.cyrebels.org : coding at its finest!
--------------4DA7FD5D72DB783E3C22D48C
Content-Type: text/html; charset=us-ascii
Content-Transfer-Encoding: 7bit
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
Hi!
<P>Im the webmaster of www.cyrebels.org, i just put it up and i was wondering
if anyone would have
<BR>some stuff i could put up on there or maybe have a site that
would affiliate with mine.
<P>Im looking for: code snippets, docs/tutorials or articles.
<P>And im also looking for permanent crew members, so if you're interested,
get in touch wih me!
<P>And i invite ya'll to visit the site! Its gonna be one of the best soon!
<P>:)
<P>btw, sorry if you consider this as spamming...
<PRE>--
- toqsick [Louis F.]
- iCQ: 12344844
- admin@cyrebels.org
- www.cyrebels.org : coding at its finest!</PRE>
</HTML>
--------------4DA7FD5D72DB783E3C22D48C--
------------------------------
Date: Sun, 24 Sep 2000 21:54:24 -0500
From: "Andrew N. McGuire " <anmcguire@ce.mediaone.net>
Subject: Re: Newbie question about perl
Message-Id: <Pine.LNX.4.21.0009242153100.14341-100000@hawk.ce.mediaone.net>
On Sun, 24 Sep 2000, fail006 quoth:
f> Hi I would like to know how can write a perl script that will telnet into a
f> router?
f> I have just started using perl. I am using perl that came with redhat 6.2.
f> can anyone please give me some hints or point me in the right direction.
perldoc -q telnet
anm
--
<(@)> ; $/ = q;;; for $" ( map $_ && chr() => split m~[\D+ <(@)>
<(@)> ]~ => <DATA> ) { print "@{ [ '' => '' ] }" } __END__ <(@)>
<(@)> 74 117 115 116 32 97 110 111 116 104 101 114 32 <(@)>
<(@)> 80 101 114 108 32 72 97 99 107 101 114 10 <(@)>
------------------------------
Date: Sun, 24 Sep 2000 23:22:38 +0100
From: "T. O' Donnell" <tom@tigertom.com>
Subject: Re: newbie: redirect problem
Message-Id: <39CE7EAD.5C51ECA0@tigertom.com>
"[WarLocK]" wrote:
> did you make sure to use double inverted commas (") not single (') as
> backslashed characters are not interpreted in single inverted commas.
>
> Damian.
>
> "macdo" <hmacdonald@europarl.eu.int> wrote in message
> news:39B60EBC.9BF7663A@europarl.eu.int...
> > No - I'm afraid all this does is display in my browser the string
> > "Location: http://www.somewhere.com\n\n"
> >
> >
> >
> > gumbygumbygumby@my-deja.com wrote:
> >
> > > In article <39B5F77A.5BC53D45@europarl.eu.int>,
> > > harry <hmacdonald@europarl.eu.int> wrote:
> > > > Can anyone please sort me out.
> > > >
> > > > I'm browsing a perl script which is served up by an IIS server.
> > > > (http://site/my.pl)
> > > > And from within the perl script I want to jump to another URL.
> > > print "Location: http://www.somewhere.com\n\n";
> > >
> > > should do the trick i believe.
> > >
> > > Sent via Deja.com http://www.deja.com/
> > > Before you buy.
> >
Does you have print "Content-type: text/html\n\n";
before your print "Location: http://www.somewhere.com\n\n"; in the
script?
TigerTom
--
T. O' Donnell Incorporated,
url: http://www.tigertom.com
E-books on Personal Development
and Ecommerce available to download.
------------------------------
Date: Mon, 25 Sep 2000 02:03:11 GMT
From: "April Melton" <aprmelton@earthlink.net>
Subject: Problem unlinking files (Programmer Needed)
Message-Id: <znyz5.18334$nk3.885620@newsread03.prod.itd.earthlink.net>
The script below is supposed to delete some
files & the make some new ones based upon some
form-based information. In its current state,
it makes the new files but doesn't delete the old ones.
I spent hours checking, testing and rearranging
lines & I can't figure out why it doesn't work.
Any one have an idea where I screwed up?
##################################################################
sub delete{
open(FILE,">$temp_data");
if ($keyword1 ne "") {
print FILE qq~$keyword1|$url\n~;
}
########## Keywords 1 through 50 ########################
if ($keyword50 ne "") {
print FILE qq~$keyword50|$url\n~;
}
close (FILE);
open(LIST,"$user_db");
while ($LINE = <LIST>){
($keyword, $url) = split (/\|/, $LINE);
$urls{$keyword} .= $url . " ";
}
foreach $keyword (sort keys %urls) {
$next = 0;
$total = 0;
@urls = split (" ", $urls{$keyword});
foreach $url (@urls) {
$total += $url;
$next++;
}
$whitespace= $keyword;
$whitespace =~ s/\s/_/g;
$whitespace =~ s/\W//g;
$newkeyword = lc($whitespace);
$directory = "$user_directory/$newkeyword";
$index = "$user_directory/$newkeyword/index.html";
$template1 = "$user_directory/$newkeyword/1$newkeyword.html";
$template2 = "$user_directory/$newkeyword/2$newkeyword.html";
$template3 = "$user_directory/$newkeyword/3$newkeyword.html";
$template4 = "$user_directory/$newkeyword/4$newkeyword.html";
$index_url = "$base_url/$newkeyword/index.html";
$temp1url = "$base_url/$new_name/$newkeyword/1$newkeyword.html";
$temp2url = "$base_url/$new_name/$newkeyword/2$newkeyword.html";
$temp3url = "$base_url/$new_name/$newkeyword/3$newkeyword.html";
$temp4url = "$base_url/$new_name/$newkeyword/4$newkeyword.html";
unlink ("$template1");
unlink ("$template2");
unlink ("$template3");
unlink ("$template4");
unlink ("$index");
rmdir ("$directory");
unlink ("$user_index");
unlink ("$user_db");
close (LIST);
}
open(LIST,"$temp_data");
while ($LINE = <LIST>){
($keyword, $url) = split (/\|/, $LINE);
$urls{$keyword} .= $url . " ";
}
foreach $keyword (sort keys %urls) {
$next = 0;
$total = 0;
@urls = split (" ", $urls{$keyword});
foreach $url (@urls) {
$total += $url;
$next++;
}
$whitespace= $keyword;
$whitespace =~ s/\s/_/g;
$whitespace =~ s/\W//g;
$newkeyword = lc($whitespace);
$directory = "$user_directory/$newkeyword";
$index = "$user_directory/$newkeyword/index.html";
$template1 = "$user_directory/$newkeyword/1$newkeyword.html";
$template2 = "$user_directory/$newkeyword/2$newkeyword.html";
$template3 = "$user_directory/$newkeyword/3$newkeyword.html";
$template4 = "$user_directory/$newkeyword/4$newkeyword.html";
$index_url = "$base_url/$newkeyword/index.html";
$temp1url = "$base_url/$new_name/$newkeyword/1$newkeyword.html";
$temp2url = "$base_url/$new_name/$newkeyword/2$newkeyword.html";
$temp3url = "$base_url/$new_name/$newkeyword/3$newkeyword.html";
$temp4url = "$base_url/$new_name/$newkeyword/4$newkeyword.html";
mkdir ("$directory", "0777");
chmod (0777, "$directory" );
$UC_keyword = uc($keyword);
$LC_keyword = lc($keyword);
$UCFIRST_keyword = "\u$keyword";
$LCFIRST_keyword = "\l$keyword";
####################################################################
open (HTML, ">$template1" );
print HTML qq~<HTML>
<HEAD>
<TITLE>$LC_keyword</TITLE>
<META NAME="keywords" CONTENT="$LC_keyword, $LC_keyword, $UC_keyword">
<META NAME="description" CONTENT="$LC_keyword $LC_keyword $UC_keyword">
<META HTTP-EQUIV="Refresh" CONTENT="0; URL=$url">
</HEAD>
<BODY>
<FORM>
<H1>$LC_keyword</H1>
<P>$LC_keyword. Visit our website about $LC_keyword at <A
HREF="$url">$url</A>.
You will find all kinds of free information about $LC_keyword.</P>
<P> </P>
<P>You can get to this site by <A HREF="$url">clicking
here.<BR>
</A></P>
<H2>$LC_keyword</H2>
<P> </P>
<P><A HREF="$url">$LC_keyword</A> <IMG SRC="/" ALT="$LC_keyword,
$LC_keyword, $UC_keyword"
ALIGN="BOTTOM"> <INPUT TYPE="hidden" NAME="$LC_keyword $LC_keyword
$UC_keyword"
VALUE="$LC_keyword $LC_keyword $UC_keyword"></P>
<P><A HREF="http://www.datandomains.com/">.</A></P>
<P><A HREF="http://www.datandomains.com/"></A> </P>
<P><A HREF="http://www.datandomains.com/"></A> </FORM>
</BODY>
</HTML>~;
close(HTML);
####################################################################
open (HTML, ">$index" );
print HTML qq~<HTML>
<BODY>
<a href="$temp1url">$keyword 1</a><BR>
<a href="$temp2url">$keyword 2</a><BR>
<a href="$temp3url">$keyword 3</a><BR>
<a href="$temp4url">$keyword 4</a><BR>
</BODY>
</HTML> ~;
close(HTML);
}
open(LIST,"$temp_data");
@LINES = <LIST>;
close(LIST);
open(NEWLIST,">$user_index");
print NEWLIST qq~<HTML><BODY>Your keyword directories are: <BR><BR>~;
foreach $LINE (@LINES)
{
@terms = split(/\|/,$LINE);
print NEWLIST qq~<a href="$user_url/$terms[0]"> $terms[0]</a><BR> \n~;
}
print NEWLIST qq~</BODY></HTML>~;
close(NEWLIST);
rename ($temp_data , $user_db );
print qq~Thanks~;
}
------------------------------
Date: Mon, 25 Sep 2000 03:24:58 GMT
From: tjla@guvfybir.qlaqaf.bet (Gwyn Judd)
Subject: Re: Problem unlinking files (Programmer Needed)
Message-Id: <slrn8sthjf.29e.tjla@thislove.dyndns.org>
I was shocked! How could April Melton <aprmelton@earthlink.net>
say such a terrible thing:
>The script below is supposed to delete some
>files & the make some new ones based upon some
>form-based information. In its current state,
>it makes the new files but doesn't delete the old ones.
>
>I spent hours checking, testing and rearranging
>lines & I can't figure out why it doesn't work.
>unlink ("$template1");
Why don't you test for an error? WHy are you needlessly stringifying
$template?
unlink $template or die "Couldn't delete $template: $!";
What does this tell you when you run it?
--
Gwyn Judd (print `echo 'tjla@guvfybir.qlaqaf.bet' | rot13`)
The basic essential of a great actor is that he loves himself in acting.
-Charlie Chaplin
------------------------------
Date: Mon, 25 Sep 2000 03:52:24 GMT
From: Alex Hart <news@#nospam#althepal.com>
Subject: problems with Net::POP3 in 5.6
Message-Id: <YZzz5.11213$T6.509073@typhoon2.ba-dsg.net>
has anyone run into problems with Net::POP3 using perl5.6
I have code that works on 5.004, but not 5.6. Any explanations??
- Alex
------------------------------
Date: Mon, 25 Sep 2000 00:44:36 GMT
From: "April Melton" <aprmelton@earthlink.net>
Subject: Programmer Needed!
Message-Id: <Udxz5.18151$nk3.878421@newsread03.prod.itd.earthlink.net>
I have a partially perl written program. The script is functional
except for one sub-routine that doesn't work properly. It's
probably a simple error I can't see after hours of looking for it.
The sub-routine is sub delete.
It is supposed to take some submitted form
information, write it to a temporary file & close the file.
Then it should open a flat file datebase, read the
information & unlink corresponding files. And finally,
it should re-open the temp file and create new files to
replace the old.
If you'd like to take a stab at this freelance project,
please email me for further details & tell me your hourly rate.
Sincerely,
April D. Melton
(319) 266-5020
------------------------------
Date: 25 Sep 2000 01:05:14 GMT
From: abigail@foad.org (Abigail)
Subject: Re: Programmer Needed!
Message-Id: <slrn8st93v.lo9.abigail@alexandra.foad.org>
April Melton (aprmelton@earthlink.net) wrote on MMDLXXXII September
MCMXCIII in <URL:news:Udxz5.18151$nk3.878421@newsread03.prod.itd.earthlink.net>:
:} I have a partially perl written program. The script is functional
:} except for one sub-routine that doesn't work properly. It's
:} probably a simple error I can't see after hours of looking for it.
:}
:} The sub-routine is sub delete.
^^^^^^^
Eeew.
Abigail
--
perl -le 's[$,][join$,,(split$,,($!=85))[(q[0006143730380126152532042307].
q[41342211132019313505])=~m[..]g]]e and y[yIbp][HJkP] and print'
------------------------------
Date: 24 Sep 2000 17:37:37 -0500
From: logan@cs.utexas.edu (Logan Shaw)
Subject: Re: Pure perl encrypt/decryption?
Message-Id: <8qlvnh$14$1@provolone.cs.utexas.edu>
In article <slrn8slesj.5fq.abigail@alexandra.foad.org>,
Abigail <abigail@foad.org> wrote:
>&& Logan Shaw wrote:
>&&
>&& >If you have CGI access, don't you almost by definition have shell
>&& >access?
>
>Of course, a properly configured host doesn't allow connections to ports
>other than necessary to perform its task, so it might very well be that
>any port other than 80 is firewalled out.
*Inbound* ports might be disabled, but so what? Just make that
telnetd-emulating CGI process a form that has two blanks on it: an IP
address and port number. Then, you fill those in, click "submit", and
the thing fork()s and daemonizes, and then connect()s to that port on
that host and offers access to a shell. You can certainly block
outbound TCP connections, but I don't think most system admins will
bother to.
- Logan
------------------------------
Date: 24 Sep 2000 23:44:18 GMT
From: abigail@foad.org (Abigail)
Subject: Re: Pure perl encrypt/decryption?
Message-Id: <slrn8st4c6.lo9.abigail@alexandra.foad.org>
Logan Shaw (logan@cs.utexas.edu) wrote on MMDLXXXI September MCMXCIII in
<URL:news:8qlvnh$14$1@provolone.cs.utexas.edu>:
;; In article <slrn8slesj.5fq.abigail@alexandra.foad.org>,
;; Abigail <abigail@foad.org> wrote:
;; >&& Logan Shaw wrote:
;; >&&
;; >&& >If you have CGI access, don't you almost by definition have shell
;; >&& >access?
;; >
;; >Of course, a properly configured host doesn't allow connections to ports
;; >other than necessary to perform its task, so it might very well be that
;; >any port other than 80 is firewalled out.
;;
;; *Inbound* ports might be disabled, but so what? Just make that
;; telnetd-emulating CGI process a form that has two blanks on it: an IP
;; address and port number. Then, you fill those in, click "submit", and
;; the thing fork()s and daemonizes, and then connect()s to that port on
;; that host and offers access to a shell. You can certainly block
;; outbound TCP connections, but I don't think most system admins will
;; bother to.
That entirely depends on your firewall configuration. For a webserver,
why should a firewall let any package through bound for a port other
than 80, regardless who initiated the connection?
Abigail
--
map{${+chr}=chr}map{$_=>$_^ord$"}$=+$]..3*$=/2;
print "$J$u$s$t $a$n$o$t$h$e$r $P$e$r$l $H$a$c$k$e$r\n";
------------------------------
Date: Sun, 24 Sep 2000 23:55:57 GMT
From: ollie_spencer@my-deja.com
Subject: Re: Range operator with "... /^$/"
Message-Id: <8qm4a7$po8$1@nnrp1.deja.com>
Thanks for the reply.
The System Administrator does the ftp-ing. I just pick the file up from
a designated directory. Maybe I should ask her, though-
After experimentation and re-re-reading the documentation ( doesn't perl
have wonderful documentation? I must read it sometime!) I found that my
major problem was *INCLUDING* binmode() in the first place. *WITHOUT*
binmode(), my ASCII file has \x0d\x0a replaced with \x0a as it is
read-in and I can process it just like the books say( meaning I can
forget those \x0d's). When I save, newlines convert back to
CRLF(\x0d\x0a)and the file is printable from a Windows platform.
I can even save it unaltered it I choose to binmode() the output file.
It seems so obvious now that I am sorry to have stirred up such an
extensive discussion. OR- maybe others are as confused as I?
Thanks again to all.
ollie spencer
In article <m31yygw6j1.fsf@dhcp11-177.support.tivoli.com>,
Ren Maddox <ren.maddox@tivoli.com> wrote:
> ollie_spencer@my-deja.com writes:
>
> > Yep, I did all the standard things, including using binmode(). See
some
> > of my earlier replies for my solution(finally!). Seems that chomp()
> > only trimmed the \x0a from the end of my NT-stored data, leaving an
> > \x0d. Evey line had \x0d in it, even those that appeared empty.
>
== And I Blah Blah Blahed on...
=== Ren's reply contained--
> BTW, I didn't see anyone mention this, and you probably already know
> it, but if you ftp the file in binary mode, then the \x0d characters
> will not be added (nor the \x1a at the end).
>
> --
> Ren Maddox
> ren@tivoli.com
>
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: 24 Sep 2000 19:29:38 -0500
From: Ren Maddox <ren.maddox@tivoli.com>
Subject: Re: Range operator with "... /^$/"
Message-Id: <m3ya0h9uvh.fsf@dhcp11-177.support.tivoli.com>
ollie_spencer@my-deja.com writes:
>In article <m31yygw6j1.fsf@dhcp11-177.support.tivoli.com>,
> Ren Maddox <ren.maddox@tivoli.com> wrote:
> > BTW, I didn't see anyone mention this, and you probably already know
> > it, but if you ftp the file in binary mode, then the \x0d characters
> > will not be added (nor the \x1a at the end).
>
> The System Administrator does the ftp-ing. I just pick the file up from
> a designated directory. Maybe I should ask her, though-
>
> After experimentation and re-re-reading the documentation ( doesn't perl
> have wonderful documentation? I must read it sometime!) I found that my
> major problem was *INCLUDING* binmode() in the first place. *WITHOUT*
> binmode(), my ASCII file has \x0d\x0a replaced with \x0a as it is
> read-in and I can process it just like the books say( meaning I can
> forget those \x0d's). When I save, newlines convert back to
> CRLF(\x0d\x0a)and the file is printable from a Windows platform.
>
> I can even save it unaltered it I choose to binmode() the output file.
>
> It seems so obvious now that I am sorry to have stirred up such an
> extensive discussion. OR- maybe others are as confused as I?
Possibly others are, but this *is* what I and others were attempting
to point out. Every time we mentioned binmode we were referring to
the fact that it looked like you *were* using it when you shouldn't.
I'm glad that you've got it straight now. :)
--
Ren Maddox
ren@tivoli.com
------------------------------
Date: Sun, 24 Sep 2000 20:35:54 -0500
From: Frankie <frankie@centurytel.net>
Subject: Recommendations for Best Beginners book?
Message-Id: <39CEABFA.FBE4691F@centurytel.net>
I am wondering what the recommendation for the best "complete"
beginner's book would be. One that starts from the "Very" ground floor
up. Thanks, and really sorry about the newbie question. New to this
end of the computer, not NG's so I know this is stretcing it;-)
--
"I do this really moronic thing that the government doesn't want me to
do. It is called thinking" - George Carlin
Remove * * to reply.
-----------------------------------------------------------------------
Pursuant to US Code, Title 47, Chapter 5, Subchapter II, ¢227,
Any and all nonsolicited commercial E-mail sent to this address
is subject to a download and archival fee in the amount of $500.00 US.
E-Mailing denotes the acceptance of these terms
-----------------------------------------------------------------------
------------------------------
Date: 25 Sep 2000 01:59:24 GMT
From: abigail@foad.org (Abigail)
Subject: Re: Recommendations for Best Beginners book?
Message-Id: <slrn8stc9h.lo9.abigail@alexandra.foad.org>
Frankie (frankie@centurytel.net) wrote on MMDLXXXII September MCMXCIII in
<URL:news:39CEABFA.FBE4691F@centurytel.net>:
"" I am wondering what the recommendation for the best "complete"
"" beginner's book would be. One that starts from the "Very" ground floor
"" up. Thanks, and really sorry about the newbie question. New to this
"" end of the computer, not NG's so I know this is stretcing it;-)
From the 'very' ground up? Which ground is that? Do you know how to
program? Do you know how a computer works? Do you know Unix? Do you
know English? I could recommend several books if you already know
a few languages from the ALGOL family, which may also work if you
know other languages instead. Unfortunally, I do not know a textbook
on how to learn programming.
Abigail
--
sub J::FETCH{Just }$_.='print+"@{[map';sub J::TIESCALAR{bless\my$J,J}
sub A::FETCH{Another}$_.='{tie my($x),$';sub A::TIESCALAR{bless\my$A,A}
sub P::FETCH{Perl }$_.='_;$x}qw/J A P';sub P::TIESCALAR{bless\my$P,P}
sub H::FETCH{Hacker }$_.=' H/]}\n"';eval;sub H::TIESCALAR{bless\my$H,H}
------------------------------
Date: Mon, 25 Sep 2000 02:00:12 GMT
From: "Tracy Terrell" <tracyterrell@entersysgroup.com>
Subject: Re: Recommendations for Best Beginners book?
Message-Id: <Mkyz5.28333$3y3.411937@typhoon.austin.rr.com>
"Frankie" <frankie@centurytel.net> wrote in message
news:39CEABFA.FBE4691F@centurytel.net...
> I am wondering what the recommendation for the best "complete"
> beginner's book would be. One that starts from the "Very" ground floor
> up. Thanks, and really sorry about the newbie question. New to this
> end of the computer, not NG's so I know this is stretcing it;-)
"Learning Perl" and "Programming Perl" (The "Camel" book from O'Reilly) are
the defacto starting points for learning Perl. I would also highly
recommend "The Perl Cookbook" for practical examples for questions like
"Okay, I get the syntax, but now I want to read, sort, filter a file and
then send emails".
Tracy
------------------------------
Date: Mon, 25 Sep 2000 02:18:55 GMT
From: drdementor@my-deja.com
Subject: Re: Recommendations for Best Beginners book?
Message-Id: <8qmclv$300$1@nnrp1.deja.com>
In article <39CEABFA.FBE4691F@centurytel.net>,
*frankie*@centurytel.net wrote:
> I am wondering what the recommendation for the best "complete"
> beginner's book would be. One that starts from the "Very" ground
floor
> up. Thanks, and really sorry about the newbie question. New to this
> end of the computer, not NG's so I know this is stretcing it;-)
>
> --
> "I do this really moronic thing that the government doesn't want me to
> do. It is called thinking" - George Carlin
>
> Remove * * to reply.
>
> ----------------------------------------------------------------------
-
> Pursuant to US Code, Title 47, Chapter 5, Subchapter II, ¢227,
> Any and all nonsolicited commercial E-mail sent to this address
> is subject to a download and archival fee in the amount of $500.00 US.
> E-Mailing denotes the acceptance of these terms
> ----------------------------------------------------------------------
-
>
for learning perl cgi
Perl And Cgi , For the world wide web
by Elizebeth Castro
you will need another book once you start writing more in depth code
but this is a bood book to get you started. if you can;t lern perl form
this book, its you not the book
Jim :-)
i might get some titles form my teacher, hes going to teach a pelr
class with no proramming prereq,
so the book will be a compleate beginners book
email me at
bigjim8987
at
dajskldjaksjdkajdjkldjkjkjdklajsklfjalskfjlaj
aol dot com
spelled it out so spammers dont get me
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Mon, 25 Sep 2000 02:57:48 GMT
From: mgjv@verbruggen.comdyn.com.au (Martien Verbruggen)
Subject: Re: Recommendations for Best Beginners book?
Message-Id: <slrn8stfp7.m9.mgjv@verbruggen.comdyn.com.au>
On Sun, 24 Sep 2000 20:35:54 -0500,
Frankie <frankie@centurytel.net> wrote:
> I am wondering what the recommendation for the best "complete"
> beginner's book would be. One that starts from the "Very" ground floor
> up. Thanks, and really sorry about the newbie question. New to this
> end of the computer, not NG's so I know this is stretcing it;-)
Andrew Johnson's _Elements of Programming with Perl_ starts at a
pretty basic level, and teaches Perl as well as general programming.
I'm not sure whether it is suited for someone who has never programmed
before, but it's an excellent book. Even if you have to find another
one that teaches general programming basics, this should be very
helpful.
Martien
--
Martien Verbruggen |
Interactive Media Division | I took an IQ test and the results
Commercial Dynamics Pty. Ltd. | were negative.
NSW, Australia |
------------------------------
Date: Mon, 25 Sep 2000 02:27:57 GMT
From: mgjv@verbruggen.comdyn.com.au (Martien Verbruggen)
Subject: Re: References and local
Message-Id: <slrn8ste18.m9.mgjv@verbruggen.comdyn.com.au>
On 24 Sep 2000 19:21:03 GMT,
Daniel Chetlin <daniel@chetlin.com> wrote:
> On 24 Sep 2000 06:23:56 GMT, Abigail <abigail@foad.org> wrote:
> >
> >The perlsub manpage says:
> >
> > A `local' just gives temporary values to global (meaning package)
> > variables. It does not create a _local_ variable.
> >
> >The perlref manpage says:
> >
> > By using the backslash operator on a variable, subroutine, or
> > value. (This works much like the & (addressof) operator in C.)
> > This typically creates another reference to a variable, because
> > there's already a reference to the variable in the symbol table.
> >
> >So, I would think that the following program:
>
> Here's my understanding of how this works.
[snip]
> And from the above diagrams, we see why it prints `foo' rather than
> `baz'.
Ok, that's how it works. But that doesn't mean that that is how it
_should_ work, or how it was _meant_ to work. All it says is that in
the one implementation of the language, they implemented it that way.
and that implementation might be wrong.
> >I asked about this on IRC, and uri gave me an explaination from the
> >implementation side; how it works with SVs and such. But I don't
> >find that acceptable, as SVs don't exist on the language level; they
> >are implementation details, and a next version of Perl might do it
> >differently.
>
> Is talking about symbol tables too much on the implementation side? I
> can't really make up my mind about that -- but I will say that the way
> it works now makes sense to me (it's the way I would have expected local
> and hard references to work).
It doesn't make sense from the documentation point of view. The
documentation states that the _values_ are saved, and nothing else. It
doesn't state that a new variable will be created, and I don't believe
it intended to do that.
I guess only Larry, or someone else involved in the development of
Perl 2, can tell what the intention was.
Martien
--
Martien Verbruggen |
Interactive Media Division | For heaven's sake, don't TRY to be
Commercial Dynamics Pty. Ltd. | cynical. It's perfectly easy to be
NSW, Australia | cynical.
------------------------------
Date: Mon, 25 Sep 2000 02:27:49 GMT
From: drdementor@my-deja.com
Subject: Regular expression with underscore , problem
Message-Id: <8qmd6i$3k3$1@nnrp1.deja.com>
this expression should see this as a match
/^[a-zA-Z][a-z,A-Z,0-9,_,\.]{2,62}@[a-zA-Z0-9][a-zA-Z0-9,-]{0,61}[a-z,A-
Z,0-9](\.[a-z,A-Z]{2,3}){1,3}$/
the match.... "james12_24@free-zilla.com"
its not liking the underscore
when i remove the underscore then i get a match
ie. "james1224@free-zilla.com"
[a-z,A-Z,0-9,_,\.] this is the part of the expression that is testing
those characters in the username.
i also tried [a-z,A-Z,0-9,\_,\.] incase the underscore is some sort of
reserved word.
I even tried [\w,\.] and [\w\.] and [a-zA-Z0-9_\.]
im not sure what im doing wrong...
does anyone see anything obvious?
thanks
Jim
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Mon, 25 Sep 2000 03:18:56 GMT
From: mgjv@verbruggen.comdyn.com.au (Martien Verbruggen)
Subject: Re: Regular expression with underscore , problem
Message-Id: <slrn8sth0q.m9.mgjv@verbruggen.comdyn.com.au>
On Mon, 25 Sep 2000 02:27:49 GMT,
drdementor@my-deja.com <drdementor@my-deja.com> wrote:
> this expression should see this as a match
>
> /^[a-zA-Z][a-z,A-Z,0-9,_,\.]{2,62}@[a-zA-Z0-9][a-zA-Z0-9,-]{0,61}[a-z,A-
> Z,0-9](\.[a-z,A-Z]{2,3}){1,3}$/
>
> the match.... "james12_24@free-zilla.com"
You did read the Perl FAQ, section 9, right? The question 'How do I
check a valid mail address?' might cover what you are trying to do.
$ perldoc perlfaq9
Your regex invalidates perfectly valid email addresses, and allows
invalid email addresses.
Try these:
a,foo,bar@banana.com
b@a.nl
Fred@&Barney@foo.com
> its not liking the underscore
Apart from the fact that I think this regex is seriously flawed, it
works fine for me.
$_ = 'james12_24@free-zilla.com';
/^[a-zA-Z][a-z,A-Z,0-9,_,\.]{2,62}
@[a-zA-Z0-9][a-zA-Z0-9,-]{0,61}
[a-z,A-Z,0-9](\.[a-z,A-Z]{2,3}){1,3}$/x;
print "$&\n";
OUTPUT:
james12_24@free-zilla.com
> when i remove the underscore then i get a match
> ie. "james1224@free-zilla.com"
>
> [a-z,A-Z,0-9,_,\.] this is the part of the expression that is testing
> those characters in the username.
[\w.,] does the same. If you didn't actually mean to match a comma,
[\w.] will do. Why do you have multiple commas anyway? Have you read
the documentation on character classes?
$ perldoc perlre
> i also tried [a-z,A-Z,0-9,\_,\.] incase the underscore is some sort of
> reserved word.
> I even tried [\w,\.] and [\w\.] and [a-zA-Z0-9_\.]
They should still work.
> im not sure what im doing wrong...
> does anyone see anything obvious?
Do you have the -w switch on in your script? When you turn it on, do
you see something like:
In string, @array now must be written as \@array at /tmp/foo.pl line 4,
near "foo@array"
? If you do, read the perldiag man page to fix.
$ perldoc perldiag
But do please read the perl FAQ section 9.
Martien
--
Martien Verbruggen |
Interactive Media Division |
Commercial Dynamics Pty. Ltd. | Curiouser and curiouser, said Alice.
NSW, Australia |
------------------------------
Date: Mon, 25 Sep 2000 03:31:22 GMT
From: drdementor@my-deja.com
Subject: Re: Regular expression with underscore , problem
Message-Id: <8qmgua$7pv$1@nnrp1.deja.com>
In article <8qmd6i$3k3$1@nnrp1.deja.com>,
drdementor@my-deja.com wrote:
> this expression should see this as a match
>
> /^[a-zA-Z][a-z,A-Z,0-9,_,\.]{2,62}@[a-zA-Z0-9][a-zA-Z0-9,-]{0,61}[a-
z,A-
> Z,0-9](\.[a-z,A-Z]{2,3}){1,3}$/
>
> the match.... "james12_24@free-zilla.com"
>
> its not liking the underscore
>
> when i remove the underscore then i get a match
> ie. "james1224@free-zilla.com"
>
i fixed the problem, it was a carelss mistake in another part of my
code, i had forgotten i had modified something else....
the expression above works
thanks anyways..
JIm
> [a-z,A-Z,0-9,_,\.] this is the part of the expression that is testing
> those characters in the username.
>
> i also tried [a-z,A-Z,0-9,\_,\.] incase the underscore is some sort of
> reserved word.
> I even tried [\w,\.] and [\w\.] and [a-zA-Z0-9_\.]
>
> im not sure what im doing wrong...
> does anyone see anything obvious?
>
> thanks
>
> Jim
>
> Sent via Deja.com http://www.deja.com/
> Before you buy.
>
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Sun, 24 Sep 2000 23:58:05 GMT
From: Bob Walton <bwalton@rochester.rr.com>
Subject: Re: The best tutorial?
Message-Id: <39CE951D.BAF3B5F0@rochester.rr.com>
Abigail wrote:
>
> Bob Walton (bwalton@rochester.rr.com) wrote on MMDLXXXI September
> MCMXCIII in <URL:news:39CE5F87.18B96CD2@rochester.rr.com>:
> "" Bob Walton wrote:
> "" >
> "" > Giulio Agostini wrote:
> "" > >
> "" > > Hi, I'd like to teach myself Perl.
> "" > > What's the best place to start? Maybe a free online tutorial?
> "" > >
> "" > > Thanks a lot.
> "" > > Ciao, Giulio
> "" > ...
> "" >
> "" > The best place to start is with the book "Learning Perl" by Randall
> ""
> "" Correction: Randal Schwartz's first name has only one "l". Sorry,
> "" Randal.
> ""
> "" > Schwartz, Tom Christiansen, and Larry Wall.
>
> Learning Perl only has 2 authors, and Larry isn't one of them.
>
> Abigail
...
Larry did the foreword. Might not count as an author, I don't know.
--
Bob Walton
------------------------------
Date: Mon, 25 Sep 2000 02:37:38 GMT
From: mgjv@verbruggen.comdyn.com.au (Martien Verbruggen)
Subject: Re: too many errors in my program
Message-Id: <slrn8stejd.m9.mgjv@verbruggen.comdyn.com.au>
On Sat, 23 Sep 2000 09:26:42 +0900,
Dan and Shelly <wedeking@msa.attmil.ne.jp> wrote:
> I wrote a perl script that has so many error messages when I try to run it
> that they scroll right past the end of the screen.
>
> How can I capture these error messages into a file so I can step through
> each one and try to fix them one at a time?
Use your shells redirection
csh> perl program >& file_with_errors
If you don't have a decent shell, you could consider doing something
like this (mind you, I think it's a silly idea):
#!/usr/local/bin/perl -w
use strict;
BEGIN { open STDERR, '>/tmp/errors' }
foo bar bargh
$ perldoc -f open
$ perldoc perlopentut
Make sure to clean that up before going into production.
Martien
--
Martien Verbruggen |
Interactive Media Division | Freudian slip: when you say one thing
Commercial Dynamics Pty. Ltd. | but mean your mother.
NSW, Australia |
------------------------------
Date: Mon, 25 Sep 2000 00:25:54 GMT
From: Bob Walton <bwalton@rochester.rr.com>
Subject: Re: when is a DBM worth it
Message-Id: <39CE9BA5.6D50ED44@rochester.rr.com>
Alex Hart wrote:
>
> I'm writing a program where each user has several setting. The number of
> fields varies, but is always less than 100 or so. Is the overhead
> associated with a database worth it for this many fields? Will a flat
> file be more efficient? I'm hoping someone who understands these isues
> can help shed some light on it for me.
>
> Bottom line : Is there a minimum number of fields or complexity before a
> DBM is worth using.
...
> - Alex
Alex, by "DBM", I assume you mean a hash tied to a DBM-like file? If
so, that is very likely the quickest way to maintain persistent
information from one execution of a Perl program to another, or from
program to program. The "quickness" should win on all counts -- the
easiest for which to write code, and the quickest to execute at
runtime. It is quick at runtime because a given program only needs to
actually access from disk the values it needs, and write to disk only
the values it modifies. With an ascii flat file, you will generally
need to read and parse the whole file (unless you use fixed-length
records -- but then you've got the hassle of what to do when adding new
parameters, and figuring out how to locate them when maintaining the
various programs that access them).
The one area where the DBM-type files will fall short is in
compatability across platforms. It is not a given that a particular
DBM-type file on one platform will be accessable on another platform --
or even on a different OS version on the same platform -- or even via
another Perl version, for that matter. It is pretty easy, though, to
dump a DBM-like file to ascii and read it in again on another platform,
so the conversion isn't too bad. Data::Dumper comes in handy for that.
In your particular case (each of many users has up to a hundred
parameters), the DBM-style tied hash should be a big winner. Consider
the problem of simply locating the records in a flat file -- and then
the problem of adding another user, or additional parameters to an
existing user.
--
Bob Walton
------------------------------
Date: Mon, 25 Sep 2000 02:57:57 GMT
From: oi03_2000@my-deja.com
Subject: Windows 98 / Active Perl / CGI
Message-Id: <8qmevd$5iu$1@nnrp1.deja.com>
Hello, this question may have been posted in the
past. I searched for three hours in the
discussion group but could not find a good answer.
I'm running Windows 98, personal web server. I've
downloaded Active perl (I'm a beginning Perl
programmer) and installed it successfully.
Tested couple of perl scripts from the dos window
and they work fine.
Now I wrote a perl script for cgi programming to
talk to a HTML form. I copied the script in
inetpub\wwwroot\cgi-bin directory. I tried to
execute this cgi script from my html form, but
getting a server 500 error.
Question is what do I have to do to get this
working? I saw couple of answers like change
registry or change permissions for the scripts
but no detailed answers.
Any help is highly appreciated. Thanks in advance
Mark.
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
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 4419
**************************************
