[12089] in Perl-Users-Digest
Perl-Users Digest, Issue: 5689 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sun May 16 21:07:12 1999
Date: Sun, 16 May 99 16:00:17 -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 Sun, 16 May 1999 Volume: 8 Number: 5689
Today's topics:
[need help] Slash pre0.3 + MySQL + Apache <mile@cybercable.FR>
Re: Access and Web (I'm lost and tried everything: HELP <cassell@mail.cor.epa.gov>
Re: Baffled... uninitialized value at (eval 2) line 1. (Charles R. Thompson)
Re: Count number of html files and print it a html file <cassell@mail.cor.epa.gov>
Re: FAQ 4.14: How can I find the Julian Day? <cassell@mail.cor.epa.gov>
How to put browse into perl (dutchie)
Looking for discussion software (Darrin Cardani)
Re: Modify this Penpal script for better use <cassell@mail.cor.epa.gov>
Modules??? <ay-soterr@geocities.com>
Re: Net::NNTP <ebohlman@netcom.com>
Re: open, read,then print a file armchair@my-dejanews.com
Re: Perl "constructors" armchair@my-dejanews.com
Re: Perl "constructors" (Sam Holden)
Re: Perl "constructors" armchair@my-dejanews.com
Re: Perl "constructors" (Sam Holden)
Re: Perl "constructors" armchair@my-dejanews.com
Re: perltootc - OO Tutorial for Class Data in Perl <cassell@mail.cor.epa.gov>
Re: print to STDOUT and a file at the same time? <rick.delaney@home.com>
Re: Sorting of array of hashes. (Michel Dalle)
Re: visual debugger for UNIX? (Stefan Berglund)
Special: Digest Administrivia (Last modified: 12 Dec 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Sun, 16 May 1999 23:11:45 +0200
From: "Mile Wang" <mile@cybercable.FR>
Subject: [need help] Slash pre0.3 + MySQL + Apache
Message-Id: <7hncak$dbd$1@oceanite.cybercable.fr>
I would like to use Slash - the Slashdot Like Automated Storytelling
Homepage
on my site but I have lots of problem getting it to work, could anyone help
me ?
>REQUIREMENTS
> You need mod_perl installed and running, and set up to let the registry
> handle any .pl files. You need mysql installed and running properly,
> and DBI needs to be working. Some random fun stuff from my home
directory
> might provide you with a clue with stuff you might want/need:
>
> ApacheDBI-0.81.tar.gz
> ApacheMysql-0.3.tar.gz
> DBI-1.06.tar.gz
> Data-Dumper-2.10.tar.gz
> Devel-Symdump-2.00.tar.gz
> HTML-Parser-2.21.tar.gz
> MIME-Base64-2.09.tar.gz
> Msql-Mysql-modules-1.2014.tar.gz
> Net-TFTP-0.10.tar.gz
> URI-1.00.tar.gz
> libnet-1.0605.tar.gz
> libwww-perl-5.41.tar.gz
> mod_perl-1.17.tar.gz
> mysql-3.22.14b-gamma.tar
All these are installed and working properly
>INSTALLATION
> Add a user to your unix box. We'll use 'slash' as our example.
done
> Add a database named 'slash'. You probably want a db user too.
done
> copy the files from the tarball to /home/slash
done
> make sure /home/slash/public_html is visible from outside, and mod_perl
> is executing .pl files from it properly as mod_perl scripts.
done
> import the tables from the 'tables' directory- probably cat'ing
> the tables files to mysql -u slash slash -B.
done
> Before you do
> this, make /sure/ you glance over them (especially the 'vars' table;
> there are several things that you /will/ need to change if you
> want things to work right.
Here is my problem, there is nothing the the 'vars' table (datakey),
so what vars do I have to edit ???????
> slashd
> The slash daemon runs in the background (as user 'slash') and updates
> articles. Make that happen however you please. The first time you
> run it, it will create headers and stuff.
Doesn't work as my vars aren't defined
Thanks in advance !
P.S. Please send a copy of your reply to my email address
------------------------------
Date: Sun, 16 May 1999 15:13:30 -0700
From: "David L. Cassell" <cassell@mail.cor.epa.gov>
Subject: Re: Access and Web (I'm lost and tried everything: HELP ME!)
Message-Id: <373F430A.D177EAE9@mail.cor.epa.gov>
Genie wrote:
>
> Hi All,
>
> I've looked for FAQs and instructions on how to do this everywhere, so I'm
> not just nagging!
Well, that's good.
> Can someone send me an URL where I can find info about how to link Access
> Dbase too web!
I'll assume (contrary to Charles' assumption) that you're on a
win32 box. Otherwise you shouldn't be anywhere near MS Access.
If so, look into the following modules, which are either already
on your system or readily available and installable from
www.activestate.com using the ppm program that comes with
ActiveState Perl. If you don't have this already, you're going
to have real problems installing stuff properly. If you do
have this, you should either: [1] already know how to use ppm;
or [2] be able to read the HTML docs on your system to see how.
You'll want to make sure your system has these modules:
DBI
DBD::ODBC
and then you can talk to MS Access using ODBC, just like any
other ODBC-compliant program.
> Do I have to use SQL? And what is it? (now you will think what a morron, he
> should have learned that, well I've read all the stuff, and most programmers
> dont even try keeping it simple for newbees).
You will have to use SQL to phrase your queries. I suggest you
go to a computer book store and buy a book on SQL, in addition
to one on Perl.
> And how do I use it on my Apache Server?
> I'm really new to this
> I don't need the full thing
> Just a FEW ANSWERS would make me extremely happy.
Well then, I hope this is enoguh to get you started.
HTH,
David
--
David Cassell, OAO cassell@mail.cor.epa.gov
Senior computing specialist
mathematical statistician
------------------------------
Date: Sun, 16 May 1999 21:34:13 GMT
From: design@raincloud-studios.com (Charles R. Thompson)
Subject: Re: Baffled... uninitialized value at (eval 2) line 1.
Message-Id: <MPG.11a905383d4bfecc9896ce@news>
In article <7hn93f$40p$1@gellyfish.btinternet.com>, Jonathan Stowe
says...
> > What exactly does this error mean, and where should I begin looking to
> I'd look at your input data first ....
Found it. Within an anonymous subroutine I had created another block and
used local $_;
I had modified that block to the point where it didn't even need $_
anymore. Somehow that triggered it. Since I had done away with the need
for a local $_ , I removed the block and local the error went away.
Dur. :)
--
CT
------------------------------
Date: Sun, 16 May 1999 15:19:43 -0700
From: "David L. Cassell" <cassell@mail.cor.epa.gov>
Subject: Re: Count number of html files and print it a html file ?
Message-Id: <373F447F.306FA4BD@mail.cor.epa.gov>
Yeong Mo/Director Hana co. wrote:
>
> [Q] Count number of html files and print it a html file ?
>
> I have many html files under several directories.
>
> Is it possible to check the number of html files,
> and print the numbers at a html file ?
This is quite straightforward to do using the File::Find
module [assuming you don't have the `find' program on
your system already]. File::Find has nice documentation
with it, so just read those and write some code to do
something analogous. If you run into trouble, post
your code here [40 lines max] and ask for some assistance.
HTH,
David
--
David Cassell, OAO cassell@mail.cor.epa.gov
Senior computing specialist
mathematical statistician
------------------------------
Date: Sun, 16 May 1999 14:43:48 -0700
From: "David L. Cassell" <cassell@mail.cor.epa.gov>
To: MARTIN@RADIOGAGA.HARZ.DE
Subject: Re: FAQ 4.14: How can I find the Julian Day?
Message-Id: <373F3C14.12B81797@mail.cor.epa.gov>
[courtesy cc sent to poster]
Martin Vorlaender wrote:
>
> [an informative piece of VMS doc re my earlier blather]
I'm not so sure that this "relieves" the confusion, as much
as clarifies that there is a great deal of it. :-)
If you haven't followed the link that Larry R. posted, please
do. I think you'll find it very informative and interesting.
I think that this thread has demonstrated that even amongst
people with access to documentation, there still is not a
definitive answer when *someone*else* says that *they* want
to work with Julian Day. And I still think that many people
who ask such a question don't really want "Julian Day", as
much as they want a way to compare dates.. but they haven't
heard anything except the term "Julian Day".
So.. who writes the new version of the additional explanation
for FAQ 4.14 and e-mails it to TomC? :-)
David
--
David Cassell, OAO cassell@mail.cor.epa.gov
Senior computing specialist
mathematical statistician
------------------------------
Date: Sun, 16 May 1999 07:25:04 GMT
From: camp@iaehv.nl (dutchie)
Subject: How to put browse into perl
Message-Id: <373e726d.39812759@news.IAEhv.nl>
How do i have to put the browse into perl ?
I mean as you can see at :
www.betaal.com/test/browser.htm
Thanks
Jan Camp
------------------------------
Date: Sun, 16 May 1999 17:49:45 -0500
From: dcardani@buena.com (Darrin Cardani)
Subject: Looking for discussion software
Message-Id: <dcardani-ya023580001605991749450001@news.dls.net>
I would like to find some perl code for creating a discussion group, or if
none exists, write my own. I'm interested in having a discussion on my web
site that has topics which are threaded by subject, similar to usenet news.
Does something like this exist?
If not, what do you think would be a good way to approach this? I'm new to
perl, although I'm a programmer by profession. Any pointers would be
appreciated.
Thanks,
Darrin
Darrin Cardani
dcardani@buena.com
------------------------------
Date: Sun, 16 May 1999 15:04:00 -0700
From: "David L. Cassell" <cassell@mail.cor.epa.gov>
Subject: Re: Modify this Penpal script for better use
Message-Id: <373F40D0.4589C9FC@mail.cor.epa.gov>
Yeong Mo/Director Hana co. wrote:
>
> Hi,
>
> I got a penpal script from a book, and it needs to be modofied a lot.
> It will be appreciated if you modify it for better use, and send me back.
> [snip]
Excuse me, but you seem to have misunderstood the purpose of
this newsgroup. This group is here to help people with *their*
Perl programming, not to do it for them.
And second, I doubt that you want to pay the fees of anyone here
who is worth hiring for such a task. Good Perlites are not
cheap. You specifically say that this needs "a lot" of mods.
That's a lot of work for someone who could be earning a lot
of money elsewhere in the same time.
Finally: what kind of a book provides a script without teaching
you how it works and enough of the language to be able to modify
it yourself?
David
--
David Cassell, OAO cassell@mail.cor.epa.gov
Senior computing specialist
mathematical statistician
------------------------------
Date: Sun, 16 May 1999 21:30:29 GMT
From: ay-soterr <ay-soterr@geocities.com>
Subject: Modules???
Message-Id: <373F36FB.A081C0BD@geocities.com>
Just a quick question..
what does this mean?
utilities.pm did not return a true value at functions.pm line 3
I have two modules that I incorporate.. utilities.pm and functions.pm,
functions.pm requires utilities at line 3 because there are subroutines
that are necessary in functions from utilities.. I've been working on
this program for a while and it has never given me this message before,
I haven't changed anything w/ the module names or the require lines
either? I'm a little shot right now, so any help would be greatly
appreciated thanks..
Matty U!
--
Matthew Ulrich
Electrical Engineering
Cooper Union For the Advancement
Of Science and Art
ulrich@cooper.edu
------------------------------
Date: Sun, 16 May 1999 20:29:07 GMT
From: Eric Bohlman <ebohlman@netcom.com>
Subject: Re: Net::NNTP
Message-Id: <ebohlmanFBuE8J.4DM@netcom.com>
Marcel Grunauer <marcel.nospam.grunauer@lovely.nospam.net> wrote:
: On Sat, 17 Apr 1999 15:35:04 -0700, David Cassell
: <cassell@mail.cor.epa.gov> wrote:
: >Go to www.activestate.com and follow the links to a Net::NNTP version
: >for your Perl.
: Use the PPM to download libwww-net (LWP) from ActiveState's Package
: archive.
Net::NNTP is part of libnet, not libwww.
------------------------------
Date: Sun, 16 May 1999 19:51:35 GMT
From: armchair@my-dejanews.com
Subject: Re: open, read,then print a file
Message-Id: <7hn7k7$521$1@nnrp1.deja.com>
In article <RUC%2.652$fx5.414@news.rdc1.sfba.home.com>,
"Stephen Warren" <swarren@www.wwwdotorg.org> wrote:
> <armchair@my-dejanews.com> wrote in message
> Or, if you're security minded and don't want to give out undue
> information, or want to use print directly for some reason, you could
> always negate the truth value wrap the if around the open:
>
> if ( ! open( FH, "<$input_file" ) )
> {
> print "Can't open $input_file for read: $!\n" ;
> exit 0 ;
> }
Doesn't anybody use "unless", something probably no other language has?
>
> --
> Stephen Warren, Snr Systems Engineer, Technology House, San Francisco
> mailto:swarren@techhouse.com http://www.techhouse.com/
> mailto:swarren@wwwdotorg.org http://www.wwwdotorg.org/
> MIME, S/MIME and HTML mail are acceptable
>
>
--== Sent via Deja.com http://www.deja.com/ ==--
---Share what you know. Learn what you don't.---
------------------------------
Date: Sun, 16 May 1999 20:05:38 GMT
From: armchair@my-dejanews.com
Subject: Re: Perl "constructors"
Message-Id: <7hn8eh$5ng$1@nnrp1.deja.com>
In article <MPG.11a882953134d43c989a77@nntp.hpl.hp.com>,
lr@hpl.hp.com (Larry Rosler) wrote:
> In article <7hm8sm$hre$1@nnrp1.deja.com> on Sun, 16 May 1999 11:07:02
> GMT, armchair@my-dejanews.com <armchair@my-dejanews.com> says...
> > In article <yllnep1kdh.fsf@windlord.stanford.edu>,
>
> my $filename = $hash_ref->{filename} or return 10; # FALSE param
Thanks Larry, the line above is what I was most looking for. How to
determine something is not in a hash without using exists(). So it
apears that any scalar that does not exist (including, surprisingly
this one -> $a = undef) returns undef, which evaluates to "" which
is false.
--== Sent via Deja.com http://www.deja.com/ ==--
---Share what you know. Learn what you don't.---
------------------------------
Date: 16 May 1999 21:03:10 GMT
From: sholden@pgrad.cs.usyd.edu.au (Sam Holden)
Subject: Re: Perl "constructors"
Message-Id: <slrn7jucke.3ab.sholden@pgrad.cs.usyd.edu.au>
On Sun, 16 May 1999 16:00:51 GMT, armchair@my-dejanews.com wrote:
>In article <slrn7jtmtp.7jo.sholden@pgrad.cs.usyd.edu.au>,
> sholden@cs.usyd.edu.au wrote:
>> On Sun, 16 May 1999 14:07:10 GMT, armchair@my-dejanews.com wrote:
>
>> Well I'm sick of having you put down my entire country and falsely
>quote
>> me in a public forum. Have fun with perl.
>
>I certainly have been raking Australia over the coals, haven't I. But
>the second part should read "and falsely quoting Elle MacPherson and
>Crocodile Dundee in a public forum". Your umbrage seems quite misplaced,
>particularly from someone who quite freely uses phrase like "you idiot".
By using the standard quoting constructs of news you made it look like
I had used a .sig that I hadn't. Thus you quoted me as quoting them.
Thus you misquoted me.
I apologised. I explained. I said sorry. I can't be bothered.
--
Sam
Every human culture has good and bad points. Every computer program has
Eveone more bug. Even Perl.
--Larry Wall
------------------------------
Date: Sun, 16 May 1999 20:57:46 GMT
From: armchair@my-dejanews.com
Subject: Re: Perl "constructors"
Message-Id: <7hnbg9$7kh$1@nnrp1.deja.com>
In article <7hmhbv$3s4$1@gellyfish.btinternet.com>,
Jonathan Stowe <gellyfish@gellyfish.com> wrote:
> On 16 May 1999 07:47:30 GMT Sam Holden wrote:
> >
> > Too much topmind exposure on my part I guess...
> >
>
> Actually I think that it might *be* topmind - all the signs
> are there:
>
> the quoting of the signatures, the determined persistence to maintain
> a poinless thread, the desire to shoe-horn Perl into some
> other languages
> straight jacket, the anonymity ...
Yep, it's me. Good to hear you're still around Jonathon. I know we had
some real back and forth, you and me, and it got a little ugly at times,
but I still think they we both grew from the experience. And I peg you
as one of the best Perl
programmers/advocates/teachers/gurus/disciples/fanatics/bigots this
group has ever known. And you are right about keeping this thread
going, it is a real chore to get a response from these fellows, although
when I do you can be sure I will always attempt to give them the
courtesy of a reply.
>
> I want to see his 'manifesto'.
My manifesto hasn't changed, I have just added "all developer's
conferences should be required to serve RC Cola as well as either one of
the big two."
>
> /J\
> --
> Jonathan Stowe <jns@bellyfish.com>
> Some of your questions answered:
> <URL:http://www.btinternet.com/~bellyfish/resources/wwwfaq.htm>
> Hastings:
<URL:http://www.newhoo.com/Regional/UK/England/East_Sussex/Hastings>
>
--== Sent via Deja.com http://www.deja.com/ ==--
---Share what you know. Learn what you don't.---
------------------------------
Date: 16 May 1999 21:14:34 GMT
From: sholden@pgrad.cs.usyd.edu.au (Sam Holden)
Subject: Re: Perl "constructors"
Message-Id: <slrn7jud9q.3ab.sholden@pgrad.cs.usyd.edu.au>
On Sun, 16 May 1999 19:28:53 GMT, armchair@my-dejanews.com wrote:
>In article <slrn7jte10.fth.sholden@pgrad.cs.usyd.edu.au>,
> sholden@cs.usyd.edu.au wrote:
>> On Sun, 16 May 1999 11:48:38 GMT, armchair@my-dejanews.com wrote:
>> >In article <slrn7jsu0h.72t.sholden@pgrad.cs.usyd.edu.au>,
>ally would return an int, not a value of undef, which is
>pretty
>> >scary as it makes my variables disappear.
>> > my $scalar = 0; my $scalar = my_sub(); print $scalar;
>> > (W) An undefined value was used as if it were already defined.
>> > It was interpreted as a "" or a 0, but maybe it was a mistake.
>> > To suppress this warning assign an initial value to your variables
>>
>> But your not meant to print the error indicator, your just meant to
>test
>> it with if or || or or or unless, etc (I couldn't resist those ors).
>
>I personally prefer to return 0 on success and multiple non-zero codes
>for various errors (ala the C and Unix libraries). Doing that I can not
>write:
>
>my_func() || die "";
>
>But I could do:
>
>if ( $return_code = my_func() ) { fatal_error( $return_code ); }
or even...
$return_code = my_func() && die $return_code;
>From my limited experience looking for jobs, it appears that in
>order to get hired for most of the them, one has to say that they know
>how to program in the language/use the tools that a company is using
>(and it has to appear on the resume just to get past HR departments).
>This doesn't have to be the actual case, as they rarely even come close
>to a thorough testing of your ability and knowledge in the interview
>process, but you do need to know enough to get by the interview and
>handle the first days on the job till you say "Gee, from all those hours
>on that last Fortran project I was on, I seem to have forgotten most of
>the Perl used to know so well. Can you remind me again what all those
>dollar signs mean?". (Hence the Teach Yourself X in 14 hours/21 days
>books) But they don't actually want knowledge or training, it is
>supposed to be on the job experience. Hence people's references (aka
>friends) have to say "Why yes he was is one of the best of us, I mean
>my best, Cobol, er, make that Java programmers that we have here in our,
>I mean my shop floor processing group, oops, not enough coffee I
>suppose, we are actually the Web based on-line sales catalog and
>shopping cart software group."
Other people are honest.
>
>Regarding your ASP job, unless it is some kind of a lateral transfer or
>hiring by people familiar to you, I haven't heard people getting jobs by
>walking up and saying "Don't know ASP, but I am a very competent
>programmer and willing to learn". There would have to be an ASP/Sybase
>thing and they hired the person for great Sybase knowledge.
No hired due to web programming experience. Taught myself ASP in a couple
of days (it was just ike VB after all). Found it aweful. Left job.
>
>And people are different. I would never find a language that I couldn't
>criticize or make suggestions for enhancements to, nor would my comments
>be the sign of hatred or duress as you try to suggest. Not every one can
>fall in love with a language - but not everyone needs to in order to
>use it.
I did say that you know (the different thing). Your comments might not
be a sign of hatred or duress, but complaining over and over again that
you don't like some basic key features of a language indicates to me
you might prefer something else. You have choosen work over joy. That's
fine. I do that all the time as well.
--
Sam
Some of you know what the Perl slogan on Windows is, and you can say it
with me: "It's a good thing there's more than one way to do it, because
most of them don't work." --Larry Wall
------------------------------
Date: Sun, 16 May 1999 21:27:33 GMT
From: armchair@my-dejanews.com
Subject: Re: Perl "constructors"
Message-Id: <7hnd84$8pb$1@nnrp1.deja.com>
In article <yl675t1g8b.fsf@windlord.stanford.edu>,
Russ Allbery <rra@stanford.edu> wrote:
> armchair <armchair@my-dejanews.com> writes:
>
> For most Perl code, people who think they have to do variable
> typing are
> worrying too much about things that Perl knows perfectly well
> how to deal
> with all by itself.
>
> > To handle this, many C++ programmers are now using m_ as a
> > prefix on the
> > names of member data. (e.g. m_numberOfItems) And as you
> > mention below,
> > there is a this pointer, and that could always precede
> > the variable name
> > as in this->items instead of items. In effect, the
> > this pointer would
> > function like the reference to the object of Perl.
>
> Right. Perl essentially makes you do this->items all the
> time, because
> member data isn't special. Perl makes much less of the
> Object than C++
> does; very little of it is particularly special.
I don't see how requiring a reference to access member data says that
Perl is treating member data like it is not special.
>
> > It would seem that the only thing that makes it clear is if the
> > programmer gives appropriately clear names to the references.
>
> You have a point there. Still, I like $$self{items} better than just
> seeing items and wondering where it came from. And C++
> programmers don't
> seem to use this->items.
No, but you will see m_ more and more now that Microsoft's MFC code has
it in it.
The thing about C++ is that it is kind of a libertarian language and
does not force a style of coding on the programmer. ;)
>
> > C++ has pointers, which are identical to Perl references
> > - they store
> > the address of other variables, and you dereference them to
> > get at the
> > data that is being referred to (or pointed to), which themselves
> > can be
> > complex data structures. You could look inside a C++ class and
> > see only
> > one member variable MyMapPointer *m_pMap; or it could be a
> > pointer to an
> > array MyArray *m_pArray; even though the class is
> > actually representing
> > all the organizations and employees of a company.
>
> Yes, I know all that; I was writing C long before I was writing
> Perl, and
> I've written some non-trivial things in C++. I don't see
> how this relates
> to my point, though. You were complaining about having an
> object only
> have one reference to data, and I disagree with that view
> of things. An object in Perl can be a hash table, an array,
> or a few other things, and
> can contain quite a bit of data directly without using any
> references at
> all other than the object itself, like "this" in C++.
An object in Perl can only contain one reference. What the reference
refers to is up to the user. You were making a point that Perl has
advantages over C++ by doing it this way, and I was pointing out that in
C++ you can do it exactly like Perl. Create only one member variable,
and have it be a pointer (ala Perl) and then have it point to a simple
or complex data structure. Name the pointer "self", and then all the
code that you look at in the member function referring to member
data will look like self->xxx, just like Perl, only without the $.
--== Sent via Deja.com http://www.deja.com/ ==--
---Share what you know. Learn what you don't.---
------------------------------
Date: Sun, 16 May 1999 15:57:48 -0700
From: "David L. Cassell" <cassell@mail.cor.epa.gov>
Subject: Re: perltootc - OO Tutorial for Class Data in Perl
Message-Id: <373F4D6C.937D4125@mail.cor.epa.gov>
Tom Christiansen wrote:
>
> [snip of ToC]
>
> I've gotten some feedback that this posting was too large to be easily
> digested in a quick read, and that perhaps it should have been posted in
> smaller segments, such as each piece in the outline above. Would that
> really have helped people read and understand these? Wouldn't it have
> seemed more like spam than like an ten-part mini-series? :-)
I liked it the way it was. I would think most people would
appreciate the ability to read it or skip it with one swift
button-click. OTOH, considering my eccentricities, the majority
of readers are probably in the other camp. :-)
David
--
David Cassell, OAO cassell@mail.cor.epa.gov
Senior computing specialist
mathematical statistician
------------------------------
Date: Sun, 16 May 1999 22:37:15 GMT
From: Rick Delaney <rick.delaney@home.com>
Subject: Re: print to STDOUT and a file at the same time?
Message-Id: <373F4843.1A758A1F@home.com>
[posted & mailed]
Jeff Stampes wrote:
>
> bing-du@tamu.edu wrote:
> : How to use 'print' statement to output to STDOUT and a file at the
> : SAME TIME?
>
> perldoc perlfaq5
>
> How do I dup() a filehandle in Perl?
Nice try, but wrong FAQ. This one tells how to print to multiple
filehandles and have the output go to a single place. Printing to a
single filehandle and have the output go to multiple places is what was
asked for. Try this one (also perlfaq5):
How do I print to more than one file at once?
--
Rick Delaney
rick.delaney@home.com
------------------------------
Date: Sun, 16 May 1999 21:41:12 GMT
From: michel.dalle@usa.net (Michel Dalle)
Subject: Re: Sorting of array of hashes.
Message-Id: <7hne02$em8$1@xenon.inbe.net>
In article <MPG.11a8eed9283edc1d9896cd@news>, design@raincloud-studios.com (Charles R. Thompson) wrote:
>I've been reading Chapter 4 in Programming Perl and looking at FAQ4 for
>Data Structures. I can't seem to find any information on sorting nested
>structures of hash keys in an array. I have an index of web pages from a
>site as follows...
>
>@pages is the array containing...
>%details which is my hash containing...
>'title' =>
>'file_name' =>
>'create_date' =>
>'last_mod' =>
>
>I print the info to a page from a for loop using @pages.
Would the following be too 'simple' ?
sub by_title {
$pages[$a]{'title'} cmp $pages[$b]{'title'};
}
sub printpage {
my($page) = @_;
print "Page $page :\n";
print "\tTitle = $pages[$page]{'title'}\n";
print "\tFilename = $pages[$page]{'file_name'}\n";
print "\tCreation Date = $pages[$page]{'create_date'}\n";
print "\tLast Modification = $pages[$page]{'last_mod'}\n";
}
foreach $page (sort by_title 0..$#pages) {
&printpage($page);
}
Same thing for the other keys. I'm not sure exactly what structure you're
using, though.
Michel.
------------------------------
Date: 16 May 1999 21:07:56 GMT
From: sbl+news@dd.chalmers.se (Stefan Berglund)
Subject: Re: visual debugger for UNIX?
Message-Id: <7hnc3c$iie$1@eol.dd.chalmers.se>
On Thu, 13 May 1999 01:03:07 GMT, Phil Yurchuk wrote:
>
>Hello,
>
>I was wondering if there existed a reliable visual debugger for perl
>that ran under X. I'm developing on a Solaris 2.6 machine, and was
>hoping to find something like xxgdb.
You can use DDD a free graphical debugger frontend that interface with
at least gdb, dbx, xdb, perl debugger and the phyton debugger.
IMHO it is the best debugger I have ever used free or commercial.
http://www.cs.tu-bs.de/softech/papers/tr-95-07_e.html
--
/Stefan
sbl+news@dd.chalmers.se
Life - the ultimate practical joke
------------------------------
Date: 12 Dec 98 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Special: Digest Administrivia (Last modified: 12 Dec 98)
Message-Id: <null>
Administrivia:
Well, after 6 months, here's the answer to the quiz: what do we do about
comp.lang.perl.moderated. Answer: nothing.
]From: Russ Allbery <rra@stanford.edu>
]Date: 21 Sep 1998 19:53:43 -0700
]Subject: comp.lang.perl.moderated available via e-mail
]
]It is possible to subscribe to comp.lang.perl.moderated as a mailing list.
]To do so, send mail to majordomo@eyrie.org with "subscribe clpm" in the
]body. Majordomo will then send you instructions on how to confirm your
]subscription. This is provided as a general service for those people who
]cannot receive the newsgroup for whatever reason or who just prefer to
]receive messages via e-mail.
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 5689
**************************************
