[15934] in Perl-Users-Digest
Perl-Users Digest, Issue: 3347 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Jun 13 18:15:55 2000
Date: Tue, 13 Jun 2000 15:15:37 -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: <960934537-v9-i3347@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Tue, 13 Jun 2000 Volume: 9 Number: 3347
Today's topics:
Phonetic searching - Any Examples? <guy@firstcreative.com>
Re: Phonetic searching - Any Examples? <rootbeer@redcat.com>
Re: Phonetic searching - Any Examples? <lauren_smith13@hotmail.com>
Re: Phonetic searching - Any Examples? <lauren_smith13@hotmail.com>
Please help with my ranking script <pete@microdot.net>
Re: Please help with my ranking script <rootbeer@redcat.com>
Re: ppm will not work. I get this error message. <unknown@hfx.com>
putting a sub into seperate file <danielxx@bart.nl>
Re: putting a sub into seperate file <rootbeer@redcat.com>
Re: putting a sub into seperate file <danielxx@bart.nl>
qw() question, please advise me! law_40@hotmail.com
Re: Reading Files <lauren_smith13@hotmail.com>
Registry Editing - A living hell.... <dan@spyral.net>
Screen output from system command. <jsmoriss@jsm-mv.dyndns.org>
Re: Screen output from system command. duckjibe@my-deja.com
Re: Screen output from system command. <rootbeer@redcat.com>
Re: Screen output from system command. duckjibe@my-deja.com
Re: SCRIPT WRITERS HELP NEEDED (David H. Adler)
Re: Simple Question ~ How to perform a directory recurs (Tad McClellan)
Re: Simulating a key press using PERL (Philip 'Yes, that's my address' Newton)
Re: sorting algorithim (Tad McClellan)
Source Filter implementation (Eric Smith)
Re: Strategies for determining if there's a memory leak (David Combs)
Re: Strategies for determining if there's a memory leak (Yitzchak Scott-Thoennes)
Re: Summer Computer Jobs <hyagillot@tesco.net>
Syntax checker <bg@skypoint.com>
Re: Syntax checker <lauren_smith13@hotmail.com>
Re: Syntax checker (Tad McClellan)
Re: Using Unix SOURCE in PERL SYSTEM?? NEED HELP (Tad McClellan)
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Tue, 13 Jun 2000 19:50:31 +0100
From: "Guy Fraser" <guy@firstcreative.com>
Subject: Phonetic searching - Any Examples?
Message-Id: <8i5vpq$9or$1@plutonium.compulink.co.uk>
Hi All.
I'm trying to build a glossary where the user can search through it to find
a description for a word.
The client has just asked that a "sounds like" option would be good so I've
been reading up on Text::Metaphone
Seems like the tool I need but I can't find any examples of using it :o(
Does anyone know of a good example of phonetic searching (or any other cool
search routines) as I'm pulling my hair out here trying to work out how to
do it whilst doing about 16 other jobs at the same time!
Any help or pointers greatly appreciated.
Regards,
Guy, Stressed ;o)
------------------------------
Date: Tue, 13 Jun 2000 12:35:29 -0700
From: Tom Phoenix <rootbeer@redcat.com>
Subject: Re: Phonetic searching - Any Examples?
Message-Id: <Pine.GSO.4.10.10006131230470.18837-100000@user2.teleport.com>
On Tue, 13 Jun 2000, Guy Fraser wrote:
> The client has just asked that a "sounds like" option would be good so I've
> been reading up on Text::Metaphone
>
> Seems like the tool I need but I can't find any examples of using it :o(
Did you look in the module's docs? The author has included some references
which may be of assistance to you. But if you need more than that, you
should ask the author.
Good luck with it!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Tue, 13 Jun 2000 12:22:27 -0700
From: "Lauren Smith" <lauren_smith13@hotmail.com>
Subject: Re: Phonetic searching - Any Examples?
Message-Id: <8i61k8$5bg$1@brokaw.wa.com>
Guy Fraser <guy@firstcreative.com> wrote in message
news:8i5vpq$9or$1@plutonium.compulink.co.uk...
> Hi All.
>
> I'm trying to build a glossary where the user can search through it to
find
> a description for a word.
>
> The client has just asked that a "sounds like" option would be good so
I've
> been reading up on Text::Metaphone
>
> Seems like the tool I need but I can't find any examples of using it :o(
>
> Does anyone know of a good example of phonetic searching (or any other
cool
> search routines) as I'm pulling my hair out here trying to work out how to
> do it whilst doing about 16 other jobs at the same time!
If you had 2 tied hashes, one for the glossary and one for the 'sounds like'
group, it would seem straightforward.
The glossary hash would just be a list of terms with their meanings as
values. Lookup would be relatively simple, I would imagine.
The other group would be a hash of lists in which each key would be a
soundex and the value would be a list of terms that hash to the same
soundex.
$soundex = Metaphone($term);
push @{ $sounds_like{$soundex} }, $term;
Then if the users selects 'sounds like', just return the list of terms that
fit that particular soundex.
$soundex = Metaphone($user_entry);
@matching_terms = @{ $sounds_like {$soundex } };
Does this look like it might help?
Lauren
------------------------------
Date: Tue, 13 Jun 2000 12:49:07 -0700
From: "Lauren Smith" <lauren_smith13@hotmail.com>
Subject: Re: Phonetic searching - Any Examples?
Message-Id: <8i6363$6c3$1@brokaw.wa.com>
Lauren Smith <lauren_smith13@hotmail.com> wrote in message
news:8i61k8$5bg$1@brokaw.wa.com...
> The other group would be a hash of lists in which each key would be a
> soundex and the value would be a list of terms that hash to the same
> soundex.
Yipe!
I should have also pointed you to the MLDBM module. Available on CPAN.
Lauren
------------------------------
Date: Tue, 13 Jun 2000 21:03:59 +0100
From: "Pete Robinson" <pete@microdot.net>
Subject: Please help with my ranking script
Message-Id: <960926685.22136.0.nnrp-14.c1edd369@news.demon.co.uk>
I have recently launched a new website - http://www.joke-zone.co.uk
By studying / modifying some scripts I have managed to set up a form at the
bottom of each joke page which allows visitors to rate the jokes on a scale
of 1 to 5.
Submitting the form triggers the following actions:-
1. If a .dat file EXISTS for the joke in question the results are added to
it
2. If a .dat file DOES NOT EXIST then a new one is made, and the results
recorded.
All fine and dandy :-)
My problem is in displaying the results from these files next to the
hyperlinks on the joke index pages so that vistors can see the results of
their voting actions.
I had intended to use Server Side Includes, but find that I cannot pass the
relvant joke ID number to the SSI so that it can retrieve the relevant
details.
I realise that I could use a script to generate the pages dynamically, but
wish to avoid doing this if possible. For search engine visibility I would
like to keep the index pages as static HTML
I would be very grateful for any suggestions.
------------------------------
Date: Tue, 13 Jun 2000 13:19:33 -0700
From: Tom Phoenix <rootbeer@redcat.com>
Subject: Re: Please help with my ranking script
Message-Id: <Pine.GSO.4.10.10006131318140.18837-100000@user2.teleport.com>
On Tue, 13 Jun 2000, Pete Robinson wrote:
> I had intended to use Server Side Includes, but find that I cannot
> pass the relvant joke ID number to the SSI so that it can retrieve the
> relevant details.
Have you tried using the PATH_INFO? But perhaps your problem would be
better addressed on a newsgroup like comp.infosystems.www.authoring.cgi
rather than one about Perl, as your problem doesn't seem to be
Perl-specific. Good luck with it!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Tue, 13 Jun 2000 21:35:19 GMT
From: "unknown" <unknown@hfx.com>
Subject: Re: ppm will not work. I get this error message.
Message-Id: <rOx15.54$yY1.13331@sapphire.mtt.net>
Are you saying win2000 does not work with ppm?
On the site http://www.activestate.com/Products/ActivePerl/Download.html
It indicates that win2000 is supported.
"Bart Lateur" <bart.lateur@skynet.be> wrote in message
news:3947f632.1090645@news.skynet.be...
> unknown wrote:
>
> >Can't locate HTML/HeadParser.pm in @INC (@INC contains: C:/Perl/lib
> >/lib .) at C:/Perl/site/lib/LWP/Protocol.pm line 47.
> >Compilation failed in require at C:/Perl/site/lib/LWP/UserAgent.pm
> >BEGIN failed--compilation aborted at C:/Perl/site/lib/LWP/UserAgent
>
> I don't know why "c:/Perl/site/lib" isn't in your @INC. But that is the
> reason why it fails.
>
> >My system is win2000.
>
> A clue?
>
> --
> Bart.
------------------------------
Date: Tue, 13 Jun 2000 19:22:25 GMT
From: "Daniel van den Oord" <danielxx@bart.nl>
Subject: putting a sub into seperate file
Message-Id: <RRv15.1169$%h3.23778@Typhoon.bART.nl>
It causes an error with an error that it didn't send a full set of
HTTP-entrances *roughly translated from Dutch*
I'm using
require="standardhtmlform.pl";
in that file is only 1 sub called htmlprofile
that sub uses some internal cgi variabels do I have to use some specific way
to give those variables to the sub ??
------------------------------
Date: Tue, 13 Jun 2000 12:37:39 -0700
From: Tom Phoenix <rootbeer@redcat.com>
Subject: Re: putting a sub into seperate file
Message-Id: <Pine.GSO.4.10.10006131237000.18837-100000@user2.teleport.com>
On Tue, 13 Jun 2000, Daniel van den Oord wrote:
> It causes an error with an error that it didn't send a full set of
> HTTP-entrances *roughly translated from Dutch*
Sounds like your CGI program didn't produce a set of valid headers,
perhaps.
When you're having trouble with a CGI program in Perl, here's a handy
troubleshooting guide to get you back on track.
http://www.smithrenaud.com/public/troubleshooting_CGI.html
Hope this helps!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Tue, 13 Jun 2000 21:17:00 GMT
From: "Daniel van den Oord" <danielxx@bart.nl>
Subject: Re: putting a sub into seperate file
Message-Id: <gxx15.1180$%h3.24264@Typhoon.bART.nl>
I want to put some big standard working Subroutines inro another file so It
isn't in the main cgi anymore.. I can do that with require or use right ????
------------------------------
Date: Tue, 13 Jun 2000 21:54:59 GMT
From: law_40@hotmail.com
Subject: qw() question, please advise me!
Message-Id: <8i6ajc$k13$1@nnrp1.deja.com>
I have a script the uses the following commands and works....
@array=qw("this is some text");
this stores in the @array variable four words,
@array[0], @array[1], @array[2], and @array[3]....
however, if I define a variable,
$text="this is some text";
then use,
@array=qw($text);
it does not work. @array only gets assigned @array[0]=$text...
any suggestions?
i'm trying to stores the input from a text file into the an @array.
thanks!
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Tue, 13 Jun 2000 11:53:10 -0700
From: "Lauren Smith" <lauren_smith13@hotmail.com>
Subject: Re: Reading Files
Message-Id: <8i5vt7$59c$1@brokaw.wa.com>
John Leatherbarrow <john@tcs-web.fsnet.co.uk> wrote in message
news:8i5suj$q41$1@newsg2.svr.pol.co.uk...
> However it doesn't work if I want to read in a file from another location
i.e. a URL
>
> sub Prop
> {
> open (BODY, "template/prop.htt");
> local($/) = undef;
> $Body = <BODY>;
> close(BODY);
> }
>
> $Body is then passed to the main template file and the contents of the
prop.htt file are output.
>
> If I want to use the URL eg www.tduncan.com/prop.htt this file does not
exist in this location
>
perldoc LWP
Lauren
------------------------------
Date: Tue, 13 Jun 2000 15:14:10 -0400
From: Dan Richfield <dan@spyral.net>
Subject: Registry Editing - A living hell....
Message-Id: <th1dksgo9tj9sjmpf9i6c06gkvtvtfmfg9@4ax.com>
I have had serious problems with perl registry editing for a long
time, and i finally figured out how to get what I needed done with
Win32:Registry. So I upgraded to the latest perl (ActiveState 5.6),
and now my old code doesnt work at all.. I tried to figure out
TieRegistry, but that is a damn nightmare. The examples in the
activestate documentation always seemed to work, but whenever i would
change the path to access a key other than within the
LMachine/Software/Microsoft tree, it wouldnt return any data. I am
not a expert, but i did follow all instructions perfectly and double
checked everything. If someone would be kind enough to get me on the
right track with the basic commands in TieRegistry before i kick
through all the walls in my house, it would be greatly appreciated.
Dan
------------------------------
Date: Tue, 13 Jun 2000 18:50:33 GMT
From: Jean-Sebastien Morisset <jsmoriss@jsm-mv.dyndns.org>
Subject: Screen output from system command.
Message-Id: <8i5vpj$bk3$1@nnrp1.deja.com>
I'm having a little problem getting screen output from a system command.
The best I could do was:
$output = `command`;
print $output;
If the command takes a long time, nothing is shown on the screen and the
user may abort the script. Are there any tricks to send system command
output directly to the screen *while* the command is executing?
Thanks,
js.
--
Jean-Sebastien Morisset, Sr. UNIX Administrator
<http://www.jsmoriss.dyndns.org/>;
UNIX, the Internet, Homebrewing, Cigars, PCS, and other Fun Stuff...
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Tue, 13 Jun 2000 19:23:58 GMT
From: duckjibe@my-deja.com
Subject: Re: Screen output from system command.
Message-Id: <8i61nr$d89$1@nnrp1.deja.com>
How about
open(LS,"-|") || exec 'ls';
while ($X=<LS>){
print "$X";
}
but use your command in place of 'ls'
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Tue, 13 Jun 2000 12:41:41 -0700
From: Tom Phoenix <rootbeer@redcat.com>
Subject: Re: Screen output from system command.
Message-Id: <Pine.GSO.4.10.10006131238370.18837-100000@user2.teleport.com>
On Tue, 13 Jun 2000, Jean-Sebastien Morisset wrote:
> $output = `command`;
> print $output;
>
> If the command takes a long time, nothing is shown on the screen and
> the user may abort the script.
That's user error. Fix the user. :-)
> Are there any tricks to send system command output directly to the
> screen *while* the command is executing?
Maybe you want system()? Of course, if you're wanting to capture the
command's output in your program, that won't work. Instead, you may wish
to use a piped open. Don't ignore $| to ensure that your program's own
output isn't trapped in a buffer. See perldoc and perlvar.
Of course, the solution may be to tell the user to be patient. Cheers!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Tue, 13 Jun 2000 19:39:31 GMT
From: duckjibe@my-deja.com
Subject: Re: Screen output from system command.
Message-Id: <8i62lh$dq8$1@nnrp1.deja.com>
In article <8i5vpj$bk3$1@nnrp1.deja.com>,
Jean-Sebastien Morisset <jsmoriss@jsm-mv.dyndns.org> wrote:
> I'm having a little problem getting screen output from a system
command.
> The best I could do was:
>
> $output = `command`;
> print $output;
>
> If the command takes a long time, nothing is shown on the screen and
the
> user may abort the script. Are there any tricks to send system command
> output directly to the screen *while* the command is executing?
>
> Thanks,
> js.
> --
> Jean-Sebastien Morisset, Sr. UNIX Administrator
> <http://www.jsmoriss.dyndns.org/>;
> UNIX, the Internet, Homebrewing, Cigars, PCS, and other Fun Stuff...
>
> Sent via Deja.com http://www.deja.com/
> Before you buy.
>
how about something like
open(OUTPUT,"-|") || exec 'y.pl';
while ($X=<OUTPUT>){
print "$X";
}
where 'y.pl' is your command. If 'y.pl' does flush output the command
may still appear to 'hang'
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: 13 Jun 2000 21:46:54 GMT
From: dha@panix.com (David H. Adler)
Subject: Re: SCRIPT WRITERS HELP NEEDED
Message-Id: <slrn8kdaue.p5a.dha@panix6.panix.com>
On Sun, 11 Jun 2000 10:07:29 -0700, eric <eric_smyths@yahoo.com>
wrote:
>WE WILL PAY FOR THE WORK THAT YOU MIGHT DO FOR US.
You have posted a job posting or a resume in a technical group.
Longstanding Usenet tradition dictates that such postings go into
groups with names that contain "jobs", like "misc.jobs.offered", not
technical discussion groups like the ones to which you posted.
Had you read and understood the Usenet user manual posted frequently
to "news.announce.newusers", you might have already known this. :)
Please do not explain your posting by saying "but I saw other job
postings here". Just because one person jumps off a bridge, doesn't
mean everyone does. Those postings are also in error, and I've
probably already notified them as well.
If you have questions about this policy, take it up with the news
administrators in the newsgroup news.admin.misc.
There is a Perl Jobs Announce list that may be more helpful to you. See
<http://www.pm.org/mailing_lists.shtml> for details.
Yours for a better usenet,
dha
--
David H. Adler - <dha@panix.com> - http://www.panix.com/~dha/
This is Pop - XTC
------------------------------
Date: Tue, 13 Jun 2000 13:12:06 -0400
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: Simple Question ~ How to perform a directory recursive search ?
Message-Id: <slrn8kcqr6.2oo.tadmc@magna.metronet.com>
[ Please put your comments *following* the quoted text that you
are commenting on.
Please don't include a bazillion blank lines.
Please do not quote entire articles, just the part that
you are going to comment on.
Please do not quote .sigs.
Please visit news.announce.newusers so you will know
how to use Usenet.
]
On Tue, 13 Jun 2000 10:17:48 -0700, Kenny Lim <kennylim@techie.com> wrote:
>
>My objective is rather simple here,..
>
>(a) Search a given directory (including subdirectories) for the following
>file extension.
>
>.dsp
>.def
>.rc
>.h
>.cpp
-----------------------
#!/usr/bin/perl -w
use strict;
use File::Find;
my @files;
find( \&my_extensions, '.');
sub my_extensions {
if ( /\.(dsp|def|rc|h|cpp)$/ ) {
push @files, $File::Find::name;
}
}
-----------------------
>(b) Search the contents of the file that matches the extension as above
>on a given string. (ie. "productv10")
>
>ie. to search for a matching strings "productv10" on all the files that met
>the extension criteria in (a)
print "matched\n" if /productv10/;
>(c) Subsitute ALL matching "productv10" strings with "productv20" found.
s/productv10/productv20/g;
>(d) Save changes to the original file permanently. (Including the matches
>files found in the subdirectories)
$^I = ''; # careful! No backup file made...
>(e) Generate a report on the files and the strings that had been changed.
You have to write some of your program yourself.
If you get stuck, show us the code and we'll help you fix it.
>(ii) What would be the simplest methods to only save changes onto the
>original files that only matches and subsitute the "productv10" to
>"productv20" strings.
Use Perl's "in-place editing" feature. (i.e. use the -i switch (perlrun),
or the $^I variable (perlvar)).
[ snip *150* lines of Jeopardy-quoted text ]
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: Tue, 13 Jun 2000 19:12:40 GMT
From: nospam.newton@gmx.li (Philip 'Yes, that's my address' Newton)
Subject: Re: Simulating a key press using PERL
Message-Id: <3946838f.131667835@news.nikoma.de>
On Tue, 13 Jun 2000 08:29:35 -0700, Tom Phoenix <rootbeer@redcat.com>
wrote:
> On Tue, 13 Jun 2000, Mike Rizzo wrote:
>
> > The situation is as follows, a piece of code runs and
> > then it prompts the user with a Message box that needs
> > to be cleared in order to continue. I would like to have
> > the Perl code "press" the enter key so that the script
> > can continue.
>
> Do you want Expect.pm?
Or, possibly, Win32::Setupsup if on Windows. I think it's available by
ppm from Jenda's repository.
Cheers,
Philip
--
Philip Newton <nospam.newton@gmx.li>
If you're not part of the solution, you're part of the precipitate.
------------------------------
Date: Tue, 13 Jun 2000 13:19:41 -0400
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: sorting algorithim
Message-Id: <slrn8kcr9d.2oo.tadmc@magna.metronet.com>
On Tue, 13 Jun 2000 09:04:45 -0500, Kefka_X <broberts@cbu.edu> wrote:
>
>I need help
Show us the code you have so far, and we will help you.
>creating a sorting algorithim in Perl that sorts data by Time
>of day.
Where does the "Time" come from?
What format is it?
>The time is chosen from a drop-down menu.
Perl does not have drop-down menus, so nobody knows what
you are talking about there.
You have not shown us the data.
You have not shown us the code.
We are good, but not so good that we can fix unseen stuff...
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: 13 Jun 2000 21:17:30 GMT
From: eric@fruitcom.com (Eric Smith)
Subject: Source Filter implementation
Message-Id: <slrn8kd966.6dn.eric@plum.fruitcom.com>
I am trying to replace the given example in Perlfilter with my own algorithm.
The example - Example.pm is :
----
#!/usr/bin/perl -w
package Number::Average ;
use Filter::Util::Call ;
sub import {
my ($type) = @_ ;
my ($ref) = [] ;
filter_add(bless $ref) ;
}
sub filter {
my ($self) = @_ ;
my ($status) ;
tr/n-za-mN-ZA-M/a-zA-Z/
if ($status = filter_read()) > 0 ;
$status ;
}
----
And I have failed to get any output with this:
#!/usr/bin/perl -w
package Number::Average ;
use Filter::Util::Call ;
sub import {
my ($type) = @_ ;
my ($ref) = [] ;
filter_add(bless $ref) ;
}
sub filter {
my ($self) = @_ ;
my ($status) ;
#tr/n-za-mN-ZA-M/a-zA-Z/
&replacerot
if ($status = filter_read()) > 0 ;
$status ;
}
sub replacerot {
my $decrypt;
while ($_ =~ m{(.*?)\0}gx){
$decrypt.=chr($+);
}
return $decrypt;
}
1;
----
Of course I have tested my algorithm and it works fine in a simple context,
I just cannot figure how to replace the `tr' operator here.
--
Eric Smith
eric@fruitcom.com
------------------------------
Date: 13 Jun 2000 18:25:27 GMT
From: dkcombs@netcom.com (David Combs)
Subject: Re: Strategies for determining if there's a memory leak?
Message-Id: <8i5uan$i27$1@slb2.atl.mindspring.net>
In article <8h3ds1$58a$1@charm.magnus.acs.ohio-state.edu>,
Ilya Zakharevich <ilya@math.ohio-state.edu> wrote:
<SNIP>
>
>If you dump the value from the debugger, it will detect repeated
>values. They may indicate circular references. But sometimes not,
>as, say, in
>
> [\$a, \$a]
>
>Ilya
In what way is that circular (assming you didn't
assign that anon-vec-ref to $a)?
David
------------------------------
Date: Tue, 13 Jun 2000 13:58:23 -0700
From: sthoenna@efn.org (Yitzchak Scott-Thoennes)
Subject: Re: Strategies for determining if there's a memory leak?
Message-Id: <vBqR5gzkgmZc092yn@efn.org>
In article <8i5uan$i27$1@slb2.atl.mindspring.net>,
dkcombs@netcom.com (David Combs) wrote:
> In article <8h3ds1$58a$1@charm.magnus.acs.ohio-state.edu>,
> Ilya Zakharevich <ilya@math.ohio-state.edu> wrote:
> >If you dump the value from the debugger, it will detect repeated
> >values. They may indicate circular references. But sometimes not,
> >as, say, in
> >
> > [\$a, \$a]
>
> In what way is that circular (assming you didn't
> assign that anon-vec-ref to $a)?
It isn't. That was Ilya's point. He says the debugger can be used to
find circular references as long as you are aware that it also finds
repeated but non-circular references, and then gives an example of the
latter.
------------------------------
Date: Tue, 13 Jun 2000 22:21:24 +0100
From: "B Kemp" <hyagillot@tesco.net>
Subject: Re: Summer Computer Jobs
Message-Id: <8i68pj$788$1@barcode.tesco.net>
Uri Guttman wrote in message ...
>>>>>> "C" == Cybercamps2000 <summer2000@cybercamps.com> writes:
>
> C> We are still hiring for our camps in:
>
> C> Bellevue, WA
>
>i wonder what kind of spoiled brat will be going to that camp? :-)
>
>"mommy, why do i have to use linux? i want my winblows!! WAAAHHHHH!!"
>
Could be a good job if you specialise in outdoor activities.
Anyone for canoeing?
Astronomy? (that big orangy thing is the sun computer kids)
------------------------------
Date: Tue, 13 Jun 2000 13:25:48 -0500
From: "Barry Grupe" <bg@skypoint.com>
Subject: Syntax checker
Message-Id: <8i5u9i$1rq9$1@shadow.skypoint.net>
Are there any syntax checking apps written for Perl? I'm looking for a basic
"checker".
Or should I get off my can and get a better text editor. (I use, uhhhh,
pico/notepad....)
...waiting for the flames...
Yes, yes, as soon as the *!#$ Gnu Emacs book from O'Reilly is delivered I'll
RTFM and use it. I hear it can do quite a bit.
Thanks!
------------------------------
Date: Tue, 13 Jun 2000 11:47:41 -0700
From: "Lauren Smith" <lauren_smith13@hotmail.com>
Subject: Re: Syntax checker
Message-Id: <8i5vit$4ib$1@brokaw.wa.com>
Barry Grupe <bg@skypoint.com> wrote in message
news:8i5u9i$1rq9$1@shadow.skypoint.net...
> Are there any syntax checking apps written for Perl? I'm looking for a
basic
> "checker".
Something like lint?
perldoc B::Lint
If that's too much trouble, you might just want to put a '-w' in the shebang
line to enable warnings. Also, 'use strict;' can add another layer of
checking to your program.
perldoc strict
> Yes, yes, as soon as the *!#$ Gnu Emacs book from O'Reilly is delivered
I'll
> RTFM and use it. I hear it can do quite a bit.
What are you comfortable with? Some like vi, some Emacs. Me, I've been a
Notepad addict from day 1.
Lauren
------------------------------
Date: Tue, 13 Jun 2000 15:57:32 -0400
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: Syntax checker
Message-Id: <slrn8kd4hc.2vt.tadmc@magna.metronet.com>
On Tue, 13 Jun 2000 13:25:48 -0500, Barry Grupe <bg@skypoint.com> wrote:
>Are there any syntax checking apps written for Perl?
Yes.
perldoc perlrun
It is called "perl" :-)
perl -cw my_script
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: Tue, 13 Jun 2000 16:05:38 -0400
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: Using Unix SOURCE in PERL SYSTEM?? NEED HELP
Message-Id: <slrn8kd50i.31k.tadmc@magna.metronet.com>
On Wed, 07 Jun 2000 13:30:04 GMT, Mike <Michael.Bukowski@usa.xerox.com> wrote:
>
>Abigail wrote:
>>
>>
>> On Tue, 06 Jun 2000 22:30:24 GMT, Mike <Michael.Bukowski@usa.xerox.com>
>wrote:
>> ++ I am writing a Perl script that must run a shell script in the middle
>of
>> ++ the process. The command that is used to run the script from the
>> ++ commandprompt is:
>> ++
>> ++ source systembuild
>> ++
>> ++ the Unix SOURCE command inside the system() funcion???
>>
>>
>> *IF* there was a "unix" source command, system() would work.
>> However, there isn't.
>>
>> Did you try to do "man source" or "which source"? The results might be
>> enlightning. BTW, this question was asked and discussed only a few
>> days ago as well.
>>
>>
>> Abigail
>
>To respond to your statement I have posted the output from the
>command "man source".
Which proves Abigails statement.
>{mbukowsk} fidelity: /home/mbukowsk [1] man source
>Reformatting page. Wait... done
>
>User Commands exec(1)
>
>NAME
> exec, eval, source - shell built-in functions to execute
^^^^^^^^^^^^^^^
Shell features are features of the _shell_, not of Unix.
There is no Unix "source" command.
There is a shell command by that name, but the shell is not Unix.
What was meant to be "enlightening" is that you cannot use
system() to execute "source".
Time to move on to a plan B.
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
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 3347
**************************************
