[12933] in Perl-Users-Digest
Perl-Users Digest, Issue: 343 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Aug 2 23:07:28 1999
Date: Mon, 2 Aug 1999 20:05:07 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Mon, 2 Aug 1999 Volume: 9 Number: 343
Today's topics:
External program input. <richj@home.com>
Re: External program input. <tchrist@mox.perl.com>
Re: External program input. <richj@home.com>
Re: External program input. <tchrist@mox.perl.com>
HTML::Parser and HTML::Entites drakek51@my-deja.com
Re: Logical Construction (Abigail)
Re: newbabie, file's of 24 lines? (Abigail)
Re: newbabie, file's of 24 lines? (Martien Verbruggen)
Re: Perl or CGI (elephant)
Re: Problem reading forms with perl (elephant)
Re: Problem reading forms with perl (Abigail)
Re: Problem reading forms with perl (elephant)
Re: Running scrips on own pc (elephant)
Re: Running scrips on own pc (elephant)
Re: Search (Abigail)
Re: Sorting array of hashs by a key makarand_kulkarni@my-deja.com
Re: Stopping output (Abigail)
Use of uninitialized value .... (Laura Bello)
Re: White Camel Awards <hal_mounce@amdahl.com>
Whitespace <richj@home.com>
Why no Perl books at Fry's? (CGI)
Re: Working Telnet Script Needed (elephant)
Digest Administrivia (Last modified: 1 Jul 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Tue, 03 Aug 1999 02:06:32 GMT
From: Joan Richards <richj@home.com>
Subject: External program input.
Message-Id: <37A5DEA8.C2C0F423@home.com>
In my script, I'm calling an external program that asks the
user for input. So, currently I'm calling/executing the
program like this:
system("$program_name 2>&1");
Which is cool, however, I'd like to create my own prompts
for this external program (make them mor user friendly)
and capture the output there, and then send the
information off to the external program. Is this possible? If
so, how can I do it?
Thanks,
-J
------------------------------
Date: 2 Aug 1999 20:13:52 -0700
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: External program input.
Message-Id: <37a65060@cs.colorado.edu>
[courtesy cc of this posting mailed to cited author]
In comp.lang.perl.misc, Joan Richards <richj@home.com> writes:
:In my script, I'm calling an external program that asks the
:user for input. So, currently I'm calling/executing the
:program like this:
:
: system("$program_name 2>&1");
:
:Which is cool, however, I'd like to create my own prompts
:for this external program (make them mor user friendly)
:and capture the output there, and then send the
:information off to the external program. Is this possible? If
:so, how can I do it?
I'm not sure what you're looking for. Trying to learn backticks?
The socketpair or open2 calls? Merely supplying arguments, or controlling
multiple streams?
--tom
--
Some are born to perl, some achieve perl, and some have perl
thrust upon them.
------------------------------
Date: Tue, 03 Aug 1999 02:20:01 GMT
From: Joan Richards <richj@home.com>
Subject: Re: External program input.
Message-Id: <37A5E1D2.44D3FBF3@home.com>
>I'm not sure what you're looking for. Trying to learn backticks?
>The socketpair or open2 calls? Merely supplying arguments, or controlling
>multiple streams?
Well, I'm a bit confused as to what you are now asking of me *grin* (a bit
over my head). However, maybe an example will work. When I fire up the
external program from my script, I'm prompted with various questions seeking
answers. e.g.
Please enter something here: (here's where you type something)
Please enter something again: (etc etc)
.....
The external program works find this way, however, it doesn't have any support
for readline functionality like my script does. So, what I'd like to be able
to do, is either mimick the prompts from the external program (with readline
support) and pass them to the external program, or, capture the input from my
"homemade" prompts, and then fire this information off to the external
program.
does this map anymore sense now?
Thanks again,
-J
------------------------------
Date: 2 Aug 1999 20:34:37 -0700
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: External program input.
Message-Id: <37a6553d@cs.colorado.edu>
[courtesy cc of this posting mailed to cited author]
In comp.lang.perl.misc,
Joan Richards <richj@home.com> writes:
:So, what I'd like to be able to do, is either mimic the prompts from the
:external program (with readline support) and pass them to the external
:program, or, capture the input from my "homemade" prompts, and then fire
:this information off to the external program.
Well, it sounds like what you most need is an old program called "ile",
which I don't know whether is around anymore. You might check.
Otherwise, you might be talking manual pty manipulation. Ouch.
If you're a competent systems programmer proficient in C, you
might look at the bizarre provocative
http://www.perl.com/tchrist/freedline.tar.gz
Just look at it for its programming logic, though, not its politics. :-)
The logic would work the same in Perl.
--tom
--
I eschew embedded capital letters in names; to my prose-oriented eyes,
they are too awkward to read comfortably. They jangle like bad typography.
--Rob Pike
------------------------------
Date: Tue, 03 Aug 1999 01:59:58 GMT
From: drakek51@my-deja.com
Subject: HTML::Parser and HTML::Entites
Message-Id: <7o5iep$jpr$1@nnrp1.deja.com>
I'm looking for an example of using HTML::Parser and HTML::Entites. I
have a project where I need to parse elements from an HTML page and
insert information. More specifically, I need to find the <script>
element and look for a type attribute. If the type attribute does not
exist then I need to insert 'type="text/javascript"'. It also needs to
be smart enough to interpret tags that are multiple lines. Thanks.
<script
src="script.js">
should be
<script
type="text/javascript" src="script.js">
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: 2 Aug 1999 21:18:18 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: Logical Construction
Message-Id: <slrn7qcka7.rb1.abigail@alexandra.delanet.com>
Samay (anonymous@web.remarq.com) wrote on MMCLXII September MCMXCIII in
<URL:news:933616932.6194@www2.remarq.com>:
$$ Hi, I am looking for perl code that can do following type
$$ of activity.
$$
$$ while(more X){
$$
$$ PROCESS the value returned by X;
$$ }
$$
$$ sub X{
$$
$$ foreach (1..10){
$$
$$ return ONE_AT_A_TIME $_;
$$ }
$$ }
I wonder why you don't write that as:
sub process_X {
my $code = shift;
foreach (1 .. 10) {
$code -> ($_);
}
}
...
process_X (sub {PROCESS a value of X});
[And if you prototype process_X with (&), you can call it like:
process_X {PROCESS a value of X};
]
What you want is possible, by using global variables keeping state,
but that gets hairy when you have 2 thingies iterating over X at
the same time.
Abigail
--
srand 123456;$-=rand$_--=>@[[$-,$_]=@[[$_,$-]for(reverse+1..(@[=split
//=>"IGrACVGQ\x02GJCWVhP\x02PL\x02jNMP"));print+(map{$_^q^"^}@[),"\n"
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: 2 Aug 1999 21:20:03 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: newbabie, file's of 24 lines?
Message-Id: <slrn7qckdh.rb1.abigail@alexandra.delanet.com>
ezzi (jcetek@ezzi.net) wrote on MMCLXII September MCMXCIII in
<URL:news:Kgop3.979$mH2.143648@typ12.nn.bcandid.com>:
::
:: I've only been programming in perl for two week. I'm having a problem with
:: read a file of 24 lines long. thankz, for any help.
Whooo! You're going to fast. If you have been programming perl for two
weeks, restrict yourself to files of 14 lines long.
In ten days, you know how to do files of 24 lines.
Just take it easy, one more line each day.
Abigail
--
sub _'_{$_'_=~s/$a/$_/}map{$$_=$Z++}Y,a..z,A..X;*{($_::_=sprintf+q=%X==>"$A$Y".
"$b$r$T$u")=~s~0~O~g;map+_::_,U=>T=>L=>$Z;$_::_}=*_;sub _{print+/.*::(.*)/s}
*_'_=*{chr($b*$e)};*__=*{chr(1<<$e)};
_::_(r(e(k(c(a(H(__(l(r(e(P(__(r(e(h(t(o(n(a(__(t(us(J())))))))))))))))))))))))
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: Tue, 03 Aug 1999 02:58:22 GMT
From: mgjv@comdyn.com.au (Martien Verbruggen)
Subject: Re: newbabie, file's of 24 lines?
Message-Id: <iVsp3.109$8W1.7259@nsw.nnrp.telstra.net>
On Mon, 2 Aug 1999 17:44:27 -0400,
ezzi <jcetek@ezzi.net> wrote:
>hi
>I've only been programming in perl for two week. I'm having a problem with
>read a file of 24 lines long. thankz, for any help.
Oh, bummer. You have found out about the big secret perl line-number
limitation. Originally the number was 42, which we all know is a magic
number, but during a late night session of rewriting code someone
mistyped it. I keep sending in bug reports about this, but people keep
forwarding it to alt.guinea.pig.conspiracy.
perl just will not read files with 24 lines.
Oh, another thing: Did you read any documentation?
# perldoc -f open
# perldoc perlop
(Section I/O operators)
You might consider getting a good book as well, http://www.perl.com/
has a list.
Oh, yet another thing: Next time you ask a question, show us what you
have tried, so we can point out _why_ it is failing.
Martien
--
Martien Verbruggen |
Interactive Media Division | If it isn't broken, it doesn't have
Commercial Dynamics Pty. Ltd. | enough features yet.
NSW, Australia |
------------------------------
Date: Tue, 3 Aug 1999 12:58:18 +1000
From: e-lephant@b-igpond.com (elephant)
Subject: Re: Perl or CGI
Message-Id: <MPG.121105da95b66ee1989bc7@news-server>
Emulov writes ..
>I'm thinking of learning Perl or CGI. But I don't have a clear idea of
>what's the difference between them. If I want to write a program that takes
>form input on my website and write that to some other file, on the server
>(UNIX), what do I use best?
CGI is an interface .. namely the Common Gateway Interface .. it is a
protocol of interaction between web clients, web servers and code
perl is one of many (really MANY) languages that the backend code can be
written in
more information on CGI is available here
http://hoohoo.ncsa.uiuc.edu/cgi/
and on perl .. here
http://www.perl.com/
and here
http://www.perl.org/
--
jason - remove all hyphens for email reply -
------------------------------
Date: Tue, 3 Aug 1999 12:21:29 +1000
From: e-lephant@b-igpond.com (elephant)
Subject: Re: Problem reading forms with perl
Message-Id: <MPG.1210fd348b0f4f3989bc4@news-server>
Floyd Morrissette writes ..
>In article <7o4v5f$685$1@nnrp1.deja.com>,
> genelong@my-deja.com wrote:
>> I have tried
>>
>> $text =~ s/</xxx/g
>>
>> but it doesn't seem to find anything to do the substitution.
>>
>
>Try something like:
>
>$text =~ s/<//g
>$text =~ s/>//g
>
>This replaces both < and > with nothing.
oh man .. you really seem to be getting under my skin today Floyd ..
sorry about this but .. WTF are you thinking ?
Gene just finished saying that
s/</xxx/g
"doesn't seem to find anything" .. so why oh why would you think that
s/<//g
would find something ?? .. you answered the following question
"
I've tried
$text =~ s/</xxx/g;
but it seems to replace the '<' character with 'xxx' .. I don't want this
- I just want to remove all '<'s and '>'s
"
can you see the difference between the two questions ??
--
jason - remove all hyphens for email reply -
------------------------------
Date: 2 Aug 1999 21:28:54 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: Problem reading forms with perl
Message-Id: <slrn7qcku3.rb1.abigail@alexandra.delanet.com>
genelong@my-deja.com (genelong@my-deja.com) wrote on MMCLXII September
MCMXCIII in <URL:news:7o4v5f$685$1@nnrp1.deja.com>:
## I have a problem I would appreciate help on. I have an html form with
## an input text field that I am reading with a perl program. I read the
## data and then write it out to a file, like this:
##
## open (FILE,">$wholefile") || die "Cannot open $wholefile: $!\n";
## $text = $FORM{'text'};
## print FILE "$text";
Why the detour? What's wrong with:
print FILE $FORM {text};
## close(FILE);
##
## The problem is that when a user enters "<" in the text area, the
## following text does not make it to the file. So if the user
## types "a<b>c", the file winds up with "ac" written to it.
Well, that's certainly not Perls fault. Perl doesn't care about '<'.
## Obviously something is interpreting the "<" as an html command, but I
## can't find a way around it. I have tried
##
## $text =~ s/</xxx/g
##
## but it doesn't seem to find anything to do the substitution.
Of course not. If '<' was still there, it would have ended up in the file.
But it's gone.
## Can anyone suggest a way of stopping the translation of data, and
## simply getting character-for-character data from the input field to a
## perl variable? Many thanks.
As I said, it isn't Perl ``translating'' your data (unless %FORM or $test
are some weird tied variables, but in that case: don't do that!); it has
to be something else. Perhaps solar flares?
Abigail
--
perl -wleprint -eqq-@{[ -eqw\\- -eJust -eanother -ePerl -eHacker -e\\-]}-
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: Tue, 3 Aug 1999 12:25:29 +1000
From: e-lephant@b-igpond.com (elephant)
Subject: Re: Problem reading forms with perl
Message-Id: <MPG.1210fe1c90b19c6c989bc5@news-server>
[ item posted to comp.lang.perl.misc and CCed to genelong@my-deja.com ]
genelong@my-deja.com writes ..
>open (FILE,">$wholefile") || die "Cannot open $wholefile: $!\n";
>$text = $FORM{'text'};
>print FILE "$text";
>close(FILE);
-
>Obviously something is interpreting the "<" as an html command, but I
>can't find a way around it. I have tried...
obviously .. whatever function is creating this %FORM hash for you is the
most likely candidate for getting rid of the <tag>s .. this is WHY PEOPLE
ARE CONSTANTLY TOLD TO USE THE CGI MODULE !!!!
perhaps a catchy slogan is what's needed
use CGI;
just do it
--
jason - remove all hyphens for email reply -
------------------------------
Date: Tue, 3 Aug 1999 12:08:55 +1000
From: e-lephant@b-igpond.com (elephant)
Subject: Re: Running scrips on own pc
Message-Id: <MPG.1210fa46bddd465d989bc2@news-server>
Floyd Morrissette writes ..
>In article <MPG.1210c4993eb5ced8989bb2@news-server>,
> e-lephant@b-igpond.com (elephant) wrote:
>> Microsoft's web servers too scarey for you ? .. they're really very
>> simple to setup .. less to do than with Apache
>
>I disagree. I tried to get PWS going for days. I got Apache running in
>less than an hour. I think editing two line in a conf file is easier
>than editing the registry.
firstly .. I never said that one was easier than the other .. I just said
that there was less to do with PWS than with Apache to get perl running
.. this remains a true statement
I don't know how to say this without offending you Floyd .. but judging
by your comments in the thread "perl code can't work" on setting perl up
under PWS I don't think you're a good test case for how easy it is
honestly .. you install PWS and make one addition in the registry (eg.
mapping .pl to x:\path\to\perl\perl.exe %s %s) .. and any CGI script with
the extension that you configured will work
moreover .. this operation is covered in the ActiveState documentation
and the Microsoft knowledge base (although I do concede that the
ActiveState documentation has an out of date link because Microsoft have
moved their knowledge base articles)
again .. the implication that getting perl running under PWS is really
complicated is more a statement about you than about the task at hand
--
jason - remove all hyphens for email reply -
------------------------------
Date: Tue, 3 Aug 1999 12:14:39 +1000
From: e-lephant@b-igpond.com (elephant)
Subject: Re: Running scrips on own pc
Message-Id: <MPG.1210fb9bb128ff98989bc3@news-server>
elephant writes ..
>honestly .. you install PWS and make one addition in the registry (eg.
>mapping .pl to x:\path\to\perl\perl.exe %s %s) .. and any CGI script with
>the extension that you configured will work
sorry .. to be more complete - from installation of PWS .. you _may_ also
need to configure a CGI directory (this is installed by default in IIS -
but _might_ not be under PWS) .. for which Microsoft provide a three
screen wizard
--
jason - remove all hyphens for email reply -
------------------------------
Date: 2 Aug 1999 21:35:58 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: Search
Message-Id: <slrn7qclbb.rb1.abigail@alexandra.delanet.com>
Jimtaylor5 (jimtaylor5@aol.com) wrote on MMCLXII September MCMXCIII in
<URL:news:19990802160513.18169.00004192@ng-fn1.aol.com>:
%%
%% foreach $searchword (@the_list) {
%% if ($searchline =~ /\b$searchword/i) {
%% $matchit = 1;
%% }
%%
%% Problem is, if I search "book" this matches bookcase,
%% bookends, Booker T. Washington, etc.
Ask yourself, why do you use a leading \b. Then ask yourself, why don't
I use a trailing \b. If you have answered both questions, you will find
the solution to your problem.
%% Or if I search "Cook Book"
%% it doesn't pick up book. How would I make this example match
%% for cook book and for simply book?
Reverse the operands.
Abigail
--
sub _'_{$_'_=~s/$a/$_/}map{$$_=$Z++}Y,a..z,A..X;*{($_::_=sprintf+q=%X==>"$A$Y".
"$b$r$T$u")=~s~0~O~g;map+_::_,U=>T=>L=>$Z;$_::_}=*_;sub _{print+/.*::(.*)/s}
*_'_=*{chr($b*$e)};*__=*{chr(1<<$e)};
_::_(r(e(k(c(a(H(__(l(r(e(P(__(r(e(h(t(o(n(a(__(t(us(J())))))))))))))))))))))))
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: Tue, 03 Aug 1999 02:09:00 GMT
From: makarand_kulkarni@my-deja.com
Subject: Re: Sorting array of hashs by a key
Message-Id: <7o5ivm$k6j$1@nnrp1.deja.com>
> I'm trying to sort an array of hashes such as:
>
Try this @dataarray = sort { $a->{age} <=> $b->{age} } @dataarray ;
Are you sure you want your age items to be a string.
--
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: 2 Aug 1999 21:37:00 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: Stopping output
Message-Id: <slrn7qcld9.rb1.abigail@alexandra.delanet.com>
Joan Richards (richj@home.com) wrote on MMCLXII September MCMXCIII in
<URL:news:37A57F3A.434ADCF7@home.com>:
**
** How can I force my script to only "show" 5 until the user hits "n" (next
** or whatever) and then show the other five etc. etc. etc.
RTFFAQ.
Abigail
--
perl -MTime::JulianDay -lwe'@r=reverse(M=>(0)x99=>CM=>(0)x399=>D=>(0)x99=>CD=>(
0)x299=>C=>(0)x9=>XC=>(0)x39=>L=>(0)x9=>XL=>(0)x29=>X=>IX=>0=>0=>0=>V=>IV=>0=>0
=>I=>$r=-2449231+gm_julian_day+time);do{until($r<$#r){$_.=$r[$#r];$r-=$#r}for(;
!$r[--$#r];){}}while$r;$,="\x20";print+$_=>September=>MCMXCIII=>()'
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: Mon, 02 Aug 1999 18:47:03 -0700
From: lrb@aimnet.com (Laura Bello)
Subject: Use of uninitialized value ....
Message-Id: <lrb-0208991847030001@oak-alg-gw4-55.ncal.verio.com>
Hi folks,
I'm new at perl and I'm really stumped with this one. The cgi script I
wrote looks at a particular directory full of html formated memos. It
creates a table with the file name, description, and modification date.
The script appeared to work and the resulting html page looked totally
fine. But then I discovered that if I viewed the page source or ran the
cgi from the command line I was getting this error message:
[Mon Aug 2 15:35:50 1999] memolist.cgi: Use of uninitialized value at
./memolist.cgi line 146.
I would get it twice, once each for two files I know don't have a date in
the actual document.
Here is the subroutine in question, date_html. The script uses both the -w
switch and "use strict" and the above is the only error message I get. Oh,
and I'm running Perl5.004 on SunOS. I know this will look naive to you all
but here goes:
$mod = &date_html(@file) #subroutine invoked in this fashion
#--------------------------------------------------------------------
# DATE_HTML - extract date from html files
#--------------------------------------------------------------------
sub date_html {
my (@f) = @_;
my ($date, $tmp);
($tmp) = grep { /<TD.*>.*, \d{4}/i } @f;
if ( defined $tmp ) {
($tmp) = ($tmp =~ m#<TD.*>\s*(.*?, \d{4})#i); # Extract just the date
($date = $tmp) =~ s/<[^>]*>//gs; # Kill any other tags
} else {
$date = &mod_date("$memdir/$memo");
}
return $date;
}
#--------------------------------------------------------------------
# MOD_DATE - plan B if date_html comes up with nothing
#--------------------------------------------------------------------
sub mod_date {
my ($f) = @_;
my $date = (stat($f))[9];
$date = scalar localtime($date);
my($mon, $mday, $year) = (split ' ', $date)[1, 2, 4];
$date = "$mon $mday, $year";
return $date;
}
After going thru the docs, faq, and books the only thing I unearthed was:
Use of uninitialized value
(W) An undefined value was used as if it were already defined. It was
interpreted as a "" or a 0, but maybe it was a mistake. To suppress this
warning assign an initial value to your variables.
So I tried to be really explicit in evaluating the result of the grep:
#--------------------------------------------------------------------
# DATE_HTML - extract dates from html files
#--------------------------------------------------------------------
sub date_html {
my (@f) = @_;
my $stat = 0;
my $date = "";
my $tmp = "";
$stat = eval{($tmp) = grep { /<TD.*>.*, \d{4}/i } @f};
print "\n\n############ $stat #######################\n";
if ( $stat == 1 ) {
($tmp) = ($tmp =~ m#<TD.*>\s*(.*?, \d{4})#i); # Extract just the date
($date = $tmp) =~ s/<[^>]*>//gs; # Kill any other tags
} elsif ( $stat == 0 ) {
$date = &mod_date("$memdir/$memo");
}
return $date;
}
Successful grep:
############ 1 #######################
[good html follows]
Unsuccessful grep:
############ 0 #######################
[Mon Aug 2 16:32:25 1999] testit.cgi: Use of uninitialized value at
./testit.cgi line 152.
[good html follows]
Sorry for the length of this post but I wanted to be as clear as I could
be. I suppose I could just turn off the -w switch since the script works
but that doesn't make sense to me.
Any help would be greatly appreciated.
Thanks ... -laura
--
Laura Bello
<mailto:lrb@aimnet.com>
------------------------------
Date: Mon, 02 Aug 1999 19:43:03 -0700
From: Hal Mounce <hal_mounce@amdahl.com>
Subject: Re: White Camel Awards
Message-Id: <37A65737.9A0D7F20@amdahl.com>
Tom Christiansen wrote:
>
> :Is this a legitimate award or just a scam to collect marketing data?
>
> I beg your pardon?
>
Sorry, I wasn't looking to pick a fight. I should have toned it down.
I'm a bit sensitive to personal data being collected. While whom my
employer is is no big secret, being asked is a red flag. One
telemarketer too many this morning.
I take it the contest is just what it appears to be. I'll try to get my
nomination in just under the wire.
Hal
Single, 39, homeowner, gainfully employed.
------------------------------
Date: Tue, 03 Aug 1999 02:53:27 GMT
From: Joan Richards <richj@home.com>
Subject: Whitespace
Message-Id: <37A5E9A8.D65F7138@home.com>
At a prompt in my script, I don't want the user to be able to type in an
input that contains more than one word. Now this word can be comprised
of upper/lower case letters and number, but nothing else. So, foobar is
valid, but foo bar is invalid. So is "foobar" is invalid.
Now, the user can type in anything they want, however, I want to give
them the finger if they input something bad.
Thanks,
-J
------------------------------
Date: Tue, 03 Aug 1999 02:53:20 GMT
From: PerlCoder@Unix.com (CGI)
Subject: Why no Perl books at Fry's?
Message-Id: <37a85785.178389453@news.giganews.com>
I went to Fry's Electronics. They have a large selection of computer
books, bigger than places like Crown and Barnes & Noble. I saw lots of
books on Java, C++, HTML, MCSE, etc. but I couldn't find anything on
Perl. So how should one interpret this situation? Does it mean people
are unaware of the importance of Perl? Isn't Perl more widely used and
more important for web sites than Java? Or is Perl used less than I
thought? Why so many books on Java? Java is so slow and such a
resource hog that I would be disinclined to use it. So far, the only
good application I've seen for Java is online board games such as
Chess, which don't require speed. If you want an online game that
requires speed, such as something like Quake or a fighting game like
Tekken, there's no way you could use Java. It'd be the worst thing
ever. And people thought interpreted Basic was slow!
------------------------------
Date: Tue, 3 Aug 1999 12:41:45 +1000
From: e-lephant@b-igpond.com (elephant)
Subject: Re: Working Telnet Script Needed
Message-Id: <MPG.121101f0980a0129989bc6@news-server>
[ item posted to comp.lang.perl.misc and CCed to Tom Christiansen ]
Tom Christiansen writes ..
>He's a Prisoner of Bill who doesn't have the least clue about
>how to use Usenet. Witness his folly and our frustration:
>
> X-Mailer: Mozilla 4.6 [en] (WinNT; I)
I think that's Netscape - seems to be the worst I've seen
just quietly - breaking the off topic AND commercial post rules (but
doing so for good reason and without personal gain *8^) .. anyone stuck
on Windows should check out www.microplanet.com for a newsreader called
Gravity that actually knows how to be a good usenet citizen
>You're supposed to pity the poor sucker. I know, sometimes compassion
>is a difficult thing in the face of such adversity. :-)
pity ? .. I'm using Windows at the moment (albeit NT Server on a
workstation to get enough control) .. you don't see my lines wrapping on
character 83
btw .. thanks for taking the time with my ugly spam filter .. brings a
tear to the eye - and prompts me to actually look into how to do it
properly at the server .. I'll have to dig up my procmail manuals -
actually y'all probably use perl based filters .. I didn't feel like
working today anyway
--
jason - remove all hyphens for email reply -
------------------------------
Date: 1 Jul 99 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 1 Jul 99)
Message-Id: <null>
Administrivia:
The Perl-Users Digest is a retransmission of the USENET newsgroup
comp.lang.perl.misc. For subscription or unsubscription requests, send
the single line:
subscribe perl-users
or:
unsubscribe perl-users
to almanac@ruby.oce.orst.edu.
To submit articles to comp.lang.perl.misc (and this Digest), send your
article to perl-users@ruby.oce.orst.edu.
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
To request back copies (available for a week or so), send your request
to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
where x is the volume number and y is the issue number.
The Meta-FAQ, an article containing information about the FAQ, is
available by requesting "send perl-users meta-faq". The real FAQ, as it
appeared last in the newsgroup, can be retrieved with the request "send
perl-users FAQ". Due to their sizes, neither the Meta-FAQ nor the FAQ
are included in the digest.
The "mini-FAQ", which is an updated version of the Meta-FAQ, is
available by requesting "send perl-users mini-faq". It appears twice
weekly in the group, but is not distributed in the digest.
For other requests pertaining to the digest, send mail to
perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
sending perl questions to the -request address, I don't have time to
answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V9 Issue 343
*************************************
