[16619] in Perl-Users-Digest
Perl-Users Digest, Issue: 4031 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Aug 16 06:10:29 2000
Date: Wed, 16 Aug 2000 03:10:18 -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: <966420618-v9-i4031@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Wed, 16 Aug 2000 Volume: 9 Number: 4031
Today's topics:
Re: Listing users in Win NT <Peter.Dintelmann@dresdner-bank.com>
Mail processing <nunosanto@netcabo.pt>
Re: need help with msql and perl <a.peacock@chime.ucl.ac.uk>
Re: need help with msql and perl <a.peacock@chime.ucl.ac.uk>
Re: Negativity in Newsgroup...Newbie Perspective <gellyfish@gellyfish.com>
Re: Passwords <gellyfish@gellyfish.com>
Re: Pattern match - Extract info from a page <gellyfish@gellyfish.com>
Re: Perfect Place to find Perl Jobs <gellyfish@gellyfish.com>
Re: Perl code for a newbie!! <bart.lateur@skynet.be>
Perl Signals and forking server <menger@my-deja.com>
Re: Problem with IIS4 <Peter.Dintelmann@dresdner-bank.com>
Re: Problem with IIS4 <gellyfish@gellyfish.com>
Re: Quiting a: while (<STDIN>) (Villy Kruse)
Re: strict and recursive functions <gellyfish@gellyfish.com>
Re: Subroutine being redefined in module <gellyfish@gellyfish.com>
Re: tag parsing. <gellyfish@gellyfish.com>
Re: Trouble finding keys of multidimesional array <uackermann@orga.com>
Re: what the heck is C<$_> ?? <gellyfish@gellyfish.com>
Re: What's the best way to overwrite a string with '*? <alex.buell@tahallah.clara.co.uk>
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Wed, 16 Aug 2000 11:17:02 +0200
From: "Dr. Peter Dintelmann" <Peter.Dintelmann@dresdner-bank.com>
Subject: Re: Listing users in Win NT
Message-Id: <8ndm6o$2lr7@intranews.dresdnerbank.de>
Hi,
s24673 schrieb in Nachricht <3999e546.0@scctn03.sp.edu.sg>...
>Does anyone know how to list the users who are logged on in Win NT using
>Perl?
usually there is only one user logged in. You will
find the username in $ENV{USERNAME}.
If you are interested in a listing of available logins
on NT have a look at the GetUsers() method in
Win32::NetAdmin.
Best regards,
Peter Dintelmann
------------------------------
Date: Wed, 16 Aug 2000 10:34:30 +0100
From: "Nuno Santo" <nunosanto@netcabo.pt>
Subject: Mail processing
Message-Id: <8ndn99$709$1@srvlis16.teleweb.pt>
I´m building a site for my company, and they are thinking of subscribing a
news delivery service via e-mail. Does someone know hoe can i check the mail
account and get the message so that i can insert it into the site?
Thank you.
------------------------------
Date: Wed, 16 Aug 2000 09:46:11 +0100
From: Anthony Peacock <a.peacock@chime.ucl.ac.uk>
Subject: Re: need help with msql and perl
Message-Id: <399A54D3.CBCBDCB0@chime.ucl.ac.uk>
Keith Calvert Ivey wrote:
>
> a.peacock@chime.ucl.ac.uk (Anthony Peacock) wrote:
> >In article <8nar9b$8gd$1@slb7.atl.mindspring.net>, hello@hello.com says...
>
> >>my $dbh=DBI->connect($db, $dbName);
> >>my $statement= "select mov_index, mov_title, mov_year,mov_rating from movie
> >>where mov_avail= 'Y' \g";
> >>my $sth=$dbh->prepare($statement);
> >>
> >>for some reason the query won't execute when i call $sth->execute. i get
> >>parse errors. what is wrong with this?
> >
> >It is a while since I used mSQL (now using mySQL) but I if my memory serves me
> >right, you don't need the '\g' in your SQL when using the DBI interface. The
> >'\g' is only needed when using the command line interpreter.
>
> There is no '\g' in the string above, which is double-quoted.
> Perl has no special "\g" escape (unless there's some strange
> 5.6-ism I've missed), so "\g" is the same as plain "g".
Doh! Should have spotted that as well.
But that is still the most likely place for the SQL syntax error.
--
Anthony Peacock
Email: a.peacock@chime.ucl.ac.uk
WWW: http://www.chime.ucl.ac.uk
------------------------------
Date: Wed, 16 Aug 2000 09:55:13 +0100
From: Anthony Peacock <a.peacock@chime.ucl.ac.uk>
Subject: Re: need help with msql and perl
Message-Id: <399A56F1.A954B270@chime.ucl.ac.uk>
Keith Calvert Ivey wrote:
>
> a.peacock@chime.ucl.ac.uk (Anthony Peacock) wrote:
> >In article <8nar9b$8gd$1@slb7.atl.mindspring.net>, hello@hello.com says...
>
> >>my $dbh=DBI->connect($db, $dbName);
> >>my $statement= "select mov_index, mov_title, mov_year,mov_rating from movie
> >>where mov_avail= 'Y' \g";
> >>my $sth=$dbh->prepare($statement);
> >>
> >>for some reason the query won't execute when i call $sth->execute. i get
> >>parse errors. what is wrong with this?
> >
> >It is a while since I used mSQL (now using mySQL) but I if my memory serves me
> >right, you don't need the '\g' in your SQL when using the DBI interface. The
> >'\g' is only needed when using the command line interpreter.
>
> There is no '\g' in the string above, which is double-quoted.
> Perl has no special "\g" escape (unless there's some strange
> 5.6-ism I've missed), so "\g" is the same as plain "g".
Further to my last forhead thwacking message...
This has brought back memories of when I started using DBI and msql.
When I was just finding my way into the methodology.
I can remember doing just this. I got a SQL statement working in the
command line console and cut and pasted it into my code \g and all. I
got a long way up Dolis Hill working out why it wasn't working,
including escaping the slash (\\g). It was this episode that prompted
me to find out how to check the DBI error message.
:-)
--
Anthony Peacock
Email: a.peacock@chime.ucl.ac.uk
WWW: http://www.chime.ucl.ac.uk
------------------------------
Date: 15 Aug 2000 22:11:49 +0100
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: Negativity in Newsgroup...Newbie Perspective
Message-Id: <8ncbml$fnf$1@orpheus.gellyfish.com>
On Mon, 14 Aug 2000 13:22:30 -0500 (CDT) BUCK NAKED1 wrote:
>
> I have bit my tongue about this topic all that I can.
You should have bit your tongue a bit longer as you have just got yourself
in my killfile along with more than half of the other respondents in this
thread.
*plonk*
/J\
--
yapc::Europe in assocation with the Institute Of Contemporary Arts
<http://www.yapc.org/Europe/> <http://www.ica.org.uk>
------------------------------
Date: 16 Aug 2000 07:01:00 +0100
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: Passwords
Message-Id: <8ndams$gqt$1@orpheus.gellyfish.com>
On Tue, 15 Aug 2000 11:45:12 +0100 Alex Buell wrote:
> Other than using system("stty -echo") and system("stty echo"), are
> there any other ways of concealing passowrds being entered?
Like it says in perlfaq8 you can use the module Term::ReadKey :
use Term::ReadKey;
ReadMode('noecho');
my $password = ReadLine(0);
perldoc -q password
/J\
--
yapc::Europe in assocation with the Institute Of Contemporary Arts
<http://www.yapc.org/Europe/> <http://www.ica.org.uk>
------------------------------
Date: 16 Aug 2000 07:53:21 +0100
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: Pattern match - Extract info from a page
Message-Id: <8nddp1$gv1$1@orpheus.gellyfish.com>
On Tue, 15 Aug 2000 08:37:10 -0400 wu.s wrote:
> Hello,
>
> Could someone share a piece of code or point me to another source? I want to
> index job information that posted on serveral different websites. Suppose I
> download the following HTML page:
>
> <html>
> <body>
> .....
> <table>
> <tr><td>Title 1</td>
> <td> Category 1 </td>
> <td> <a href="detail1.html" Detail 1 </a> </td>
> </tr>
> <tr><td> Title 2 </td>
> <td> Category 1</td>
> <td> <a href="detail2.html" Detail 2 </a></td>
> </tr>
> ......
> </table>
> </body>
> </html>
>
> How do I extract the three parts and save them into a text file:
>
> Title 1 | Category 1 | detail1.html
> Title 2 | Category 2 | detail2.html
use HTML::Parser :
#!/usr/bin/perl -w
use strict;
use HTML::Parser;
my $parser = HTML::Parser->new( api_version => 3,
start_h => [\&start_table, 'self, tagname']
);
$parser->{Tables} = [];
$parser->parse_file(shift || '-');
foreach my $table ($parser->{Tables})
{
foreach my $row (@{$table})
{
foreach ( @{$row} )
{
print join '|', @{$_},"\n";
}
}
}
sub start_table()
{
my($self,$tag) = @_;
if ( $tag eq 'table')
{
$self->{_curr_table} = [];
$self->handler(end => \&end_table, 'self,tagname' );
}
elsif ( $tag eq 'tr' )
{
$self->{_curr_row} = [];
}
elsif ( $tag eq 'td' )
{
$self->{_curr_column} = '';
$self->handler(text => sub {
my ( $self,$text) = @_;
$self->{_curr_column} .= $text;
}, 'self, dtext');
}
}
sub end_table
{
my ( $self, $tagname ) = @_;
if ( $tagname eq 'table' )
{
push @{$self->{Tables}}, $self->{_curr_table};
$self->handler(end => '');
}
elsif ( $tagname eq 'tr' )
{
push @{$self->{_curr_table}}, $self->{_curr_row};
}
elsif ( $tagname eq 'td' )
{
push @{$self->{_curr_row}}, $self->{_curr_column};
$self->handler(text => '');
}
}
How to extract the URL's from the Anchors is left as an exercise for the
reader - it will involve setting a different start handler within the TD
though.
/J\
--
yapc::Europe in assocation with the Institute Of Contemporary Arts
<http://www.yapc.org/Europe/> <http://www.ica.org.uk>
------------------------------
Date: 15 Aug 2000 22:07:03 +0100
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: Perfect Place to find Perl Jobs
Message-Id: <8ncbdn$fn2$1@orpheus.gellyfish.com>
On Mon, 14 Aug 2000 16:01:29 -0700 sammytalin wrote:
> Don't listen to this guy...
I would recommend to anyone else that is proposing to spam this group
with such crap that they *should* listen to this advice.
> this newsgroup is all about Perl in
> general. This is useful information.
>
Unfortunately this group will become a less useful resource for you now that
everyone who is likely to answer any questions you might ask has you in their
killfile.
> This guy is probably bitter cuz he can't find a job!
>
And you are bitter because your English teacher hated you, no doubt.
> LOSER...
*plonk*
/J\
--
yapc::Europe in assocation with the Institute Of Contemporary Arts
<http://www.yapc.org/Europe/> <http://www.ica.org.uk>
------------------------------
Date: Wed, 16 Aug 2000 07:47:00 GMT
From: Bart Lateur <bart.lateur@skynet.be>
Subject: Re: Perl code for a newbie!!
Message-Id: <djhkpsoa8q32n3c71p9sjbkkq0s2fuaffq@4ax.com>
jason wrote:
>you (even with the followup that I'm responding to) still just
>included everything that was said previously .. you included it below
>your post and you made no attempt to even remove the signature
>
>this is known as jeopardy style posting .. and it is not conducive to
>good newsgroup discussion
Look at what software he used to post. MS Outlook does this kind of
quoting by default and *without you even noticing*. All you see in your
message window is what you type yourself.
Crappy tools, from the "most prestigious software company in the world";
at least, that's what they'd like to be -- er, appear.
--
Bart.
------------------------------
Date: Wed, 16 Aug 2000 08:51:02 GMT
From: Matthew Enger <menger@my-deja.com>
Subject: Perl Signals and forking server
Message-Id: <8ndkli$4j8$1@nnrp1.deja.com>
Howdy,
I am currently working on a piece of code which involves a forking
server using code based on that found in the perl cookbook. I have setup
a signal handler on the USR2 signal which reloads the config data.
I have noticed that when I send a USR2 signal to the parent, the
program will no longer respond properly to TCP connections. Anyone have
any idea what is happening?
from,
Matthew Enger
menger@outblaze.com
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Wed, 16 Aug 2000 09:45:29 +0200
From: "Dr. Peter Dintelmann" <Peter.Dintelmann@dresdner-bank.com>
Subject: Re: Problem with IIS4
Message-Id: <8ndgom$2lq6@intranews.dresdnerbank.de>
Hi,
Larry Rosler schrieb in Nachricht ...
>[Copied by email to the person who posted the Word document.]
--snip-- [I am allowed to post replies only when my own text is
longer than the original one - otherweise my newsserver will not
accept it].
>Usenet is a text-only medium.
I know.
>Posting a binary file that my newsreader
>reports as 1142 lines long is totally unacceptable. I have to figure
>out how to get rid of it without downloading it, which even on my ISDN
>line (at home) will take forever. I can't reply to it directly without
>downloading it.
Sorry for the trouble I caused to you and others.
>PLEASE, PLEASE, PLEASE don't even consider doing such a thing again, Dr.
>Dintelmann!
Sorry for this. I even did not considere doing it once.
My reply was intended as 'email only' since I
consider my answer to be helpful for the
original poster only (and not for the perl community).
But there was no way for me to recall it.
(Sorry, pressing the right buttons is not easy:-)
Peter Dintelmann
------------------------------
Date: 16 Aug 2000 07:03:38 +0100
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: Problem with IIS4
Message-Id: <8ndarq$gr0$1@orpheus.gellyfish.com>
On Tue, 15 Aug 2000 12:34:00 +0200 Felix Brack wrote:
> I just setup Perl on a IIS4 server. When I type the name of
> a perl script at the commandline on the server, perl.exe takes
> the script and everything comes out fine.
> When I want to run the same perl script from within a html page,
> perl.exe does not seem to run, since the data returned is just
> the contents of the perl script, not the output perl.exe should generate
> from my script.
>
Then you have a configuration issue with IIS4 - this is discussed in the
Win32 specific FAQ that comes with the activestate distribution. If you
canot solve the problem there you will want to ask in the newsgroup
comp.infosystems.www.servers.ms-windows or indeed even search on Deja News
as this question is asked all of the time.
/J\
--
yapc::Europe in assocation with the Institute Of Contemporary Arts
<http://www.yapc.org/Europe/> <http://www.ica.org.uk>
------------------------------
Date: 16 Aug 2000 08:05:45 GMT
From: vek@pharmnl.ohout.pharmapartners.nl (Villy Kruse)
Subject: Re: Quiting a: while (<STDIN>)
Message-Id: <slrn8pkiqo.spe.vek@pharmnl.ohout.pharmapartners.nl>
On Tue, 15 Aug 2000 13:38:21 -0700, Tim Conrow <tim@ipac.caltech.edu> wrote:
>"Tony L. Svanstrom" wrote:
>> I've got a while (<STDIN>) where I do something with each line I get,
>> but in some cases I might want only the first few lines, of what could
>> be several meg. The question is: What is the most correct way of leaving
>> it while there's still data to accept?
>>
>> Maybe a simple last to get out of it is enough, maybe I have to accept
>> it all, to avoid an error message otherwise... Anyone that knows for
>> sure?
>
>I don't mean to be snarky, but what's wrong with running an experiment and
>finding out? You'll know for sure alot faster than by posting to Usenet.
>
>perl -we 'my $n=0; while(<STDIN>) { last if ++$n > 3; print; }'
>
>What happens when you type 3 lines of input at your terminal after executing
>this one-liner?
>
Anything you type in after the perl script closes STDIN will go to the
shell. If you program reads from a pipe then the sending process might
get a SIGPIPE signale or EPIPE error which may or may not be considered
an error. This is an issue of you pipe a mail message into a program
directly from sendmail (via a .forward entry). If the program (perl
script) does not read STDIN all the way up to EOF then sendmail might
consider the delivery to fail. Of course if you break out of a
while (<STDIN>) loop you can make another loope to read and discard
input.
Villy
------------------------------
Date: 16 Aug 2000 08:00:04 +0100
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: strict and recursive functions
Message-Id: <8nde5k$gvu$1@orpheus.gellyfish.com>
On Tue, 15 Aug 2000 13:43:45 +0200 Uwe Doetzkies wrote:
> i think, there must be a faq anywhere, but i didn't found it:
>
> what is the problem to use strict and local simultaneous? look at this
> script:
>
> ---
> #!/usr/bin/perl
>
> use strict;
>
> my $val = shift;
> print "$val! = ${\fak($val)}\n";
>
> sub fak {
> local $cur = shift;
> return 1 if $cur == 1;
> return $cur * fak ($cur-1);
> }
>
> ---
> the output is
>
> Global symbol "$cur" requires explicit package name at fak.pl line 9.
> Execution of fak.pl aborted due to compilation errors.
>
you can either use an explicit package name (i.e. always call it
$main::cur ) or predeclare it with 'use vars' or 'our' as it says in
the perldiag entry for this message.
/J\
--
yapc::Europe in assocation with the Institute Of Contemporary Arts
<http://www.yapc.org/Europe/> <http://www.ica.org.uk>
------------------------------
Date: 16 Aug 2000 08:23:16 +0100
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: Subroutine being redefined in module
Message-Id: <8ndfh4$h1e$1@orpheus.gellyfish.com>
On Mon, 14 Aug 2000 15:28:12 -0700 G wrote:
> Hi,
> Im getting "Subroutine signoff_html redefined at Validation.pm
> line 173" when i do a # perl -wc Validation.pm but the syntax is
> OK. Using Perl version 5.005_03 built for i386-linux.
>
> Using diagnostics, i get:
>
> (W) You redefined a subroutine. To suppress this warning,
> say
>
> {
> local $^W = 0;
> eval "sub name { ... }";
> }
>
> Just wondering what did that mean and also whether it was ok to
> ignore that message....
>
The message means what it says - that you have defined a subroutine
signoff_html in Validation.pm but a subroutine of the same name has
already been defined in that namespace - either earlier in the same
file or in some file used or required by that file. Unless you know
why you are getting the message (i.e. you have very good reason to be
redefining the subroutine ) then you should not ignore it. As you
are working with module files a strong possibility is that you have
either neglected to provide a 'package Validator' (or whatever) or
have made a typo and made two packages with the same name. You should
examine the code or documentation of all the files and modules that you
are using to determine with of them is defining a sub signoff_html.
/J\
--
yapc::Europe in assocation with the Institute Of Contemporary Arts
<http://www.yapc.org/Europe/> <http://www.ica.org.uk>
------------------------------
Date: 15 Aug 2000 20:57:06 +0100
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: tag parsing.
Message-Id: <8nc7ai$8hu$1@orpheus.gellyfish.com>
On Tue, 15 Aug 2000 05:45:08 GMT johnvert@my-deja.com wrote:
> Could you please clarify what you mean by ``consistently changing your
> parameters with each response provided''? I have no idea what you
> mean.
Nobody has any idea what the troll means - just ignore.
/J\
--
yapc::Europe in assocation with the Institute Of Contemporary Arts
<http://www.yapc.org/Europe/> <http://www.ica.org.uk>
------------------------------
Date: Wed, 16 Aug 2000 11:47:03 +0200
From: Ulrich Ackermann <uackermann@orga.com>
Subject: Re: Trouble finding keys of multidimesional array
Message-Id: <399A6317.718DC578@orga.com>
danny@lennon.postino.com wrote:
>
> User-Agent: tin/1.4.2-20000205 ("Possession") (UNIX) (Linux/2.2.14-5.0 (i586))
>
> I have a hash $Comments{key1}{key2} and am trying to fing the values of
> the second keys. I tried:
>
> foreach $key ( keys %Comments ) {
> print "$key : ", $Comments{$key} ,"\n" ;
> foreach $key2 ( keys %Comments{$key} ) {
You cannot store hashes as a hash value. Maybe you got a hash reference
as a value of the first key. So maybe your code might work with the
above line changed to
foreach $key2 ( keys %$Comments{$key} ) {
^^^
As I mentioned before, I am not quite sure if this solves your problem,
because I am no Perl guru ;-)
HTH,
Ulrich
--
Ulrich Ackermann
ORGA Kartensysteme GmbH (SY-PEAT-STA)
Tel.:+49.5254.991-925
mailto:uackermann@orga.com
------------------------------
Date: 15 Aug 2000 21:55:40 +0100
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: what the heck is C<$_> ??
Message-Id: <8ncaoc$fm7$1@orpheus.gellyfish.com>
On 14 Aug 2000 23:40:12 GMT John Stanley wrote:
> In article <z7%l5.19517$f_5.91278@news1.rdc1.ct.home.com>,
> Decklin Foster <decklin+usenet@red-bean.com> wrote:
>>John Stanley <stanley@skyking.OCE.ORST.EDU> writes:
>>
>>> It's called "pod". It's "Yet Another Markup Language". People who want
>>> to impress you with their knowledge of perl will use such "markup" in
>>> their postings to this group, just to make reading what they have to say
>>
>>*plonk*
>
> Do YOU have an explanation why someone would use pod in the Subject of a
> USENET article?
>
I dont think that the OP was knowingly using POD in the article - I think
that he was actually asking what the literal construct 'C<$_>' meant.
/J\
--
yapc::Europe in assocation with the Institute Of Contemporary Arts
<http://www.yapc.org/Europe/> <http://www.ica.org.uk>
------------------------------
Date: Wed, 16 Aug 2000 10:05:21 +0100
From: Alex Buell <alex.buell@tahallah.clara.co.uk>
Subject: Re: What's the best way to overwrite a string with '*?
Message-Id: <89mkps4qffld7qjkeds6sua0j8mngbde94@4ax.com>
On Tue, 15 Aug 2000 12:00:55 -0700, "Lauren Smith"
<lauren_smith13@hotmail.com> wrote:
>But is that *really* the question? Could this be an AB question and you are
>really wondering how to get a password from a user?
No. See posts in this thread.
Anyway, $n =~ tr//*/c works a treat.
Cheers,
Alex.
--
Bring on the music and lights!
http://www.tahallah.clara.co.uk
------------------------------
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 4031
**************************************
