[9239] in Perl-Users-Digest
Perl-Users Digest, Issue: 2834 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Jun 10 20:07:50 1998
Date: Wed, 10 Jun 98 17:00:31 -0700
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Wed, 10 Jun 1998 Volume: 8 Number: 2834
Today's topics:
Re: "no blank line" error from all WinPerl scripts (Jonathan Stowe)
Re: 'fork' on x86 port of Perl (Jonathan Stowe)
Re: accessing a:\ (Larry Rosler)
Can I use linux & a voice modem to monitor time spent o <hackornottohack@hotmail.com>
Can I use linux & a voice modem to monitor time spent o <hackornottohack@hotmail.com>
Re: Certified Perl Programmers <merlyn@stonehenge.com>
Comments on my sources? <melkor@Cal040031.student.utwente.nl>
Re: comp.lang.perl.(n|q) another option? abraham@mpi.com
Re: comp.lang.perl.(n|q) another option? <tchrist@mox.perl.com>
conditional use statement?? <craig@lucent.com>
Re: conditional use statement?? (Jonathan Stowe)
Crazzzzy Problem!!! <info@!enation.org>
Re: Document contains no data? (Jonathan Stowe)
Re: Document contains no data? (Bob Trieger)
Re: Errno <htmlmail@htmlplace.com>
Re: Eval questions. (Charles DeRykus)
Re: flock <rick.delaney@shaw.wave.ca>
Re: How can I write to specific line ? <vallon@bear.com>
Re: http protocol <barmar@bbnplanet.com>
Re: MODERATION: Time to Vote <tchrist@mox.perl.com>
Re: MODERATION: Time to Vote (Stuart McDow)
Re: MODERATION: Time to Vote (John Stanley)
Nee help splitting row contents <hannum@oak.cat.ohiou.edu>
Re: Nee help splitting row contents (Jonathan Stowe)
Re: Newbie : How to append one file to another? (Shaun Sides)
Newbie: perl can't find modules DerRunt@my-dejanews.com
Re: Newbie: Unrecongized character (Tad McClellan)
Re: Number of digits in a string <merlyn@stonehenge.com>
Re: Number of digits in a string <vallon@bear.com>
Re: offline mode? (Jonathan Stowe)
Re: One output stream to two dests (Jonathan Stowe)
Re: pack/unpack seps <75762.2332@CompuServe.COM>
Re: Perl security on NT with IIS (Jonathan Stowe)
Re: Where is the robot? (Bob Trieger)
Re: Win32: File glob causes floppy to chatter <rpsavage@ozemail.com.au>
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Wed, 10 Jun 1998 22:22:08 GMT
From: Gellyfish@btinternet.com (Jonathan Stowe)
Subject: Re: "no blank line" error from all WinPerl scripts
Message-Id: <357f02d7.17418365@news.btinternet.com>
On Wed, 10 Jun 1998 20:11:32 GMT, williams wrote :
>All the WinPerl scripts I have tried give this error when I access
>them with my browser (Netscape):
>
>Message: CGI output from D:/WebSite/cgi-shl/ filename
>contained no blank line separating header and data (most
>likely a broken CGI program)
>
>There is probably a simple solution, but being a newbie at this
>(Perl), I can't put my hands on it.
>
>Anyone got the answer.....
>
Yep those nice folk over at comp.infosystems.www.authoring.cgi
probably have a very good FAQ they can point you to .
A clue: \n\n
/J\
Jonathan Stowe
Some of your questions answered:
<URL:http://www.btinternet.com/~gellyfish/resources/wwwfaq.htm>
------------------------------
Date: Wed, 10 Jun 1998 22:22:02 GMT
From: Gellyfish@btinternet.com (Jonathan Stowe)
Subject: Re: 'fork' on x86 port of Perl
Message-Id: <357ec549.2007618@news.btinternet.com>
On 9 Jun 1998 20:59:25 GMT, Ilya Zakharevich wrote :
>[A complimentary Cc of this posting was sent to Shaun Jackman
><sjackman@rogers.wave.ca>],
>who wrote in article <357CDCB3.EA325C3@rogers.wave.ca>:
>> The fork function crashes with
>> "The Unsupported function fork function is unimplemented"
>> upon use.
>>
>> Is there an implementation of fork avaiable for the x86?
>
>Sure. The standard DOSISH implementation (EMX port) can fork().
>So can (I think) dgcpp (sp?) port.
>
I'm afraid that djgpp doesnt:
#!perl
if (fork)
{
print "it worked";
}
else
{
wait;
}
~> fork.pl
The Unsupported function fork function is unimplemented at ./fork.pl
line 3.
[exited with 22]
~> perl -v
This is perl, version 5.004_02
Copyright 1987-1997, Larry Wall
MS-DOS port Copyright (c) 1989, 1990, Diomidis Spinellis
djgpp v2 port (jpl5003c) by Hirofumi Watanabe, 1996
djgpp v2 port (perl5004) by Laszlo Molnar, 1997
Perl may be copied only under the terms of either the Artistic License
or the
GNU General Public License, which may be found in the Perl 5.0 source
kit.
>Look under ports/os2 (but it works with DOS/Win* too).
>
However on Win32 I understand that a perl compiled with Cygwin32
<URL:http://www.cygnus.com/> does but dont tell Jonathan Feinberg or
he'll get his pins out again ;-}
/J\
Jonathan Stowe
Some of your questions answered:
<URL:http://www.btinternet.com/~gellyfish/resources/wwwfaq.htm>
------------------------------
Date: Wed, 10 Jun 1998 16:26:11 -0700
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: accessing a:\
Message-Id: <MPG.fe8b5d9eb7ba3d9896b3@nntp.hpl.hp.com>
In article <6lmepu$k47$3@client3.news.psi.net>, abigail@fnx.com says...
> Tom Christiansen (tchrist@mox.perl.com) wrote on MDCCXLIV September
> MCMXCIII in <URL: news:6lm96u$e1j$4@csnews.cs.colorado.edu>:
> ++ [courtesy cc of this posting sent to cited author via email]
> ++
> ++ In comp.lang.perl.misc, cpierce1@cp500.fsic.ford.com (Clinton Pierce) writes:
> ++ : open(FOO, $foo) || die "Can't open $foo: $!";
> ++ :
> ++ :On page 547. Looks like at the time of the last editing, the authors were
> ++ :still using the "open() || die" idiom, while somewhat endorsing the other.
> ++
> ++ I use ||. Larry stands by or. You heard both voices.
>
> Which is exactly the Perl way. If Perl offers you more than one way to
> do something [1], don't ask which is better. If one method was better
> than the other, Perl wouldn't have given you a choice.
>
> [1] With the exception of deprecated ways which are only maintained for
> backwards compatability reasons.
1. As I just posted in comparing substr with regex, 'better' may mean
*much* faster performance, yet Perl gives you a choice (in fact, lots of
choices, as your JAPHs show :-).
2. Tom C offered a "visual semantics" distinction that I have found
extremely attractive: Use && and || for logical (con|dis)junction within
a compound predicate; use 'and' and 'or' to introduce the consequent
(which often involves assignment or change of flow). The precedences are
appropriate for these uses, with minimal parenthetization:
$a && $b || $c and $x = $y;
--
Larry Rosler
Hewlett-Packard Laboratories
lr@hpl.hp.com
------------------------------
Date: 10 Jun 98 23:13:20 GMT
From: "|sMEG|" <hackornottohack@hotmail.com>
Subject: Can I use linux & a voice modem to monitor time spent on a phone call and the number called ?
Message-Id: <01bc92e7$5470a3a0$058e22cb@df>
Can someone help me with a program if it is even possible . I would like
to use a voice modem to dial out on my linux box and have some sort of
program or just a perl script to monitor and tell me exactly how long I
have been on the call , down to the last second but only from the time
the other person picks up the hand set on the other end . I want to use
this to monitor long distance calls because I have a call card where you
save on long distance calls. The way the card works is that you dial a
number , you don't get a ringing tone than after a few seconds a recorded
message tells you to press 0, than the recorded message tells you to enter
your pin number than you dial the number you want to call.
Please e-mail me with some help hackornottohack@hotmail.com
------------------------------
Date: 10 Jun 98 23:13:35 GMT
From: "|sMEG|" <hackornottohack@hotmail.com>
Subject: Can I use linux & a voice modem to monitor time spent on a phone call and the number called ?
Message-Id: <01bc92e7$5d478480$058e22cb@df>
Can someone help me with a program if it is even possible . I would like
to use a voice modem to dial out on my linux box and have some sort of
program or just a perl script to monitor and tell me exactly how long I
have been on the call , down to the last second but only from the time
the other person picks up the hand set on the other end . I want to use
this to monitor long distance calls because I have a call card where you
save on long distance calls. The way the card works is that you dial a
number , you don't get a ringing tone than after a few seconds a recorded
message tells you to press 0, than the recorded message tells you to enter
your pin number than you dial the number you want to call.
Please e-mail me with some help hackornottohack@hotmail.com
------------------------------
Date: Wed, 10 Jun 1998 22:25:40 GMT
From: Randal Schwartz <merlyn@stonehenge.com>
Subject: Re: Certified Perl Programmers
Message-Id: <8clnr4q4h0.fsf@gadget.cscaper.com>
>>>>> "Mark-Jason" == Mark-Jason Dominus <mjd@op.net> writes:
Mark-Jason> ``Oh, yes. I've been a certified Perl developer since 1997.''
I've been a certifiable Perl hacker since, oh, 1989. :-)
print "Just another Perl hacker," # but not what the media calls "hacker!" :-)
## legal fund: $20,990.69 collected, $186,159.85 spent; just 82 more days
## before I go to *prison* for 90 days; email fund@stonehenge.com for details
--
Name: Randal L. Schwartz / Stonehenge Consulting Services (503)777-0095
Keywords: Perl training, UNIX[tm] consulting, video production, skiing, flying
Email: <merlyn@stonehenge.com> Snail: (Call) PGP-Key: (finger merlyn@teleport.com)
Web: <A HREF="http://www.stonehenge.com/merlyn/">My Home Page!</A>
Quote: "I'm telling you, if I could have five lines in my .sig, I would!" -- me
------------------------------
Date: 10 Jun 1998 22:25:34 GMT
From: Thomas van Gulick <melkor@Cal040031.student.utwente.nl>
Subject: Comments on my sources?
Message-Id: <6ln14u$rm9$1@dinkel.civ.utwente.nl>
I'm building a large perl bases database system for my website and I was
wondering if you have any comments on what I'm doing, especially the perl
code. I just want to hear any comments (preferably negative, so I can learn
from you:). But only if your interested of course. Visit:
http://utumno.student.utwente.nl/~quake/sources/scripts/
Thomas
--
http://utumno.student.utwente.nl/
melkor@utumno.student.utwente.nl
------------------------------
Date: Wed, 10 Jun 1998 22:33:16 GMT
From: abraham@mpi.com
Subject: Re: comp.lang.perl.(n|q) another option?
Message-Id: <6ln1jc$uoi$1@nnrp1.dejanews.com>
In article <357BD96A.EBB90699@mail.uca.edu>,
Cameron Dorey <camerond@mail.uca.edu> wrote:
>
> [cc'd to amd]
>
> Allan M. Due wrote:
> >
> > [snip]
> > As a newcomer to Perl [...] one idea I have played with is creating
a web site dedicated to the Perl Newbie that would be a clearing house of all
of the excellent FAQs and guides to appropriate newsgroup behavior that
newbies are frequently directed to in this newsgroup. As an alternative to
suggesting "check the man pages" or the FAQs and etc. the inappropriate
poster could be referred to the web site as the place to start before making
any more posts to the newsgroup.
>
> That's nice of you to make that offer, but have you noticed the ongoing
> number of referrals in this newsgroup to http://www.perl.com, where
> there already is a listing of FAQs, tutorials, resources, etc. for all
> to peruse? If people won't go there (and, you'll have to admit, it _is_
> an easy name to remember), then I wouldn't be optimistic that a site by
> any other name would be used by the folks that need it, either.
>
> Cameron
> camerond@mail.uca.edu
>
At times I feel that people haven't even taken the time to read "Learning
Perl", let alone "Programming Perl", before they post questions. Now, in
addition to the above, there's "Effective Perl Programming" and the
forthcoming "Perl Cookbook", not to mention the pod (can you type
"perldoc"?).
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/ Now offering spam-free web-based newsreading
------------------------------
Date: 10 Jun 1998 22:49:40 GMT
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: comp.lang.perl.(n|q) another option?
Message-Id: <6ln2i4$bfd$2@csnews.cs.colorado.edu>
[courtesy cc of this posting sent to cited author via email]
In comp.lang.perl.misc,
abraham@mpi.com writes:
:addition to the above, there's "Effective Perl Programming" and the
:forthcoming "Perl Cookbook", not to mention the pod (can you type
:"perldoc"?).
The pods get be grepped!
--tom
--
If I allowed "next $label" then I'd also have to allow "goto $label",
and I don't think you really want that... :-)
--Larry Wall in <1991Mar11.230002.27271@jpl-devvax.jpl.nasa.gov>
------------------------------
Date: Wed, 10 Jun 1998 17:17:27 -0500
From: "Craig M. Votava" <craig@lucent.com>
Subject: conditional use statement??
Message-Id: <357F05F7.6231@lucent.com>
Folks-
I want to write a single perl script that will
detect what OS it is running under, so it can
use the system call to launch a command
if on a unix machine, or the Win32::Process
stuff if on a windows based machine.
This doesn't work:
=======================================
use English;
if($OSNAME eq "MSWin32") {
use Win32;
use Win32::Process;
}
print "OSTYPE=$OSNAME\n";
.
.
.
========================================
How should I be doing this?
Thanks
-Craig
------------------------------
Date: Wed, 10 Jun 1998 23:04:54 GMT
From: Gellyfish@btinternet.com (Jonathan Stowe)
Subject: Re: conditional use statement??
Message-Id: <357f0e2a.19967269@news.btinternet.com>
On Wed, 10 Jun 1998 17:17:27 -0500, Craig M. Votava wrote :
>Folks-
>
>I want to write a single perl script that will
>detect what OS it is running under, so it can
>use the system call to launch a command
>if on a unix machine, or the Win32::Process
>stuff if on a windows based machine.
>
>This doesn't work:
>
>=======================================
>use English;
>
>if($OSNAME eq "MSWin32") {
> use Win32;
> use Win32::Process;
>}
>
>print "OSTYPE=$OSNAME\n";
>.
>.
Hmm,
This must be a FAQ <searches through perlfaq>, strange.
Oh well when was it last asked ...
Ah -
if you search this group on DejaNews for a thread who's subject is:
'use' a module conditonally
<sic>
Then you will undoubtedly find some answers.
/J\
Jonathan Stowe
Some of your questions answered:
<URL:http://www.btinternet.com/~gellyfish/resources/wwwfaq.htm>
------------------------------
Date: Wed, 10 Jun 1998 23:02:31 GMT
From: e_nation <info@!enation.org>
Subject: Crazzzzy Problem!!!
Message-Id: <bgEf1.34$Ua6.46396@news2.randori.com>
I have a virtual server on which I host my website. There are alot of
functions automated by the use of perl/cgi scripts. However, suddenly
they seemed to stop working.
tech Support hasn't been helpful, saying they'll charge me to take a
look and see if they can solve it.
I did not change the permissions of the the scripts or the scripts
themselves. But I constantly get the 403 Forbidden error.
All the scripts (and directory) are chmod 755.
My server uploaded a test file for cgi-perl4-perl5 and the work
simplying printing "it works" to the screen.
However, When I copy their script and try it I get the 403 forbidden
message.(keeping the attributes the smame the whole time)
Renaming their files and running them work. But none of my scripts seem
to work anymore and I just get a 403 error.
Can anyone help on this matter or post ideas to try? I've tried
uploading brand new scripts that have been downloaded and tried them but
they don't seem to work either.
Any help appreciated.
Darren
http://www.enation.org
------------------------------
Date: Wed, 10 Jun 1998 22:22:06 GMT
From: Gellyfish@btinternet.com (Jonathan Stowe)
Subject: Re: Document contains no data?
Message-Id: <357eec11.11932730@news.btinternet.com>
On Wed, 10 Jun 1998 16:17:37 GMT, Dom Franco wrote :
>I recently downloaded and installed the Omnihttpd server on my
>computer. When I try to run simple Perl scripts locally I get the
>message "Document contains no data." What does this mean?
If you get a diagnostic message from error you can get a full
explanation of its meaning from the perldiag document that is
available with all perl distributions. However you wont find this
message in that document because it is not a Perl message.
You might find some more information in the documentation for your
server, the documentation of your browser or some more general
documentation on CGI.
/J\
Jonathan Stowe
Some of your questions answered:
<URL:http://www.btinternet.com/~gellyfish/resources/wwwfaq.htm>
------------------------------
Date: Wed, 10 Jun 1998 22:20:57 GMT
From: sowmaster@juicepigs.com (Bob Trieger)
Subject: Re: Document contains no data?
Message-Id: <6ln0vc$4tj$2@ligarius.ultra.net>
ptimmins@netserv.unmc.edu (Patrick Timmins) wrote:
-> In article <357eb13e.9317170@news.inav.net>,
-> dfranco@inav.net (Dom Franco) wrote:
-> >
-> > I recently downloaded and installed the Omnihttpd server on my
-> > computer. When I try to run simple Perl scripts locally I get the
-> > message "Document contains no data." What does this mean?
-> > Thanks
-> >
->
-> It's like a document with data, only smaller.
Nah, it's much better. Documents with data don't get them there cool pop up
windows telling you that have data.
Bob Trieger
sowmaster@juicepigs.com
" Cost a spammer some cash: Call 1-800-239-0341
and hang up when the recording starts. "
------------------------------
Date: Wed, 10 Jun 1998 18:54:12 -0400
From: "HtmlPlace.Com" <htmlmail@htmlplace.com>
Subject: Re: Errno
Message-Id: <357F0E94.2CFF@htmlplace.com>
Abigail wrote:
>
> HtmlPlace.Com (htmlmail@htmlplace.com) wrote on MDCCXLIV September
> MCMXCIII in <URL: news:357EBDDE.22BC@htmlplace.com>:
> ++ Hello,
> ++
> ++ Is there any documentation anywhere that lists possible error codes?
> ++ I am running a script I wrote and I am coming up with errno 2 as an
> ++ error in my error logs.
>
> perl -we 'print "${\($! = 2)}\n"'
>
> Abigail
> --
> perl5.004 -wMMath::BigInt -e'$^V=new Math::BigInt+qq;$^F$^W783$[$%9889$^F47$|88768$^W596577669$%$^W5$^F3364$[$^W$^F$|838747$[8889739$%$|$^F673$%$^W98$^F76777$=56;;$^U=substr($]=>$|=>5)*(q.25..($^W=@^V))=>do{print+chr$^V%$^U;$^V/=$^U}while$^V!=$^W'
Thanks All for quick answers to my questions!
Mark
------------------------------
Date: Wed, 10 Jun 1998 22:48:13 GMT
From: ced@bcstec.ca.boeing.com (Charles DeRykus)
Subject: Re: Eval questions.
Message-Id: <EuCy0D.BAw@news.boeing.com>
In article <01bd94a7$c98dbac0$02521e0a@tschai>,
John Bokma <john@castleamber.com> wrote:
>
>
>Charles DeRykus <ced@bcstec.ca.boeing.com> wrote in article
><EuAwrI.8KG@news.boeing.com>...
>> In article <01bd93d1$ac777600$02521e0a@tschai>,
>> John Bokma <john@castleamber.com> wrote:
>> > Hi,
>> >
>> > I want to use a tekstfile to define macro's and expand macro's
>> > based on Perl.
>> >
>> > Example:
>> >
>> > \
>> > sub somesub ($)
>> > {
>> > my ($var) = shift;
>> >
>> > return $var;
>> > }
>> >
>> > "";
>> > \
>> >
>> > \somesub("Expand me")\
>> >
>> > the \somesub("Expand me")\ is replaced by
>> > Expand me.
>> >
>> > I have this already working using:
>> >
>> > s/\\([^\\]+\\/ eval $1 ./ meg;
>> >
>>
>> Hm, perl contradicts you:
>
>Very funny (not). I typed it from memory, and yes
>I forgot a closing ), and there is an accidental . before
>the final /. (My email program doesn't
>do syntax checking ).
>
>But after clearing this up, have you anything to
>say that's on topic?
>
I beg to differ. Syntax errors are definitely on topic -
especially if there's more than one. Or, do you presume
that someone seeing your post has nothing better to do
with his time and energy than make multiple passes to
unravel what you're trying to do...
--
Charles DeRykus
------------------------------
Date: Thu, 11 Jun 1998 00:42:32 GMT
From: Rick Delaney <rick.delaney@shaw.wave.ca>
To: Deva Seetharam <devs@usa.net>
Subject: Re: flock
Message-Id: <357F1B7F.614D7486@shaw.wave.ca>
Deva Seetharam wrote:
>
> close(TEMPLATE);
> close (TEMPFILE);
>
> # tempfile and template contains the name of the files.
> rename ($tempfile, $template);
^^^^^^
> ***************************************
> This script works perfectly if run in single user mode.
> But, if multiple users execute the script simultaneously, it
> does not update the TEMPLATE properly.
>
That's because user #2 can trash user #1's changes before the file is
renamed. If you must use a temp file then read it back and write back
to TEMPLATE.
--
Rick Delaney
rick.delaney@shaw.wave.ca
------------------------------
Date: Wed, 10 Jun 1998 23:03:52 GMT
From: Justin Vallon <vallon@bear.com>
Subject: Re: How can I write to specific line ?
Message-Id: <x6e3edcoo4m.fsf@pearl.bear.com>
If you're doing it from the command-line, you can use -n, and check
$. (that's dollar dot).
perl5 -ne 'if ($. == 2) { print "replace\ntext\n"; } else { print; }' < xyz
Or, the ever popular:
perl5 -pen '$_ = "replace\n" if $. == 2' < xyz
You might be able to emulate the -n somehow in a script (automatically),
but I am not sure how. Otherwise, write to a temp file, and rename.
Or, from perl:
system ("perl5 -ne '....'")
That might be a little overkill (running another process, etc).
evgenya@amos-01.cs.huji.ac.il (Evgenya Borisenko) writes:
> Hi,
>
> I'd like to know is there a possibility to write (change) to a specific
> line in a file ?
>
> Thanx for any help,
> Eugenia.
--
-Justin
vallon@bear.com
------------------------------
Date: Wed, 10 Jun 1998 22:12:45 GMT
From: Barry Margolin <barmar@bbnplanet.com>
Subject: Re: http protocol
Message-Id: <xxDf1.32$Fr5.339370@cam-news-reader1.bbnplanet.com>
In article <6lmje3$2v3$1@news.fsu.edu>,
Breeze Pecorino <bpecorin@mailer.fsu.edu> wrote:
>I am running a perl5 program that creates a socket to the http protocol
>on another machine. I have this working for two other protocols (smtp &
>pop3). The problem is that when I run it with www-http it dies after
>trying to connect the socket. I have added www-http as the daemon name in
>the services file. I can telnet acns.fsu.edu www-http, but I can't use
>www-http in my program? I have tried restarting the machine. Do I need
>to add www-http to the inetd.conf? Any help would be appreciated.
This is usually just called "http" in /etc/services files. And you
shouldn't add www-http to inetd.conf unless you're running an HTTP server
on your machine and it's designed to be run from inetd.
Could you be more specific about how it's failing? /etc/services is used
by getservbyname(), just to translate the numeric service name to a port
number (e.g. http -> 80). What error message is in "$!"?
--
Barry Margolin, barmar@bbnplanet.com
GTE Internetworking, Powered by BBN, Cambridge, MA
*** DON'T SEND TECHNICAL QUESTIONS DIRECTLY TO ME, post them to newsgroups.
------------------------------
Date: 10 Jun 1998 22:36:37 GMT
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: MODERATION: Time to Vote
Message-Id: <6ln1pl$bfd$1@csnews.cs.colorado.edu>
[courtesy cc of this posting sent to cited author via email]
In comp.lang.perl.misc, cberry@cinenet.net (Craig Berry) writes:
:Care to explain that?
You really didn't want to ask that. :-( Stanley is just a rabble rouser,
and now you've gone and roused him. :-) I hope you're prepared for
bizarre invective. While you sit through the hundreds of lines that are
about to ensue, please keep in mind the goal as espoused in the opening
lines of justficiation for the group. Its proponents, Mark and Chip,
are honorable and *shall* see that the Right Thing is done, despite what
the flamers may claim.
Oh, and I think one might be supposed to talk about this in news.groups,
not here. I never saw the original announcement because it was
crossposted, and I figured others might have had the same set-up.
--tom
--
And just as you're under no obligation to publish your source code
to please me, I'm under no obligation to help you hide it.
--Russ Allbery (rra@cs.stanford.edu)
------------------------------
Date: 10 Jun 1998 23:17:51 GMT
From: smcdow@arlut.utexas.edu (Stuart McDow)
Subject: Re: MODERATION: Time to Vote
Message-Id: <6ln46v$i13$1@ns1.arlut.utexas.edu>
cberry@cinenet.net (Craig Berry) writes:
> John Stanley (stanley@skyking.OCE.ORST.EDU) wrote:
> : The vote is going on USENET wide, and you will find the CFV not only in
> : news.groups, but in comp.lang.perl.misc, comp.lang.perl.announce, and
> : news.announce.newgroups.
> :
> : But before you do what it says, read it very carefully. Almost as
> : important as what it says is what it leaves unsaid.
>
> Care to explain that?
Take it to news.groups, please.
--
Stuart McDow Applied Research Laboratories
smcdow@arlut.utexas.edu The University of Texas at Austin
"Look for beauty in roughness, unpolishedness"
------------------------------
Date: 10 Jun 1998 23:41:28 GMT
From: stanley@skyking.OCE.ORST.EDU (John Stanley)
Subject: Re: MODERATION: Time to Vote
Message-Id: <6ln5j8$83k$1@news.NERO.NET>
In article <6ln1pl$bfd$1@csnews.cs.colorado.edu>,
Tom Christiansen <tchrist@mox.perl.com> wrote:
> [courtesy cc of this posting sent to cited author via email]
>
>In comp.lang.perl.misc, cberry@cinenet.net (Craig Berry) writes:
>:Care to explain that?
>
>You really didn't want to ask that. :-(
I guess it ranks up there with perl on Win95 questions.
>Stanley is just a rabble rouser, and now you've gone and roused him.
I could have sworn that ad hominem was being denounced as bad. Guess not.
>:-) I hope you're prepared for bizarre invective.
bizarre invective n.
Those ideas with which Tom does not agree.
I simply suggested that you read the CFV carefully and notice the
things it does not say. One example: how will someone who mungs their
address be able to use the group? The last word on the matter from the
proponent can be found in <6k4t23$5he$1@monet.op.net>. If you munge, you
should consider whether you could post using that method.
>Its proponents, Mark and Chip,
>are honorable and *shall* see that the Right Thing is done, despite what
>the flamers may claim.
Right Thing n.
Those ideas with which Tom agrees. May not coincide with anyone
else's concept of Right Thing, and has nothing to do with
honor.
>Oh, and I think one might be supposed to talk about this in news.groups,
>not here. I never saw the original announcement because it was
>crossposted, and I figured others might have had the same set-up.
Crossposting makes things easier to see, because they show up in several
groups at the same time. If you want to find the "original", look in
news.announce.newgroups. There was a copy posted here, too.
Gosh, 57 lines, including quotes and headers. What invective. But Tom
has no interest in keeping the discussion civil.
------------------------------
Date: Wed, 10 Jun 1998 21:08:14 GMT
From: "Dave" <hannum@oak.cat.ohiou.edu>
Subject: Nee help splitting row contents
Message-Id: <EuCqIL.DHy@boss.cs.ohiou.edu>
If possible, could somebody help me with the following?
I want to read the contents of a table(which I can do) and then return
those contents in the following manor -
Each row has two columns. The contents of one of the columns is
words and phrases separated by a comma. I need to split out the contents
which are separated by commas and return each word or phrase as an option in
an html dropdown box.
If somebody can help me out with some code, I would be greatly appreciative.
Dave
------------------------------
Date: Wed, 10 Jun 1998 23:18:28 GMT
From: Gellyfish@btinternet.com (Jonathan Stowe)
Subject: Re: Nee help splitting row contents
Message-Id: <357f13cd.21249329@news.btinternet.com>
On Wed, 10 Jun 1998 21:08:14 GMT, Dave wrote :
>If possible, could somebody help me with the following?
>
> I want to read the contents of a table(which I can do) and then return
>those contents in the following manor -
> Each row has two columns. The contents of one of the columns is
>words and phrases separated by a comma. I need to split out the contents
>which are separated by commas and return each word or phrase as an option in
>an html dropdown box.
>
>If somebody can help me out with some code, I would be greatly appreciative.
>
[YES ] comp.lang.perl.moderated
/J\
Jonathan Stowe
Some of your questions answered:
<URL:http://www.btinternet.com/~gellyfish/resources/wwwfaq.htm>
------------------------------
Date: 10 Jun 1998 23:09:09 GMT
From: arch@abts.net (Shaun Sides)
Subject: Re: Newbie : How to append one file to another?
Message-Id: <slrn6nti8l.2td.arch@abts.net>
Original message by: Dayang Lily <r19610@email.sps.mot.com>
Date: Wed, 10 Jun 1998 04:30:53 +0800
Subject: Newbie : How to append one file to another?
> I'm new to Perl. I need to know how I can append two files together?
> For example, I have FILE1 and I want to append the contents of FILE1 to
> another file, FILE2. How can I do that?
open(FILE1, "file1") or die "unable to open file1 $!\n";
open(FILE2, ">>file2") or die "unable to open file2 for append $!\n";
foreach (<FILE1>) {
print FILE2;
}
> Thanks.
No problem. ;-)
> --------------E4804697BB1D6B338FE94061
> Content-Type: text/x-vcard; charset=us-ascii; name="vcard.vcf"
> Content-Transfer-Encoding: 7bit
> Content-Description: Card for Dayang Lily
> Content-Disposition: attachment; filename="vcard.vcf"
<deletia>
What's all that garb(age)?
--
==============================================================================
Shaun L. Sides | Hey! CyberGold | arch@abts.net
Free Randal Schwartz and Ric Flair! | wastes yer time | arch@sara.mmlc.nwu.edu
==============================================================================
The time for desperation is upon us. Let's play.
First Wizard Zeddicus Zu'l Zorander
==============================================================================
------------------------------
Date: Wed, 10 Jun 1998 23:34:34 GMT
From: DerRunt@my-dejanews.com
Subject: Newbie: perl can't find modules
Message-Id: <6ln56a$6fj$1@nnrp1.dejanews.com>
I have inherited the administration of a Solaris 2.5.1 box. I did not install
the perl on the box and have been told that it is a pkg of of the sun freeware
site. Base perl seems to run fine, but when I have tried to add modules using
perl Makefile.PL
make
make install
I get errors saying
Can't locate lib.pm in @INC at Makefile.PL line 4.
BEGIN failed--compilation aborted at Makefile.PL line 4.
lib.pm is in the lib subdirectory under my perl install directory.
I have the lib sub in my profile, but it still won't see the perl module
What should I be checking? Any help would be appreciated. Thanks
Darrin Miller
djmiller@mindspring.com
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/ Now offering spam-free web-based newsreading
------------------------------
Date: Wed, 10 Jun 1998 08:17:53 -0500
From: tadmc@flash.net (Tad McClellan)
Subject: Re: Newbie: Unrecongized character
Message-Id: <121ml6.02b.ln@localhost>
Ellington Brown (ebrown2@ix.netcom.com) wrote:
: When I execute the following perl script I
: receive an error message:
: Unrecognized character \276 at guestbook.pl line 1.
: What character is it looking for?
It is looking for a character that it *can* recognize ;-)
[ I don't think you can be asking what character is it seeing,
since it tells you that already.
]
: I think that there is a unseen
: character located on the first line of the program.
perl seems to think so too ;-)
: I just wish I could
: see it.
You can use a binary file editor (rather than a text editor), or
write a perl script to just delete non-ASCII chars, but you
probably should just go get the file again.
It sound like the file is corrupted.
: Any suggestions or comments?
I have a suggestion. All of the messages that perl might issue are
described in the 'perldiag' man page that comes with every proper
perl distribution.
It is always a Good Idea to look them up there...
------------------------
=item Unrecognized character %s
(F) The Perl parser has no idea what to do with the specified character
in your Perl script (or eval). Perhaps you tried to run a compressed
script, a binary program, or a directory as a Perl program.
------------------------
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: Wed, 10 Jun 1998 22:23:33 GMT
From: Randal Schwartz <merlyn@stonehenge.com>
Subject: Re: Number of digits in a string
Message-Id: <8cpvggq4kj.fsf@gadget.cscaper.com>
>>>>> "John" == John Porter <jdporter@min.net> writes:
John> What, are you saying Llama doesn't talk about the length() built-in
John> function?
Actually, it doesn't!
Conscious choice. I've used "length" in only about 2% of my programs
since 1989. The llama describes my most-frequently used operators,
and length() wasn't one of them. So, I left it out.
print "Just another Perl hacker," # but not what the media calls "hacker!" :-)
## legal fund: $20,990.69 collected, $186,159.85 spent; just 82 more days
## before I go to *prison* for 90 days; email fund@stonehenge.com for details
--
Name: Randal L. Schwartz / Stonehenge Consulting Services (503)777-0095
Keywords: Perl training, UNIX[tm] consulting, video production, skiing, flying
Email: <merlyn@stonehenge.com> Snail: (Call) PGP-Key: (finger merlyn@teleport.com)
Web: <A HREF="http://www.stonehenge.com/merlyn/">My Home Page!</A>
Quote: "I'm telling you, if I could have five lines in my .sig, I would!" -- me
------------------------------
Date: Wed, 10 Jun 1998 23:11:46 GMT
From: Justin Vallon <vallon@bear.com>
Subject: Re: Number of digits in a string
Message-Id: <x6ezpfkn971.fsf@pearl.bear.com>
for $str (qw/1234 bob 123456 testing 1234567 test123456/) {
print "$str is exactly 6 digits\n" if $str =~ /^\d{6}$/;
print "$str is not exactly 6 digits\n" if $str !~ /^\d{6}$/;
}
RE reads: <start-of-string>\d\d\d\d\d\d<end-of-string>
=> <start-of-string>[0-9][0-9][0-9][0-9][0-9][0-9]<end-of-string>
"Vincent M. Probasco" <probavm@cat.com> writes:
> I have a script where the user needs to input a number. I need to check
> to make sure that
> this number has exactly six digits. I looked in the camal manual and
> all I could find was how
> to count the number of distinct charaters in a string using tr//. Any
> help with this would be greatly
> appreciated. Thanks,
>
> Vince
>
--
-Justin
vallon@bear.com
------------------------------
Date: Wed, 10 Jun 1998 22:22:01 GMT
From: Gellyfish@btinternet.com (Jonathan Stowe)
Subject: Re: offline mode?
Message-Id: <357ec144.1203461@news.btinternet.com>
On 10 Jun 1998 04:13:13 GMT, Tom Christiansen wrote :
> [courtesy cc of this posting sent to cited author via email]
>
>
>+----------------------------------------------------------------+
>| +------------------------------------------------------------+ |
<etc>
Its all a conspiracy between Seagate and Intel Innit ?
<and bugger it Brazil beat Scotland 2-1 live ... >
/J\
Jonathan Stowe
Some of your questions answered:
<URL:http://www.btinternet.com/~gellyfish/resources/wwwfaq.htm>
------------------------------
Date: Wed, 10 Jun 1998 22:22:10 GMT
From: Gellyfish@btinternet.com (Jonathan Stowe)
Subject: Re: One output stream to two dests
Message-Id: <357f038b.17598299@news.btinternet.com>
On Wed, 10 Jun 1998 20:49:29 GMT, Josh Abrams wrote :
>
>How can I send one output stream to two destinations in PERL?
>
>In UNIX Bourne/Born Again:
>
>$ cat thisone 2>&1.
>
>In this case, I want output to go to a file and to stdout.
>
$ cat thisone | tee somefile
Of course it isnt Perl and it will probably start the ToolWar back up
again but hey its easy to type.
However back in the dim and distant past Tom Christiansen made a post
that can be found on DejaNews thus:
Subject: SOURCE: tee clone for process teeing
From: Tom Christiansen <tchrist@mox.perl.com>
Date: 1998/02/12
Message-ID: <6btemd$2c4$14@csnews.cs.colorado.edu>
Newsgroups: comp.lang.perl.misc
Which might help.
/J\
Jonathan Stowe
Some of your questions answered:
<URL:http://www.btinternet.com/~gellyfish/resources/wwwfaq.htm>
------------------------------
Date: Wed, 10 Jun 1998 19:15:51 -0400
From: Ruben Safir <75762.2332@CompuServe.COM>
Subject: Re: pack/unpack seps
Message-Id: <e#Fz2WMl9GA.199@nih2naac.prod2.compuserve.com>
This is still not explaining how UNPACK behaves
What is the difference between
unpack ( a1 , $mybin) and unpack( c, $mybin)
Ruben
------------------------------
Date: Wed, 10 Jun 1998 22:22:07 GMT
From: Gellyfish@btinternet.com (Jonathan Stowe)
Subject: Re: Perl security on NT with IIS
Message-Id: <357efbed.15842731@news.btinternet.com>
On 10 Jun 1998 16:40:51 -0400, David Staschover wrote :
>We are running IIS3.0. We given CGI-BIN access to a few users.
>Unfortuntunatly, the user is able to write a perl script on the web which
>can create/update a file anywhere on the NT server.
>
>How do I prevent this?
>
This is not a Perl question at all. However I have three suggestions:
A) Threaten the users with awful retribution if they do this.
B) Use the (ahem) Operating Systems security mechanisms
C) Install an Operating System that allows you to implement CGI
securely.
/J\
Jonathan Stowe
Some of your questions answered:
<URL:http://www.btinternet.com/~gellyfish/resources/wwwfaq.htm>
------------------------------
Date: Wed, 10 Jun 1998 22:08:20 GMT
From: sowmaster@juicepigs.com (Bob Trieger)
Subject: Re: Where is the robot?
Message-Id: <6ln07o$4tj$1@ligarius.ultra.net>
[ posted and mailed ]
"F.Quednau" <quednauf@nortel.co.uk> wrote:
-> If I'd say to you:
->
-> open (THEBOTTLE, "< $with_a_screwdriver"); #!!!
->
-> Would you really do it?
->
You'll never know because you didn't check the status of the open.
Bob Trieger
sowmaster@juicepigs.com
" Cost a spammer some cash: Call 1-800-239-0341
and hang up when the recording starts. "
------------------------------
Date: 10 Jun 1998 23:29:28 GMT
From: "Ron Savage" <rpsavage@ozemail.com.au>
Subject: Re: Win32: File glob causes floppy to chatter
Message-Id: <01bd94c7$d9bd3360$43ea1286@steelres-pcm657.resmel.bhp.com.au>
Anti-virus software (eg McAfee) causes this.
[snip]
> > > I've noticed that every file glob causes the "A" drive to chatter as
> > > if a seek is being done on it - only problem is I'm reading the C
> > > drive!
[snip]
------------------------------
Date: 8 Mar 97 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 8 Mar 97)
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 V8 Issue 2834
**************************************
