[8893] in Perl-Users-Digest

home help back first fref pref prev next nref lref last post

Perl-Users Digest, Issue: 2510 Volume: 8

daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue May 5 21:07:13 1998

Date: Tue, 5 May 98 18:00:38 -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           Tue, 5 May 1998     Volume: 8 Number: 2510

Today's topics:
        #!/usr/bin/perl replacement? (Sam Tregar)
    Re: #!/usr/bin/perl replacement? <rra@stanford.edu>
    Re: #!/usr/bin/perl replacement? <jdf@pobox.com>
    Re: #PERL the IRC Channel on Efnet. <tchrist@mox.perl.com>
    Re: #PERL the IRC Channel on Efnet. (Chris Nandor)
    Re: #PERL the IRC Channel on Efnet. <rra@stanford.edu>
    Re: 1701 days hath September (was: Re: rename funciton) (John Stanley)
        check/change file permissions in windows95? <dtbaker_@flash.net>
    Re: check/change file permissions in windows95? (Jim Michael)
    Re: Compare integes is faster than compare strings also (Martien Verbruggen)
    Re: Condition to subroutine <jdf@pobox.com>
    Re: Condition to subroutine (brian d foy)
        Converting binary to Ascii. <e78199@ceng.metu.edu.tr>
    Re: Converting binary to Ascii. (brian d foy)
        Database gloom <Lee@sibsoft.force9.co.uk>
    Re: Database gloom (brian d foy)
    Re: deleting lines from file help (Hakan Hjelmstrom)
    Re: directorys and Files? (Martien Verbruggen)
    Re: help a novice in perl! (Craig Berry)
    Re: HELP: line continuation character appears to fail (Martien Verbruggen)
    Re: How to make a "Please wait" page during script proc <merlyn@stonehenge.com>
    Re: Installation problems (Martien Verbruggen)
    Re: IS THIS POSSIBE IN PERL! (Ken Churilla)
    Re: Looking for Perl parser for 'C' language input file <rpsavage@ozemail.com.au>
    Re: Open to suggestions (Curtis Hoffmann)
        rjsemail.cgi and Apache <woodward@hiddencove.net>
    Re: SF.pm perl user's group! <merlyn@stonehenge.com>
        Telnet question <johnnie@holly.colostate.edu>
        Tk400.202 and AIX <cmihaly@fa.disney.com>
    Re: Using executable pathname to define include path <vallon@pearl.fi.bear.com>
    Re: Using executable pathname to define include path <glew@cs.wisc.edu>
        Using perl Tk:: versus HTML forms for GUI front-end <dtbaker_@flash.net>
        Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)

----------------------------------------------------------------------

Date: 5 May 1998 22:36:18 GMT
From: sdt201@is6.nyu.edu (Sam Tregar)
Subject: #!/usr/bin/perl replacement?
Message-Id: <6io492$q2$1@news.nyu.edu>

Hey Guys.  Pardon my Perl ignorance - I hail from the land of TCL/Tk, GUI
design.

In TCL/Tk you can avoid explicitly writing:

#!/usr/bin/wish

by doing:

#!/bin/sh
# The next line is executed by /bin/sh, but not tcl \
exec wish $0 ${1+"$@"}

Is the same trick possible in Perl?  How do I write it?  I'm about to
distribute a large program with a small piece of Perl and I need to
disociate my perl program form any path assumptions.

Thanks!
-sam



------------------------------

Date: 05 May 1998 16:19:47 -0700
From: Russ Allbery <rra@stanford.edu>
To: sdt201@is6.nyu.edu (Sam Tregar)
Subject: Re: #!/usr/bin/perl replacement?
Message-Id: <m3g1iocnl8.fsf@windlord.Stanford.EDU>

[ Posted and mailed. ]

Sam Tregar <sdt201@is6.nyu.edu> writes:

> In TCL/Tk you can avoid explicitly writing:

> #!/usr/bin/wish

> by doing:

> #!/bin/sh
> # The next line is executed by /bin/sh, but not tcl \
> exec wish $0 ${1+"$@"}

man perlrun has this to say:

          Typically this is used to emulate #! startup on
          platforms that don't support #!.  This example works on
          many platforms that have a shell compatible with Bourne
          shell:

              #!/usr/bin/perl
              eval 'exec perl -S $0 ${1+"$@"}'
                      if $running_under_some_shell;

If you change #!/usr/bin/perl to #!/bin/sh it should work just about
anywhere provided that perl is on the user's path.

-- 
#!/usr/bin/perl -- Russ Allbery, Just Another Perl Hacker
$^=q;@!>~|{>krw>yn{u<$$<[~||<Juukn{=,<S~|}<Jwx}qn{<Yn{u<Qjltn{ > 0gFzD gD,
 00Fz, 0,,( 0hF 0g)F/=, 0> "L$/GEIFewe{,$/ 0C$~> "@=,m,|,(e 0.), 01,pnn,y{
rw} >;,$0=q,$,,($_=$^)=~y,$/ C-~><@=\n\r,-~$:-u/ #y,d,s,(\$.),$1,gee,print


------------------------------

Date: 05 May 1998 19:29:26 -0500
From: Jonathan Feinberg <jdf@pobox.com>
To: sdt201@is6.nyu.edu (Sam Tregar)
Subject: Re: #!/usr/bin/perl replacement?
Message-Id: <af8wmec9.fsf@mailhost.panix.com>

sdt201@is6.nyu.edu (Sam Tregar) writes:

> Hey Guys.  Pardon my Perl ignorance - I hail from the land of
> TCL/Tk, GUI design.

"In this strange land, we do not read the documentation for the
programming languages we use."

> #!/bin/sh
> # The next line is executed by /bin/sh, but not tcl \
> exec wish $0 ${1+"$@"}
> 
> Is the same trick possible in Perl?  How do I write it?

See the perlrun document for the Perl equivalent of this trick and
many other details relating to the invocation of perl.

   # perldoc perlrun

-- 
Jonathan Feinberg   jdf@pobox.com   Sunny Brooklyn, NY


------------------------------

Date: 5 May 1998 23:08:02 GMT
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: #PERL the IRC Channel on Efnet.
Message-Id: <6io64i$1di$1@csnews.cs.colorado.edu>

 [courtesy cc of this posting sent to cited author via email]

In comp.lang.perl.misc, Russ Allbery <rra@stanford.edu> writes:
:Take it to alt.irc or something, guys.  They get off on this stuff.  The
:rest of us really could care less.

No, we couldn't. :-)

--tom 
-- 
	Tom Christiansen	tchrist@jhereg.perl.com

    Bringing computers into the home won't change either one, but may
    revitalize the corner saloon.


------------------------------

Date: Wed, 06 May 1998 00:12:33 GMT
From: pudge@pobox.com (Chris Nandor)
Subject: Re: #PERL the IRC Channel on Efnet.
Message-Id: <pudge-0505982010410001@192.168.0.3>

In article <m3vhrkcpc0.fsf@windlord.Stanford.EDU>, Russ Allbery
<rra@stanford.edu> wrote:

# Take it to alt.irc or something, guys.  They get off on this stuff.  The
# rest of us really could care less.

Unless I am mistaken, this is comp.lang.perl.MISC.  Anyway, I do find it
relevant on other grounds other than the fact that it has to do with Perl;
that is, we have working proof that the Perl community does a pretty good
job of moderating itself, despite some people worrying to the contrary.

-- 
Chris Nandor          mailto:pudge@pobox.com         http://pudge.net/
MacPerl: Power and Ease (ISBN 1881957322), http://www.ptf.com/macperl/
%PGPKey = ('B76E72AD', [1024, '0824090B CE73CA10  1FF77F13 8180B6B6'])


------------------------------

Date: 05 May 1998 17:38:33 -0700
From: Russ Allbery <rra@stanford.edu>
Subject: Re: #PERL the IRC Channel on Efnet.
Message-Id: <m3yawgb5di.fsf@windlord.Stanford.EDU>

Chris Nandor <pudge@pobox.com> writes:
> Russ Allbery <rra@stanford.edu> wrote:

>> Take it to alt.irc or something, guys.  They get off on this stuff.
>> The rest of us really could care less.

> Unless I am mistaken, this is comp.lang.perl.MISC.

Right.  It's a newsgroup for talking about a programming language.  This
is not about a programming language.  This is about IRC.  It happens to be
metadiscussion about a forum for discussing the same programming language
on a completely different medium.

That doesn't make it on-topic here.

I ran an IRC channel for about two years.  I've seen more of these things
than I can possibly count, and they are without exception exercises in
utter futility started by whiners and perpetuated because the channel ops
aren't willing to just let it drop.  The only reason why I actually use
#perl at all, after having given up completely on IRC some time ago, is
that because unlike the rest of IRC most of the people on that channel
have a brain and are reasonably good at ignoring the ones who don't.

Ignoring doesn't mean perpetuating their threads on clpm.

Please let's not start the precedent of attempting some sort of rational
discussion over IRC logs.  IRC logs do not produce rational discussion.
Arguments over IRC transcripts and rationality are, in fact, mutually
exclusive concepts.

-- 
#!/usr/bin/perl -- Russ Allbery, Just Another Perl Hacker
$^=q;@!>~|{>krw>yn{u<$$<[~||<Juukn{=,<S~|}<Jwx}qn{<Yn{u<Qjltn{ > 0gFzD gD,
 00Fz, 0,,( 0hF 0g)F/=, 0> "L$/GEIFewe{,$/ 0C$~> "@=,m,|,(e 0.), 01,pnn,y{
rw} >;,$0=q,$,,($_=$^)=~y,$/ C-~><@=\n\r,-~$:-u/ #y,d,s,(\$.),$1,gee,print


------------------------------

Date: 6 May 1998 00:36:41 GMT
From: stanley@skyking.OCE.ORST.EDU (John Stanley)
Subject: Re: 1701 days hath September (was: Re: rename funciton)
Message-Id: <6iobap$oa8$1@news.NERO.NET>

In article <genepoolEsG5BK.Jzy@netcom.com>,
Jim Michael <genepool@netcom.com> wrote:
>John Stanley (stanley@skyking.OCE.ORST.EDU) wrote:
>: The "free" email services require internet access, which in most places
>: costs money.
>
>You get usenet by smoke signal? 

I guess this shows my age. I still remember when USENET wasn't
officially allowed on the internet because of acceptable use policies.
Back when people didn't automatically assume that you had internet
access just because you could post. Now if it isn't "internet", it's
"smoke signal".



------------------------------

Date: Tue, 05 May 1998 18:08:32 -0600
From: Dan Baker <dtbaker_@flash.net>
Subject: check/change file permissions in windows95?
Message-Id: <354FAA00.1A3F@flash.net>

I've found several references explaining how to change file permissions
on UNIX, but can't find anything for windows95.... can anyone point me
in the right direction? please give a specific URL or FAQ if ya know it.
;)

The problem is that I can create a temp file during a script just fine,
and even write over it, but can't get unlink(file.txt) to work. I get
the error message about permissions.

thanx,

Dan


------------------------------

Date: Wed, 6 May 1998 00:27:39 GMT
From: genepool@netcom.com (Jim Michael)
Subject: Re: check/change file permissions in windows95?
Message-Id: <genepoolEsIEM3.1zK@netcom.com>

Dan Baker (dtbaker_@flash.net) wrote:
: I've found several references explaining how to change file permissions
: on UNIX, but can't find anything for windows95.... can anyone point me
: in the right direction? please give a specific URL or FAQ if ya know it.

help attrib
attrib /?


------------------------------

Date: 5 May 1998 23:43:28 GMT
From: mgjv@comdyn.com.au (Martien Verbruggen)
Subject: Re: Compare integes is faster than compare strings also in perl?
Message-Id: <6io870$8ij$3@comdyn.comdyn.com.au>

In article <354EFD37.5D3D1973@tss.tei.ericsson.se>,
	Peng Li <teilipe@tss.tei.ericsson.se> writes:
> This is a multi-part message in MIME format.
> --------------0357A0905BBBFC5622118E81
> Content-Type: text/plain; charset=us-ascii
> Content-Transfer-Encoding: 7bit

Please don't do this. Usenet is a plain text medium. vcards have no
meaning here.

> Sorry for a stupid qustion, I am a new programer of PERL,
> someone told me in PERL all integers are converted to
> strings, this cause me a question:

This someone is wrong. 
(perlguts documentation and http://home.sol.no/~aas/perl/guts/)

>   if there are two strings scalar variables($a, $b) and two integer 
> variables ($c, $d), which comparation is faster?
>   1)    if ( $a eq $b ) { ...}
>   2)    if ( $c == $d ) { ... }

Depends on the contents of the variables. But it's really a
meaningless question. You use eq if you want to compare the things as
strings. You use == if you want to compare them as numbers. 

Martien
-- 
Martien Verbruggen                  | 
Webmaster www.tradingpost.com.au    | That's not a lie, it's a terminological
Commercial Dynamics Pty. Ltd.       | inexactitude.
NSW, Australia                      | 


------------------------------

Date: 05 May 1998 19:25:00 -0500
From: Jonathan Feinberg <jdf@pobox.com>
To: Graham Wallace <graham@contact.com.au>
Subject: Re: Condition to subroutine
Message-Id: <d8dsmejn.fsf@mailhost.panix.com>

Graham Wallace <graham@contact.com.au> writes:

> The answer as to why my script wasn't working was that I had put in "If"
> instead of "if" in one place.  The couple of other things like the ";"
> omited were just my typing it on to the request for help I thought the
> problem I had was more conceptual as this is the first time I had gone
> to a subroutine as a result of a condition.

But you were asking us to look specifically at your code and tell you
what was wrong with it!  Why on earth would you then post something
other than the code that's not working?  Aiieee!

-- 
Jonathan Feinberg   jdf@pobox.com   Sunny Brooklyn, NY


------------------------------

Date: Tue, 05 May 1998 20:59:50 -0400
From: comdog@computerdog.com (brian d foy)
Subject: Re: Condition to subroutine
Message-Id: <comdog-ya02408000R0505982059500001@news.panix.com>
Keywords: from just another new york perl hacker

In article <354F966C.28649B75@contact.com.au>, Graham Wallace <graham@contact.com.au> posted:

>The answer as to why my script wasn't working was that I had put in "If"
>instead of "if" in one place.  The couple of other things like the ";"
>omited were just my typing it on to the request for help I thought the
>problem I had was more conceptual as this is the first time I had gone
>to a subroutine as a result of a condition.   Like all things the
>simplest typo can cause a headache especially when you try to find the
>problem and read what should be there and not what is actually there.

i'm not trying to rub salt into your wounds, but doing a syntax check
is often helpful:

   perl -cw my_script

it will tell you where you messed up, and often how.

additionally, the

   use strict;

pragma builds good habits and keeps you from hanging yourself (most
of the time).  takes a little while to get use to it, but it's worth
it.

good luck :)

-- 
brian d foy                                  <comdog@computerdog.com>
CGI Meta FAQ <URL:http://computerdog.com/CGI_MetaFAQ.html>
Comprehensive Perl Archive Network (CPAN) <URL:http://www.perl.com>
Perl Mongers <URL:http://www.pm.org>


------------------------------

Date: Wed, 06 May 1998 02:56:59 +0300
From: Walid ALSAQAF <e78199@ceng.metu.edu.tr>
Subject: Converting binary to Ascii.
Message-Id: <354FA74B.9BA32D67@ceng.metu.edu.tr>

Greetings all,

	In my project, there is a part that I need to translate some binary
characters into text characters. I am using tr for that. But it seems
that it is not always working. What I am doing is this:

$_=~tr/v/O/;
$_=~tr/V/O/;
$_=~tr/|/U/;
$_=~tr/\/U/;
$_=~tr/g/C/;
$_=~tr/G/C/;
$_=~tr/p/G/;
$_=~tr/P/G/;
$_=~tr/}/I/;
$_=~tr/]/I/;


	But sometimes, I get an unpredicted result (long words, etc..). Is
there a way to do the conversion with numbers? For example like using:
tr/\ascii_no_of_\/U/; 
etc..?

	Thanks for your help in advance!


-- 
/*********************************************/
Walid ALSAQAF

METU 
Computer Engineering Department
mailto:e78199@ceng.metu.edu.tr
http://www.ceng.metu.edu.tr/~e78199/Walid
ICQ # : (9762042)
/*********************************************/


------------------------------

Date: Tue, 05 May 1998 20:55:15 -0400
From: comdog@computerdog.com (brian d foy)
Subject: Re: Converting binary to Ascii.
Message-Id: <comdog-ya02408000R0505982055150001@news.panix.com>
Keywords: from just another new york perl hacker

In article <354FA74B.9BA32D67@ceng.metu.edu.tr>, Walid ALSAQAF <e78199@ceng.metu.edu.tr> posted:

>        But sometimes, I get an unpredicted result (long words, etc..). Is
>there a way to do the conversion with numbers? For example like using:
>tr/\ascii_no_of_\/U/; 
>etc..?

from the perlop man page (to which `perldoc -f tr` points you)

                 tr [\200-\377]
                    [\000-\177];             # delete 8th bit

from that you should be able to figure out what you need to do.

good luck :)

-- 
brian d foy                                  <comdog@computerdog.com>
CGI Meta FAQ <URL:http://computerdog.com/CGI_MetaFAQ.html>
Comprehensive Perl Archive Network (CPAN) <URL:http://www.perl.com>
Perl Mongers <URL:http://www.pm.org>


------------------------------

Date: Wed, 6 May 1998 01:05:35 +0100
From: "Lee Sibbald" <Lee@sibsoft.force9.co.uk>
Subject: Database gloom
Message-Id: <6ioapn$cc5@news1.force9.net>

Hi everyone,
    I'm attempting to convince my Uni Unix administrators that I really need
a good Oracle DBI instead of the crappy one they wrote themselves.  I
originally went for MsqlPerl but that fell through the floor, so I'm
wondering if there is a good Perl DBI for Oracle (other than OraPerl) which
doesn't require a million changes to a University server and which can be
implemented painlessly and quickly.

Does anyone know of such a DBI or am I really away with the pixies?

Cheers

Lee Sibbald



------------------------------

Date: Tue, 05 May 1998 20:57:04 -0400
From: comdog@computerdog.com (brian d foy)
Subject: Re: Database gloom
Message-Id: <comdog-ya02408000R0505982057040001@news.panix.com>
Keywords: from just another new york perl hacker

In article <6ioapn$cc5@news1.force9.net>, "Lee Sibbald" <Lee@sibsoft.force9.co.uk> posted:

>    I'm attempting to convince my Uni Unix administrators that I really need
>a good Oracle DBI instead of the crappy one they wrote themselves.  I
>originally went for MsqlPerl but that fell through the floor, so I'm
>wondering if there is a good Perl DBI for Oracle (other than OraPerl) which
>doesn't require a million changes to a University server and which can be
>implemented painlessly and quickly.
>
>Does anyone know of such a DBI or am I really away with the pixies?

i'm wondering if you know about the DBI module and it's drivers (DBD::*).
perhaps you jsut meant "DBI" in general...

anyway, see CPAN for modules called DBI.  

good luck :)

-- 
brian d foy                                  <comdog@computerdog.com>
CGI Meta FAQ <URL:http://computerdog.com/CGI_MetaFAQ.html>
Comprehensive Perl Archive Network (CPAN) <URL:http://www.perl.com>
Perl Mongers <URL:http://www.pm.org>


------------------------------

Date: Tue, 05 May 1998 22:56:03 GMT
From: hawk@algonet.se (Hakan Hjelmstrom)
Subject: Re: deleting lines from file help
Message-Id: <355496bb.30033445@news.algonet.se>

On Tue, 05 May 1998 16:53:54 -0400, Brian Mathis wrote:
> robert burditt wrote:
> > i have a log file that grows pretty large and about once a week,
> > i'd like to go in and delete the first 20,000 lines or so.
> You could read the whole file into an array, then
> $limit = $#array - 20000;
> for($i=0; $i<$limit; $i++) {
>     print FILE $array[$i];
> }
> or something similar (I that code will actually delete the most recent
> entries).

You could also assign all but the first 20000 entries to an array by
using an array slice [20000..$#array]. Better make sure $#array is
large enough first though.

> Or, a smarter idea might be to simply rename the log file at a certain
> time, then create a new one.  It's much simpler.

A -s test and renaming of the old file at a certain size would do
nicely.

Hekan Hjelmstrvm
hawk@algonet.se


------------------------------

Date: 5 May 1998 23:31:57 GMT
From: mgjv@comdyn.com.au (Martien Verbruggen)
Subject: Re: directorys and Files?
Message-Id: <6io7hd$8ij$1@comdyn.comdyn.com.au>

In article <354F187C.59D4852E@nortel.co.uk>,
	"Frank L. Quednau" <quednauf@nortel.co.uk> writes:
>>
>>
>> You really should spend some time reading the perl documentation.
>>
>> # perldoc perl
>> # perldoc perlsyn
>> # perldoc perldata
>> # perldoc perlop
>> # perldoc perlfunc
>>
> 
> Hi, is this actually an automated response? 'cos the answer is actually shorter
> than what you have written  ;)

I know that. You know that. The original poster obviously didn't. My
lengthy response was designed to point him to the documentation, to
show him that he could have found a plethora of information about perl
and perl functions, if he was only willing to read a bit, instead of
just ask. One doesn't learn programming by asking other people to
solve one's problems. One learns by trying, and reading, and trying
again. One learns by example. In this specific case, the question was
so basic and well covered by the documentation as well as a lot of
answers to other questions in this group, that I didn't think it
deserved another example.

Besides that, his question wasn't clear enough.

Martien
-- 
Martien Verbruggen                  | 
Webmaster www.tradingpost.com.au    | I'm desperately trying to figure out
Commercial Dynamics Pty. Ltd.       | why kamikaze pilots wore helmets - Dave
NSW, Australia                      | Edison 


------------------------------

Date: 5 May 1998 22:55:37 GMT
From: cberry@cinenet.net (Craig Berry)
Subject: Re: help a novice in perl!
Message-Id: <6io5d9$dl1$2@marina.cinenet.net>

Bart Lateur (bart.mediamind@tornado.be) wrote:
: sg wrote:
: >i didn't found a function which can return
: >(or repertoriate) the *.html files in a directory.
: 
: Maybe because it's not one function. Try something like:
: 
: 	opendir(DIR,$dirname);
: 	@html = grep { /\.html?$/i } readdir(DIR);
: 	closedir(DIR);

Well, it *can* be one function:

  @html = glob '*.html';

or even

  @html = <*.html>;

---------------------------------------------------------------------
   |   Craig Berry - cberry@cinenet.net
 --*--    Home Page: http://www.cinenet.net/users/cberry/home.html
   |      Member of The HTML Writers Guild: http://www.hwg.org/   
       "Every man and every woman is a star."


------------------------------

Date: 6 May 1998 00:06:30 GMT
From: mgjv@comdyn.com.au (Martien Verbruggen)
Subject: Re: HELP: line continuation character appears to fail
Message-Id: <6io9i6$8ij$4@comdyn.comdyn.com.au>

In article <lbbttc8ml3.fsf@seal.usc.edu>,
	Terrence Brannon <brannon@lnc.usc.edu> writes:

> ###########>>>> LINE BELOW FAILS AS IS	
> 	    $P{$periodicity}{$synchronicity}{$ampa_gmax} = \
> 		Statistics::Descriptive::Full->new();
> ###########>>>> THIS LINE WOULD WORK

I suppose that this is what you call a 'line continuation character'?

Why do you think you need one? Just leave it off. You're allowed to
split stuff over multiple lines without any special characters.

Martien
-- 
Martien Verbruggen                  | 
Webmaster www.tradingpost.com.au    | Little girls, like butterflies, need no
Commercial Dynamics Pty. Ltd.       | excuse - Lazarus Long
NSW, Australia                      | 


------------------------------

Date: Wed, 06 May 1998 00:29:19 GMT
From: Randal Schwartz <merlyn@stonehenge.com>
To: "Joshua Lippiner" <jlippiner@iname.com>
Subject: Re: How to make a "Please wait" page during script processing?
Message-Id: <8clnsgi6o7.fsf@gadget.cscaper.com>

>>>>> "Joshua" == Joshua Lippiner <jlippiner@iname.com> writes:

Joshua> I just wrote some perl scripts which take a bit of time to
Joshua> process after they read in form data.  I would like my URL to
Joshua> either change to say "Please wait, Processing..." and then
Joshua> bring up the finished URL after processing or have some kind
Joshua> of JavaScript window pop up that says the same, maybe with
Joshua> some moving dots.  What is the best way to do this?  Thanks.

1) this is a CGI question, not a Perl question.

2) having said that, I have a WebTechniques Perl column on precisely
   that... column #20 at 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 118 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: 5 May 1998 23:37:42 GMT
From: mgjv@comdyn.com.au (Martien Verbruggen)
Subject: Re: Installation problems
Message-Id: <6io7s6$8ij$2@comdyn.comdyn.com.au>

In article <354EB0B8.23895EDE@analog.com>,
	Srinivas MV <Srinivas.MV@Analog.Com> writes:
> Hello,
> 
> Can someone tell me where I can find info on probalble
> workarounds/pointers to problems encountered during perl installation?

The file INSTALL has lots of tips. You can check the file in the hints
directory for your platform.

> I am stuck with one on solaris platform.  I have used the default
> options for
> all the questions. I am able to compile perl 5.004 but during
> "make test"  it fails at test  base/term.t  It exists with a
> segmentation fault

That is odd. I have built perl 5.004_04 on both Solaris 2.5.1 and
2.6... Which are you using? Did the whole configuration go right? What
is the C compiler you use? What platform did you tell configure to
use? Have you tried letting configure do its own work with sh Configue
-des?

> after the last (7th) test in this. If that test is removed there is no
> seg. fault
> (but obviously some other test fails).

Maybe not so obviously :)

It looks like you might have misconfigured perl... Try running
configure with -des, as mentioned in the INSTALL file, and let it make
its own guesses. If that doesn't fix it, we can have a better look at
it.

Martien
-- 
Martien Verbruggen                  | 
Webmaster www.tradingpost.com.au    | For heaven's sake, don't TRY to be
Commercial Dynamics Pty. Ltd.       | cynical. It's perfectly easy to be
NSW, Australia                      | cynical.


------------------------------

Date: Wed, 06 May 1998 00:47:47 GMT
From: ken@elsop.com (Ken Churilla)
Subject: Re: IS THIS POSSIBE IN PERL!
Message-Id: <354fb2b1.205330679@nntp1.ba.best.com>

On 5 May 1998 21:54:44 GMT, capned@itchy.serv.net (Keith Woodman) wrote:

>My company needs to have a program that will go out and check to see if the links we have on
>pages around the world are still active on those pages.
>We don't want to have to do it manualy for obvious time reasons. 
>If this is possilbe to write such a program please mail me at the following address

More than possible. It's been done. LinkScan is a perl program
that does it. Don't recommend you writing it yourself. LinScan
has thousands of hours of development invested in it.

Our studies show that most websites have significant
problems. These include up to 30% of the external links
being broken, missing files, orphaned pages, and faulty
mailto addresses. Yet most webmasters are blissfully
unaware that they even have these problems. Why? Because
they don't regularly check their sites for these problems.
In fact, in many cases, they have never, ever checked for
these problems. The reason is it's too time consuming and
difficult to do manually.

The solution is to use a link validator to test every link
on your website. LinkScan is the most thorough and fastest
quality assuarance tool available. It runs on any Unix or
NT server and with virtually any browser on any platform.
LinkScan has worked successfully on websites with over 250,000
pages and more than 50,000 external links. It checks external
links at a rate exceeding 40,000 links per hour. LinkScan is
essential to a professionally managed web site, and to those
that want to just look like they are professionally managed.
And you don't need to know Unix to run it. It sets up all
directories and permissions and builds your configuation file
automatically. Most users have it running in minutes.

You can check your entire website today by downloading a
free evaluation copy of LinkScan. The file is less than
240 KBs so it will only take a few minutes.

Don't get caught with your links down. Don't let your visitors
think your site sucks! Fix those broken links today. Download
your free evaluation copy now at:

http://www.elsop.com/linkscan/

Ken Churilla
President
Electronic Software Publishing Corporation


------------------------------

Date: Wed, 06 May 1998 09:42:55 +1100
From: Ron Savage <rpsavage@ozemail.com.au>
Subject: Re: Looking for Perl parser for 'C' language input files
Message-Id: <354F95EF.311D@ozemail.com.au>

James O. Payne, Jr. wrote:

[snip]

> Does anyone know of a 'C'-language parser for Perl?  Has anyone

Yes

[snip]
 
> James Payne
> jpayne@us.oracle.com
> Oracle Process Manufacturing

Perceps is at http://friga.mer.utexas.edu/mark/perl/perceps/.

-- 
Cheers,
Ron Savage
Office: savage.ron.rs@bhp.com.au
Home (preferred): rpsavage@ozemail.com.au
Web: http://www.ozemail.com.au/~rpsavage


------------------------------

Date: Wed, 06 May 1998 00:02:08 GMT
From: curtish@gte.net (Curtis Hoffmann)
Subject: Re: Open to suggestions
Message-Id: <6io9aj$sa0$1@gte2.gte.net>

On Tue, 05 May 1998 20:18:41 GMT, Tom Phoenix <rootbeer@teleport.com>
wrote:

>On Tue, 5 May 1998, Curtis Hoffmann wrote:
>
>> Subject: Open to suggestions
>
>Please check out this helpful information on choosing good subject
>lines. It will be a big help to you in making it more likely that your
>requests will be answered.

   Thanks for the suggestion.  I was debating whether to be more
specific, or not.  I chose "not".


>>    What I'm asking for is pointers to a Perl script that can take a
>> block of text data and store it to a particular subdirectory on the
>> server. 
>
>That's easy to do with Perl's file operations, of course. 

   Not from what I can tell.  There's TONS of information files,
sample programs, books, etc.  And most of this stuff is useless when
the platform is Win32Perl.  I'm spending more time wading through
stuff I can't use, than I am in doing my real job (writing
documentation for plasma etching equipment.)

>> The file names should be sequential, (i.e. - File0001.txt, File0002.txt,
>> File0003.txt, etc.) 
>
>That's easy to do, although there is a worry about concurrency. You may
>need to use flock. 

   Concurrency is not that important.  The identifier data is being
submitted within the forms data.  The sequential names are just to
prevent the script from overwriting an existing file before it's
parsed by the PC application.

>> And, if there are any security holes here, it'd be nice to know about
>> them. 
>
>There are always security holes! Maybe your system administrator just
>posted the root password to alt.2600. But such security holes are beyond
>the scope of a Perl newsgroup. Perl-related security issues are discussed
>in perlsec.

   Ok, thanks.


-----------------------------------
Curtis H. Hoffmann
<http://home1.gte.net/curtish/index>
curtish@gte.net.nospam

Home of anime and manga summaries.  
Currently selling my anime cels, manga, and stuff.
-----------------------------------


------------------------------

Date: Tue, 5 May 1998 19:00:44 -0500
From: "Woody Woodward" <woodward@hiddencove.net>
Subject: rjsemail.cgi and Apache
Message-Id: <6io9mr$hda@news.cybernews.net>

Anyone here experience a memory leak/grab problem with running this script
under apache 1.2.5? It seems each invokation eats memory and does not return
it to the free pool. Or is it Apache itself? No, fastcgi is not enabled.




------------------------------

Date: Wed, 06 May 1998 00:32:47 GMT
From: Randal Schwartz <merlyn@stonehenge.com>
To: "matthew d. p. k. lanier" <lanier@shell6.ba.best.com>
Subject: Re: SF.pm perl user's group!
Message-Id: <8chg34i6if.fsf@gadget.cscaper.com>

>>>>> "matthew" == matthew d p k lanier <lanier@shell6.ba.best.com> writes:

matthew> yesterday, the san francisco bay area perl user's group was
matthew> formed to help bring a sense of community to perl users in
matthew> the bay area.  this is a small group so far with only 3
matthew> members, and we're looking for more dedicated perl
matthew> programmers to join us.

It's not clear whether you expect the Perl users of Silicon Valley to
consider themselves part of your group or not, because you mention SF
by name, and the "bay area" is pretty big.  I know that every time *I*
go to Silly Valley, *I* end up partying every night with a bunch of
crazed Perl hackers.  So the informal groupings have already taken
shape.

So, are you 3 in the silicon valley area, or something that takes more
than an hour to drive from there (like The City)?

print "Just another Perl hacker," # but not what the media calls "hacker!" :-)
## legal fund: $20,990.69 collected, $186,159.85 spent; just 118 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: Tue, 05 May 1998 18:27:51 -0600
From: John Blanco <johnnie@holly.colostate.edu>
Subject: Telnet question
Message-Id: <354FAE86.C1E5398B@holly.colostate.edu>

    Sorry to post this here, but I know the intelligence of the net is
in this group. :-)  I made a "talk" server, which communicates with the
telnet program, using sockets.  The problem is when people type, they
SEE what they type on their side (AKA Local echo) And this messes up the
formatting.  ie:

    John:    Hi there!
What's up, John?
    Bill:        What's up John?

    It gets worse.
    So, since telnet is the interaction program, I can't do any magic
Perl on the client side.  So my question is how do I turn off local echo
on their side?  Telnet says it has a local echo toggle, but I can't get
it to do anything. (I should rephrase that, I CANT do anything from my
side, but I am trying to come up with INSTRUCTIONS for the user to turn
off their local echo...but I don't know how ;) )
    Any help or insight would be greatly appreciated!  Any Tori fans out
there? (You'll know what I mean!)

    - Johnnie B





------------------------------

Date: Tue, 05 May 1998 16:07:37 -0700
From: Chris Mihaly <cmihaly@fa.disney.com>
Subject: Tk400.202 and AIX
Message-Id: <354F9BB9.BE6691D3@fa.disney.com>

I cannot get Tk400.202 to build on AIX.  When running the  perl
Makefile.PL it just hangs. I have tracked it down to the following sym
link that is part of the distribution:
1 lrwxrwxr-x    1 cmihaly  prodctn       35 May  5 15:51 Tix ->
/home/road10/free-sw/tcl/Tix4.0/src

	This is in the distribution. It causes AIX to hang and to eventually
get NFS timeouts.  Of course, we have no /home/road10....  TK400.202 was
supposedly the last official non beta release of TK.  How do you fix
this link?  Strangely,IRIX didn't complain about this even though the
bad link is there also :-)

	Chris
-- 
Christopher Mihaly 		Email: cmihaly@fa.disney.com   
Walt Disney Feature Animation   Phone: (818) 526-3231 
500 S. Buena Vista St. 		Fax:   (818) 560-9388
Burbank, CA 91521-4806


------------------------------

Date: 05 May 1998 19:07:07 -0400
From: Justin Vallon <vallon@pearl.fi.bear.com>
Subject: Re: Using executable pathname to define include path
Message-Id: <x6elnsgmi5g.fsf@pearl.fi.bear.com>

Andy Glew <glew@cs.wisc.edu> writes:

> Still, I would be happy with the argv[0]/path kluge, except that I have
> not figured out how to get such code used at compile time, i.e. within

Modules:

use File::Basename;
use lib dirname($0)."/../lib/perl";

Or, for @INC:

use File::Basename;
BEGIN { push @INC, dirname($0)."/../lib/perl"; }

> Please respond by email; I don't read this group.

Flame, flame.

-- 
-Justin
vallon@bear.com


------------------------------

Date: Tue, 05 May 1998 19:46:12 -0500
From: Andy Glew <glew@cs.wisc.edu>
To: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: Using executable pathname to define include path
Message-Id: <354FB2D4.18CE87BE@cs.wisc.edu>

> In comp.lang.perl.misc,
>     Andy Glew <glew@cs.wisc.edu> writes:
> :> Can the following can be done in Perl:
> :> discovery of the pathname of the executable, for use in defining module paths?
>
> This *is* in the FAQ, you know.  Here's a Perl Cookbook
> entry on it.  See the bottom of this posting.

I was about to blush and apologize, but then I checked
http://www.perl.com/CPAN-local/doc/FAQs/FAQ/PerlFAQ.html
which is my usual route into the Perl FAQs.  Supposedly
this is one large HTML file of the FAQs, right, convenient for
searching.

Searching for FindBin finds nothing...
Searching for other likely things doesn't help.
And, yeah, I have read the entire FAQ, but I daresay I don't
remember it all.

I am sure that the information is in there somewhere, but I can't find it.

This reminds me more and more of LISP, or do I mean Adventure:
a maze of twisty little passages...

Joshing aside, *which* FAQ should I be reading?

---

While we are at it, is the cookbook online?





------------------------------

Date: Tue, 05 May 1998 18:17:13 -0600
From: Dan Baker <dtbaker_@flash.net>
Subject: Using perl Tk:: versus HTML forms for GUI front-end
Message-Id: <354FAC09.2902@flash.net>

I need to develop a light duty user interface for a perl-based
application, and am looking for comments on whether people would suggest
using Tk:: or HTML forms and cgi....

The application is not huge, and basic line input, select boxes, etc are
all I need. The interface is fairly procedural, and not too complex.
Initially it will run standalone on windows95 machines, but may used in
an intranet in a LAN, or eventually become a "real" web application.

I'd be interested hearing what people have to say about the complexity
of coding the TK interface versus building HTML-based forms for the GUI.
My first guess is that the interface is easy to build with HTML, but I
have to install local webservers to handle the cgi requests (even if
everything is local on a standalone machine) which looks like it might
get a bit "involved."

comments?

thanx,

Dan


------------------------------

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 2510
**************************************

home help back first fref pref prev next nref lref last post