[13531] in Perl-Users-Digest
Perl-Users Digest, Issue: 941 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Sep 29 08:07:16 1999
Date: Wed, 29 Sep 1999 05:05:09 -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: <938606709-v9-i941@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Wed, 29 Sep 1999 Volume: 9 Number: 941
Today's topics:
Re: a question of buttons <flavell@mail.cern.ch>
acos function jmn.ac.delete@abanet.it
Backreference in Regex Code Block? <kbandes@home.com>
Re: Backreference in Regex Code Block? <steven@ircnet.dk>
Re: Can Perl interface a compiled C program and a web s (Michael Orion Jackson)
counting problem (Fulko van Westrenen)
Re: DBD::Pg + SELECT not working (Scott McMahan)
Re: Determin IP address of client Browser <flavell@mail.cern.ch>
Re: Expert question: wrapping a subroutine (Anno Siegel)
Re: gcos/gecos <picaza@chsi.com>
Need a copy of Perl 5.0 for NT (Dadwalrus)
Need a copy of Perl 5.0 for NT ldh7@my-deja.com
Re: New book: Automating Windows With Perl (Scott McMahan)
Re: New book: Automating Windows With Perl (Scott McMahan)
Re: Perl - SQL examples nileshnimkar@my-deja.com
Re: Pop-Up reminder <sr@pc-plus.de>
Re: print (Anno Siegel)
Sendmail and Perl in NT ldh7@my-deja.com
Re: Telnet scripting in Perl? (Michael Orion Jackson)
Re: time (Abigail)
Re: UNIX (Solaris 2.6) to NT ACCESS DB? (Scott McMahan)
Re: Warning: Subroutine redefined (What to do ?) (Abigail)
Wow! cgi.pm is great! <rcampos@mapson.net>
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Wed, 29 Sep 1999 11:49:29 +0200
From: "Alan J. Flavell" <flavell@mail.cern.ch>
Subject: Re: a question of buttons
Message-Id: <Pine.HPP.3.95a.990929114632.16629B-100000@hpplus01.cern.ch>
On Tue, 28 Sep 1999, David P. Schwartz demonstrated the benefits of
ostentatious rudeness in the face of all attempts at clueing him in.
that's it. You don't want to join the usenet community, you just want
to be a nuisance. Don't worry - the various polite attempts to help you
will fade away, and you'll get your wish granted.
------------------------------
Date: 29 Sep 99 10:45:10 GMT
From: jmn.ac.delete@abanet.it
Subject: acos function
Message-Id: <37f1edb6.0@etsv0008>
Hi,
Has anyone a acos (cos-1, arccos) function for Perl.
I am using NT.
I don't want to/can't(?) use POSIX acos.
I am aware of the standard series expansions.
I am aware of the standard polynomial approximations.
I am lazy.
Thank you,
John.
----------------------------------------------------
"The Mosiac code has replaced the law of the Jungle"
James Joyce - Ulysses
------------------------------
Date: Wed, 29 Sep 1999 11:00:32 GMT
From: Kenneth Bandes <kbandes@home.com>
Subject: Backreference in Regex Code Block?
Message-Id: <37F1F172.F0162186@home.com>
I'm trying to use a backreference within a regex code block so
the code can operate on the matched text, but the backreference
variable, $1, is uninitialized at that point. Anyone know how I
can do this?
Here's some code:
require 5.005;
use strict;
$_ = "(x)";
if(/
\((.*)\) #match stuff in parens
(?{ print "inside regex: $1\n";})
/x)
{
print "outside regex: $1\n";
}
This gets me the following output:
Use of uninitialized value at (re_eval 1) line 1.
inside regex:
outside regex: x
Why doesn't $1 contain "x" within the code block? I've read
and re-read perlre, but it has no examples of this.
What I'm trying to do is create a regex that applies itself
recursively:
$exp = qr/^(x|\((.*)\)(?{ $2 =~ m{$exp} }))$/;
which would behave like a recursive-descent parser. But
I have to solve this reference problem.
Any help is greatly appreciated.
Ken Bandes
------------------------------
Date: 29 Sep 1999 12:04:31 GMT
From: Steven Cotton <steven@ircnet.dk>
Subject: Re: Backreference in Regex Code Block?
Message-Id: <7ssv8f$c8v$1@news.inet.tele.dk>
On Wed, 29 Sep 1999, Kenneth Bandes wrote in comp.lang.perl.misc:
> I'm trying to use a backreference within a regex code block so
> the code can operate on the matched text, but the backreference
> variable, $1, is uninitialized at that point. Anyone know how I
> can do this?
Couldn't see the wood for the trees perhaps :) From perlre:
When the bracketing construct ( ... ) is used, \<digit>
matches the digit'th substring. Outside of the pattern,
always use "$" instead of "\" in front of the digit.
--
steven
------------------------------
Date: 29 Sep 1999 11:49:52 GMT
From: orion@ccwf.cc.utexas.edu (Michael Orion Jackson)
Subject: Re: Can Perl interface a compiled C program and a web site in HTML?
Message-Id: <7ssud0$is5$2@geraldo.cc.utexas.edu>
d.k. henderson (dalekh@hotmail.com) wrote:
: >I have a large C program I'd like to connect to a web site for users to
: >execute. I don't know how to start. Can I use Perl?
: Here is an C CGI library that can be used with any compiler:
: http://www.geocities.com/SiliconValley/Vista/6493/projects/cgi-lib.html
Well, one option that presents itself if you don't want to make your C
binary a cgi app too or include perl into it is just get the appropriate
command-line arguments for it from a form via CGI.pm, execute it with
those optins (something like $output = system("/path/to/exe $options"); I
guess), and generate a page to send back by including the output in it.
Be sure to make sure the input string of options doesn't have something
nasty embedded in it by a malicios user.
If you're at a loss, buy and read _Learning Perl_, followed by all the
on-line docs you can get your hands on. Perl In A Nutshell is good too,
but it isn't for rank newbies.
Good luck getting everything working! :^)
--
*****************Michael Orion Jackson******************
***********TAMS Class of 96/UT Class of 200?************
*********************Random Quote:**********************
*Chemistry is not for the soft-brained or weak-hearted.*
********************************************************
------------------------------
Date: 29 Sep 1999 10:25:00 GMT
From: fulko@dizzy.ipo.tue.nl (Fulko van Westrenen)
Subject: counting problem
Message-Id: <slrn7v3q7r.1ge.fulko@dizzy.ipo.tue.nl>
Hello,
I have a problem with counting. My data is stored in a large hash
of records and each record has one field that codes its type,
a one-letter string.
I want to know the sums of the different types. For this I made the
following code but it keeps giving me error messages about the counters.
Can anyone give me a hint on how to fix it?
.
.
foreach $tmp (@sortrec){
$sum++;
@tr = split (/;/, $tmp);
$pntr = $tr[0];
@tr = split(/;/,$dataset{$pntr});
$_ = $tr[17];
/w/ && $wijzig++;
/n/ && $nieuw++;
/o/ && $onbekend++;
/a/ && $actief++;
/i/ && $inactief++;
/b/ && $blokkeer++;
/v/ && $verwijder++;
}
The counters have Dutch names but that won't be a problem.
Thanks,
Fulko
--
Fulko van Westrenen
email: f.c.v.westrenen@tue.nl
------------------------------
Date: Wed, 29 Sep 1999 11:47:18 GMT
From: scott@aravis.softbase.com (Scott McMahan)
Subject: Re: DBD::Pg + SELECT not working
Message-Id: <a%mI3.25$O51.1163@monger.newsread.com>
Kenneth Graves (kag@kag.citysource.com) wrote:
> Show us your code.
I'll have to get it off my non-networked Linux box and on a machine
connected to the Internet first :) It's almost identical to the
code in the Perl Resource Kit for UNIX for DBI -- all I did was
add a create/drop table so I could run it over and over.
I wondered if there was any known bug in the DBD module that
could cause this.
Scott
------------------------------
Date: Wed, 29 Sep 1999 11:44:45 +0200
From: "Alan J. Flavell" <flavell@mail.cern.ch>
Subject: Re: Determin IP address of client Browser
Message-Id: <Pine.HPP.3.95a.990929114034.16629A-100000@hpplus01.cern.ch>
On 29 Sep 1999, Abigail wrote:
> Assuming you are writing your own server (otherwise, you wouldn't be
> posting *here*, now would you?) you should use the return value of the
> accept() system call.
Which in general will give the last proxy in the chain of proxies from
the client to the server. I'd say the questioner needs to re-evaluate
their requirement, since this is the only piece of reasonably reliable
data they're going to get.
------------------------------
Date: 29 Sep 1999 11:01:39 -0000
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: Expert question: wrapping a subroutine
Message-Id: <7ssrij$9kg$1@lublin.zrz.tu-berlin.de>
Abigail <abigail@delanet.com> wrote in comp.lang.perl.misc:
>Anno Siegel (anno4000@lublin.zrz.tu-berlin.de) wrote on MMCCXIX September
>MCMXCIII in <URL:news:7sqm85$80h$1@lublin.zrz.tu-berlin.de>:
><> Sure. You can alias the given sub to a typeglob:
><>
><> *given_orig = \&given;
><>
><> You may want to do this in a begin block to make sure it has
><> happened before it is called. Then redefine
><>
><> sub given {
><> my @param = @_;
><> # Prepare stuff, modifying @param (say)
><> my $result = given_orig( @param); # Call the original
><> # modify $result
><> return $result;
><> }
>
>That doesn't work. All it does is *aliasing* &given_orig and &given. If
>you then redefine &given, &given_orig changes as well (-w will issue a
>warning). The above example leads to infinite recursion.
You are jumping to conclusions. Have you run a test?
If a tiny amount of gloating is apparent here, it's entirely your
own fault. Why do you have to be *always* right? :)
Assigning to the typeglob *given_orig safely squirrels away a reference
to the original code of given. A later redefinition doesn't change
this. Using a plain coderef instead of a typeglob works too, but isn't
transparent to callers of given().
Unlike a reference to a variable, which points to a place to store
things, and is thus subject to later changes, a coderef points directly
to the generated code. When you redefine a sub, the new code is stored
elsewhere, so the original coderef remains valid. At least, that's
how I understand why the following works:
#!/usr/bin/perl
use strict;
BEGIN { # emulate use <Some::Module>;
sub given {
print "given called\n";
}
}
BEGIN { # save original sub given
*given_orig = \&given;
}
{ local $^W = 0; # avoid some noise
sub given {
print "about to call the original given\n";
given_orig();
print "back from call to original given\n";
}
}
given();
__END__
about to call the original given
given called
back from call to original given
Anno
------------------------------
Date: Wed, 29 Sep 1999 07:28:28 -0400
From: "Peter Icaza" <picaza@chsi.com>
Subject: Re: gcos/gecos
Message-Id: <7sst41$2u50$1@pike.uhc.com>
> General (Electric) Comprehensive? Operating System
>
thanks. how would anyone else but you know this? i got some pretty funny
looks from people i asked, ("who cares?"). i should have looked on the web
but i didnt think of that thinking "its gotta be in here someplace...".
was it first documented in the stonehedge, (not related to randal), user's
guide? :)
again,
thanks for the arcania, (is that a word?)
------------------------------
Date: 29 Sep 1999 11:42:15 GMT
From: dadwalrus@aol.com (Dadwalrus)
Subject: Need a copy of Perl 5.0 for NT
Message-Id: <19990929074215.11149.00000011@ng-bh1.aol.com>
Does anyone know where I can download a copy of Perl 5.0 for Windows NT?
Any help would be appreciated.
Thank you,
Laura
------------------------------
Date: Wed, 29 Sep 1999 11:45:21 GMT
From: ldh7@my-deja.com
Subject: Need a copy of Perl 5.0 for NT
Message-Id: <7ssu4f$t42$1@nnrp1.deja.com>
Does anyone know where I can find a copy of Perl 5.0 for Windows NT
that is available for downloading?
Any help would be appreciated.
Thank you,
Laura
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Wed, 29 Sep 1999 11:54:36 GMT
From: scott@aravis.softbase.com (Scott McMahan)
Subject: Re: New book: Automating Windows With Perl
Message-Id: <06nI3.28$O51.1163@monger.newsread.com>
Kragen Sitaker (kragen@dnaco.net) wrote:
> - the author likes bright colors;
You got it. :)
> - the author is probably mostly familiar with Microsoft Windows...
Well, the book's about Windows, which gives you the impression; I'm
actually a UNIX hacker who migrated to Windows several years ago and
live in both worlds. In terms of time, I've done UNIX a lot longer.
> ... because he refers to "the
> Microsoft concept of Automation" on the web page;
Automation is the name Microsoft gives to noninteractive application
control through COM. The book explains all this in detail.
> - the author claims Randal reviewed a draft of the book, which is an excellent
> sign, but he misspells Randal's name :)
Oops. Actually, R&D did that and I just copied their blurb :) Live
and learn.
> - the publisher is "R&D Books", rdbooks.com, which appears to be a subsidiary
> of Miller Freeman books.
They publish the C/C++ User's Journal. I get that just to read Plauger's
column. In my other career as a book reviewer, I've seen several of
their books, and they have a high quality level overall. They're a
niche publisher, like O'Reilly used to be back in the pre-Internet days,
publishing the books that the big companies don't think are worth it.
> I'll read the book -- or at least some of it -- when my bookstore gets
> a copy and post my impressions.
The problem is advance orders were low, and most bookstores will not
get copies. That's the impetus for a grassroots campaign.
Scott
------------------------------
Date: Wed, 29 Sep 1999 12:00:56 GMT
From: scott@aravis.softbase.com (Scott McMahan)
Subject: Re: New book: Automating Windows With Perl
Message-Id: <YbnI3.32$O51.1163@monger.newsread.com>
Randal L. Schwartz (merlyn@stonehenge.com) wrote:
> I probably could have rewritten every program in about 1/3 of
> the lines, but that's, uh, just me. :)
That's one of the points I try to make in the book -- there's more than
one way to do it, and meat-and-potatoes code is okay, too. I also come
from a C and C++ background, and do things in a C-ish way. Randal does
things in a pure Perl way. At the time I was writing this book, I was
doing a HUGE project in C++. It's hard to switch gears mentally sometimes.
Perl code tends to take on the personality of the dominant language
of the coder; if you "think C" you get C-ish Perl, if you come from a
scripting/awk background, you have scriptish Perl, and if you write in
Perl all the time you get into a "pure Perl". People for whom Perl is
a second language, not the primary one, will appreciate the book.
Randal's comments were great -- I fixed several goofs, and also have
philosophical discussions on certain points where I wrote the code
one way, and he suggested another. The only thing I wish I could have
done was write a date formatting module to replace some of my in-line
sprinf-marathons, but time did not allow that.
> In general, the author looked like he had at least made *working*
> code...
All the code in the book is taken, for the most part, from applications
I use in production for system administration -- they're real!
They may not be flashy, but they work.
Scott
------------------------------
Date: Wed, 29 Sep 1999 10:19:50 GMT
From: nileshnimkar@my-deja.com
Subject: Re: Perl - SQL examples
Message-Id: <7ssp40$q0f$1@nnrp1.deja.com>
In article <37f479dc.2094102@news.cyberway.com.sg>,
jason@generationterrorists.com wrote:
> Hi
>
> Where on to net can I find examples/tutorials on using Perl together
> with SQL commands?
>
> In particular, I'm looking to query a database with multiple keywords
> using SQL and Perl.
>
> Thanks
>
> JQ
>
To access various databases you get various Modules of perl like Sybperl
and oraperl. Find one to suite your needs.
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Wed, 29 Sep 1999 12:56:00 +0200
From: Stephen Riehm <sr@pc-plus.de>
Subject: Re: Pop-Up reminder
Message-Id: <37F1F040.306596A3@pc-plus.de>
This is a multi-part message in MIME format.
--------------CC910BECE423D5FEEF8DBC85
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Abigail wrote:
>
> Dale Bohl (dbohl@sgi.com) wrote on MMCCXIX September MCMXCIII in
> <URL:news:37F0D6C3.56C3D663@sgi.com>:
> @@
> @@ Does anyone know where I can get a pop-up gui reminder
> @@ that will pop up for a short time or be terminated
> @@ when a button is clicked?
>
> And your Perl question is?
Rather than being snide, you could offer him something usefull like a
perl-tk script which pops up a dialog message. See the attatchment for
my really simple version. It's way from perfect, but I never even
thought of distributing it.
I personally use it for letting me know when a long job has finished,
ie:
make ; xdialog "make finished"
and in my window manager I've got a menu with various delays - sort of
like a short term alarm clock (ie: so that I don't forget to take the
pizza out of the over etc). You could just as easily set up a cron job
to pop up your reminder once an hour.
I hope my script helps - if not, keep looking :-)
(and good luck with your back!)
Steve
--------------CC910BECE423D5FEEF8DBC85
Content-Type: text/plain; charset=us-ascii;
name="xdialog"
Content-Transfer-Encoding: 7bit
Content-Disposition: inline;
filename="xdialog"
#!/usr/local/bin/perl -w
########################################################################
#
# xdialog -- a perl replacement for the tcl/tk xdialog
#
########################################################################
# Usage:
#
# xdialog message
#
########################################################################
# Description:
#
# xdialog.p
# xdialog.p simply takes the text from the command line, and
# creates an X11 dialog box with the text as the messaage.
#
########################################################################
# Administration:
#
# Author: Stephen Riehm, PC-Plus Computing, Germany
# Maintainer: Author
# Creation date: 21.11.96
# Version date: 97/06/17 14:03:09
#
########################################################################
# "@(#) scripts/bin/xdialog, ZET_TOOLS, LOCAL_SCRIPTS, 1.2"
#
# Get all the things we need
#
require 5.002;
use Tk;
use strict;
use Getopt::Long;
#
# find out the name of the program - this is used as the title of the window
#
my $program;
( $program = $0 ) =~ s,.*/,,;
#
# tell the use how to use this program if they got the command line
# stuffed up.
#
sub usage
{
print <<_EOUSAGE_;
Usage: $program [-display <display>] message
This program pops up a dialog window in the middle of the
screen, with the text in <message>. The message can be as long
as you like, geometry and formatting is automagically catered
for.
_EOUSAGE_
exit( 1 );
}
#
# parse a command line option if there is one. Basically this is only
# to get the display if someone wants to send a quick dialog to
# another machine
#
$Getopt::Long::autoabbrev = 1;
my %options = ( "display" => \${ENV{'DISPLAY'}} );
&GetOptions( \%options, "display=s" ) || usage();
#
# create a toplevel window
#
my $mw = new MainWindow;
#
# create two frames, one for the message, and one for the button
#
my $top = $mw->Frame( -relief => 'raised', -borderwidth => 1 );
my $bot = $mw->Frame( -relief => 'raised', -borderwidth => 1 );
$top->pack( -side => 'top', -fill => 'both' );
$bot->pack( -side => 'top', -fill => 'both' );
#
# create the message - make it at most 3 inches wide, left justified, etc etc
#
my @message = "@ARGV" || "Ding!";
$top->Label( -bitmap => "warning" )->pack( -side => 'left', padx => '3m' );
$top->Label( -text => "@message", -justify => 'left', -relief => 'flat',
-font => '-*-Times-Medium-R-Normal--*-180-*-*-*-*-*-*', -wraplength => '4i',
)->pack( -side => 'right', -expand => 1, -fill => 'both',
-padx => '2m', -pady => '3m',);
#
# create the OK button in a sunken frame
#
my $ok = $bot->Frame( -relief => 'sunken', -borderwidth => 1 );
my $button = $ok->Button( -text => 'O.K.', -command => sub{exit} );
$button->pack( -in => $ok, -padx => 2, -pady => 2 );
$ok->pack( -padx => '2m', -pady => '3m' );
#
# bind the space and return buttons to kill the process. Klicking on
# the button has a similar effect
#
$mw->bind( '<space>' => sub{$button->flash;exit} );
$mw->bind( '<Return>' => sub{$button->flash;exit} );
#
# remove the window from view, and make sure that all background tasks
# have been completed
#
$mw->withdraw;
$mw->idletasks;
#
# find out how big the screen is, and how big we've requested our
# window to be (the window has an ACTUAL size of 1x1 since it's not
# actually on the screen), and use this information to center the
# window nicely
#
# centered from left to right
#
my $x = int( ( $mw->screenwidth - $mw->reqwidth ) / 2 );
#
# one third down from the top of the screen. It's visually better than
# centered
#
my $y = int( ( $mw->screenheight - $mw->reqheight ) / 3 );
$mw->geometry( "+$x+$y" );
#
# make the window visible again
#
$mw->deiconify;
MainLoop;
--------------CC910BECE423D5FEEF8DBC85--
------------------------------
Date: 29 Sep 1999 11:56:59 -0000
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: print
Message-Id: <7ssuqb$9ld$1@lublin.zrz.tu-berlin.de>
Kragen Sitaker <kragen@dnaco.net> wrote in comp.lang.perl.misc:
>In article <Pine.GSO.4.10.9909281123540.3920-100000@allegro>,
> <buck_naked@NOiname.SPAMcom> wrote:
>>spaces between two words. I am planning to just get the length of the
>>first word and then add spaces based on that. That's easy, but is
>>there a way for me to tell 'print' to print something a certain number
>>of times instead of saying 'print " "' I could say 'print " "*6
>>or something.
>
>You want the 'x' operator.
Well, yes. Maybe he wants printf even more.
Anno
------------------------------
Date: Wed, 29 Sep 1999 11:51:52 GMT
From: ldh7@my-deja.com
Subject: Sendmail and Perl in NT
Message-Id: <7ssugk$te4$1@nnrp1.deja.com>
I am currently working on a project where I am trying to send email
from a server running on Windows 98/Windows NT. I would like to use
Perl 5.0 to send the mail; however, I am having a bit of difficulty in
creating the proper program.
When I run sendmail.pm the system says "use vars;" and "Time::Local" -
I do not have either on my system. This leads me to believe that I am
using the wrong version of Perl. I believe that there is a separate
build of Perl for NT which is different from the build for Win '95.
Is this true? If so, where can I get the NT version?
Is active Perl necessary to run this procedure?
If anyone can give me any advice on how to make this program run,
please
let me know.
Any help would be appreciated.
Thank you,
Laura
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: 29 Sep 1999 11:43:26 GMT
From: orion@ccwf.cc.utexas.edu (Michael Orion Jackson)
Subject: Re: Telnet scripting in Perl?
Message-Id: <7ssu0u$is5$1@geraldo.cc.utexas.edu>
WhilBone (no_mail@to.me) wrote:
: A friend of mine have set up a mail router/firewall on Linux. When I asked
: him today about adding a small script to send some telnet commands to the
: mail server to get it to release my mail he said that it could probably be
: done in perl.
Two sugesstions (just my .02USD):
1) Look into expect for scripting interactive programs. Might be
nicer than perl for that; but YMMV.
2) Try to avoid running anything on a firewall box but the
firewall software (no telnet, no httpd, no mail server, nothing (well,
maybe ssh)). If you just have to use that box for mail too do yourselves
a huge favor and _don't use Sendmail_. Look into qmail or postfix
instead. (Search on www.freshmeat.net if you need a lead.) What's the
point of a firewall that's easily cracked? If you need good printed docs
on security, networking, et al. check the O'Reilly Networking CD
bookshelf, which is a _ton_ of good info for way less than the seperate
books would cost.
Good luck getting everything working! :^)
--
*****************Michael Orion Jackson******************
***********TAMS Class of 96/UT Class of 200?************
*********************Random Quote:**********************
*Chemistry is not for the soft-brained or weak-hearted.*
********************************************************
------------------------------
Date: 29 Sep 1999 05:13:57 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: time
Message-Id: <slrn7v3q1j.a6f.abigail@alexandra.delanet.com>
Matilda Dahlqvist (matilda@crt.se) wrote on MMCCXX September MCMXCIII in
<URL:news:Pine.GSO.4.10.9909291034120.20894-100000@krakatau.firedoor.se>:
|| Is there any way how I can measure time in a program other than seconds, I
|| need milliseconds at least.
Did you try reading the FAQ?
Abigail
--
sub f{sprintf$_[0],$_[1],$_[2]}print f('%c%s',74,f('%c%s',117,f('%c%s',115,f(
'%c%s',116,f('%c%s',32,f('%c%s',97,f('%c%s',0x6e,f('%c%s',111,f('%c%s',116,f(
'%c%s',104,f('%c%s',0x65,f('%c%s',114,f('%c%s',32,f('%c%s',80,f('%c%s',101,f(
'%c%s',114,f('%c%s',0x6c,f('%c%s',32,f('%c%s',0x48,f('%c%s',97,f('%c%s',99,f(
'%c%s',107,f('%c%s',101,f('%c%s',114,f('%c%s',10,)))))))))))))))))))))))))
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: Wed, 29 Sep 1999 12:03:31 GMT
From: scott@aravis.softbase.com (Scott McMahan)
Subject: Re: UNIX (Solaris 2.6) to NT ACCESS DB?
Message-Id: <nenI3.34$O51.1163@monger.newsread.com>
Kragen Sitaker (kragen@dnaco.net) wrote:
> Second, in order to do this, you need to understand the .mdb file
> format.
The problem with this is it isn't a file per se but a COM storage.
The source code is just a bunch of COM calls.
Scott
------------------------------
Date: 29 Sep 1999 05:16:47 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: Warning: Subroutine redefined (What to do ?)
Message-Id: <slrn7v3q6u.a6f.abigail@alexandra.delanet.com>
lesve@geocities.com (lesve@geocities.com) wrote on MMCCXIX September
MCMXCIII in <URL:news:s5iu4vbbgr.fsf@ks.ericsson.se>:
``
`` package HTML::Parser;
``
`` sub start
`` {
`` }
``
`` Subroutine start redefined at ...
``
`` My question is. Is there any possiblity to avoid just this Warning without
`` missing any other warnings. Maybe rewrite the code ?
Yes. Subclass HTML::Parser, and define start in your own package.
Abigail
--
perl -e '* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / /
% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % %;
BEGIN {% % = ($ _ = " " => print "Just Another Perl Hacker\n")}'
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: Wed, 29 Sep 1999 06:19:23 -0500
From: "Campos" <rcampos@mapson.net>
Subject: Wow! cgi.pm is great!
Message-Id: <1EACC8C67F408A35.C92F440C58D21C62.E612E32E92E91B73@lp.airnews.net>
Thanks to all who recommended it over cgi-lib.pl. I have seen the light!
Still have a few formatting issues, though. Is Stein's book any good?
Thanks.
------------------------------
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 941
*************************************
