[8563] in Perl-Users-Digest
Perl-Users Digest, Issue: 2180 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Mar 25 15:08:04 1998
Date: Wed, 25 Mar 98 12:00:36 -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 Wed, 25 Mar 1998 Volume: 8 Number: 2180
Today's topics:
Re: - Limiting the length of a list on a page..... - <merlyn@stonehenge.com>
Re: 2 tiny questions : 1. fork, 2. ctrl-c <jdf@pobox.com>
Re: Can anyone help with a starting point <jdf@pobox.com>
Re: chown -h in Perl (Jason Gloudon)
File Missing (Keith L. Miller)
File Upload with LWP? neal@make-a-store.com
Re: Going Rates for PERL Programming??? (Richard Bellavance)
Re: Going Rates for PERL Programming??? (Kevin B Cohen)
Re: Going Rates for PERL Programming??? <brianm@kodak.com>
Re: Going Rates for PERL Programming??? <brianm@kodak.com>
Help! Confused about Perl directories after install vidals@truepath.com
Re: Hmm...STDIN & inetd, what's up? <mfrankow@hibernate.winternet.com>
Re: How to attach files with Sendmail. <thall@lexisHOOK-nexis.com>
How to determine a thingy's package given only a ref to <langston@SLAC.Stanford.EDU>
HTML::Parse Won't pull data out of tables <jerryp.usenet@connected.demon.co.uk>
Re: HTTPd: malformed header from script .HELP? <mayfield@axxsys.net>
I Love Funny Chars ira@wrath.odsnet.com
Re: Is there a "Newsgroup" for Newbies to Perl? <spp@colltech.com>
Re: is there anything like "geturl()" in perl? <dean@tbone.biol.sc.edu>
Re: Live in Chicago? Use GD with Win95? An Offer <camerond@mail.uca.edu>
Re: Multiple substitues <fscholz@wv.mentorg.com>
NNTP: making a nice, threaded index? (Teemu Hannonen)
Object destruction order non-deterministic? (Peter Scott)
Re: Please help with ACGI vs. CGI in MacPerl (Andre L.)
Re: PROPOSAL: The Perl Dictionary <*@qz.to>
Re: revisiting "pod style comments revisited" <jdf@pobox.com>
Re: Running several test clients <Kari.Marttila.@tietogroup.com>
running suid programs nmcfadye@mae.carleton.ca
SMTP <angelo_sirigos@spamoff.medscape.com>
Re: SMTP <jkry3025@comenius.ms.mff.cuni.cz>
Re: SMTP (A. Deckers)
System Questoin (Keith)
Using Perl packages and "strict" <theAlberto.Aimar@iol.it>
Re: Where to get Perl compiler for Win95 or Win NT? <jdf@pobox.com>
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 25 Mar 1998 12:16:20 -0700
From: Randal Schwartz <merlyn@stonehenge.com>
To: MARTIN@RADIOGAGA.HARZ.DE
Subject: Re: - Limiting the length of a list on a page..... -
Message-Id: <8cn2eefunv.fsf@gadget.cscaper.com>
>>>>> "Martin" == Martin Vorlaender <martin@RADIOGAGA.HARZ.DE> writes:
Martin> That's exactly what Randal Schwartz presents in his
Martin> WebTechniques column #2 at
Martin> http://www.stonehenge.com/merlyn/col02.html
Nope. I said "error 404" at that address.
Perhaps you meant column 2 under:
http://www.stonehenge.com/merlyn/WebTechniques/
print "Just another Perl hacker," # but not what the media calls "hacker!" :-)
## legal fund: $20,990.69 collected, $186,159.85 spent; just 159 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: 25 Mar 1998 12:18:20 -0500
From: Jonathan Feinberg <jdf@pobox.com>
Subject: Re: 2 tiny questions : 1. fork, 2. ctrl-c
Message-Id: <iup2heoz.fsf@news.concentric.net>
omueller@stud.ee.StoPx.ch (__Olivier__) writes:
> 1. Does the fork funtion work with Perl Win32 ? (I have a linkchecker prog
> that starts many processes : it works with Unix, but can it work with Win?).
>
> (I got the message : The Unsuported function fork is unimplemented at ...)
Your version of perl does not support fork. However, I use the cygwin
tools on my NT box, and fork works just fine. Try
http://www.qub.com/group/
> 2. Normally, if you press "Ctrl-C" or "Ctrl-Z" (we are on unix), the script
> will be stoped/paused. How is it possible to make a scrit "unsensible"
> to such keytrokes ? (i'm sure it's only a simple trick, but which one...?)
You can read up on the use of signals in the perlipc doc.
--
Jonathan Feinberg jdf@pobox.com Sunny Brooklyn, NY
------------------------------
Date: 25 Mar 1998 12:02:40 -0500
From: Jonathan Feinberg <jdf@pobox.com>
Subject: Re: Can anyone help with a starting point
Message-Id: <k99ihff3.fsf@news.concentric.net>
nigel@hitcher.demon.co.uk writes:
> I'm familiar with the old INI file based transactions between the server and
> CGI applications but not with the methods used for IIS and Perl for Win32.
It sounds to me like your problem lies not with your understanding of
Perl (which is what this newsgroup is about), but rather with your
understanding of your web server. You should start with the docs for
your server, and then perhaps check the FAQS and past posts to a
newsgroup that deals with web servers.
--
Jonathan Feinberg jdf@pobox.com Sunny Brooklyn, NY
------------------------------
Date: Wed, 25 Mar 1998 17:15:49 GMT
From: jgloudon@manitoba.bbn.com (Jason Gloudon)
Subject: Re: chown -h in Perl
Message-Id: <slrn6hieri.itt.jgloudon@manitoba.bbn.com>
Ingo Schroeder <schroede@informatik.uni-hamburg.de> wrote:
>Hi there,
>
>just a simple question: how can I make Perl's chown mimic the command's option
>-h which is used to change the owner of a symbolic link instead of
>the referenced file?
This is a non simple question. Since you are asking this, I am assuming that
the chown(2) system call on your UNIX-like OS does not change the ownership
on the link but the file it points to. Solaris 2.5.1 is an example of such a
system. For the most part the permissions and ownership of a symbolic link
aren't used.
On Solaris, the only way i can find to do this from perl (without resorting to
the evil system command), is by calling the lchown() system call. I know
that on linux chown changes the ownership of the symlink rather than the file
pointed to, so this isn't necessary / or even usable their. The problem on
OSes that follow that scheme would be changing the owner of the file pointed
to by a link.
# You have to run h2ph to generate syscall.ph
# and either have your admin install it , save it in a directory in your
# PERLLIB path, or un your script with -I.
require 'syscall.ph';
$thesymlink="the_symlink";
# the system call - perldoc -f syscall for details
syscall(&SYS_lchown, $thesymlink, $userid, $groupid) != -1
or die "syscall : lchown failed : $!" ;
--
Jason Gloudon
------------------------------
Date: Wed, 25 Mar 1998 19:27:17 GMT
From: miller@bigsky.net (Keith L. Miller)
Subject: File Missing
Message-Id: <35195a38.186201296@news.bigsky.net>
I can't seem to figure out how to set a variable (say $missing) to a
value of 1 if a file is not found with an OPEN statement or a 0 if it
is found. Can anyone help please?
------------------------------
Date: Wed, 25 Mar 1998 11:40:52 -0600
From: neal@make-a-store.com
Subject: File Upload with LWP?
Message-Id: <6fbfhv$igl$1@nnrp1.dejanews.com>
I have successfully been able to use the LWP module for
POST/GET/HTTPS/etc...but I am stuck on file upload (no, I cannot just use
Net::FTP).
Has anyone seen any working examples of simulating file-upload with LWP. I
already have the file upload server written (which works fine via browser). I
guess I'm just confused about how to build the HTTP::Request with all the
Content-disposition stuff, etc.
Thanks alot!
Neal
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/ Now offering spam-free web-based newsreading
------------------------------
Date: 25 Mar 1998 12:19:35 -0500
From: charlot@CAM.ORG (Richard Bellavance)
Subject: Re: Going Rates for PERL Programming???
Message-Id: <6fbeb7$oop@ocean.CAM.ORG>
In article <6f9ns7$20o$1@usenet45.supernews.com>,
Peter Perchansky <fp@pmpcs.com> wrote:
>
>Richard Bellavance wrote in message <6f8h9t$ntp@ocean.CAM.ORG>...
>>
>>Some people make a distinction between simple programming and designing an
>>application.
>>
>>Richard, one of those people :-)
>
>So your time is worth less when you are trying to modify some one else's
>code --- whose coding style (good or bad) may be drastically different than
>your own?
>
That's not what I said. It depends on your definition of "simple
programming", I guess. But if I performed all the analysis of an
application and asked you to implement it, I would expect you to
charge me less than if you had to design the whole thing. Then again,
this also varies with the quality of the analysis :-)
As to the different coding style, of course you have to allocate some
*time* to understand the program. But I don't think you must charge more
by the hour simply because you don't code the same way the original
programmer did.
>
>And tweaking another person's code is simple?
>
That depends on who the "other person" is, doesn't it ? :-)
Richard.
--
Richard Bellavance -- charlot@cam.org -- http://www.cam.org/~charlot/
"All along this path I tread / My heart betrays my weary head
With nothing but my love to save / From the cradle to the grave"
(Eric Clapton, "From the cradle")
------------------------------
Date: 25 Mar 1998 12:51:35 -0500
From: kcohen@julius.ling.ohio-state.edu (Kevin B Cohen)
Subject: Re: Going Rates for PERL Programming???
Message-Id: <6fbg77$k1v@julius.ling.ohio-state.edu>
In article <35179f1e.11959503@news>, Wef <wef@N0SPAM_wef.net> wrote:
>$45/hour for "tweaking" existing scripts. Meaning the client wants ou
>to change a few lines in a 'formmail.pl' script for instance...
>
>$100/hour for custom scripting... Meaning the client wants something
>entirely different than what he/she can find on the web...
i'm somewhat surprised that custom scripting pays more than tweaking,
if for no other reason than that i'd rather write my own stuff than
futz about with someone else's code any day of the week....
kevin
------------------------------
Date: Wed, 25 Mar 1998 13:51:31 -0500
From: Brian Mathis <brianm@kodak.com>
Subject: Re: Going Rates for PERL Programming???
Message-Id: <35195233.B3ECAF15@kodak.com>
This is a multi-part message in MIME format.
--------------695FC68DE3AF8E4DC0000C5D
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Jim Michael wrote:
> Zenin (zenin@archive.rhps.org) wrote:
> : You're assuming (danger) that the code you're tweaking is actually
> : well written, commented, documented, etc. You're either living a
> : charmed life, or you're vary delusioned...
>
> I'm neither. Failing well written, commented, documented code, we have
> overstepped the bounds of tweaking, and entered the realm of rewriting,
> commenting and documenting, and should be paid accordingly.
>
> J.
I don't think so. The example you gave is an example of simple
configuration. "Tweaking" would be exemplified by, say, adding a feild
to an existing program, or optimizing the code for a slightly different
application than it was originally meant.
Brian
--------------695FC68DE3AF8E4DC0000C5D
Content-Type: text/x-vcard; charset=us-ascii; name="vcard.vcf"
Content-Transfer-Encoding: 7bit
Content-Description: Card for Brian Mathis
Content-Disposition: attachment; filename="vcard.vcf"
begin: vcard
fn: Brian Mathis
n: Mathis;Brian
org: US&C Intranet Services
adr: Mail Code: 01269;;343 State Street;Rochester;New York;14560-1269;6/15/KO, USA
email;internet: brianm@kodak.com
tel;work: 1(716)724-7960
tel;fax: 1(716)724-2496
x-mozilla-cpt: ;0
x-mozilla-html: FALSE
version: 2.1
end: vcard
--------------695FC68DE3AF8E4DC0000C5D--
------------------------------
Date: Wed, 25 Mar 1998 13:58:50 -0500
From: Brian Mathis <brianm@kodak.com>
Subject: Re: Going Rates for PERL Programming???
Message-Id: <351953EA.7E504F65@kodak.com>
This is a multi-part message in MIME format.
--------------D08FE77BB1A315F59C39789A
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Jim Michael wrote:
> Zenin (zenin@archive.rhps.org) wrote:
> : You're assuming (danger) that the code you're tweaking is actually
> : well written, commented, documented, etc. You're either living a
> : charmed life, or you're vary delusioned...
>
> I'm neither. Failing well written, commented, documented code, we have
> overstepped the bounds of tweaking, and entered the realm of rewriting,
> commenting and documenting, and should be paid accordingly.
>
> J.
I don't think so. The example you gave is an example of simple
configuration. "Tweaking" would be exemplified by, say, adding a feild
to an existing program, or optimizing the code for a slightly different
application than it was originally meant.
Brian
--------------D08FE77BB1A315F59C39789A
Content-Type: text/x-vcard; charset=us-ascii; name="vcard.vcf"
Content-Transfer-Encoding: 7bit
Content-Description: Card for Brian Mathis
Content-Disposition: attachment; filename="vcard.vcf"
begin: vcard
fn: Brian Mathis
n: Mathis;Brian
org: US&C Intranet Services
adr: Mail Code: 01269;;343 State Street;Rochester;New York;14560-1269;6/15/KO, USA
email;internet: brianm@kodak.com
tel;work: 1(716)724-7960
tel;fax: 1(716)724-2496
x-mozilla-cpt: ;0
x-mozilla-html: FALSE
version: 2.1
end: vcard
--------------D08FE77BB1A315F59C39789A--
------------------------------
Date: Wed, 25 Mar 1998 11:53:24 -0600
From: vidals@truepath.com
Subject: Help! Confused about Perl directories after install
Message-Id: <6fbg6a$j2o$1@nnrp1.dejanews.com>
Hi,
I'm still a bit confused about the Perl install I did to upgrade Perl 5.003 to
Perl 5.004. May be you can give me some advice.
My server has a directory called: /usr/lib
/usr/lib/
| |
| |
----- ---------
| |
perl 5 perl5.004_04
|
lib
The contents of perl5 and and lib are virtually identical. Did I mess up my
installation? Should I have configured the installation to put all of the
files into perl5 directory instead of perl5.004_04? This "double Perl" problem
is creating headaches whenever I intall new software and use the Makefile
utility.
For example, I installed CGI.pm and it installed as /usr/lib/perl5/CGI.pm, but
calls to CGI.pm go to /usr/lib/perl5.004_04/lib/CGI.pm which is the old
version of CGI.pm.
I'm a bit confused; any help is appreciated.
Thanks,
Gil
perl -V yields:
Summary of my perl5 (5.0 patchlevel 4 subversion 4) configuration:
Platform:
osname=linux, osvers=2.0.30, archname=i586-linux
uname='linux genesis 2.0.30 #3 fri nov 21 02:26:55 pst 1997 i586 '
hint=recommended, useposix=true, d_sigaction=define
bincompat3=n useperlio=undef d_sfio=undef
Compiler:
cc='cc', optimize='-O2', gccversion=2.7.2
cppflags='-Dbool=char -DHAS_BOOL -I/usr/local/include'
ccflags ='-Dbool=char -DHAS_BOOL -I/usr/local/include'
stdchar='char', d_stdstdio=define, usevfork=false
voidflags=15, castflags=0, d_casti32=define, d_castneg=define
intsize=4, alignbytes=4, usemymalloc=y, prototype=define
Linker and Libraries:
ld='ld', ldflags =' -L/usr/local/lib'
libpth=/usr/local/lib /lib /usr/lib
libs=-lgdbm -ldb -lm -lc
libc=/usr/lib/libc.a, so=none
useshrplib=false, libperl=libperl.a
Dynamic Linking:
dlsrc=dl_none.xs, dlext=none, d_dlsymun=undef, ccdlflags=''
cccdlflags='', lddlflags=''
Characteristics of this binary (from libperl):
Built under linux
Compiled at Jan 7 1998 09:37:52
@INC:
/usr/lib/perl5/i586-linux/5.00404
/usr/lib/perl5
/usr/lib/perl5/site_perl/i586-linux
/usr/lib/perl5/site_perl
.
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/ Now offering spam-free web-based newsreading
------------------------------
Date: 25 Mar 1998 19:38:22 GMT
From: Michael Frankowski <mfrankow@hibernate.winternet.com>
Subject: Re: Hmm...STDIN & inetd, what's up?
Message-Id: <6fbmfe$d0n$1@blackice.winternet.com>
Thank you two the two people who responded. I have to remember to
print the character out, or at least the ASCII value out, for the
string next time.
Your messages saved me at least two days of pounding my head
against the man pages...
- Michael Caerwyn (mcaerwyn@winternet.com)
------------------------------
Date: 25 Mar 1998 12:05:03 -0500
From: Timothy Hall <thall@lexisHOOK-nexis.com>
Subject: Re: How to attach files with Sendmail.
Message-Id: <avh1zvq1z28.fsf@lexis-nexis.com>
jglopez@javercol.javeriana.edu.co writes:
>
> Hi everybody, I am trying to attach a file to a E-mail message sent with send
> mail directly from a script but I don't know how, do you know how, please help
> me.
>
> Thank you.
>
> JG.
>
> -----== Posted via Deja News, The Leader in Internet Discussion ==-----
> http://www.dejanews.com/ Now offering spam-free web-based newsreading
I use
#!/usr/local/bin/perl5
@MAIL = ("Mail -s \"[SUBJECT]\" `echo [ADDRESS]` < [TEXT_FILE]");
system(@MAIL) == 0 or warn "MAIL NOT DELIVERED!";
where real info should be substituted for [CAPS]
If you need to "wrap" the file, look into MIME-Lite (MIME::Lite on CPAN
I think[0].)
OBclpmFAQplug: This, or one very much like it, may[0] be in the
FAQ. Starting there is always your best bet.
HTH Tim
[0] My browser went TU and my copy of the FAQ is olde.
---
~^-~^~~^-_~^~~^~_-~^~-_-~^_--~~|~~ Please remove the HOOK to drop me a line.
~ thall@lexis-HOOKnexis.com ? ~ All opinions are mine except where noted
~ ~ ~ ~ }<`3$j~ or quoted. Don't blame my employers if
~ ~ ~ }<`p; ' ~ you can't take a joke. Caveat Postor!
()perl []?java ' <@)c-shell \|/ Please excuse any facts I may have
VVV#####VVV#####################V# carelessly inserted into my opinion.
------------------------------
Date: Wed, 25 Mar 1998 09:09:48 -0800
From: "Matthew D. Langston" <langston@SLAC.Stanford.EDU>
Subject: How to determine a thingy's package given only a ref to the thingy
Message-Id: <35193A5C.4FD06DA1@SLAC.Stanford.EDU>
Hello all,
Given a reference to a thingy (e.g. a subroutine), how would one
determine the package where that thingy is defined?
One can use the `ref()' function to determine the type (e.g. CODE) of
the thingy, but how does one determine the package where the thingy is
defined? Here is a working perl snippet that demonstrates the problem I
am trying to solve:
#! /usr/bin/perl -w
my ( $type, $package ) = bar::dummySub( \&foo::dummySub );
print "\$type = $type\n";
# How do I define `baz::DeterminePackage()' (see below) so that it
# returns `( 'CODE', 'foo::' )'?
print "\$package = $package\n";
package foo;
sub dummySub {}
package bar;
sub dummySub
{
my $ref = shift;
baz::dummySub( $ref );
}
package baz;
sub dummySub
{
my $ref = shift;
DeterminePackage( $ref );
}
sub DeterminePackage
{
# Assume we are celled with a reference to something.
my $thingy = shift;
# This let's me find out the type of the thingy, e.g. SCALAR,
# CODE, etc.
my $thingyType = ref( $thingy );
# But, how do I determine the package where the thingy is
# defined?
my $thingysPackage = "?"; # what goes here?
( $thingyType, $thingysPackage );
}
__END__
Thank you for considering my question.
--
Matthew D. Langston
SLD, Stanford Linear Accelerator Center
langston@SLAC.Stanford.EDU
------------------------------
Date: Wed, 25 Mar 1998 17:34:47 +0000
From: Jerry Pank <jerryp.usenet@connected.demon.co.uk>
Subject: HTML::Parse Won't pull data out of tables
Message-Id: <z9yrYEA3AUG1EwYR@connected.demon.co.uk>
I'm Using HTML::Parse to strip tags out so I can build plain text
versions of web pages to ``feed'' search engines but it ignores text
within tables. As > 50% of the data is within tables this presents a
problem!
Is there a way using HTML::* that will do this for me?
I originally tried Tom C's striphtml but I got the following error
running the file as a pipe or pasting the code directly into my script.
/ < # opening angle bracket
(?: # Non-backreffing grouping paren
[^>'"] * /: regexp *+ operand could be empty at
striphtml.p
53.
Answers to either would be appreciated.
--
Jerry Pank mailto:jerryp.usenet@connected.demon.co.uk
And we can always supply them with a program that makes identical files
into links to a single file.
-- Larry Wall in <199709292012.NAA09616@wall.org>
------------------------------
Date: Wed, 25 Mar 1998 18:41:36 GMT
From: "Scott A. Mayfield" <mayfield@axxsys.net>
Subject: Re: HTTPd: malformed header from script .HELP?
Message-Id: <35194EEA.EB65EB9E@axxsys.net>
Although your script doesn't indicate this, the most COMMON cause is not
sending appropriate HTTP headers (obviously) when you output your document....
be sure you send a "Content-type: text/html\n\n" to standard output, and also
check for possible failures (opening files for example) that will cause the
script to abort early....
Scott
David C. McCall wrote:
> Thanks ahead of time....I'll be greatful for a place to start!
>
> Here's the situitation:
> SunOS4.1.3 SparcIPX64mb, PERL 54, CGI.pm-2.37030 ...NCSA httpd 152
>
> Here's the error message:
>
> Can't use an undefined value as a symbol reference at (eval 7) line 10.
> [Sat Mar 21 08:23:34 1998] HTTPd: malformed header from script
> /home/wwwServers/httpd152/htdocs/wcb/scripts/instructors/add.student.cgi
>
> Here's the add.student.cgi:
>
> #!/usr/local/bin/perl
> use CGI;
> $query = new CGI;
> use Wcbsubs qw(:DEFAULT);
> use Write_Html qw(:DEFAULT);
> &INIT;
> &Init_Course_Info;
> &setup;
>
> ###########################################################################
>
> ### Main routine
>
> if ($query->param) { #if the form has been filled out....
> if ($query->param('idno')) { # if the short form has been filled
> out....
> $id = $query->param('idno');
> $id =~ s!,!!g; #get rid of any commas entered in id field
> if ($id eq "1") {
> &get_newidno;
> }
> &check_dups;
> &get_info; #display the long form
> } else { #else if the long form has been filled out....
> &update_db;
> &create_acct; #add to passwd.db even if access control turned
> off, so i
> f turned on later you have student in the password database
> &Write_Roster_Page;
> &Create_Studenthp;
> $course_cnt = &Check_WCB_Delete("$username");
> &finish;
> exit 0;
> }
> }
> blah blah blah...
------------------------------
Date: Wed, 25 Mar 1998 12:55:10 -0600
From: ira@wrath.odsnet.com
To: ira@wrath.odsnet.com
Subject: I Love Funny Chars
Message-Id: <6fbjpe$m9r$1@nnrp1.dejanews.com>
In Emacs I can use all kinds of horrible picturesque characters that could
make code more (un)readable. When I try to run them, though, perl doesn't like
it. Any suggestions about how I can get eg x9, y9, E, e to compile?
The error message is (eg):
Unrecognized character \271 at funnychar.pl line 95.
Cheers,
ira
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/ Now offering spam-free web-based newsreading
------------------------------
Date: 25 Mar 1998 12:20:35 -0600
From: Stephen Potter <spp@colltech.com>
Subject: Re: Is there a "Newsgroup" for Newbies to Perl?
Message-Id: <uuemzqhbt8.fsf@psasolar.private.psa.pencom.com>
Mark P Stackhouse <stackhou@elk.cray.com> writes:
> > But don't you understand? This isn't a helpdesk.
>
> My point exactly! We need a "helpdesk"!
Collective Technologies would be quite happy to provide you with a helpdesk
contract. Our rates are a very reasonable $100/hr, with each question
taking a minimum of 1 hour billing. We even offer a performance guarantee,
if we can't answer your question for you, we won't charge.
Please see our website, http://www.colltech.com/ for more information.
Oh... I'm sorry, you wanted a *free* helpdesk?
-spp
--
Stephen P Potter |~~~~| |~~~~| spp@colltech.com
Ph: 312-781-6200 |____| C o l l e c t i v e |____| Team "OH, Yeah!"
Pg: 800-759-8888, |_______ _______| a pencom company
571-1869 [] technologies [] jthome.jthome.com/~spp
------------------------------
Date: 25 Mar 1998 12:52:04 -0500
From: Dean Pentcheff <dean@tbone.biol.sc.edu>
Subject: Re: is there anything like "geturl()" in perl?
Message-Id: <87k99ik69n.fsf@tbone.biol.sc.edu>
Bill Grogan <bgrogan@bullfrog-tech.com> writes:
> I am attempting to write a little program to monitor the availability of
> a web site.
>
> Is there any way to have perl try and open a url?
>
> I have been look and havn't come up with anything yet. Any ideas?
See the Perl modules list via www.perl.com
You're looking for the LWP bundle. Within that, you'll want to check
out LWP::Simple.
-Dean
--
N. Dean Pentcheff <pentcheff@acm.org>
Biological Sciences, Univ. of South Carolina, Columbia SC 29208 (803-777-7068)
------------------------------
Date: Wed, 25 Mar 1998 11:21:49 -0600
From: Cameron Dorey <camerond@mail.uca.edu>
To: "N.A.F. McNelly" <nmcnelly@bu.edu>
Subject: Re: Live in Chicago? Use GD with Win95? An Offer
Message-Id: <35193D2D.6CE1A128@mail.uca.edu>
[cc'd to naf, not sent to clp.modules]
Just tell him to go to:
http://hjs.geol.uib.no/Perl/index6.html-ssi
and follow the instructions to install Perl, which really are foolproof,
and GD.pm comes along for the ride (along with GD.html, the docs for the
module).
Cameron
camerond@mail.uca.edu
N.A.F. McNelly wrote:
>
> A friend in Chicago is willing to pay to get help with installing
> the 5.0004_2 version of perl, and is particularly interested in
> getting GD properly configured.
>
> Requirements are:
> Someone in the Chicago area who has experience with
> running both 5.0004_2 and the port of GD.pm that comes with it
> on a Win95 box.
>
> .................................................................
> Nancy McNelly
> http://www.halfmoon.org
------------------------------
Date: Wed, 25 Mar 1998 09:17:31 -0800
From: Frank Scholz <fscholz@wv.mentorg.com>
Subject: Re: Multiple substitues
Message-Id: <35193C2B.E0915B74@wv.mentorg.com>
Use 'tr'
Ex:
$string = 'ABCDEF'; # here's our sample string
$string =~ tr/A-C/a-c/; # $string is now 'abcDEF'
- Frank
dfrench@aig.vialink.com wrote:
>
> I would like to perform multiple substitues on a single line. For instance
> using "sed" the I can do the following:
>
> sed -e "s/A/a/g;s/B/b/g;s/C/c/g" filename
>
> The content of the substitutes above were just an example, but I would like to
> do the same kind of thing in perl. I would like to do multiple substitues in
> a single command, somthing like:
>
> $result = s/A/a/ && s/B/b/ && s/C/c/;
>
> does anybody know a way to do this?
>
> Regards,
>
> Dana French
> dfrench@aig.vialink.com
>
> -----== Posted via Deja News, The Leader in Internet Discussion ==-----
> http://www.dejanews.com/ Now offering spam-free web-based newsreading
------------------------------
Date: Wed, 25 Mar 1998 17:18:07 GMT
From: th@clinet.fi (Teemu Hannonen)
Subject: NNTP: making a nice, threaded index?
Message-Id: <35193726.9317277@news.clinet.fi>
I've been workin on a web interface for reading/posting to newsgroups
on our local intranet server. News:NNTPclient module found from CPAN
is really handy when listing all messages on a specific group or when
reading and posting a single message - but parsing references and
arranging articles by their relation to each other seems quite
difficult. At least for me :-(
Are there any modules or scripts designed for a web/news gateway? Or
how could I create an index of all messages where they are threaded
according to their follow-up level, not just listed from the oldest to
the latest one? (This shouldn't (?) be relevant, but I'm using Perl
v5.004_02 on WinNT and accessing Netscape Collabra server 3.5)
Thanks,
Teemu Hannonen
teemu.hannonen@media.edu.hel.fi
------------------------------
Date: 25 Mar 1998 18:27:55 GMT
From: psf@euclid.jpl.nasa.gov (Peter Scott)
Subject: Object destruction order non-deterministic?
Message-Id: <6fbibb$a96@netline.jpl.nasa.gov>
I was recently suprised by the order in which the DESTROY methods of
two objects were called. The code was essentially:
{ my $a = new A; foo(); }
sub foo { my $b = new B; do_stuff; }
yet A::DESTROY was called before B::DESTROY. I had (obviously
incorrectly) assumed that the chain of events would be: $b goes out of
scope when exiting sub foo, calls B::DESTROY; $a goes out of scope
when exiting block in main program, calls A::DESTROY.
If I put undef $b before the end of foo() it made no difference, but if
I followed it with another statement - I used a print statement - before
returning from foo(), then B::DESTROY was called first.
(It turned out to be vexing in this case, because $a was an object wrapped
around a DBI handle (so A::DESTROY called the disconnect method on the handle)
and $b was an object I had wrapped around a DBI cursor (and B::DESTROY
called the native cursor's finish method); destroying $a while a $b still
existed caused DBI to complain about the extant cursor. I'll have to
find another approach.)
Where can I read about destruction/garbage collection order? Is it
reasonable to expect objects to be destroyed LIFO?
(If it makes any difference, the block around $a in the main program
is a try block from Graham Barr's Error.pm.)
ObVersion: This is perl, version 5.004_04 built for sun4-solaris
--
This is news. This is your | Peter Scott, NASA/JPL/Caltech
brain on news. Any questions? | (psf@euclid.jpl.nasa.gov)
Disclaimer: These comments are the personal opinions of the author, and
have not been adopted, authorized, ratified, or approved by JPL.
------------------------------
Date: Wed, 25 Mar 1998 13:47:48 -0500
From: alecler@cam.org (Andre L.)
Subject: Re: Please help with ACGI vs. CGI in MacPerl
Message-Id: <alecler-2503981347480001@dialup-734.hip.cam.org>
In article <alecler-2403980000130001@dialup-659.hip.cam.org>,
alecler@cam.org (Andre L.) wrote:
(...)
> So, if there is someone who's knowledgeable on MacPerl, is there or is
> there not a limit to the size of data structures (scalars, arrays,
> hashes...) in the Mac implementation of Perl? Is there a way to deal with
> this? I have seen nothing, in any doc, module or read-me file in the
> MacPerl 5.004 distribution, about this problem.
After doing some tests, I am happy to report that I am a complete idiot.
I thought MacPerl had limitations on the size of data structures. Well, it
is not the case. However, it is true that a CGI script with the extension
.cgi will see its output limited to 32 k (at least when served by
MacHTTP).
However, using the script in asynchronous mode (by renaming the script
.acgi), AND allocating a bit more than the default 128 k of memory to the
CGI application created by MacPerl, works perfectly, no matter the size of
the output.
So there, I found the answer to my question. Maybe I'm not a _total_ idiot
after all. :-)
In the hope that this brainstorm will be helpful to others...
Andre
------------------------------
Date: 25 Mar 1998 19:21:44 GMT
From: Eli the Bearded <*@qz.to>
Subject: Re: PROPOSAL: The Perl Dictionary
Message-Id: <eli$9803251350@qz.little-neck.ny.us>
Keywords: from just another new york perl hacker
brian d foy <comdog@computerdog.com> wrote:
> brian_r_parkes@hotmail.com posted:
> >superlative (su-perl-a'tive), noun, adj. - The shortest possible Perl script
> >for any given problem.
>
> imperlative - Perl as a project requirement.
>
> perlambulate - stepping through your script with the debugger.
> see Chipmunk.
>
> perl diem - payment for daily Perl work.
>
> perlfidy - filching someone's Perl script.
>
> perlilous - mucking with the internals or trying to understand Chip.
>
> perlmeate - to introduce your cow-orkers to Perl.
>
> perlplex - to obfuscate. see Eli the Bearded.
>
> perlsnickety - describing Perl hackers who argue the fine points.
> see Abigail.
>
> perlspicuous - clearly written Perl code or a clear explanation.
> see Tom Phoenix.
>
> perlturbation - smalls tweaks in a script.
asperlation - the act of ardently desiring some perl functionality
(eg true multiline comments)
chaperlone - one who supervises a young perl script
desperlado - a reckless perl coder (probably uses versions with known
security holes)
hyperlbole - specious claims that perl is the proper tool for every task
imperlmeable - impervious to attempts to understand (see JAPH)
juniperl - everygreen used to flavor the gin in Larry's martinis
leperl - see perl 4.
perlpetual - unceasing questions from people who ignore FAQ files
perlturb - to confuse or disquiet with bizarre quoting delimiters
reperltoire - the collection of perl tricks a person knows
whimperl - the sound a perlturbed person makes
Elijah
------
perl -e 's ssqqprint qq\0just another new york perl hacker\n\0see'
------------------------------
Date: 25 Mar 1998 11:59:16 -0500
From: Jonathan Feinberg <jdf@pobox.com>
Subject: Re: revisiting "pod style comments revisited"
Message-Id: <lntyhfkr.fsf@news.concentric.net>
kevin@cmhcsys.com writes:
> my problem is, i don't know what "expecting new statement" means. does it
> mean that, e.g., i CAN'T put pod in the middle of a subroutine definition or
> a WHILE loop? does it mean that i must ONLY put pod in the middle of a
> subroutine definition or a while loop?
The entire perlsyn up to the point you've quoted is concerned with
statements... But, in general, a statement is terminated by a
semicolon. The last statement in a block may omit the semicolon.
Perl "expects a new statement" when a statement is terminated. So
that this is legal:
print "This is a statement, because there's a semicolon.\n";
=item foo
yadda yadda yadda
=cut
print "And we're back.\n";
but this is not:
print "This is not a statement, yet...",
=item whoops
blah blah blah
=cut
"because of the comma.";
Hope this helps.
--
Jonathan Feinberg jdf@pobox.com Sunny Brooklyn, NY
------------------------------
Date: Wed, 25 Mar 1998 19:38:09 +0200
From: Kari Marttila <Kari.Marttila.@tietogroup.com>
Subject: Re: Running several test clients
Message-Id: <35194101.1A94@tietogroup.com>
Hi
I am sorry. I can't understand why it didn't work in the first place.
Here is my script if somebody has the same kind of problem:
###################################################################
$client_cnt = $ARGV[0]; # Number of clients.
$wait_time = $ARGV[1]; # Wait time between launching clients (0 -
wait_time secs).
die "Usage: test <number_of_clients> <wait_time>\n" if (($client_cnt =~
/\D/) or ($client_cnt =~ /^$/));
die "Usage: test <number_of_clients> <wait_time>\n" if (($wait_time =~
/\D/) or ($wait_time =~ /^$/));
srand; # Initialize random seed.
for ($i = 1; $i <= $client_cnt; $i++) {
$sleep_time = int (rand($wait_time));
sleep($sleep_time);
$now = scalar(localtime);
print "Creating client # $i at $now.\n";
$outfile = "out" . $i . ".txt";
system ("start /B Client1 >> $outfile");
}
#########################################################
Kari Marttila wrote:
>
> Hi
>
> I am wondering, if somebody knows how to launch several test clients in
> a perl module. I am trying something like this:
>
> testclient.pl:
> ##############################################################
> $cnt = $ARGV[0];
>
> die "Usage: testclient <number>\n" if (($cnt =~ /\D/) or ($cnt =~
> /^$/));
> for ($i = 0; $i < $cnt; $i++) {
> # system ("start /B Client1");
> exec ("start Client1 /B");
> }
> ##############################################################
>
> The idea is that I want to say "perl testclient 100" and this perl
> script would create 100 test clients running concurrently in my NT 4.0.
> I am not sure if this is possible in NT. Neither system or exec seems to
> be working in NT.
>
> It is possible to make a bat file like this though:
> testclient.bat:
> **************************
> start /B client1
> start /B client1
> start /B client1
> start /B client1
> ...
> **************************
> And test clients will run concurrently in NT.
>
> If somebody sends a replay I would be very pleased to have a personal
> reply also.
>
> Thanks!
>
> *******************************************************
> Kari
> Marttila
> TT Tieto / TT Government Services / Networking services
> Internet: Kari.Marttila@tietogroup.com
> *******************************************************
------------------------------
Date: Wed, 25 Mar 1998 11:53:03 -0600
From: nmcfadye@mae.carleton.ca
Subject: running suid programs
Message-Id: <6fbg51$j1i$1@nnrp1.dejanews.com>
I have just installed perl5 004. I noticed that there were a bunch of
questions relating to suid oepration during installation which I didn't really
understand. I have program called fping which is an suid program. I can run
it from a sh or csh but if I try to run in my perl script I get a error
message, must be run or root
It seems perl doesn't make use of the suid permission on fping. Can this be
fixed without recompiling perl again.
Thanks
Neil McFadyen
Carleton U
Ottawa, Canada
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/ Now offering spam-free web-based newsreading
------------------------------
Date: Wed, 25 Mar 1998 14:05:34 -0500
From: Angelo Sirigos <angelo_sirigos@spamoff.medscape.com>
Subject: SMTP
Message-Id: <3519557E.502D@spamoff.medscape.com>
I'm trying to create a simple mailer which connects to my mailserver and
sends out a message to a specified email address.
The script goes through beginning to end but doesn't send the message.
I was wondering if anyone can possibly give me a hand. below is the
code.
Thanks in advance for any help
#!/usr/bin/perl -w
require 5.002;
use Socket;
use Getopt::Std;
require "flush.pl";
sub get_date {
#Tue, 10 Jun 1997 13:45:46 -0400
my ($gmtdiff, $tm_diff, $gmt_hr, $tim);
my ($sec, $min, $hour, $mday, $mon, $year, $wday) =
(localtime(time))[0..6];
$year += 1900;
$wday = (qw(Sun Mon Tue Wed Thu Fri Sat))[$wday];
$mon = (qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec))[$mon];
$sec = "0$sec" if $sec < 10;
$min = "0$min" if $min < 10;
$hour = "0$hour" if $hour < 10;
$tim = "$hour:$min:$sec";
$gmt_hr = (gmtime(time))[2];
$gmtdiff = abs(($gmt_hr - $hour) * 100);
$gmtdiff = "0$gmtdiff" if $gmtdiff < 1000;
$tm_diff = "-$gmtdiff" if $gmt_hr > $hour;
$tm_diff = "+$gmtdiff" if $gmt_hr <= $hour;
return "$wday, $mday $mon $year $tim $tm_diff";
}
#********************************************************************************
sub reply {
my ($socket, $code) = @_;
my $response = <$socket>;
unless ($response =~ /$code/)
{ # log unsuccessful delivery and return a failure code
$response =~ s/\n|\r//g;
$response = "** SERVER NOT RESPONDING **" unless $response;
return 0;
}
}
#********************************************************************************
sub smtp_send {
my ($socket, $command, $reply) = @_;
printflush ($socket, $command);
reply ($socket, $reply);
}
$port = 25;
$host = 'mail.medscape.com';
$to = 'angelo_sirigos@mail.medscape.com';
$from = 'angelo_sirigos@mail.medscape.com';
$iaddr = inet_aton ($host);
$proto = getprotobyname('smtp');
$paddr = sockaddr_in ($port, $iaddr);
$date = get_date;
socket (SOCK, PF_INET, SOCK_STREAM, $proto) or die "No socket: $!\n";
connect (SOCK, $paddr);
####
#
# Main
#
####
die "Invocation: smtptest.pl host to from\n" unless $host && $from &&
$to;
$date = get_date;
$message = <<ENDMSG;
To: <$to>
From: Testing <$from>
Subject: $subject
Date: $date
Testing.
ENDMSG
smtp_send ('SOCK', "HELO $host\n", 250);
smtp_send ('SOCK', "MAIL FROM: <$from>\n", 250);
smtp_send ('SOCK', "RCPT TO: <$to>\n", 250);
smtp_send ('SOCK', "DATA\n", 354);
smtp_send ('SOCK', $message, 250);
smtp_send ('SOCK', "QUIT\n", 221);
close SOCK;
--
Angelo Sirigos \\|||//
Netscape DevEdge Champion (.)-(.)
===ooOO=(_)=OOoo==
EMail: angelo_sirigos.spamoff@mail.medscape.com (Remove spamoff to
respond)
Netscape DevEdge Champion
------------------------------
Date: Wed, 25 Mar 1998 20:16:50 -0800
From: Jan Krynicky <jkry3025@comenius.ms.mff.cuni.cz>
Subject: Re: SMTP
Message-Id: <3519D6B2.1F44@comenius.ms.mff.cuni.cz>
Angelo Sirigos wrote:
>
> I'm trying to create a simple mailer which connects to my mailserver and
> sends out a message to a specified email address.
> The script goes through beginning to end but doesn't send the message.
> I was wondering if anyone can possibly give me a hand. below is the
> code.
> Thanks in advance for any help
DOT
The email message MUST end by a line containing one dot and nothing
more.
<many lines snipped>
> smtp_send ('SOCK', $message, 250);
smtp_send ('SOCK', $message."\n.\n", 250);
<even more lines snipped>
> Angelo Sirigos \\|||//
HTH, Jenda
BTW: Visit http://www.chipnet.cz/depot/perl.htm -
SendMailEx.pm & Mail::Sender.pm
------------------------------
Date: 25 Mar 1998 19:47:50 GMT
From: Alain.Deckers@man.ac.uk (A. Deckers)
Subject: Re: SMTP
Message-Id: <slrn6hinr3.2rh.Alain.Deckers@bashful.rediris.es>
In <3519557E.502D@spamoff.medscape.com>,
Angelo Sirigos <angelo_sirigos@spamoff.medscape.com> wrote:
>I'm trying to create a simple mailer which connects to my mailserver and
>sends out a message to a specified email address.
Is there any reason why you aren't using Net::SMTP? Reinventing the
wheel is pointless, except as a didactic exercise, which is fine if
that's what you're after. Just wondering.
http://www.perl.com/CPAN/modules/by-module/Net/libnet-1.0605.readme
http://www.perl.com/CPAN/modules/by-module/Net/libnet-1.0605.tar.gz
Alain
--
Perl reference: <URL:http://reference.perl.com/>
Perl language: <URL:http://language.perl.com/>
Perl archive: <URL:http://www.perl.com/CPAN/>
Perl FAQ: <URL:http://www.perl.com/CPAN/doc/FAQs/FAQ/>
------------------------------
Date: Wed, 25 Mar 1998 19:51:04 GMT
From: barberk3@pilot.msu.edu (Keith)
Subject: System Questoin
Message-Id: <35195fc6.657385@nntp.msu.edu>
Hi, I was wondering why the following won't work for me:
#!/usr/local/bin/perl5 -w
print "Before\n";
$cgi= "\/opt\/SUNWweb\/cgi-bin\/student-cgi\/";
system("cd $cgi");
print "AFTER";
Any suggestions as to why this won't work? I can get perl to make a
dir, chmod, etc, but I can't move in and out of dirs'.
Thanks,
Keith
------------------------------
Date: Wed, 25 Mar 1998 20:46:29 +0100
From: Alberto Aimar <theAlberto.Aimar@iol.it>
To: AA <alberto.aimar@cern.ch>
Subject: Using Perl packages and "strict"
Message-Id: <35195F14.145D8E02@iol.it>
Hi,
I have looked hard on books, the Web,
Dejanews, FAQs, etc. but I do not understand how
to use packages.
See the example below:
1. If I do not put "strict" nor "my" statements it works.
2. With "strict" and therefore "my" statements, it doesn't work.
Most variables are null-valued.
Thanks for your help.
+++++++++++++++++++++++++++++++++++++++++++++++++++++++
use strict;
package sub;
my $mainvar;
my $mainvar1;
$mainvar=2;
$mainvar1=2;
package top;
my $mainvar;
my $mainvar1;
$mainvar=22;
$mainvar1=22;
print "########### SUB ##########\n";
print "1# $mainvar $mainvar1\n";
print "2# $::mainvar $::mainvar1\n";
print "3# $top::mainvar $top::mainvar1\n";
print "4# $sub::mainvar $sub::mainvar1\n";
print "==============\n";
+++++++++++++++++++++++++++++++++++++++++++++++++++++++
--
Alberto Aimar
---------------------------------------------------------------------
Note : This is my *personal* opinion, nothing to do with my employer
Remove: "the" from the email address in order to reply correctly;
this is avoid unsolicited automatic commercial emails
------------------------------
Date: 25 Mar 1998 12:36:57 -0500
From: Jonathan Feinberg <jdf@pobox.com>
Subject: Re: Where to get Perl compiler for Win95 or Win NT?
Message-Id: <hg4mhdty.fsf@news.concentric.net>
Wolfgang Denk <wd@uebemc.siemens.de> writes:
> Randal Schwartz <merlyn@stonehenge.com> writes:
>
> >QED EIEIO.
>
> EIEIO?
Q: How does the ${ethnic_slur} spell 'farm'?
A: EIEIO.
Note to readers outside of the US: this joke is based on a ubiquitous
children's song, whose lyrics run
my %animal_noise = ( sheep => 'baa',
ducks => 'quack',
cows => 'moo',
tchrists => 'growl',
);
foreach my $animal (sort keys %animal_noise) {
my $noise = $animal_noise{$animal};
print <<END_OF_VERSE;
Old MacDonald had a farm
E I E I O
And on this farm he had some $animal
E I E I O
With a $noise $noise here
And a $noise $noise there
Here a $noise
There a $noise
Everywhere a $noise $noise
Old MacDonald had a farm
E I E I O
END_OF_VERSE
}
--
Jonathan Feinberg jdf@pobox.com Sunny Brooklyn, NY
------------------------------
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 2180
**************************************
