[17230] in Perl-Users-Digest

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

Perl-Users Digest, Issue: 4652 Volume: 9

daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Oct 18 14:05:41 2000

Date: Wed, 18 Oct 2000 11:05:20 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Message-Id: <971892319-v9-i4652@ruby.oce.orst.edu>
Content-Type: text

Perl-Users Digest           Wed, 18 Oct 2000     Volume: 9 Number: 4652

Today's topics:
        [very off topic] Re: Perl: Day One, a Stupid Question <jeff@vpservices.com>
    Re: about newsgroup <dsimonis@fiderus.com>
        capture CTRL-C, CTRL-Z <cpegbeggar@mail.com>
    Re: capture CTRL-C, CTRL-Z <tony_curtis32@yahoo.com>
    Re: capture CTRL-C, CTRL-Z <ddunham@redwood.taos.com>
    Re: CGI-script to act as a proxy <russ_jones@rac.ray.com>
    Re: converting a binary file to ascii <pauls_spam_no@pauls.seanet.com>
        Counter doesn't work <hansvog@hetnet.nl>
    Re: Counter doesn't work <deward@purdue.edu>
    Re: Counter doesn't work <anders@wall.alweb.dk>
    Re: Counter doesn't work <gene@allsysinc.com>
        DBD avail for mysql 1.21 ? (Sherry Nelson)
    Re: DBD avail for mysql 1.21 ? (NP)
        Different error messages from IO::Socket; where do they <hpstr@operamail.com>
        executing UNIX-commands on remote systems (mailq) <kasi@lycos.com>
        Hash || Flat Text File <mmaclane@usa.net>
    Re: Hash || Flat Text File <jeff@vpservices.com>
        Help with POP3Client.pm <amanoj@cs.wisc.edu>
    Re: Help with POP3Client.pm <james@NOSPAM.demon.co.uk>
        how to write a html to execute window command <ponthy@yahoo.com>
    Re: how to write a html to execute window command <anders@wall.alweb.dk>
    Re: how to write a html to execute window command nobull@mail.com
    Re: HTML to PERL to uniVerse and Back <hartleh1@westat.com>
    Re: IO::File or FileHandle - which? <ren.maddox@tivoli.com>
    Re: Is perl object oriented? (Jerome O'Neil)
    Re: Messageboard & Chat room <craig@nmr.utmb.edu>
        Perl chat server (Bobby811)
    Re: Perl chat server <godzilla@stomp.stomp.tokyo>
        Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)

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

Date: Wed, 18 Oct 2000 10:46:23 -0700
From: Jeff Zucker <jeff@vpservices.com>
Subject: [very off topic] Re: Perl: Day One, a Stupid Question
Message-Id: <39EDE1EF.34D89818@vpservices.com>

frannyzoo@hotmail.com wrote:
> 
> ..but holden was taken, etc.  I'm guessing F&Z appeals to you from the
> "college bowl" encyclopedic knowledge angle.  

Umm, no, it appeals to me because it is a great book and a formative
part of my early adolescence. I actually read _The Way of the Pilgrim_
after F&Z and then the _Philokalia_, etc. because of the emotional
impact F&Z had on me.  What did you think, all Perl hackers are geeks? 
Perl is the language of poets and mystics!

> What did you think of
> "Magnolia"?

Absolutely loved it, except for the frogs and the silly intro.

-- 
Jeff


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

Date: Tue, 17 Oct 2000 16:11:20 -0400
From: Drew Simonis <dsimonis@fiderus.com>
Subject: Re: about newsgroup
Message-Id: <39ECB268.E3F58A0F@fiderus.com>

john wrote:
> 
> The list of NEWS groups may be found here;
> ftp://ftp.isc.org/pub/usenet/CONFIG/newsgroups
> 
> This also might be helpful;
> ftp://ftp.isc.org/pub/usenet/control/alt/alt.binaries.emanuals.Z

Not all news servers carry all newsgroups.  Using a listing of
all known groups isn't particularly beneficial in the real world.


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

Date: Thu, 19 Oct 2000 00:17:11 +0800
From: Beggar <cpegbeggar@mail.com>
Subject: capture CTRL-C, CTRL-Z
Message-Id: <39EDCD07.3A0E2C07@mail.com>

Hi all,

I am writing a perl to act as a shell and want to
capture some CTRL keys, how can I do to avoid
user get break out of my program??

please reply to: cpegbeggar@mail.com

Dicky



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

Date: 18 Oct 2000 11:23:51 -0500
From: Tony Curtis <tony_curtis32@yahoo.com>
Subject: Re: capture CTRL-C, CTRL-Z
Message-Id: <87lmvm2k4o.fsf@limey.hpcc.uh.edu>

>> On Thu, 19 Oct 2000 00:17:11 +0800,
>> Beggar <cpegbeggar@mail.com> said:

> Hi all, I am writing a perl to act as a shell and want
> to capture some CTRL keys, how can I do to avoid user
> get break out of my program??

perldoc perlvar   => %SIG

-- 
Eih bennek, eih blavek.


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

Date: Wed, 18 Oct 2000 17:44:24 GMT
From: Darren Dunham <ddunham@redwood.taos.com>
Subject: Re: capture CTRL-C, CTRL-Z
Message-Id: <YjlH5.51$123.23658@news.pacbell.net>

Tony Curtis <tony_curtis32@yahoo.com> wrote:
>>> On Thu, 19 Oct 2000 00:17:11 +0800,
>>> Beggar <cpegbeggar@mail.com> said:

>> Hi all, I am writing a perl to act as a shell and want
>> to capture some CTRL keys, how can I do to avoid user
>> get break out of my program??

Well, actually trapping control characters is a FAQ.
perldoc -q control

> perldoc perlvar  => %SIG

However, that's not always sufficient.  CTRL-Z often is read by the
terminal which will then generate a SIGSTOP.  Try trapping that one.
You can't.

If you don't want to be stopped by a CTRL-Z, you're going to have to
tell the terminal not to send it.  Probably some sort of stty command
after the program starts would be required.

-- 
Darren Dunham                                           ddunham@taos.com
Unix System Administrator                    Taos - The SysAdmin Company
Got some Dr Pepper?                           San Francisco, CA bay area
      < Please move on, ...nothing to see here,  please disperse >


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

Date: Wed, 18 Oct 2000 12:18:05 -0500
From: Russ Jones <russ_jones@rac.ray.com>
Subject: Re: CGI-script to act as a proxy
Message-Id: <39EDDB4D.17C3676F@rac.ray.com>

Mark Kuin wrote:
> 

> 
> <julesgr@my-deja.com> wrote in message news:8sjtda$foc$1@nnrp1.deja.com...
> > Dear All,
> >
> > At my girlfriend's work, they are using a proxy which prevents her from
> > accessing certain websites, including mail.yahoo.com.  
>
> A cleverer way is asking your girlfriend to switch jobs.

Or perhaps suggesting that your girlfriend do her work at work and
read her personal email at home, since that appears to be what her
company intends. 
-- 
Russ Jones - HP OpenView IT/Operatons support
Raytheon Aircraft Company, Wichita KS
russ_jones@rac.ray.com 316-676-0747

Quae narravi, nullo modo negabo. - Catullus


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

Date: Wed, 18 Oct 2000 10:11:36 -0700
From: Paul Spitalny <pauls_spam_no@pauls.seanet.com>
Subject: Re: converting a binary file to ascii
Message-Id: <39EDD9C8.8373E95A@pauls.seanet.com>

Hi Larry, et al,
This sample output I showed in one of last emails did not include the rest
of the output. Basically, all the numbers pastr a certain point are
incorrect and think it has something to do with what happenswhen  the end
of a line in the binary file is encountered. This sounds similar to what
Larry is suggesting.

Paul

Larry Rosler wrote:

> In article <39ECE20B.437EB4BC@pauls.seanet.com>,
> pauls_spam_no@pauls.seanet.com says...
>
> ...
>
> > See how the last number on the right column is screwed-up, but
> > everything before that looks fine?? What gives?? Here's how I did it,
> > perhaps you folks can find the error in my ways (I know, I know, i
> > didn't check if the file exists before opening it)
> >
> > open(NEW,'<bin_only.dat');
> > open(OUT,'>thebin.dat');
> > binmode NEW;
> > $index = 0;
> > while (read(NEW,$in,8))
> >  {
> >  $index++;
> >  $foo = unpack("d",$in);
> >  print OUT "$foo\n";
> >  }
> > close(NEW);
> > close(OUT);
>
> The only thing that comes to mind is that you read fewer than 8 bytes
> the last time through the loop.
>
> Check the size of the input file for divisibility by 8, and check the
> number of bytes read to be 8 instead of the simple Boolean test in your
> code.
>
> --
> (Just Another Larry) Rosler
> Hewlett-Packard Laboratories
> http://www.hpl.hp.com/personal/Larry_Rosler/
> lr@hpl.hp.com

--
To respond to this posting, remove -nospam- from my email address.
Sorry for the inconvenience




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

Date: Wed, 18 Oct 2000 17:41:23 +0200
From: Hans Vogel <hansvog@hetnet.nl>
Subject: Counter doesn't work
Message-Id: <39EDC4A3.24EB7438@hetnet.nl>

Hello There!
The following CGI code in Perl Does print "1" in gif but doesn't seem to
read and
write the count.dat file. I did a CHMOD 777 on the dat file but it still
doesn't work.
Can anyone tell me what could be wrong?
Thanx and greetings from Holland,
Hans.

$count = '/counter/count.dat';
$base_url = '/counter/';

    open (COUNT, "$count");
    $counter = <COUNT>;
    close (COUNT);
    open (COUNT, ">$count");
    $counter += 1;
    print COUNT "$counter";
# code for image here
    close (COUNT);





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

Date: Wed, 18 Oct 2000 11:09:06 -0500
From: "Andrew Watts" <deward@purdue.edu>
Subject: Re: Counter doesn't work
Message-Id: <8skhut$s81$1@mozo.cc.purdue.edu>


"Hans Vogel" <hansvog@hetnet.nl> wrote in message
news:39EDC4A3.24EB7438@hetnet.nl...
> Hello There!
> The following CGI code in Perl Does print "1" in gif but doesn't seem to
> read and
> write the count.dat file. I did a CHMOD 777 on the dat file but it still
> doesn't work.
> Can anyone tell me what could be wrong?
> Thanx and greetings from Holland,
> Hans.
>
> $count = '/counter/count.dat';
> $base_url = '/counter/';
>
>     open (COUNT, "$count");

Try open(COUNT, "<".$count);


>     $counter = <COUNT>;
>     close (COUNT);
>     open (COUNT, ">$count");

Try open(COUNT, ">".$count);

>     $counter += 1;
>     print COUNT "$counter";
> # code for image here
>     close (COUNT);
>
>
>




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

Date: Wed, 18 Oct 2000 18:20:05 +0200
From: Anders Lund <anders@wall.alweb.dk>
Subject: Re: Counter doesn't work
Message-Id: <F5kH5.7293$Tq1.231878@news010.worldonline.dk>

Hans Vogel wrote:

> Hello There!
> The following CGI code in Perl Does print "1" in gif but doesn't seem to
> read and
> write the count.dat file. I did a CHMOD 777 on the dat file but it still
> doesn't work.
> Can anyone tell me what could be wrong?
> Thanx and greetings from Holland,
> Hans.
> 
> $count = '/counter/count.dat';
> $base_url = '/counter/';
> 
>     open (COUNT, "$count");

NEVER EVER use open() without die()

it is

open HANDLE FILE *or die "some message: $!\n"*;

ALLWAYS!!!

if you don't test your open, and btw also close calls, you may end up in 
bad trouble.

It will also help you debug your applications, especially if you also use 
warnings and strict, which thinking people consider mandatory for CGI 
applications.

-anders
-- 
[ the word wall - and the trailing dot - in my email address
is my _fire_wall - protecting me from the criminals abusing usenet]


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

Date: Wed, 18 Oct 2000 16:34:37 GMT
From: "Gene" <gene@allsysinc.com>
Subject: Re: Counter doesn't work
Message-Id: <xikH5.3443$NP.204220@news.flash.net>

"Hans Vogel" <hansvog@hetnet.nl> wrote in message
news:39EDC4A3.24EB7438@hetnet.nl...
> Hello There!
> The following CGI code in Perl Does print "1" in gif but doesn't seem to
> read and
> write the count.dat file. I did a CHMOD 777 on the dat file but it still
> doesn't work.
> Can anyone tell me what could be wrong?
> Thanx and greetings from Holland,
> Hans.
>
> $count = '/counter/count.dat';
> $base_url = '/counter/';
>
>     open (COUNT, "$count");
>     $counter = <COUNT>;
>     close (COUNT);
>     open (COUNT, ">$count");
>     $counter += 1;
>     print COUNT "$counter";
> # code for image here
>     close (COUNT);

You should definitely use die or something like that suggested by the other
replies. If you add that, you will probably find out that your 'open'
commands are not working. I seriously doubt the location of the 'count.dat'
file is in '/counter/count.dat'. Remember, it is supposed to be the full
path on the /server's/ filesystem, not the relative url. It is probably
something more like '/usr/home/username/htdocs/counter'. The best way to
find out what this is, is through telnet. If you can, go to the directory
with your counter files, and issue the command 'pwd'. That path is probably
what your '$count$' needs to have in it.
Good Luck

-gene




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

Date: Wed, 18 Oct 2000 15:59:06 GMT
From: moonloon@op.net (Sherry Nelson)
Subject: DBD avail for mysql 1.21 ?
Message-Id: <39edc8c9.5443$1c1@news.op.net>

I can't seem to find a version of DBD that is compatible with mysql
version 3.21 (on solaris). Can someone point me to a download
site that has this?

thanks alot!
Sherry




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

Date: Wed, 18 Oct 2000 16:07:34 GMT
From: nvp@spamnothanks.speakeasy.org (NP)
Subject: Re: DBD avail for mysql 1.21 ?
Message-Id: <aVjH5.61976$bI6.2215044@news1.giganews.com>

moonloon@op.net wrote:
: I can't seem to find a version of DBD that is compatible with mysql
: version 3.21 (on solaris). Can someone point me to a download
: site that has this?

CPAN definitely has one, as I'm using it now.

See:
http://www.cpan.org

Or:
bash-2.03# perl -MCPAN -e shell
cpan shell -- CPAN exploration and modules installation (v1.56)
ReadLine support enabled

cpan> i /DBD::mysql/
CPAN: LWP::UserAgent loaded ok
Fetching with LWP:
  ftp://ftp.funet.fi/pub/languages/perl/CPAN/authors/01mailrc.txt.gz
  Going to read /.cpan/sources/authors/01mailrc.txt.gz
  CPAN: Compress::Zlib loaded ok
  Fetching with LWP:
  ftp://ftp.funet.fi/pub/languages/perl/CPAN/modules/02packages.details.txt.gz
  Going to read /.cpan/sources/modules/02packages.details.txt.gz

  Fetching with LWP:
  ftp://ftp.funet.fi/pub/languages/perl/CPAN/modules/03modlist.data.gz
  Going to read /.cpan/sources/modules/03modlist.data.gz
  Bundle          Bundle::DBD::mysql
  (J/JW/JWIED/Msql-Mysql-modules-1.2215.tar.gz)
  Module          Bundle::DBD::mysql (N/A)
  Module          DBD::mysql
  (J/JW/JWIED/Msql-Mysql-modules-1.2215.tar.gz)
  Module          DBD::mysql::Install
  (J/JW/JWIED/Msql-Mysql-modules-1.2215.tar.gz)
  Module          DBIx::DBSchema::DBD::mysql
  (I/IV/IVAN/DBIx-DBSchema-0.13.tar.gz)

  cpan>

"It's in there!"

-- 
Nate II


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

Date: Wed, 18 Oct 2000 16:35:59 GMT
From: "H.P. Stroebel" <hpstr@operamail.com>
Subject: Different error messages from IO::Socket; where do they come from ?
Message-Id: <39EDD195.1DEAB177@operamail.com>

Hi,

i`m learning perl and wrote a tcp client using IO::Socket, which works
fine.

To test it`s behaviour when something goes wrong (i want to set a
language in the program`s config file and output the error messages in
this language; not implemented yet), i closed the port on the server
that the client wants to connect to.
Now, on different machines, I`m getting different error messages. All
machines are running Linux Mandrake 6.1 with kernel 2.2.13 :

Machine 1 : Perl 5.005_03 (Mandrake 6.1 binary)
Error : IO::Socket::INET: Connection refused (that`s what i expected)

Machine 2 : Perl 5.005_03 (Mandrake 6.1 binary)
Error : IO::Socket::INET: Verbindung abgelehnt (that`s NOT what i
expected; it`s like error message 1, but in german)

Machine 3 : Perl 5.6 (compiled from source)
Error : IO::Socket::INET: Timeout (huh ?? the port is closed and the
message comes immediately even if the timeout is set to 60 seconds !!)

Error message 2 seems to be an internationalization problem; so i
searched the whole perl installation for according messages and did not
find even the english ones, so I assume that these error messages don`t
actually come from Perl itself ?

Error message 3 seems strange, as there definitely was NO timeout. I did
not pass a timeout parameter to the socket, but enclosed it in an eval
and set an alarm, as i want to know if the connection failed or a
timeout has happened (->Perl Cookbook).

As I would like to keep the program portable and as os independent as
possible :

Q : how can I control this error messages ? Where are they actually
coming from ?

Could it be done by creating the socket manually using "socket" instead
of "IO::Socket" ? (I would prefer using IO::Socket, though... :-)


Any hints would be appreciated.

Greetings from Germany

H.P. Stroebel (just another Perl Newbie ;-)
hpstr@operamail.com


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

Date: Wed, 18 Oct 2000 20:04:38 +0200
From: Karsten Perlich <kasi@lycos.com>
Subject: executing UNIX-commands on remote systems (mailq)
Message-Id: <39EDE636.B686F1A8@lycos.com>

Hi folks,

I want to monitor the mail-queue of a remote system. to see how long the
mailq is, something like the response of "mailq | head -1 | cut -f2
-d'(' | cut -f1 -d' '" should be executed on the romote-system and the
result end in a variable of my local perl-script.

Thanks for any (quick) help

Karsten



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

Date: Wed, 18 Oct 2000 17:24:55 GMT
From: "M. Maclane" <mmaclane@usa.net>
Subject: Hash || Flat Text File
Message-Id: <H1lH5.349576$Gh.10406465@news20.bellglobal.com>

Hello,


Am I better off using a hash inside my script or a flat text file for a
small address book script?  It would simply contain name/number information
and only about a dozen at that.  I would have to be able to
add/delete/modify the info though.  Any thoughts welcome.












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

Date: Wed, 18 Oct 2000 10:53:16 -0700
From: Jeff Zucker <jeff@vpservices.com>
Subject: Re: Hash || Flat Text File
Message-Id: <39EDE38C.D57FAABD@vpservices.com>

"M. Maclane" wrote:
> 
> Am I better off using a hash inside my script or a flat text file for a
> small address book script?  It would simply contain name/number information
> and only about a dozen at that.  I would have to be able to
> add/delete/modify the info though.  Any thoughts welcome.

For something that small, either would be fine.  It sort of depends
where you intend to go with it in the future.  If you intend to use it
or other scripts in a more database-like fashion, then you may want to
use a flat file with one of the DBI (Perl DataBase Interface) modules
that support flat files (DBD::CSV, DBD::RAM, DBD::Sprite) since they
will all use methods easily scaled up to more robust databases.

-- 
Jeff


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

Date: Wed, 18 Oct 2000 10:33:45 -0500
From: Manoj Ananthapadmanabhan <amanoj@cs.wisc.edu>
Subject: Help with POP3Client.pm
Message-Id: <39EDC2D9.2DA78FFA@cs.wisc.edu>

Hi
 I used POP3Client.pm to read emails from my POP server. It worked
perfectly.
But once i connect to the server and download my emails, i display the
subject headings only as links in HTML page. When i click on the
subject, i want to read the mail. But i dont want to establish a
connection again and download the email. Instead i had initially saved
all the emails in a file. I now want the POP3Client.pm to look at the
local file so that i can use the functions Head(), Body(), etc. already
written in POP3Client.pm. I dont want to open the email file that i
downloaded and write my own program to parse it(if there is an easier
and well-tested way out!)

Hope my problem statement is clear!!

  Can anyone give me any ideas on how to do this? 

Thanks
Manoj


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

Date: Wed, 18 Oct 2000 16:53:24 +0100
From: James Taylor <james@NOSPAM.demon.co.uk>
Subject: Re: Help with POP3Client.pm
Message-Id: <ant181524868fNdQ@oakseed.demon.co.uk>

In article <39EDC2D9.2DA78FFA@cs.wisc.edu>, Manoj Ananthapadmanabhan
<URL:mailto:amanoj@cs.wisc.edu> wrote:
> I now want the POP3Client.pm to look at the
> local file so that i can use the functions Head(), Body(), etc. already
> written in POP3Client.pm.

It's hardly the job of POP3Client to do another task for you. Perhaps
you should look at one of the mail parsing modules such as the MIME tools.

You could always create you own class to present a consistent interface
to your application code, and under the hood it could use POP3Client
to fetch and cache the mail and then the MIME tools to interpret and
display the cached files.

-- 
James Taylor <james (at) oakseed demon co uk>
PGP key available ID: 3FBE1BF9
Fingerprint: F19D803624ED6FE8 370045159F66FD02



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

Date: Wed, 18 Oct 2000 15:43:52 GMT
From: Eddy Tan <ponthy@yahoo.com>
Subject: how to write a html to execute window command
Message-Id: <8skgfm$vgg$1@nnrp1.deja.com>

Help!

It's my day 1.5 on Perl.  I have a perl code to execute some win32 exe
such as "dir server-directory"  How do I include the Perl code in my
html doc to do the same thing?  TIA.


Sent via Deja.com http://www.deja.com/
Before you buy.


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

Date: Wed, 18 Oct 2000 18:25:04 +0200
From: Anders Lund <anders@wall.alweb.dk>
Subject: Re: how to write a html to execute window command
Message-Id: <kakH5.7305$Tq1.232184@news010.worldonline.dk>

Eddy Tan wrote:

> Help!
> 
> It's my day 1.5 on Perl.  I have a perl code to execute some win32 exe
> such as "dir server-directory"  How do I include the Perl code in my
> html doc to do the same thing?  TIA.


wouldn't you just love to visit a html page somewhere on the web with a 
link on it saying "click here" and discover that it would delete your 
system??

To put content in a html page, you can do different things:

1. set up a http server, and write a CGI script, which uses print() to 
print html code. using CGI, stdout is directed to the requestin browser.

perldoc CGI

2. use open() to create a file, print some HTML to it, and close() the file 
again. You may then open the file from your webbrowser.

perldoc -f open

-anders

-- 
[ the word wall - and the trailing dot - in my email address
is my _fire_wall - protecting me from the criminals abusing usenet]


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

Date: 18 Oct 2000 18:09:57 +0100
From: nobull@mail.com
Subject: Re: how to write a html to execute window command
Message-Id: <u966mqxehm.fsf@wcl-l.bham.ac.uk>

Eddy Tan <ponthy@yahoo.com> writes:

> Subject: how to write a html to execute window command

HTML is a markup language.  You don't really want mark-up languages
running programs on the client computer.  If you really want to have
HTML running programs then you need to be looking into applets or
activeX controls, plugins and things like this.  I'm not going to go
into further detail on this because:

 1) I don't really understand it myself. 

 2) I don't think it is what you meant to ask.

 3) This has nothing to do with Perl, except that ActiveState Perl can
    run as an activeX control.

> It's my day 1.5 on Perl.  I have a perl code to execute some win32 exe
> such as "dir server-directory"  How do I include the Perl code in my
> html doc to do the same thing?

I'm guessing that you probably want to look up "server side includes"
in the documentation for your web server software.  This has nothing
to do with Perl.

You probably won't be able to understand what is written about SSI
until you've understood how to do CGI.  Again, this has nothing to do
with Perl except that if Perl is the language you could choose
to write CGI scripts then you have to understand how do do GCI in
Perl.

You may decide that simple CGI fits your needs better than SSI.

Alternatively, if you want to produce HTML interminged with Perl, you
could go for something like embperl rather than using SSI.

-- 
     \\   ( )
  .  _\\__[oo
 .__/  \\ /\@
 .  l___\\
  # ll  l\\
 ###LL  LL\\


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

Date: Wed, 18 Oct 2000 13:29:46 -0400
From: hartley_h <hartleh1@westat.com>
Subject: Re: HTML to PERL to uniVerse and Back
Message-Id: <39EDDE0A.9EBC56B0@westat.com>

Matt Carey wrote:
> 
> I recently began developing intranet web applications for my employer.
> I am developing an intranet web application  that will potentially be
> used by multiple users at the same time.  The application consists of
> an HTML form, a PERL script,  and a UNIVERSE BASIC program and follows
> these four basic steps:
> 
> <snipped procedure>
> 
> I am concerned that if a number of people are running the application at
> the same time that  some sort of interference may occur.  The perl
> script writes data to the same location for each user and the BASIC
> program sends the web page it creates to the same location for each
> user. I could change this.  What other options might be available for
> me  to  ?isolate?  each user from the others so that there is no chance
> for any type of interference?

This is not really a Perl question since the answer would be basically
the same if you were writing your script in any other language.  If you
decide to write this in Perl and then have a problem or question with
the language that is not answered adequately in the documentation, this
is the place to ask.

Yes, it's more than a little likely that you will have problems with
this approach.  Why not simply rewrite your BASIC program in Perl. 
Also, the Perl script can produce the initial HTML form so everything is
in one place.

If you need to keep the BASIC program for some reason (like you don't
have time to rewrite it), then at least have the Perl script pass the
values directly to the BASIC program, have the BASIC program feed its
output back to Perl and have Perl deliver that output back to the
browser.  Is there some reason you need to write it to a file to pass it
to the BASIC program?

For more details on creating a Perl (or any language) CGI script, see
comp.infosystems.www.authoring.cgi.  Also, install CGI.pm and read the
fine documentation at
<http://stein.cshl.org/WWW/software/CGI/cgi_docs.html>.

Hope that helps.

-- 
Henry Hartley


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

Date: 18 Oct 2000 10:52:03 -0500
From: Ren Maddox <ren.maddox@tivoli.com>
Subject: Re: IO::File or FileHandle - which?
Message-Id: <m34s2am9jw.fsf@dhcp11-177.support.tivoli.com>

Uri Guttman <uri@sysarch.com> writes:

> >>>>> "RM" == Ren Maddox <ren.maddox@tivoli.com> writes:
> 
>   RM> I believe that FileHandle.pm has since been rewritten to be derived
>   RM> from IO::File.  See the Note at the beginning of the description:
> 
>   RM>    NOTE: This class is now a front-end to the IO::* classes.
> 
>   RM> I believe you can infer from the word "now" that this was changed at
>   RM> some point.  I deduce that it is a former version from with Graham
>   RM> derived IO::File.
> 
>   RM> As to which you should use... I'm not certain.  My take would be that
>   RM> FileHandle is trying to be the interface to IO::File.
> 
> it is much simpler than that. FileHandle was the original
> module. IO::Handle was a major rewrite so it was derived from
> FileHandle. then FileHandle was rewritten to be just a wrapper around
> IO::Handle.
> 
> so FileHandle now loads IO::Handle and not vice versa. and the code is
> IO::Handle is a rewrite (derived) from the original FileHandle.
> 
> is that clear?

I think so, but I'm not sure how it is different from what I said...?

-- 
Ren Maddox
ren@tivoli.com


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

Date: Wed, 18 Oct 2000 17:26:42 GMT
From: jerome@activeindexing.com (Jerome O'Neil)
Subject: Re: Is perl object oriented?
Message-Id: <m3lH5.46$wM1.47061@news.uswest.net>

merlyn@stonehenge.com (Randal L. Schwartz) elucidates:

>>> Yep.  And I cant figure out why I can't call methods
>>> on int, float, char or any other primitive.
>>> 
>>> Now why is that?
> 
> Gwyn> I'm not sure I understand you. In Perl I can't call methods on a
> Gwyn> variable that has not been bless()'ed into some class either.

> Going back to the original message which triggered the off-the-wall
> response, I said that Perl and Java were both hybrid-OO (some
> user-visible things are objects, others aren't), while Smalltalk was
> pure-OO (all user-visible things are objects, permitting method calls,
> subclassing, and extending).

That, in a nutshell, is it.

-- 
"Civilization rests on two things: the discovery that fermentation 
produces alcohol, and the voluntary ability to inhibit defecation.  
And I put it to you, where would this splendid civilization be without 
both?" --Robertson Davies "The Rebel Angels" 


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

Date: Wed, 18 Oct 2000 12:00:20 -0500
From: Craig Bush <craig@nmr.utmb.edu>
Subject: Re: Messageboard & Chat room
Message-Id: <39EDD724.B5D53DEA@nmr.utmb.edu>


--------------8C9313A38CB2D65C5A0EF899
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit

Uhhh...

Go to www.fatbrain.com /computer/programming/perl and buy Learning Perl
from O'Reilly publishing so you have an idea what you're doing.  Then go
to the internet and download some scripts and play around with them.
Build from there.  Easy.  You're not going to pick up perl
overnight...well that is to say write anything useful for a web site for
a while.

Got Java?

later,

craig


--
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
  Craig R. Bush
  BioInformatics Software Engineer
  Sealy Center for Structural Biology
  Dept. of Human Biological Chemistry & Genetics
  University of Texas Medical Branch
  Galveston, TX  77555-1157 (409)747-6809; Fax -6850
  http://www.bioinfo.utmb.edu http://www.hbcg.utmb.edu
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=



--------------8C9313A38CB2D65C5A0EF899
Content-Type: text/html; charset=us-ascii
Content-Transfer-Encoding: 7bit

<!doctype html public "-//w3c//dtd html 4.0 transitional//en">
<html>
Uhhh...
<p>Go to www.fatbrain.com /computer/programming/perl and buy Learning Perl
from O'Reilly publishing so you have an idea what you're doing.&nbsp; Then
go to the internet and download some scripts and play around with them.&nbsp;
Build from there.&nbsp; Easy.&nbsp; You're not going to pick up perl overnight...well
that is to say write anything useful for a web site for a while.
<p>Got Java?
<p>later,
<p>craig
<br>&nbsp;
<pre>--&nbsp;
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
&nbsp; Craig R. Bush
&nbsp; BioInformatics Software Engineer
&nbsp; Sealy Center for Structural Biology
&nbsp; Dept. of Human Biological Chemistry &amp; Genetics
&nbsp; University of Texas Medical Branch
&nbsp; Galveston, TX&nbsp; 77555-1157 (409)747-6809; Fax -6850
&nbsp; <A HREF="http://www.bioinfo.utmb.edu">http://www.bioinfo.utmb.edu</A> <A HREF="http://www.hbcg.utmb.edu">http://www.hbcg.utmb.edu</A>
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=</pre>
&nbsp;</html>

--------------8C9313A38CB2D65C5A0EF899--



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

Date: Wed, 18 Oct 2000 12:38:54 -0400 (EDT)
From: bobby811@webtv.net (Bobby811)
Subject: Perl chat server
Message-Id: <13159-39EDD21E-17@storefull-126.bryant.webtv.net>


--WebTV-Mail-23228-1443
Content-Type: Text/Plain; Charset=US-ASCII
Content-Transfer-Encoding: 7Bit

anyone got info or how to setup a perl chat server on a sundomain any
help would be appreciated please post some scripts


--WebTV-Mail-23228-1443
Content-Description: signature
Content-Disposition: Inline
Content-Type: Text/HTML; Charset=US-ASCII
Content-Transfer-Encoding: 7Bit

<html>
<embed src="http://bobscripts.virtualave.net/sig.html">
<bgsound
src="http://bobscripts.virtualave.net/nelly1.ram" safehtml
autostart="true" loop="infinite">
</html>


--WebTV-Mail-23228-1443--


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

Date: Wed, 18 Oct 2000 10:36:40 -0700
From: "Godzilla!" <godzilla@stomp.stomp.tokyo>
Subject: Re: Perl chat server
Message-Id: <39EDDFA8.A54A474F@stomp.stomp.tokyo>

bobby811 wrote:

> anyone got info or how to setup a perl chat server 
> on a sundomain any help would be appreciated please
> post some scripts


Should you elect to send an embedded executable file 
through a newsgroup article again, next time you 
specifically open one of my articles, you might just
find your system harshly and instantly disabled.


Godzilla!
-- 
Dr. Kiralynne Schilitubi ¦ Cooling Fan Specialist
UofD: University of Duh! ¦ ENIAC Hard Wiring Pro
BumScrew, South of Egypt ¦ HTML Programming Class


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

Date: 16 Sep 99 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin) 
Subject: Digest Administrivia (Last modified: 16 Sep 99)
Message-Id: <null>


Administrivia:

The Perl-Users Digest is a retransmission of the USENET newsgroup
comp.lang.perl.misc.  For subscription or unsubscription requests, send
the single line:

	subscribe perl-users
or:
	unsubscribe perl-users

to almanac@ruby.oce.orst.edu.  

| NOTE: The mail to news gateway, and thus the ability to submit articles
| through this service to the newsgroup, has been removed. I do not have
| time to individually vet each article to make sure that someone isn't
| abusing the service, and I no longer have any desire to waste my time
| dealing with the campus admins when some fool complains to them about an
| article that has come through the gateway instead of complaining
| to the source.

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.

For other requests pertaining to the digest, send mail to
perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
sending perl questions to the -request address, I don't have time to
answer them even if I did know the answer.


------------------------------
End of Perl-Users Digest V9 Issue 4652
**************************************


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