[25599] in Perl-Users-Digest
Perl-Users Digest, Issue: 7843 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Mar 1 14:05:37 2005
Date: Tue, 1 Mar 2005 11:05:12 -0800 (PST)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Tue, 1 Mar 2005 Volume: 10 Number: 7843
Today's topics:
Apache::Request installation issues (Terry)
Re: Apache::Request installation issues <joe+usenet@sunstarsys.com>
Re: combining two arrays <mritty@gmail.com>
Re: maximum size of a hash table <tzz@lifelogs.com>
Re: Performance questions (SQL-statements) <not@home.net>
Re: perl and blobs <no@email.com>
Re: Perl help <xx087@freenet.carleton.ca>
Re: perl problem with select and non-blocking sysread f (john)
Re: perl problem with select and non-blocking sysread f <1usa@llenroc.ude.invalid>
Re: Questions about Perl for Windows (Richard Williams)
Re: Questions about Perl for Windows <postmaster@castleamber.com>
Re: Questions about Perl for Windows <postmaster@castleamber.com>
Re: Regexp small question <bernard.el-haginDODGE_THIS@lido-tech.net>
Re: Regexp small question <bernard.el-haginDODGE_THIS@lido-tech.net>
Re: Regexp small question <nobull@mail.com>
Re: Regexp small question <nobull@mail.com>
Re: substract two time var <noreply@gunnar.cc>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 1 Mar 2005 08:00:25 -0800
From: terryintransit@yahoo.com (Terry)
Subject: Apache::Request installation issues
Message-Id: <e8e29af9.0503010800.6b84888e@posting.google.com>
Hi All,
Im trying to install libapreq-1.3 on AIX. Other installed packages
are:
mod_perl-1.27
Apache_1.3.27
perl-5.8.3
When I run the make the error detailed below occurs. Are there any
suggestions as to the cause of this error and possible solutions.
Thanks
Terry
rm -f ../blib/arch/auto/Apache/Request/Request.so
LD_RUN_PATH="" ld -bhalt:4 -bM:SRE
-bI:/usr/local/lib/perl5/5.8.3/aix/CORE/perl.exp -bE:Request.exp
-bnoentry -lc -L/usr/lo
cal/lib Request.o ../blib/arch/auto/libapreq/libapreq.a
-bI:/usr/local/lib/perl5/site_perl/5.8.3/aix/auto/Apache/mod_perl.exp
-o ../
blib/arch/auto/Apache/Request/Request.so
ld: 0711-317 ERROR: Undefined symbol: .ap_table_get
ld: 0711-317 ERROR: Undefined symbol: .ap_pfclose
ld: 0711-317 ERROR: Undefined symbol: .ap_log_rerror
ld: 0711-317 ERROR: Undefined symbol: .ap_getword
ld: 0711-317 ERROR: Undefined symbol: .ap_table_add
ld: 0711-317 ERROR: Undefined symbol: .ap_pstrndup
ld: 0711-317 ERROR: Undefined symbol: .ap_push_array
ld: 0711-317 ERROR: Undefined symbol: .ap_setup_client_block
ld: 0711-317 ERROR: Undefined symbol: .ap_should_client_block
ld: 0711-317 ERROR: Undefined symbol: .ap_pcalloc
ld: 0711-317 ERROR: Undefined symbol: .ap_hard_timeout
ld: 0711-317 ERROR: Undefined symbol: .ap_get_client_block
ld: 0711-317 ERROR: Undefined symbol: .ap_kill_timeout
ld: 0711-317 ERROR: Undefined symbol: .ap_pstrdup
ld: 0711-317 ERROR: Undefined symbol: ap_day_snames
ld: 0711-317 ERROR: Undefined symbol: ap_month_snames
ld: 0711-317 ERROR: Undefined symbol: .ap_psprintf
ld: 0711-317 ERROR: Undefined symbol: .ap_popenf
ld: 0711-317 ERROR: Undefined symbol: .ap_pfdopen
ld: 0711-317 ERROR: Undefined symbol: ap_null_cleanup
ld: 0711-317 ERROR: Undefined symbol: .ap_register_cleanup
ld: 0711-317 ERROR: Undefined symbol: .ap_palloc
ld: 0711-317 ERROR: Undefined symbol: .ap_pstrcat
ld: 0711-317 ERROR: Undefined symbol: .ap_make_array
ld: 0711-317 ERROR: Undefined symbol: .ap_table_do
ld: 0711-317 ERROR: Undefined symbol: .ap_make_dirstr_parent
ld: 0711-317 ERROR: Undefined symbol: .ap_find_path_info
ld: 0711-317 ERROR: Undefined symbol: .ap_getword_conf
ld: 0711-317 ERROR: Undefined symbol: .ap_make_table
ld: 0711-317 ERROR: Undefined symbol: .ap_ind
ld: 0711-317 ERROR: Undefined symbol: .ap_table_unset
ld: 0711-317 ERROR: Undefined symbol: .ap_table_set
ld: 0711-345 Use the -bloadmap or -bnoquiet option to obtain more
information.
make: 1254-004 The error code from the last command is 8.
Stop.
make: 1254-004 The error code from the last command is 2.
Stop.
------------------------------
Date: Tue, 01 Mar 2005 12:32:39 -0500
From: Joe Schaefer <joe+usenet@sunstarsys.com>
Subject: Re: Apache::Request installation issues
Message-Id: <874qfvb7bc.fsf@gemini.sunstarsys.com>
terryintransit@yahoo.com (Terry) writes:
> Hi All,
>
> Im trying to install libapreq-1.3 on AIX. Other installed packages
> are:
> mod_perl-1.27
> Apache_1.3.27
> perl-5.8.3
>
> When I run the make the error detailed below occurs. Are there any
> suggestions as to the cause of this error and possible solutions.
Try 1.33; IIRC AIX requires some special linker flags
(mainly to tell it that these symbols will be provided
by httpd). If 1.33 doesn't compile on AIX, email the
developer mailing list over at apreq-dev @ httpd.apache.org.
--
Joe Schaefer
------------------------------
Date: Tue, 01 Mar 2005 14:29:57 GMT
From: "Paul Lalli" <mritty@gmail.com>
Subject: Re: combining two arrays
Message-Id: <F%_Ud.53159$sR5.29055@trndny05>
"Jim Gibson" <jgibson@mail.arc.nasa.gov> wrote in message
news:280220051620113899%jgibson@mail.arc.nasa.gov...
> In article <1109633342.736732.181440@l41g2000cwc.googlegroups.com>,
> <tgiles@gmail.com> wrote:
>
> > Hi, all. This should be trivial but for some reason I'm terribly
stuck.
> > I suppose that it's just not clicking in some fundamental way for
me.
> >
> > I am attempting to combine two arrays into a third array:
> >
> > @one = qw(a-one a-two a-three a-four);
> > @two = qw(b-one b-two b-three b-four);
> >
> > I'll save you my code mangling and just move to what my goal of the
> > output would be...
> >
> > The output would return something on the order of:
> >
> > a-one b-one
> > a-two b-two
> > a-three b-three
> > a-four b-four
> >
> > there will always be a 1:1 correspondence between stuff on the left
and
> > right, so there's no chance of an empty entry in the array. Going to
> > look into hashes now- perhaps that's what I needed all along.
>
> A good candidate for C-style loops, assuming you really want string
> concatenation with one space inserted between strings (untested):
>
> my @three;
> for( my $i = 0; $i < @one; $i++ ) {
> $three[$i] = "$one[$i] $two[$i]";
> }
There's no reason to use C-Style for loops here:
for (0..$#one){
push @three, "$one[$_] $two[$_]";
}
or more perl-ish...
my @three = map "$one[$_] $two[$_]", 0..$#one;
Paul Lalli
------------------------------
Date: Tue, 01 Mar 2005 13:58:04 -0500
From: Ted Zlatanov <tzz@lifelogs.com>
Subject: Re: maximum size of a hash table
Message-Id: <4nd5ujkxc3.fsf@lifelogs.com>
On 28 Feb 2005, postmaster@castleamber.com wrote:
> I can't think of any advantage of an O(n) look up hash table, it works
> like an unsorted list, see above.
I have to disagree with the "any" part. O(n) can mean a lot of things
in practice. If the constant part is large enough, it can make a
difference in specific real-life situations. Also if the n is known
to be in specific ranges, an O(n) algorithm may well be better than an
O(log(n)).
Ted
------------------------------
Date: Tue, 01 Mar 2005 18:58:42 GMT
From: "JayEs" <not@home.net>
Subject: Re: Performance questions (SQL-statements)
Message-Id: <CX2Vd.59443$iC4.3468@newssvr30.news.prodigy.com>
"Piet L." <PietLaroy@hotmail.com> wrote in message
news:c47f81f6.0503010231.5ba956d0@posting.google.com...
> OK, but even I change it like
>
> "SELECT b.book_id, b.title, l.name, l.firstname
> FROM book b, book_author ba
> LEFT JOIN list_authors l
> ON ba.person_id = l.person_id
> WHERE b.book_id = ba.book_id
> AND ba.person_id = 124"
>
I am with the other people that answered. The left join seems useles. You
are trying to get every b.book_id where the ba.person_id = 124. In plain
english: Show every book for which the person with id 124 is the author.
I would say the following (untested) is more appropriate:
SELECT b.book_id, b.title, l.name, l.firstname
FROM book b, book_author ba, list_authors l
WHERE b.book_id = ba.book_id
AND ba.person_id = l.person_id
AND l.person_id = 124
You mention that a book can have multiple authors, but that is not important
in this query, only that an author can have written multiple books.
UNLESS... UNLESS you also want to show the other authors if a book has
indeed multiple authors. I would use a sub select in that case, but since I
don't know the proper mySQL syntax for that, I won't go there....
How off-topic was this??
------------------------------
Date: Tue, 01 Mar 2005 14:13:14 +0000
From: Brian Wakem <no@email.com>
Subject: Re: perl and blobs
Message-Id: <38jbjtF5o101iU1@individual.net>
Sokar wrote:
> Hello,
>
> I have a perl script that needs to generate an e-mail every day. What it
> does it connects to a database and reads in a stored jpg which was in a blob
> field to a variable called $pic
>
> What I need to be able to do is e-mail this variable as a jpg to a person.
>
> Does anyone know how I can do this without actually creating a .jpg file on
> the server?
>
> Thanks and regards
use MIME::Lite;
my $msg = MIME::Lite->new(
From => $from,
To => $to,
Subject => $subject,
Type =>'multipart/mixed'
);
# add text
$msg->attach(
Type =>'TEXT',
Data => 'This is text in the mail body',
);
# attach image
$msg->attach(Type => 'application/octet-stream',
Data => "$pic",
Filename =>"myfile.jpg",
);
MIME::Lite->send('smtp', 'your.mail.relay', Timeout=>60);
$msg->send;
------------------------------
Date: 1 Mar 2005 15:28:20 GMT
From: Glenn Jackman <xx087@freenet.carleton.ca>
Subject: Re: Perl help
Message-Id: <slrnd292gk.fdi.xx087@smeagol.ncf.ca>
At 2005-03-01 04:57AM, Mukesh <mukesh.d.tupe@gmail.com> wrote:
> $host=`hostname`
> $date=`date +%b%d%g`
> $logdir="$LOGBASEDIR/$date/$host"
> i have set the logdir like this but it is not printing the date & host but just
> displaying the host & date variables.how to set them.Please help me.
Use the %ENV hash to access environment variables.
use Sys::Hostname;
use POSIX qw( strftime );
my $logdir = $ENV{LOGBASEDIR} . '/' .
strftime('%b%d%g', localtime) . '/' .
hostname();
--
Glenn Jackman
NCF Sysadmin
glennj@ncf.ca
------------------------------
Date: 1 Mar 2005 10:54:17 -0800
From: lqueryvg@yahoo.com (john)
Subject: Re: perl problem with select and non-blocking sysread from multiple pipes
Message-Id: <9c8511e0.0503011054.a18023e@posting.google.com>
Brian McCauley <nobull@mail.com> wrote in message news:<d01o4p$cpv$1@sun3.bham.ac.uk>...
> Consider warnings too.
I didn't know about warnings.
Looks like it could save me a lot of time in the future.
I'll try "use warnings" from now on, and see how I get on.
Thanks for the tip.
> Yes, yuk - this is not necessary in 5.6.1 and later - is compatability
> with earlier Perl really needed?
If there's a better way then I'll do it.
I don't like using the 'no strict refs' all over the place and
the indirect filehandle stuff is just plain confusing.
Can you give me any pointers ?
> > close($fh) or die "close failed: $!";
> > vec($readBits, fileno($fh), 1) = 0;
>
> What are you expecting fileno() to return for a filehandle that has been
> close()d? Write a small script to test this expectation :-)
Brian, you're a star! I don't think I'd have spotted that in a million
years.
Wood/trees and all that. If I reverse those last two lines it seems to
work every time. I need to do some more testing with random sleeps and
more concurrent tasks etc.
I have to admit that I don't fully understand why the close() before
the fileno() call was causing that behaviour but I guess that some
things behave in some wierd ways when you call them incorrectly.
Thanks for your help.
------------------------------
Date: Tue, 01 Mar 2005 19:03:53 GMT
From: "A. Sinan Unur" <1usa@llenroc.ude.invalid>
Subject: Re: perl problem with select and non-blocking sysread from multiple pipes
Message-Id: <Xns960C8F1387CE0asu1cornelledu@127.0.0.1>
lqueryvg@yahoo.com (john) wrote in
news:9c8511e0.0503011054.a18023e@posting.google.com:
> Brian McCauley <nobull@mail.com> wrote in message
> news:<d01o4p$cpv$1@sun3.bham.ac.uk>...
>
...
>> Yes, yuk - this is not necessary in 5.6.1 and later - is
>> compatability with earlier Perl really needed?
>
> If there's a better way then I'll do it.
> I don't like using the 'no strict refs' all over the place and
> the indirect filehandle stuff is just plain confusing.
Please quote the appropriate amount of context so we can tell what the
discussion is about.
>> > close($fh) or die "close failed: $!";
>> > vec($readBits, fileno($fh), 1) = 0;
>>
>> What are you expecting fileno() to return for a filehandle that has
>> been close()d? Write a small script to test this expectation :-)
...
> I have to admit that I don't fully understand why the close() before
> the fileno() call was causing that behaviour but I guess that some
> things behave in some wierd ways when you call them incorrectly.
I don't see anything behaving in weird ways:
D:\Home> perldoc -f fileno
fileno FILEHANDLE
Returns the file descriptor for a filehandle, or undefined if
the filehandle is not open.
D:\Home> perldoc -f vec
vec EXPR,OFFSET,BITS
Treats the string in EXPR as a bit vector made up of elements of
width BITS, and returns the value of the element specified by
OFFSET as an unsigned integer.
Sinan
------------------------------
Date: Tue, 1 Mar 2005 18:46:54 +0000 (UTC)
From: rdwillia@hgmp.mrc.ac.uk (Richard Williams)
Subject: Re: Questions about Perl for Windows
Message-Id: <d02dau$cmb$1@helium.hgmp.mrc.ac.uk>
In article <1109643855.662897.130360@z14g2000cwz.googlegroups.com>,
<al2048@aol.com> wrote:
>Also, at my job, I will have the Unix operating system. If I write a
>Perl program on Unix, will this program run on
>IndigoPerl or ActivePerl on Windows Millennium Edition?
One other alternative that might be worth considering is cygwin:
http://www.cygwin.com/
which gives you a pretty complete unix-like environment for Windows,
including Perl (and Apache).
Richard.
------------------------------
Date: 1 Mar 2005 18:59:26 GMT
From: John Bokma <postmaster@castleamber.com>
Subject: Re: Questions about Perl for Windows
Message-Id: <Xns960C842528B4Acastleamber@130.133.1.4>
GreenLeaf wrote:
> John Bokma wrote:
>> Jim Keenan wrote:
>
>>>If you
>>>select this option, then you can simply call:
>>>
>>> C:> myscript.pl
>> Or double click. With PAR (pp) you can even turn "myscript.pl" into
>> an exe which is nice if you want your Perl program running on someone
>> else's computer without installing Perl etc.
>
> Additional Note: parameters passed in shebang line (-w for instance)
> are respected by ActivePerl, once perl is correctly invoked.
>
> It seems that this type of invocation gives problems with IO
> redirections etc. See post
> 1109301761.010105.121350@l41g2000cwc.googlegroups.com for details. In
> double-click, no one bothers about IO redirection anyway, but it's
> better to remember this in command prompt. Anyway the safest way is to
I do a lot myscript.pl > out.txt, which works. I checked the otherway
around ( < in.txt) which indeed doesn't work. Will look into that a bit
more later.
>> Has been replaced ages ago by a nice gecko (?).
>
> komodo dragon. :o) Think of their IDE product.
> http://en.wikipedia.org/wiki/Komodo_Dragon
Well, if that's an komodo dragon than I am a gecko :-) I think it's a
leopard gecko:
<http://images.google.com/images?safe=off&q=leopard%20gecko>
Compare that with:
<http://images.google.com/images?safe=off&q=komodo%20dragon>
>> If you use a nice editor like textpad, you can open with the mouse
>> menu, or better: create a workspace. I do prefer the association :-D.
>>
> For almost any editor, you can create an association from within
> Windows Explorer itself, and give one such association default
> (double-click) status. All will be available from context menu.
What I mean is that TextPad creates a top level entry (besides the Open
With). So I still can easily start them with double click. Since I
create for each project a workspace (I rarely edit one file), with a
double click on the workspace file I open all files in a given workspace
(which can be 16+)
--
John Small Perl scripts: http://johnbokma.com/perl/
Perl programmer available: http://castleamber.com/
Happy Customers: http://castleamber.com/testimonials.html
------------------------------
Date: 1 Mar 2005 19:00:48 GMT
From: John Bokma <postmaster@castleamber.com>
Subject: Re: Questions about Perl for Windows
Message-Id: <Xns960C845FFD9B1castleamber@130.133.1.4>
Peter Wyzl wrote:
> "John Bokma" <postmaster@castleamber.com> wrote in message
> news:Xns960BDEBA78492castleamber@130.133.1.4...
>> Jim Keenan wrote:
>
> <snip>
>
>> > so that Windows knows that any file ending with a certain
>> > abbreviation is to be executed with a certain program. Perl
>> > scripts have traditionally been named with a '.pl' or '.plx'
>> > abbreviation.
>>
>> The latter is more preferred, however ActiveState perl uses .pl. It's
>> not that hard to make .plx work I guess, but .pl seems to be the
>> standard :-(
>
> Traditionally .pl is to run with perl.exe and .plx is to with
> perlis.dll in an ISAPI compliant web server... (well that is the way
> Activestate planned it anyway)
Traditionally .pl stands for perl library, So .plx was suggested for the
not so smart OSes that rely on extensions (IIRC)
--
John Small Perl scripts: http://johnbokma.com/perl/
Perl programmer available: http://castleamber.com/
Happy Customers: http://castleamber.com/testimonials.html
------------------------------
Date: Tue, 1 Mar 2005 15:34:15 +0100
From: "Bernard El-Hagin" <bernard.el-haginDODGE_THIS@lido-tech.net>
Subject: Re: Regexp small question
Message-Id: <Xns960C9E65229Belhber1lidotechnet@62.89.127.66>
Brian McCauley <nobull@mail.com> wrote:
> Anno Siegel wrote:
>
>> Bernard El-Hagin <bernard.el-haginDODGE_THIS@lido-tech.net> wrote
>> in comp.lang.perl.misc:
>>
>>>Brian McCauley <nobull@mail.com> wrote:
>>>
>>>
>>>>Bernard El-Hagin wrote:
>>>>
>>>>
>>>>>if ($str =~ m/^[\w.-]+$/) {
>>>>
>>>>That works but it's also a common idiom to simplify this by
>>>>inverting the char-class and the condition.
>>>>
>>>> if ($str !~ /[^\w.-]/) {
>>>
>>>
>>>Really? That's a common idiom? Personally, I that is absolutely
>>>horrid. I would *never* use it and I most certainly wouldn't call
>>>it a simplification. I guess it's a matter of what one is used
>>>to, but inverting *two* things to get a result one get get
>>>without inverting *any*thing seems...perverse to me. :-)
>>
>>
>> I agree with brian here (hey, it happens :). I find it perfectly
>> natural to go from "consists entirely of ..." to "contains
>> nothing outside of ...". Since the latter doesn't need anchoring
>> and a quantifier, I often prefer it.
>
> The OP was expressed "check a string that will not contain some
> characters", so, in fact, it is Bernard's solution that is a
> double invertion relative to the OP.
The OP said
"The string can be composed of the following chars: All letters and
digits, "-"(minus), "."(dot) and "_"(underscore).
Any idea how to fix the condition???"
This is precisely what I test for.
--
Cheers,
Bernard
------------------------------
Date: Tue, 1 Mar 2005 15:36:49 +0100
From: "Bernard El-Hagin" <bernard.el-haginDODGE_THIS@lido-tech.net>
Subject: Re: Regexp small question
Message-Id: <Xns960C9ED4EEA61elhber1lidotechnet@62.89.127.66>
Brian McCauley <nobull@mail.com> wrote:
>
>
> Arndt Jonasson wrote:
>
>> "Bernard El-Hagin" <bernard.el-haginDODGE_THIS@lido-tech.net>
>> writes:
>>
>>>Brian McCauley <nobull@mail.com> wrote:
>>>
>>>
>>>>Bernard El-Hagin wrote:
>>>>
>>>>
>>>>>if ($str =~ m/^[\w.-]+$/) {
>>>>
>>>>That works but it's also a common idiom to simplify this by
>>>>inverting the char-class and the condition.
>>>>
>>>> if ($str !~ /[^\w.-]/) {
>
>> However, what about empty strings? The two constructions don't
>> treat empty strings the same way. Replacing the '+' with '*'
>> would make them equivalent.
>
> Yes, I hadn't spotted that Bernard's solution did the wrong thing
> with respect to empty strings. For that matter it also does the
> wrong thing with respect to strings with a terminal newline.
The OP stated that he wants to identify strings which contain *only* \w
. and -. My solution will not match an empty string (since it doesn't
contain any of those characters) nor will it match a string with a
newline (terminal or otherwise) since a newline is *not* one of \w, .
or -.
--
Cheers,
Bernard
------------------------------
Date: Tue, 01 Mar 2005 16:09:18 +0000
From: Brian McCauley <nobull@mail.com>
Subject: Re: Regexp small question
Message-Id: <d023pa$ild$1@sun3.bham.ac.uk>
Bernard El-Hagin wrote:
> Brian McCauley <nobull@mail.com> wrote:
>
>>Yes, I hadn't spotted that Bernard's solution did the wrong thing
>>with respect to empty strings. For that matter it also does the
>>wrong thing with respect to strings with a terminal newline.
>
> The OP stated that he wants to identify strings which contain *only* \w
> . and -. My solution will not match an empty string (since it doesn't
> contain any of those characters)
The null string may not contain any of those characters but in a strict
logical sense it _does_ contain *only* those characters. And when it
comes to programming is pays to express things strictly.
> nor will it match a string with a
> newline (terminal or otherwise) since a newline is *not* one of \w, .
> or -.
You didn't test this, did you?
$ perl -e'print "Bernard is wrong\n" if "A\n" =~ m/^[\w.-]+$/'
Bernard is wrong
------------------------------
Date: Tue, 01 Mar 2005 16:14:19 +0000
From: Brian McCauley <nobull@mail.com>
Subject: Re: Regexp small question
Message-Id: <d0242n$ili$1@sun3.bham.ac.uk>
Bernard El-Hagin wrote:
> Brian McCauley <nobull@mail.com> wrote:
>
>>The OP was expressed "check a string that will not contain some
>>characters", so, in fact, it is Bernard's solution that is a
>>double invertion relative to the OP.
>
> The OP said
>
> "The string can be composed of the following chars: All letters and
> digits, "-"(minus), "."(dot) and "_"(underscore).
Yes, you are right the OP first expressed the general problem one way,
then expressed a particular example of the problem the other way round.
Since the OP had already noted the equivalance of the two ways of
expressing the problem neither solution could be considered a double
invertion of the OP.
I stand corrected.
------------------------------
Date: Tue, 01 Mar 2005 15:32:37 +0100
From: Gunnar Hjalmarsson <noreply@gunnar.cc>
Subject: Re: substract two time var
Message-Id: <38jcu0F5oqrpmU1@individual.net>
Alexandre Jaquet wrote:
> Does something exist to substract two variables who contains time values
> or I've to write it ?
>
> Now I've my "times" values
>
> sub getTime {
> return strftime "%H:%M:%S",localtime;
> }
>
> wich return formated Hours : 10:10:31
Even if I'm sure that quite a few modules include methods that might be
used, personally I would have just written the necessary code. The
problem is too trivial to spend time looking for applicable modules.
--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl
------------------------------
Date: 6 Apr 2001 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 6 Apr 01)
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: due to the current flood of worm email banging on ruby, the smtp
server on ruby has been shut off until further notice.
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 V10 Issue 7843
***************************************
