[15806] in Perl-Users-Digest
Perl-Users Digest, Issue: 3219 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed May 31 11:05:44 2000
Date: Wed, 31 May 2000 08:05:11 -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: <959785510-v9-i3219@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Wed, 31 May 2000 Volume: 9 Number: 3219
Today's topics:
Activestate down? <glauber.ribeiroNOglSPAM@experian.com.invalid>
Re: Activestate down? <phalanxii@excite.com>
Automated forms <gary.jackson5@btinternet.com>
Re: conditional ? not working as expected <mikecard@my-deja.com>
Re: Data Hiding in OO Perl <michael.schlueter@philips.com>
debug perl script called by webserver eastking@my-deja.com
error compiling Perl with HP-UX 11 (G. L. Sicherman)
Help on flat database.... <marcokast@yahoo.com>
Re: Help reading data from file <bmb@ginger.libs.uga.edu>
Re: How to convert LaTeX tables to html <elaine@chaos.wustl.edu>
Interactive File Selector tmontague5003@my-deja.com
Re: Is anything planned re: Perl error reporting? ajmayo@my-deja.com
Misc Questions <tonys111@erols.com>
Modifying perl variables passed as arguments to OLE aut (Philip Lees)
Networking: STDOUT => network => STDIN <wasquith@usgs.gov>
Re: perl and nanosleep()? <jboesNOjbSPAM@qtm.net.invalid>
Re: perl and nanosleep()? <flavell@mail.cern.ch>
Re: Perl unusable as a programming language (Simon Cozens)
Re: perl-5.6.0 and UTF8 character weirdness <aaccomazzi@my-deja.com>
Re: perl-5.6.0 and UTF8 character weirdness (Ilya Zakharevich)
problem with perl garbage collecting poppln@my-deja.com
REQ:Tripod.com perl module include help <derek@ccil.org>
Re: REQ:Tripod.com perl module include help <red_orc@my-deja.com>
Re: REQ:Tripod.com perl module include help <derek@ccil.org>
Re: REQ:Tripod.com perl module include help <derek@ccil.org>
Re: simple regexp question <bg@skypoint.com>
Re: Strategies for determining if there's a memory leak <matt@sergeant.org>
The Adventure of CPAN <webqueen@my-deja.com>
Re: use File::Find <sweeheng@usa.net>
WIN32: cant redir STDOUT to a file undergronk@yahoo.com
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Wed, 31 May 2000 07:13:39 -0700
From: glauber <glauber.ribeiroNOglSPAM@experian.com.invalid>
Subject: Activestate down?
Message-Id: <1a8ccded.76e2198a@usw-ex0103-019.remarq.com>
I haven't been able to access http://www.activestate.com since
yesterday. Is it down or am i having network problems?
glauber
* Sent from RemarQ http://www.remarq.com The Internet's Discussion Network *
The fastest and easiest way to search and participate in Usenet - Free!
------------------------------
Date: Wed, 31 May 2000 07:25:58 -0700
From: PhalanxII <phalanxii@excite.com>
Subject: Re: Activestate down?
Message-Id: <04c9f7ca.131ac4d7@usw-ex0102-014.remarq.com>
I'm having the same problem :-(
Phalanx2
http://members.xoom.com/Phalanx2/
* Sent from RemarQ http://www.remarq.com The Internet's Discussion Network *
The fastest and easiest way to search and participate in Usenet - Free!
------------------------------
Date: Wed, 31 May 2000 14:52:56 +0100
From: "GARY JACKSON" <gary.jackson5@btinternet.com>
Subject: Automated forms
Message-Id: <8h35gq$gpn$1@uranium.btinternet.com>
I currently have a website with a FORM which e-mail's me with the users
inputs. I then add their detail to the HTML table page and upload the
revised file using FTP.
Is there any way to automate this process, so that once the FORM is
submitted, the information is added to the table in the webpage ?
------------------------------
Date: Wed, 31 May 2000 13:58:48 GMT
From: mike cardeiro <mikecard@my-deja.com>
Subject: Re: conditional ? not working as expected
Message-Id: <8h35qe$84n$1@nnrp1.deja.com>
thanks for all your help... in hindsight $y = (@keys < 26) ? 0 : 20;
does seem like the best way to do it, for readability (and workability,
uhm if there is such a word.)
thanks again
mike cardeiro
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Wed, 31 May 2000 16:11:31 +0200
From: "Michael Schlueter" <michael.schlueter@philips.com>
Subject: Re: Data Hiding in OO Perl
Message-Id: <8h332d$7j2$1@porthos.nl.uu.net>
Kevin,
I had the same problem as you half a year ago. That's why I've written a
script "classgen". I did not want to waste time with implementing (hidden)
instance variables again and again. With classgen all you need to do is to
write a simple control file (e.g. foo.txt, below) and run
classgen foo.txt Foo.pm
It creates the ASCII file Foo.pm for you, which in fact is a package. You
can edit package Foo.pm and extend it's specific functionality, use it like
#!/usr/bin/perl -w
use Foo;
my $f=Foo->new();
my $F=Foo->new();
$f->set_HiddenData( 'your value' );
$F->set_HiddenData( 'there should be a difference');
print $f->get_HiddenData() . " # " . $F->get_HiddenData() . " ;-) \n";
etc. Just focus on the work you want to do. Have a look at /example/peanuts.
I just uploaded version 3.01, which you may find best via
http://search.CPAN.org search for classgen
Version 4.00 should have a better implementation. Please let me know your
suggestions, to make classgen perform more perfectly.
Regards,
Michael Schlueter
---------------------------------------------------------------
foo.txt: (control file)
~~~~
header:
package Foo;
use strict;
variables:
$HiddenData; # some internal instance variable
Foo.pm, created for you:
~~~~~~~~~~~~~~~~~~~
# --- Generated by classgen 3.01 on Wed May 31 14:57:47 METDST 2000 ---
package Foo;
use strict;
;
sub new {
my ($self) = @_;
my $type = ref($self)||$self;
# instance-variables:
my $HiddenData; # some internal instance variable
$self=bless {
_HiddenData => $HiddenData,
}, $type;
#$self->inherit_from($self->your_base::new()); # adapt when inheriting
return $self;
}
# --- methods specific for this class ---------------------
sub specific {
my ($self) = @_;
}
# --- inheritance methode -----------------------------------
sub inherit_from {
my ($self, $base_blessed) = @_;
my @l = keys %$base_blessed;
foreach (@l) {
$self->{$_} = $base_blessed->{$_};
}
}
# --- accessor methods -----------------------------------
sub get_HiddenData {
my ($self) = @_;
$self->{_HiddenData};
}
# --- manipulator methods --------------------------------
sub clear_HiddenData {
my ($self) = @_;
my $v = $self->set_HiddenData(undef);
}
sub set_HiddenData {
my ($self, $value) = @_;
$self->{_HiddenData} = $value;
}
1;
__END__
=head1 NAME
-
=head1 VERSION
=head1 SYNOPSIS
=head1 DESCRIPTION
=head1 ENVIRONMENT
=head1 DIAGNOSTICS
=head1 BUGS
=head1 FILES
=head1 SEE ALSO
=head1 AUTHOR
Name: <your name here>
email: <your email address here>
=head1 COPYRIGHT
Copyright (c) 2000, <your name here>. All Rights Reserved.
This module is free software. It may be used, redistributed
and/or modified under the same terms as Perl itself.
------------------------------
Date: Wed, 31 May 2000 14:21:35 GMT
From: eastking@my-deja.com
Subject: debug perl script called by webserver
Message-Id: <8h374r$95r$1@nnrp1.deja.com>
I am developing CGI application by perl under linux/Apache. Is there
any one know how to debug perl script called by webserver. It means
that I type a request in browser and want to debug my perl script which
response to this request in server.Thank in advance.
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: 31 May 2000 14:55:47 GMT
From: sicherman@lucent.com (G. L. Sicherman)
Subject: error compiling Perl with HP-UX 11
Message-Id: <8h395j$k7h@nntpb.cb.lucent.com>
We have encountered an obscure compiler bug in compiling Perl 5.005-03
for HP-UX 11. Our software runs on many HP-UXs so we compile with
+DAportable as well as -O. Unfortunately, that combination breaks
HP-UX's cc so that a complex expression in pp.c involving ^ and |
miscompiles. This produces results like:
$x = 7;
$x ^= 3;
print "$x\n";
3
In other words, ^= and |= act as if they were =.
Workarounds:
1. Omit +DAportable. Not feasible for us; our customers are running
too many kinds of hardware and software.
2. Omit -O or replace it by +O1. Feasible but sacrifices efficiency.
3. Use gcc. Same comment as 2.
Any other suggestions?
-:-
"Hey, Rocky! Watch me pull a UNIX program out of my
source directory!"
"AGAIN?"
"Nothin' up my sleeve ... PRESTO!"
IDENTIFICATION DIVISION.
PROGRAM-ID. PROCESS-DATA.
AUTHOR-NAME. B. J. MOOSE, FROSTBYTE DATA SYS.
SOURCE-COMPUTER. IBM-7044.
OBJECT-COMPUTER. IBM-7044.
. . .
"No doubt about it--I gotta get a new source directory!"
--
G. L. Sicherman
work: sicherman@lucent.com
home: colonel@mail.monmouth.com
------------------------------
Date: Wed, 31 May 2000 14:00:01 GMT
From: Marco Castellani <marcokast@yahoo.com>
Subject: Help on flat database....
Message-Id: <8h35sn$858$1@nnrp1.deja.com>
Still a newbie... any help with the following problem would be
appreciated!
I have to read numbers from text files (to store them in arrays). Such
files are organized as follow:
=============
[beginning of file]
4.6416025616 .68 .3759725 3.9137814 1.0000000 7.2423744
4.8397502161 .68 .3719469 3.9100652 1.0000000 7.2371278
5.0166785408 .68 .3690618 3.9071734 1.0000000 7.2330594
5.2184168152 .68 .3663531 3.9042957 1.0000000 7.2289524
[etc...]
==============
How could I read the different numbers?
I know how to read ONE LINE;
open(INF, "mydatafile.txt");
$a = <INF>
etc..
Now, how could I say to the system where to split each row?
Should I edit the data files and put control codes (such "pipe") bewteen
columns (and use the "split" command on reading) ?
Thanks for your attention and help ! :)
--
Marco Castellani
Rome Astronomical Observatory
http://www.mporzio.astro.it
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Wed, 31 May 2000 09:21:10 -0400
From: Brad Baxter <bmb@ginger.libs.uga.edu>
Subject: Re: Help reading data from file
Message-Id: <Pine.A41.4.21.0005310919510.13070-100000@ginger.libs.uga.edu>
On Tue, 30 May 2000, Brian Landers wrote:
> #!/usr/local/bin/perl -w
>
> use strict;
>
> open( MYFILE, 'filename' ) || die "$!";
>
> # Assumes a "word" cannot contain whitespace
> my @words = map { split } <MYFILE>;
>
> close MYFILE;
>
>
> <squidrocks@my-deja.com> wrote in message
> news:8h1eqa$770$1@nnrp2.deja.com...
> > I'm a beginner programmer and I'm writing a modified hangman program that
> > reads the words to be used from a datafile.
> >
> > #!/usr/bin/perl
> >
> > open(MYFILE,"filename") || die; #opens the file with the words
> > @words=<MYFILE>; #creates an array for the file
> > close(MYFILE);
> >
> > the problem is that I can't get it to read the words individually. When I
> run
> > hangman it fills spaces for all the letters of all the words. I've tried
> > rewritting it so
> >
> > @words=qw<MYFILE>; #hoping this would seperate each word.
> >
> > but I can't come up with anything that divides the words up seperately. If
> > anyone can offer assistance it would be appreciated.
> >
> >
> > Sent via Deja.com http://www.deja.com/
> > Before you buy.
If you want unique words:
perl -ne '$h{$_}++for split;END{print join("\n",keys%h)}'
--
Brad
------------------------------
Date: Wed, 31 May 2000 13:11:47 GMT
From: Elaine Ashton <elaine@chaos.wustl.edu>
Subject: Re: How to convert LaTeX tables to html
Message-Id: <B55A87D3.526A%elaine@chaos.wustl.edu>
in article yiru2fftkuv.fsf@krein.math.chalmers.se, Nader Tajvidi at
nader@math.chalmers.se quoth:
> I have about 40 latex tables and I'm trying to convert them to
> html tables. These tables are not directly related so I want to
> have 40 different html files each containing a corresponding
> latex table without any reference to each other. I tried "the
> command "latex2html table*.tex" but it didn't work. I wonder if
> there is any package in perl which can be used for this? I'm
> running this under SunOS 5.6. I appreciate any pointer to where
> I can find more info on this. Many thanks in advance for your
> time.
http://www.plover.com/vulcanize/ may be helpful. Converting tables though is
a real challenge.
e.
------------------------------
Date: Wed, 31 May 2000 14:09:18 GMT
From: tmontague5003@my-deja.com
Subject: Interactive File Selector
Message-Id: <8h36e0$8js$1@nnrp1.deja.com>
My coworkers believe that Java is the only way to implement an
interactive file selector. What we want to do is read from an Oracle
database table to dynamically populate an expandable selection list.
Similar to Windows NT Explorer. The list would expand when clicking on
the plus sign.
Does anyone have any ideas where I can begin looking? I really want to
do this in perl.
Tim
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Wed, 31 May 2000 13:25:13 GMT
From: ajmayo@my-deja.com
Subject: Re: Is anything planned re: Perl error reporting?
Message-Id: <8h33r8$6d8$1@nnrp1.deja.com>
In article <959284803.5158@itz.pp.sci.fi>,
Ilmari Karonen <usenet11102@itz.pp.sci.fi> wrote:
>
> Because in Perl a multi-line string is perfectly okay?
>
I used this as a simple example focussing on the concept of error
reporting - I take your point that Perl allows multi-line strings - a
nice feature that to be honest I was ignorant of - but one that I
concede is genuinely useful (COBOL can do this too, incidentally). So
if you take the example in the spirit that it was intended, rather than
focussing on the specific error, substitute <bad code of your choice>
for my example
[snip]
> Now IMHO this is no more helpful than the current output, except for
> autogenerated code. And the problem there is really with the code
> generator failing to insert appropriate #line comments. But if other
> people prefer this style, I suppose it couldn't be too hard to change.
When we talk about autogenerated code we come to the nub of the
problem. If the code is eval'd at runtime (e.g by mod_perl) how do you
propose making it easier to track problems. Is there some technique
that would help here - in which case I will go and use it, and quit
whining - or do we have a genuine problem here?.
Its just that most, if not all, implementations of reasonably modern
programming languages seem to choose to quote errors in context, at the
point at which the parser feels it has gone off the rails. Either all
these other designers don't grok the simple elegance of quoting the
line number, or Perl is being, dare I say, a little unnecessarily
austere.
The trouble with Perl, I think, is that it is so powerful, so bug-free,
and has such immense library and utility support that frankly the gain
vastly outweighs the pain. So we get used to little (imho) quirks like
the spartan error reporting. I had a friend once who used to bite his
nails, so he started putting on that special paint that tastes
loathsomely bitter. After a few weeks he was back to biting them. "Have
you run out of paint" I asked. No, he said. He'd just grown to actually
quite like the taste.
Let me suppose everyone else disagrees with me about error reporting.
In that case, can I ask, is it possible to add hooks to Perl to allow
more flexibility - or are they already there. I know, UTSL. But could
anyone with more knowledge of Perl internals care to suggest whether a
customised error reporting module is feasible - would the Perl parser
let me easily get at that information.
I remember getting into a religious discussion like this with a Windows
application. Half the test users wanted the system to automatically
highlight fields when they tabbed into them, so that (it was a data
entry application) they could simply overtype a field quickly. The
other half didn't want fields highlighted. They hated the fact that
accidentally pressing a key destroyed the entire contents of the field.
I agree with the latter group, but clearly there were people who
disagreed with me, so I made the behaviour user-customisable.
PS: on a related topic, has anyone been able to get mod_perl debugging
to work, server-side. I have tried to follow the rather sparse
documentation without success.
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Wed, 31 May 2000 10:41:48 -0400
From: "Tony Sideris" <tonys111@erols.com>
Subject: Misc Questions
Message-Id: <8h38bk$g0$1@bob.news.rcn.net>
Hello,
Running ActiveState 5.6.0 (build 613) on Win2K Pro. With MSVC++5 SP3
installed. When i run perlcc on a simple hello.pl (Hello World), it creates
the exe, the exe outputs the string then crashes with a "referenced memory
at location" message. Anyone run across this?
Secondly, has anyone found a work around for the whole
IIS5/PerlScript/MSVCRT thing?
Thanks
-Tony
------------------------------
Date: Wed, 31 May 2000 13:08:31 GMT
From: pjlees@ics.forthcomingevents.gr (Philip Lees)
Subject: Modifying perl variables passed as arguments to OLE automation methods
Message-Id: <39350da5.20200867@news.grnet.gr>
Is this possible? We have a COM object written in Visual C that takes
three arguments, an input and two outputs. The first must be passed by
value, the other two by reference (from the C point of view).
The COM method modifies the last two arguments and the new values have
to be visible to the perl script that calls the method. At the moment
(using 'use Win32::OLE qw(in with);' ) the method is called and does
the proper processing, but on return the perl variables still have
their original values.
Is there a solution to this?
I have searche the perl FAQ and various other perl information sites,
but have found nothing about this. Any help would be appreciated.
Phil
--
Philip Lees
ICS-FORTH, Heraklion, Crete, Greece
Ignore coming events if you wish to send me e-mail
'The aim of high technology should be to simplify, not complicate' - Hans Christian von Baeyer
------------------------------
Date: Wed, 31 May 2000 13:53:52 GMT
From: "William H. Asquith" <wasquith@usgs.gov>
Subject: Networking: STDOUT => network => STDIN
Message-Id: <39351970.90EFE59C@usgs.gov>
In short, I am looking for a script to basically take a Unix pipeline
such as the following:
% server_program -stdout file2process.txt | client_program -stdin
and add a network component to the pipeline.
The above example is currently operational on my Solaris box. The
-stdout and -stdin switches are needed for the specific implementation
of my two programs.
I require something like this:
% server_program -stdout file2process.txt | networking_server_script |
networking_client_script | client_program -stdin
I want to avoid adding network specific code to either my server_program
or client_program and let network wrappers handle simple STDIN and
STDOUT manipulation.
Can anyone help?
-wha
William H. Asquith
Hydrologist
U.S. Geological Survey
------------------------------
Date: Wed, 31 May 2000 06:42:06 -0700
From: Mur <jboesNOjbSPAM@qtm.net.invalid>
Subject: Re: perl and nanosleep()?
Message-Id: <13aa7adc.74d000e8@usw-ex0106-046.remarq.com>
In article <8h1c43$59q$1@news.panix.com>, abigail@arena-i.com
(Abigail) wrote:
>On 27 May 2000 05:05:03 GMT, force <forcenoube@zipworld.com.au>
wrote:
>++
>++ Does anyone know if it's possible to sleep() in perl for
less than
>++ one millisecond? In particular, if there's an equivilant of
nanosleep()
>++ in perl (or a perl module).
>
>FAQ.
>
Somewhat more helpfully:
http://www.perl.com/pub/doc/manual/html/pod/perlfaq8.html#How_can
_I_sleep_or_alarm_for
Jeff Boes//ICQ=3394914//Yahoo!=jeffboes//AOL IM=jboes
//home=jboes@qtm.net//professional=mur@consultant.com
* Sent from RemarQ http://www.remarq.com The Internet's Discussion Network *
The fastest and easiest way to search and participate in Usenet - Free!
------------------------------
Date: Wed, 31 May 2000 16:11:10 +0200
From: "Alan J. Flavell" <flavell@mail.cern.ch>
Subject: Re: perl and nanosleep()?
Message-Id: <Pine.GHP.4.21.0005311609310.20945-100000@hpplus01.cern.ch>
On Wed, 31 May 2000, Mur wrote:
> In article <8h1c43$59q$1@news.panix.com>, abigail@arena-i.com
> (Abigail) wrote:
> >FAQ.
> Somewhat more helpfully:
Does the group really want to be more helpful to people who won't
consult the FAQ? It's not as if the idea of perusing the FAQs and
relevant online documentation isn't mentioned about 42 times a day.
------------------------------
Date: 31 May 2000 11:49:03 GMT
From: simon@brecon.co.uk (Simon Cozens)
Subject: Re: Perl unusable as a programming language
Message-Id: <slrn8j9v1f.gu0.simon@justanother.perlhacker.org>
Philip 'Yes, that's my address' Newton (comp.lang.perl.moderated):
>I suppose you mean ActiveState Visual Python / Visual Perl, which will
>integrate into Microsoft's Visual Studio 7.
>
>There's a press release on their web site.
I don't get it. I mean, it's way past April 1st. There's no obvious
indication that it's a joke. It seems real enough. But it can't be. It
just can't be.
So, the guys here keep telling me to look into Ruby...
--
Simon: `hello kitty' douche. If you are getting some and you know what
hello kitty is... Well, you're an exceptionally lucky man.
-- Megahal, trained on IRC.
------------------------------
Date: Wed, 31 May 2000 13:03:25 GMT
From: Alberto Accomazzi <aaccomazzi@my-deja.com>
Subject: Re: perl-5.6.0 and UTF8 character weirdness
Message-Id: <8h32ij$5e8$1@nnrp1.deja.com>
In article <8h1gf6$elj$1@charm.magnus.acs.ohio-state.edu>,
ilya@math.ohio-state.edu (Ilya Zakharevich) wrote:
> [A complimentary Cc of this posting was sent to Alberto Accomazzi
> <aaccomazzi@my-deja.com>],
> who wrote in article <8h1bgk$u8p$1@nnrp1.deja.com>:
> > I'm planning to make extensive use of the new utf8 handling
capabilities
> > in perl5.6.0
>
> There are no "new utf8 handling capabilities" in v5.6.0. What there
> is there is a potential to have these capabilities in the future. In
> addition to zillions of bugs there is no way to handle a mixture of
> utf8 and no-utf8 data in hashes and RExen. And there is no i/o
> capabilities...
ok, thanks for your clarification. I accept the fact that features like
these may need time to mature, but at the risk of being dense about
this, can you explain why pack("U",$int) and chr($int) give me different
results no matter what combination of pragmas I use?
I have been trying to write code with an eye to the future, and at the
moment I'm having trouble even figuring out whether I'm misunderstanding
things or I'm running against known or unknown bugs. I checked
bugs.perl.org but did not find anything on this so far...
Thanks,
-- Alberto
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: 31 May 2000 13:45:48 GMT
From: ilya@math.ohio-state.edu (Ilya Zakharevich)
Subject: Re: perl-5.6.0 and UTF8 character weirdness
Message-Id: <8h352c$298$1@charm.magnus.acs.ohio-state.edu>
[A complimentary Cc of this posting was sent to Alberto Accomazzi
<aaccomazzi@my-deja.com>],
who wrote in article <8h32ij$5e8$1@nnrp1.deja.com>:
> ok, thanks for your clarification. I accept the fact that features like
> these may need time to mature, but at the risk of being dense about
> this, can you explain why pack("U",$int) and chr($int) give me different
> results no matter what combination of pragmas I use?
As I said: one should not expect *anything* to work.
Ilya
------------------------------
Date: Wed, 31 May 2000 13:23:01 GMT
From: poppln@my-deja.com
Subject: problem with perl garbage collecting
Message-Id: <8h33n5$6cc$1@nnrp1.deja.com>
I'm running a perl script that process a fairly big file containing
structures stored with the Storable method.
The problem is that when I run the script with out the debugger
( perl -w <script-name> ...) the process memory grows very rapidly ( >
100MB)
but if I run it WITH the debugger ( perl -wd <script-name> ...) the
process size is stable and peaks at about 16MB.
Does any body have any idea why this is happening and how to solve it?
Nadav.
( my version of perl/OS is :
Summary of my perl5 (5.0 patchlevel 5 subversion 2) configuration:
Platform:
osname=solaris, osvers=2.5.1, archname=sun4-solaris
uname='sunos oak 5.5.1 generic_103640-14 sun4m sparc sunw,
sparcstation-5 '
)
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Wed, 31 May 2000 13:03:30 GMT
From: Derek D'Angelo <derek@ccil.org>
Subject: REQ:Tripod.com perl module include help
Message-Id: <8h32ip$5e9$1@nnrp1.deja.com>
I've coded exactly like the examples I've found and still no results.
I've been trying to include both a tripod module, TripodPage, and CGI.pm
I've used..
require TripodPage;
use TripodPage;
neither have worked.
All of my modules are in the cgi-bin directory.. What more can I do?
--
derek@ccil.org
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Wed, 31 May 2000 13:13:39 GMT
From: Rodney Engdahl <red_orc@my-deja.com>
Subject: Re: REQ:Tripod.com perl module include help
Message-Id: <8h335m$5td$1@nnrp1.deja.com>
In article <8h32ip$5e9$1@nnrp1.deja.com>,
Derek D'Angelo <derek@ccil.org> wrote:
> I've coded exactly like the examples I've found and still no results.
>
> I've been trying to include both a tripod module, TripodPage,
> and CGI.pm
>
> I've used..
>
> require TripodPage;
require probably needs (at the least) /full/path/to/TripodPage.pm
> use TripodPage;
>
Naturally, neither of these will include the CGI module unless the
TripodPage module does so. Have you contacted tripod.com and asked
them where they have that module? Are you running at tripod.com?
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Wed, 31 May 2000 14:08:59 GMT
From: Derek D'Angelo <derek@ccil.org>
Subject: Re: REQ:Tripod.com perl module include help
Message-Id: <8h36dd$8jk$1@nnrp1.deja.com>
I should have said this in my first posting..
the .pm's are in my cgi-bin
I'm going to try using the full path..
Thanks
I have contacted tripod, their literature, though, says they don't help
with cgi problems.. I kinda think I'm going to get shafted with my
request.
In article <8h335m$5td$1@nnrp1.deja.com>,
Rodney Engdahl <red_orc@my-deja.com> wrote:
> In article <8h32ip$5e9$1@nnrp1.deja.com>,
> Derek D'Angelo <derek@ccil.org> wrote:
> > I've coded exactly like the examples I've found and still no
results.
> >
> > I've been trying to include both a tripod module, TripodPage,
> > and CGI.pm
> >
> > I've used..
> >
> > require TripodPage;
>
> require probably needs (at the least) /full/path/to/TripodPage.pm
>
> > use TripodPage;
> >
>
> Naturally, neither of these will include the CGI module unless the
> TripodPage module does so. Have you contacted tripod.com and asked
> them where they have that module? Are you running at tripod.com?
>
> Sent via Deja.com http://www.deja.com/
> Before you buy.
>
--
derek@ccil.org
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Wed, 31 May 2000 14:32:55 GMT
From: Derek D'Angelo <derek@ccil.org>
Subject: Re: REQ:Tripod.com perl module include help
Message-Id: <8h37qm$9m0$1@nnrp1.deja.com>
I figured it out, I'm a perl newbie and I wasn't accessing the
functions through the module.
TripodDate->currentDate(); works
does the use directive offer ways around this, I read some examples,
but I didn't quite understand them..
In article <8h335m$5td$1@nnrp1.deja.com>,
Rodney Engdahl <red_orc@my-deja.com> wrote:
> In article <8h32ip$5e9$1@nnrp1.deja.com>,
> Derek D'Angelo <derek@ccil.org> wrote:
> > I've coded exactly like the examples I've found and still no
results.
> >
> > I've been trying to include both a tripod module, TripodPage,
> > and CGI.pm
> >
> > I've used..
> >
> > require TripodPage;
>
> require probably needs (at the least) /full/path/to/TripodPage.pm
>
> > use TripodPage;
> >
>
> Naturally, neither of these will include the CGI module unless the
> TripodPage module does so. Have you contacted tripod.com and asked
> them where they have that module? Are you running at tripod.com?
>
> Sent via Deja.com http://www.deja.com/
> Before you buy.
>
--
derek@ccil.org
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Wed, 31 May 2000 10:01:22 -0500
From: "news.skypoint.com" <bg@skypoint.com>
Subject: Re: simple regexp question
Message-Id: <8h39f3$2nmm$1@shadow.skypoint.net>
> > s/\/\\/\\\//g; #turn those frowns upside down!
>
> s|/\|\/|g; -- Using an alternate delimiter makes it so much clearer ;)
I wanted it to be confusing... <g>
------------------------------
Date: Wed, 31 May 2000 11:26:27 +0100
From: Matt Sergeant <matt@sergeant.org>
Subject: Re: Strategies for determining if there's a memory leak?
Message-Id: <3934E8D3.6E33391E@sergeant.org>
Denis Haskin wrote:
>
> use XML::DOM;
My tip is to watch that you are freeing the circular references created by
this package...
However that may be the bit you found/fixed earlier, as it's a well known
problem. Unfortunately finding these sorts of memory leaks in large object
oriented code is extremely hard - I had one in an application of mine that
used DBD::ODBC, which is where the leak was, but I only found out by
toggling values (in this case it was AutoCommit causing the leak) and
print() statements all over the code. Not much fun. FWIW I didn't find
Devel::Leak to be any use whatsoever - perhaps if I'd written a report
generator for it's output things would have been easier.
--
<Matt/>
Fastnet Software Ltd. High Performance Web Specialists
Providing mod_perl, XML, Sybase and Oracle solutions
Email for training and consultancy availability.
http://sergeant.org http://xml.sergeant.org
------------------------------
Date: Wed, 31 May 2000 14:03:09 GMT
From: webqueen, queen of the web <webqueen@my-deja.com>
Subject: The Adventure of CPAN
Message-Id: <8h362h$88g$1@nnrp1.deja.com>
When I want to find a module distro, I go to CPAN and usually find it. I
appreciate the extensive work that went into CPAN and how difficult it
must be to maintain.
Having said that...
Sometimes instead of a module I'm mysteriously directed to an email list
(try to find Sys::Hostname , or Shell?). I guess this means I need to
subscribe to the list to get a module perhaps? I'm not sure WHAT that
means to be honest. It would be analgous to pressing links for cities on
a travel site and finding MOSCOW pointing at Intel Corporation. Huh??
TILT...
Other times I get an author link which in turn goes to an index of
files MINUS the module that I seek.
Case in point try to get Net::ftp? After digging around in NEWS I
eventually discovered that this is now part of another package which
needs to be loaded instead. Thank GODDESS for news! I'm not certain if
the author hasn't updated a link somewhere or if CPAN is behind or what.
Seems like in this case a symbolic link in the directory would have been
helpful.
The thing is we I.S. pro's are TRYING to be productive aren't we? Its
NOT productive to spend 2 hours exploring CPAN and NEWS only to discover
that Net::ftp links to a directory that doesn't contain it. Nor is it
productive signing up to an email userlist to get modules or module
information.
I tried to volunteer previously to help with modules- and received
no reply [1]. I was told by others here in this newsgroup that those
responsibilities are given to gurus and more senior Perl community
members. So my attempt to be part of the solution didn't work either.
I can't volunteer now with my other responsibilities, but I'd still like
to understand why this is all so difficult. The time lost in people
searching for Net::ftp alone HAS to be 1000x the time it would have
taken to proper link and document it.
-WQ
[1] - as a sidebar, I also sent module abstracts to the repository folks
who were in TPJ several issues ago. Repeated emails didn't get me
anywhere with them - not even an automated reply. So I've also tried to
contribute software to the community with no results either. The Perl
Community seems like a club that ordinary people can't join. At least it
seems that way.
--
Time is nature's way of preventing everything from happening at once.
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Wed, 31 May 2000 21:13:42 +0800
From: "Swee Heng" <sweeheng@usa.net>
Subject: Re: use File::Find
Message-Id: <8h32rk$3ce$1@coco.singnet.com.sg>
Hi,
Dr. Bob <bobmerrill@my-deja.com> wrote in message
news:8h2vc2$382$1@nnrp1.deja.com...
> Is there something "different" about the variable $File::Find::name in
> the File::Find module?
Instead of code fragments, can you provide complete (and preferably the
shortest) code that gives you problem? I tried File::Find and it seemed to
work fine.
> rename $file, $tmpfil || die "cannot rename $file to $tmpfil\n";
> open INP, "$tmpfil" || die "cannot open tmpfil\n";
> open OUT, ">$file" || die "cannot re-open $file\n";
You should use 'or' instead of ||. See "perldoc perlop". || has a higher
precedence. In the code above, you won't catch any error from rename and
open. You are really evaluating this:
open OUT, (">$file" || die "cannot re-open $file\n");
Try running these to see what I mean:
rename 'one', 'new_one' || print "failed to rename one\n";
rename 'two', 'new_two' or print "failed to rename two\n";
Make sure there isn't any file named 'one' or 'two' first. :)
Swee Heng
------------------------------
Date: Wed, 31 May 2000 14:13:31 GMT
From: undergronk@yahoo.com
Subject: WIN32: cant redir STDOUT to a file
Message-Id: <8h36lr$8ns$1@nnrp1.deja.com>
This seems like such an easy thing to do, but I must admit defeat and
ask what seems to be a dumb question.
Using Perl V5.6.0 (from ActiveState) for Win32 I have some fairly
simple scripts which print to STDOUT.
A trivial example is:
#! perl -w
for ($i=0; $i<20; $i++) {
print "The number is $i \n";
}
This works OK, but if I try to redirect the output to a file, all I get
is an empty file, even after the script has finished.
If I open a filehandle from within the script and output directly to
the file, this works OK.
I suspect this is something to do with buffering, but I would expect
the output to be flushed when the script completes.
I have read perldoc -q flush and about hot filehandles, but still can't
get this to work.
Can someone point me in the right direction
Thanks
Scott Kirk
undergronk@yahoo.com
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
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 3219
**************************************
