[8113] in Perl-Users-Digest
Perl-Users Digest, Issue: 1731 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Jan 26 13:17:21 1998
Date: Mon, 26 Jan 98 10:00:24 -0800
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Mon, 26 Jan 1998 Volume: 8 Number: 1731
Today's topics:
Re: @ == @, comparing arrays <pdcawley@bofh.org.uk>
Re: Bad (Swear) Word Checking (Philip R Ventura)
Re: Bad (Swear) Word Checking <pdcawley@bofh.org.uk>
Re: Calling CGI script from other CGI script (Tony L. Svanstrom)
Re: CGI.pm and server errors <barnett@houston.Geco-Prakla.slb.com>
Re: Check Variable type <eike.grote@theo.phy.uni-bayreuth.de>
Re: Check Variable type (Tad McClellan)
Re: Finding the missing bracket? scott@softbase.com
INETD Help <johnrs@dc.net>
Re: Larry's Quotes (Greg Bacon)
Re: Larry's Quotes (Tad McClellan)
newbie: need help with first script -- here it is (Terence Kearns)
Re: newbie: need help with first script -- here it is (Tad McClellan)
OS shell in perl to do an FTP <deja-jan98-perl@trouser.demon.co.uk>
Re: Perl Source Obfuscator <camerond@mail.uca.edu>
Re: Pointless questions (was: Re: Perl, Sybperl, and Ye lvirden@cas.org
Processing Enter in a form field cpowell1@mindspring.com
substitute... <nivek@hem2.passagen.se>
Re: Survival Of perl <camerond@mail.uca.edu>
Re: Sys::Syslog <johnrs@dc.net>
timestamping. <geoffrey.conner@gsc.gte.com>
UserGetAttributes still doesn't work in build 315 <kras@interlog.com>
Re: White Hats and Black <a@b.c.d>
Re: why will this not work? <barnett@houston.Geco-Prakla.slb.com>
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 26 Jan 1998 16:53:29 +0000
From: Piers Cawley <pdcawley@bofh.org.uk>
Subject: Re: @ == @, comparing arrays
Message-Id: <54btwzfa7q.fsf@gunnar.aladdin.net>
22 Jan 1998 22:11:28 GMT ehood@medusa.acs.uci.edu (Earl Hood) comp.lang.perl.misc
> In article <34C792B6.21A7@wco.com>, Steven Smith <steves@wco.com> wrote:
> >I had assumed that @a1 == @a2 would compare two arrays and
> >tell me if they were the same. It doesn't and that makes
> >sense to me -- we're taking the arrays into scalar context
> >and comparing the number of elements in each group, right?
> >
> >Is there an easy way to tell if all elements of the array
> >are the same short of a short subroutine?
>
> (@a1 == @a2) and ("@a1" eq "@a2")
$ perl -de 42
DB<1> @a1 = ("The quick", "Brown");
DB<2> @a2 = ("The", "quick Brown");
DB<3> @a1 == @a2
1
DB<4> "@a1" eq "@a2"
1
I think we have a problem here...
--
Piers Cawley -- Systems Genie for Aladdin
If a `religion' is defined to be a system of ideas that contains
unprovable statements, then Godel taught us that mathematics is not
only a religion, it is the only religion that can prove itself to be
one. -- John Barrow
------------------------------
Date: 26 Jan 1998 16:38:18 GMT
From: pventura@cs.buffalo.edu (Philip R Ventura)
Subject: Re: Bad (Swear) Word Checking
Message-Id: <6aie5q$msa$1@prometheus.acsu.buffalo.edu>
In article <6agot8$cg9$4@client3.news.psi.net>,
Abigail <abigail@fnx.com> wrote:
>Dave Power (dave.power@adpdesign.com) wrote on 1608 September 1993 in
><URL: news:34cbc1fb.2073286@news.virgin.net>:
>++
>++ The thing is I'm trying to validate a form, the contents of which will
>++ be transmitted to ithers.
>
>It still has nothing to do with perl.
>
>++ I need to know if the content may be offensive. This is a Perl app
>
>And? You are programming that while sitting in a chair, right?
>Does that mean rec.furniture would be an appropriate newsgroup?
>
>
>Abigail
>--
>perl -we 'print split /(?=(.*))/s => "Just another Perl Hacker\n";'
And of course all these posts saying the original does not belong here
because it was not /really/ dealing with perl are relevant.
Interesting double-standard.
--
Phil Ventura phone: 645-3772
Teaching Assistant CS305 email: pventura@cs.buffalo.edu
Dept. Computer Science office: Trailer B
SUNY at Buffalo http://www.cs.buffalo.edu/~pventura
------------------------------
Date: 26 Jan 1998 17:08:33 +0000
From: Piers Cawley <pdcawley@bofh.org.uk>
Subject: Re: Bad (Swear) Word Checking
Message-Id: <54afcjf9im.fsf@gunnar.aladdin.net>
Sun, 25 Jan 1998 14:04:37 -0500 fl_aggie@thepentagon.com (I R A Aggie) comp.lang.perl.misc
> In article <34cb8329.25390362@news.virgin.net>, dave.power@adpdesign.com
> (Dave Power) wrote:
> Of course, your idea would also bust certain valid uses of 'dubious' words.
> For instance:
>
> My ex-girlfriend is such a bitch. [uncomplimentary]
> My five year old bitch had 10 pups last week. [nothing wrong with
> this]
And the classic problem that AOL had with UK users who were talking
about Scunthorpe...
--
Piers Cawley -- Systems Genie for Aladdin
If a `religion' is defined to be a system of ideas that contains
unprovable statements, then Godel taught us that mathematics is not
only a religion, it is the only religion that can prove itself to be
one. -- John Barrow
------------------------------
Date: Mon, 26 Jan 1998 15:45:47 +0100
From: tony@svanstrom.com (Tony L. Svanstrom)
Subject: Re: Calling CGI script from other CGI script
Message-Id: <1d3gywl.1nnn846ec0zp5N@du27-1.ppp.algonet.se>
Tad McClellan <tadmc@flash.net> wrote:
> If you choose to munge, you should resign yourself to having to actually
> go find answers to your posts in the newsgroup where you asked the
> question.
This is true; I never edit an e-mail address before I send a reply, all
I do is that I delete whatever kind of message I get from the
mailer-daemon...
/Tony
--
/\___/\
\_@ @_/
---------------------oOO-(_)-OOo----------------------
"We only live to please those we love" -- Aphrael
----------------------ttt---ttt-----------------------
http://tls.base.org \O/ \O/ )Tony Svanstrom 1997
------------------------------
Date: Mon, 26 Jan 1998 10:29:18 -0600
From: Dave Barnett <barnett@houston.Geco-Prakla.slb.com>
Subject: Re: CGI.pm and server errors
Message-Id: <34CCB9DE.35B2A6FD@houston.Geco-Prakla.slb.com>
Sanjay Vohra wrote:
>
> i wonder what i am missing,
>
> all the script is supposed to do is print a couple of lines of html but i
> keep getting this error about CGI::isa not
> found and then the server coughs up some error
>
> sv
Ok.
How about a copy of the code, as Tom Phoenix has already asked about?
That would be INFINITELY helpful.
Second, do you attempt to use/require/call a subroutine called
CGI::isa? If so, perl is dutifully telling you that it cannot find it.
Again, without a copy of the code, it is a bit difficult to shed any
more light on the matter.
Third, (as Tom already pointed out) we are good at Perl, but not so good
with mind-reading, so a copy of the failing code would be infinitely
helpful to you, and to us.
Dave
--
"Security through obscurity is no security at all."
-comp.lang.perl.misc newsgroup posting
------------------------------------------------------------------------
* Dave Barnett U.S.: barnett@houston.Geco-Prakla.slb.com *
* DAPD Software Support Eng U.K.: barnett@gatwick.Geco-Prakla.slb.com *
------------------------------------------------------------------------
------------------------------
Date: Mon, 26 Jan 1998 17:07:41 +0100
From: Eike Grote <eike.grote@theo.phy.uni-bayreuth.de>
Subject: Re: Check Variable type
Message-Id: <34CCB4CD.794B@theo.phy.uni-bayreuth.de>
Hi,
Daniel Balderman wrote:
>
> I'm writing a WEB application where the user has to enter an integer.
> How can I check the user input to see if the user has entered the
> correct type (in this case integer).
Take a look at Perl's Frequently Asked Questions, perlfaq4,
"How do I determine whether a scalar is a number/whole/integer/float?".
Bye, Eike
--
=======================================================================
>>--->> Eike Grote <eike.grote@theo.phy.uni-bayreuth.de> <<---<<
-----------------------------------------------------------------------
Home Page, Address, PGP,...: http://www.phy.uni-bayreuth.de/~btpa25/
-----------------------------------------------------------------------
PGP fingerprint: 1F F4 AB CF 1B 5F 4B 1D 75 A1 F9 C5 7B 3F 37 06
=======================================================================
------------------------------
Date: Mon, 26 Jan 1998 10:48:53 -0600
From: tadmc@flash.net (Tad McClellan)
Subject: Re: Check Variable type
Message-Id: <lpeia6.r5e.ln@localhost>
Daniel Balderman (Daniel.Balderman@digital.com) wrote:
: I'm writing a WEB application where the user has to enter an integer.
: How can I check the user input to see if the user has entered the
: correct type (in this case integer).
Your Frequently Asked Question is in the Perl FAQ, part 4:
"How do I determine whether a scalar is a number/whole/integer/float?"
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: 26 Jan 1998 14:12:31 GMT
From: scott@softbase.com
Subject: Re: Finding the missing bracket?
Message-Id: <6ai5kf$78p$1@mainsrv.main.nc.us>
Michael Budash (mbudash@sonic.net) wrote:
> Could you (and/or the others 'round here) be so kind as to recommend such
> an editor, i.e., one that is perl-savvy?
www.skwc.com/essent/cyberreviews.html has a new Win32 text
editor review. In a nutshell, it says use GNU Emacs. It also
recommends Multiedit as a commercial editor.
Scott
--
Look at Softbase Systems' client/server tools, www.softbase.com
Check out the Essential 97 package for Windows 95 www.skwc.com/essent
All my other cool web pages are available from that site too!
My demo tape, artwork, poetry, The Windows 95 Book FAQ, and more.
------------------------------
Date: Mon, 26 Jan 1998 10:22:25 -0500
From: john -r s <johnrs@dc.net>
Subject: INETD Help
Message-Id: <34CCAA30.58B2F10B@dc.net>
Can anyone please show an example of running a server program in inetd.
I understand that all the overhead of creating and listening on a
particlur socket is removed, but I cant seem to get a server that ran
fine in standalone to run from inetd.
Thanks
--
john -r s (unix spelling)
johnr~s (Windows 3.1 spelling)
JOHNRS (DOS spelling)
John R S (Win95 spelling)
------------------------------
Date: 26 Jan 1998 15:31:44 GMT
From: gbacon@adtran.com (Greg Bacon)
Subject: Re: Larry's Quotes
Message-Id: <6aia90$gjg$1@info.uah.edu>
[Posted and mailed]
In article <6ai50p$n3$1@usenet50.supernews.com>,
"April Kirby" <aprilk@dancris.com> writes:
: Try looking at the site www.perl.org I think it is there.
http://www.perl.com/CPAN/misc/lwall-quotes.txt.gz
or
% finger -lm gbacon@cs.uah.edu
to get them a bit at a time. :-)
Greg
--
open G,"|gzip -dc";$_=<<EOF;s/([0-9a-f]+)/print G pack"h*",$1/eg
f1b88000b620f22320303fa2d2e21584ccbcf29c84d2258084
d2ac158c84c4ece4d22d1000118a8d5491000000
EOF
------------------------------
Date: Mon, 26 Jan 1998 07:30:57 -0600
From: tadmc@flash.net (Tad McClellan)
Subject: Re: Larry's Quotes
Message-Id: <h63ia6.59d.ln@localhost>
Jerry Pank (jerryp.usenet@connected.demon.co.uk) wrote:
: In one_of_my_my_many_Perl_books/Faqs/c.l.p.m/ or somewhere else,
: I remember seeing a link to a site with Larry's quotes.
^^^^^^^^^^
Yes, but did you try looking?
I found it in 10 *seconds*.
grep 'Larry Wall' *.pod
finds only 14 lines. One of them is your Frequently Asked Question.
: Can't find it now. Would someone shine the torch ?
Perl FAQ, part 1,
"Where can I get a list of Larry Wall witticisms?"
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: Mon, 26 Jan 1998 15:58:48 GMT
From: terence[no_spam]@designer-web-pages.com (Terence Kearns)
Subject: newbie: need help with first script -- here it is
Message-Id: <34cdb2b3.41433165@newshost.canberra.edu.au>
This is my first perl script. It's most probably a a pathetic mess But
I had a LOT of trouble trying to find anything that explained basic
things properly. ie. couldn't get a straight explanation of how to
write a file ... took ages before I sussed out you had to 'select' a
file handle (which was opened for output). Why didn't any of the
documentation just say that. Anyway, I got this far without help but
I'm stuck. Thanks muchly to anyone who has taken the time to respond
to my cries for help :)
#!/usr/bin/perl -w
# DESCRIPTION OF THIS SCRIPT
# kerchop is a program for splitting up large ascii files into bight
size
# segments (in this case, for the web). These segments are then writen
to
# multiple files who's names are incramented by 1
# eg. prefix0suffix .. prefix999suffix
# obviously this script is only designed to make up to 1000 files for
any
# one pass. the $prefix and $suffix variables can be set by modifying
this
# file in the #[OPTIONS] section (below). This saves the user having
to
# enter them everytime they run this script.
# OPTIONS
$separator = '<!-- kerCHOP article -->' ;
# make sure any characters used below can be used in naming files (no
spaces).
$prefix = 'piece' ;
$suffix = '.html' ;
# make sure the following files (variable values) already exist.
$inputfile = 'v1_test.html' ;
$headerfile = 'hd_test.html' ;
$footerfile = 'ft_test.html' ;
# comment out the above line and uncomment the following 2 lines if
you
# want the script to ask you the input file name every time.
# print "Enter the name of the file you want to chop up: ";
# chop ($inputfile = <STDIN>) ; # chop removes RETURN character
# BEGIN MAIN PRGRAM
open (BIGFILE, $inputfile) or die "oops ! we don't seem to be able to
find \n$inputfile\n Check the source code for the input file variable
$!\n\n" ;
open (HDR, $headerfile ) or die "doh ! can't find that darn
\n$headerfile\n Check the source code for the header file variable
$!\n\n" ;
open (FTR, $footerfile ) or die "er, you seem to have mistyped the
footer file as \n$footerfile\n Check the source code for the header
file variable $!\n\n" ;
while ( <BIGFILE> ) {
@chunk = split ($separator, <BIGFILE>) ;
$ticker++ ;
$outputfile = join ('','>',$prefix,$ticker,$suffix) ;
open ( PIECE , $outputfile ) ;
select PIECE ;
print (join '',"<HDR>","$chunk[$ticker]","<FTR>") ;
close PIECE ;
select STDOUT ;
print "We have successfully written $outputfile \n" ;
}
------------------------------
Date: Mon, 26 Jan 1998 10:54:08 -0600
From: tadmc@flash.net (Tad McClellan)
Subject: Re: newbie: need help with first script -- here it is
Message-Id: <g3fia6.r5e.ln@localhost>
Terence Kearns (terence[no_spam]@designer-web-pages.com) wrote:
: This is my first perl script. It's most probably a a pathetic mess But
: I had a LOT of trouble trying to find anything that explained basic
: things properly. ie. couldn't get a straight explanation of how to
: write a file ... took ages before I sussed out you had to 'select' a
^^^^^^
You don't _have to_ use select(). You can always specify the filehandle
directly:
print OUTFILE "some stuff\n";
I've written hundreds of scripts. I've never used select()...
: file handle (which was opened for output). Why didn't any of the
: documentation just say that.
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: Mon, 26 Jan 1998 08:51:56 -0600
From: Dave Barstow <deja-jan98-perl@trouser.demon.co.uk>
Subject: OS shell in perl to do an FTP
Message-Id: <885821308.131989506@dejanews.com>
Hi
I need to a UNIX perl code fragment that will ftp a file from another
machine. In a shell script I would do something like:
echo "open $SERVERHOST\
user $ACCT $PASS\
bin \
prompt \
mget *.gif \
quit" | ftp -n -v
where the variables would be defined ealier in the script.
Any ideas? I don't want to use a .netrc file and I don't want to
use any extra libaries (such as libnet)
-------------------==== Posted via Deja News ====-----------------------
http://www.dejanews.com/ Search, Read, Post to Usenet
------------------------------
Date: Mon, 26 Jan 1998 11:28:00 -0600
From: Cameron Dorey <camerond@mail.uca.edu>
Subject: Re: Perl Source Obfuscator
Message-Id: <34CCC7A0.AA9C6BC8@mail.uca.edu>
Strike comp.lang.perl. It doesnt' exist, hasn't for a while.
Nick wrote:
>
> There are utilities available which make C source code unreadable, yet
> compilable. The purpose is to distribute source code for
> recompilation, but without revealing trade secrets etc.
>
> These type of source code filters are called sometimes called Shrouds
> or Obfuscators.
>
> Does anything like that exist for Perl?
Well, after reading this nwesgroup for a while now, I would say yes, and
his name is Eli the Bearded (at least for regexps). ;^)
Cameron Dorey
camerond@mail.uca.edu
------------------------------
Date: 26 Jan 1998 15:43:44 GMT
From: lvirden@cas.org
Subject: Re: Pointless questions (was: Re: Perl, Sybperl, and Year 2000)
Message-Id: <6aiavg$3bt$3@srv38s4u.cas.org>
According to Tom Phoenix <rootbeer@teleport.com>:
:On Sat, 24 Jan 1998, Aaron Sylvia wrote:
:
:> I have read the FAQ for Perl 5.x and it states that it should not cause
:> any year 2000 compliance problems
:
:> Has anyone had any experience with this? Has anyone done any testing
:> and found anything?
:
:I don't understand why you're asking this. I mean, I understand why you'd
Well, I could envision someone's mental processing going something like
this:
When I go to <URL: http://language.perl.com/CPAN/doc/FAQs/FAQ/PerlFAQ.html >,
I find that the last update was almost a year ago. There's likely been
a lot of eyes looking at perl and these issues during that time - perhaps
a problem was found since the last update of the FAQ, and the files just
haven't been updated to reflect this. Or perhaps the site where I looked
is just horridly out of date.
--
Larry W. Virden INET: lvirden@cas.org
<URL:http://www.teraform.com/%7Elvirden/> <*> O- "We are all Kosh."
Unless explicitly stated to the contrary, nothing in this posting should
be construed as representing my employer's opinions.
------------------------------
Date: Mon, 26 Jan 1998 10:01:25 -0600
From: cpowell1@mindspring.com
Subject: Processing Enter in a form field
Message-Id: <885830001.436273154@dejanews.com>
I'm VERY new to Perl programming and have been modifying a script I found
on the web. The part of the script I'm having problems with takes data
entered in a form field (textarea) and writes it to a data file. Before
it writes it, the script processes the data as follows (to prepare it to
later be written back to a HTML page):
$form_data{'ad'} =~ s/\&/&\;/g;
$form_data{'ad'} =~ s/\</<\;/g;
$form_data{'ad'} =~ s/\>/>\;/g;
$form_data{'ad'} =~ s/\"/"\;/g;
$form_data{'ad'} =~ s/\n/<BR>/g;
$form_data{'ad'} =~ s/\r\r/<P>/g;
$form_data{'ad'} =~ s/\|/~~/g;
This accounts for any HTML characters, the pipeline character (which is
used in the datafile to separate the records), and any time the user has
hit "Enter" in the textbox. Normally, when I look at the data file in
notepad, the data contains, in any place the user has hit Enter, a square
(some unprintable end- of-line character?) and a <br> (never a <p>).
These squares are also at the end of every record. That works fine.
BUT...
After one of my testers had problems, I tested this morning in IE4. When
I saved the record, then viewed the generated page, everything was
screwed up. I looked in the data file, and everywhere I hit enter was an
actual CR/LF in the data file. This ROYALLY screwed up the file and I
had to reedit it by hand.
Did I explain this clearly enough? I'm not exactly sure what's
happening, so I'm not sure how to fix it. I did modify the program, but
not this part, but the program was written before IE4, so I don't know if
it's something only new browsers will have a problem with. Should I be
checking for something else in the code above? I'd also like to check
for whatever is causing the square in the records (within each record,
not at the end of the record), but it's not affecting the program, so
it's not vital. The CR/LF is causing a BIG problem though. If anyone
here can help, I'd be FOREVER grateful! Please copy my email on replies.
I'm at work so the only news I can get is through Dejanews, which takes
a while to repost messages. Thanks SO much!
Cherie
-------------------==== Posted via Deja News ====-----------------------
http://www.dejanews.com/ Search, Read, Post to Usenet
------------------------------
Date: Mon, 26 Jan 1998 18:15:54 +0100
From: Johan Eriksson <nivek@hem2.passagen.se>
Subject: substitute...
Message-Id: <34CCC4CA.5264FF6F@hem2.passagen.se>
I just wonder if there is a way to change some characters in a file like
"\n"(newline) into "<br>". There are certainly some way to do it, but
since my experience with perl isn't that good yet I haven't figured it
out.. I suppose I should use s/// but I dont understand how yet...
Someone who can help me out? Or point me too some further explanations
about this topic except the perlop....
//Johan
------------------------------
Date: Mon, 26 Jan 1998 11:15:22 -0600
From: Cameron Dorey <camerond@mail.uca.edu>
To: Frank <FHeasley@chemistry.com>
Subject: Re: Survival Of perl
Message-Id: <34CCC4AA.30BE7693@mail.uca.edu>
Frank wrote:
>
> It's all well and good to advise
> people to "use the perl modules" when the modules are pre-installed in
> the version of perl you're using, or if you are writing programs on a
> unix based system and can easily run makefile. However, most new
> users are windows based, and are writing programs in dos windows under
> windows 95. To them, perl modules are often useless.
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Whoa, now. I'm one of those DOS/Win95 users here, and I surely find the
modules useful (actually, I find them indispensible). I would bet that
any other Win user feels the same way. Are you are talking about the
modules which you would have to compile yourself using C++ because they
are not included in either the AS or GS ports? Or mabye things like Tk,
which is (so people say, I have no direct experience) incompatible with
the AS port? Or mabye POSIX, which is incompatible with Windows (95 or
NT)?
OK, so there are things I cannot do. But, there are many, many more
things I can do with modules, and if I want to grab one off of CPAN, I
could go down the hall and get a coworker to compile it for me, since I
don't have C++. Both ports, I believe (the GS port, I know) have
makefile capabilities
And, if I want to work directly with Windows stuff, like the Registry or
OLE as it is implemented, I sure don't know how to do it without using
the modules most generously provided as Win32::whatever.
>
> Similarly, the vi and emacs editors may indeed be very useful for
> writing perl programs under UNIX, but unless you're willing to go out
> and find (and learn) a windows or dos based version of them, they're
> useless for most new users.
So? As many people point out on a never-ending thread, all you need is a
text editor, there are a bunch of good ones out there for writing perl,
why is perl dead without vi or emacs? And why do you think they're so
hard to find? This last statement sounds like you characterize all
Windows users as lazy, only looking for brainless solutions, and I would
loudly argue against that characterization. What is more likely is that
the Windows "community" has a higher proportion of
novice-to-intermediate computer programmers than unix, because many of
the machines are used by people (such as myself) whose first priority is
something else and the computer is more of a tool for them than a
profession.
>
> In order for perl to survive, it must continue to grow. And in order
> to grow, it must continue to meet the needs of established and new
> users. For the time being, perl is successful in that regard.
> However, there are powerful corporations who have vested interests in
> competitive languages for web interfacing, and they will continue to
> enhance those languages. If perl remains competitive with them, then
> it will survive. If not, it will be replaced.
This could be said about ANYTHING, computers or not, and even "powerful
corporations" which have ongoing R&D efforts and marketing have been
known to stumble and fall.
Cameron Dorey
camerond@mail.uca.edu
------------------------------
Date: Mon, 26 Jan 1998 10:32:46 -0500
From: john -r s <johnrs@dc.net>
Subject: Re: Sys::Syslog
Message-Id: <34CCAC9D.59EE9BBF@dc.net>
Christoph Wernli wrote:
> I've been trying to use the Sys::Sylog-module, but with no apparent
> reaction whatsover. If I do:
>
I'm not sure, but don't you have to do some configuring in the
/etc/syslog.conf file to make this work???
--
john -r s (unix spelling)
johnr~s (Windows 3.1 spelling)
JOHNRS (DOS spelling)
John R S (Win95 spelling)
------------------------------
Date: Mon, 26 Jan 1998 16:30:09 GMT
From: Geoffrey Conner <geoffrey.conner@gsc.gte.com>
Subject: timestamping.
Message-Id: <34CCBA11.60AD@gsc.gte.com>
$cgilib_dir = "C:/cgi-shl/"; # location of cgi-lib.pl
$time_dir = "C:/learn_perlnt/lib/Time/";
Hi -
I am trying to time stamp some entries in a log as they are created. I
am using Activeware Perl for Win32 bld 314. I am very new to Perl and
my difficulty lies in using the correct time module and how to make it
known to perl (ie like if and how to correctly push onto INC). Any help
would be greatly appreciated. Thanks in advance.
Geoff
Code snippet -
##### don't change anything beneath here. unless of course you want to.
#####
push (@INC, $cgilib_dir); # so perl can locate the cgi-lib.pl file
push (@INC, $time_dir);
require ("cgi-lib.pl"); # everything with an & uses this library.
use Time::Local;
$year = timelocal->year() ;
$month = timelocal->mon();
$day=timelocal->mday();
$hour=timelocal->hour();
$min=timelocal->min();
$sec=timelocal->sec();
printf ("Date is %2d/%2d/%2d\n",$day,$month,$year);
printf ("Time is %02d:%02d:%02d\n",$hour,$min,$sec);
------------------------------
Date: Mon, 26 Jan 1998 09:36:32 -0600
From: Kras Gadjokov <kras@interlog.com>
Subject: UserGetAttributes still doesn't work in build 315
Message-Id: <885828068.351731713@dejanews.com>
I'm sure I'm not the first who discovers this but I'm just wondering is
there an answer?
The first time I found UserGetAttributes doesn't work was several months
ago in ActiveState's build 313. Then I sent them "bug report" - no
response, no fix.
If somebody has some info please let me know. Here is the fragment to
test:
use Win32::NetAdmin;
$server = pdc;
$username = kras;
Win32::NetAdmin::UserGetAttributes($server, $username, $password,
passwordAge,$privilege,$homeDir, $comment, $flags, $scriptPath);
print($comment);
Thanks
Kras
-------------------==== Posted via Deja News ====-----------------------
http://www.dejanews.com/ Search, Read, Post to Usenet
------------------------------
Date: 26 Jan 1998 12:38:57 -0500
From: Myles Barrett Williams <a@b.c.d>
Subject: Re: White Hats and Black
Message-Id: <lcn2gj9lu6.fsf@duncan.cs.utk.edu>
Tom Christiansen <tchrist@mox.perl.com> writes:
>[Directed to Alan Flavell]
> But I cannot see how anyone could say the freeing of
> course as a bad thing. You're not saying it is, are you?
If you're talking about morals, that's purely a matter of opinion. If
you're asking whether this is a wise strategic move, on Netscape's
part, I'd say no, it's downright stupid. I predict Netscape will find
that they can't even give their browser away. It will end up being
the favorite of hackers, but it's pretty much finished as an end-user
browser.
We'll see.
Myles Williams
------------------------------
Date: Mon, 26 Jan 1998 10:23:33 -0600
From: Dave Barnett <barnett@houston.Geco-Prakla.slb.com>
Subject: Re: why will this not work?
Message-Id: <34CCB885.261FF04B@houston.Geco-Prakla.slb.com>
blacktape wrote:
<snip>
Well, my first thought is that you are trying to make an interactive
process into a non-interactive one. Expect is a good way to do that.
It allows you to turn an interactive process into a non-interactive one.
I believe there is also a perl module that implements Expect, but ....
If there is, a search of CPAN (www.perl.com/CPAN) should get you a copy
of it.
HTH.
Dave
--
"Security through obscurity is no security at all."
-comp.lang.perl.misc newsgroup posting
------------------------------------------------------------------------
* Dave Barnett U.S.: barnett@houston.Geco-Prakla.slb.com *
* DAPD Software Support Eng U.K.: barnett@gatwick.Geco-Prakla.slb.com *
------------------------------------------------------------------------
------------------------------
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 1731
**************************************
