[23728] in Perl-Users-Digest
Perl-Users Digest, Issue: 5934 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Dec 12 18:10:35 2003
Date: Fri, 12 Dec 2003 15:10:11 -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 Fri, 12 Dec 2003 Volume: 10 Number: 5934
Today's topics:
Re: Newsgroup Searching Program <seawolf@attglobal.net>
package install trouble <linh@chello.no>
Re: package install trouble <spamfilter@dot-app.org>
Re: package install trouble <tony_curtis32@_SPAMTRAP_yahoo.com>
Passing a hash by reference (Niall Macpherson)
Re: Passing a hash by reference <tore@aursand.no>
Re: Passing a hash by reference <jgibson@mail.arc.nasa.gov>
Re: Passing a hash by reference <uri@stemsystems.com>
Re: Proposal: new module, Array::Each? <bmb@ginger.libs.uga.edu>
Re: Proposal: new module, Array::Each? <bmb@ginger.libs.uga.edu>
Re: Proposal: new module, Array::Each? <bmb@ginger.libs.uga.edu>
Re: Proposal: new module, Array::Each? <bmb@ginger.libs.uga.edu>
Re: Proposal: new module, Array::Each? <bmb@ginger.libs.uga.edu>
Re: Scp files to another server help (JoelAshton)
Re: Sending default code back to browser <jgibson@mail.arc.nasa.gov>
SOAP - XMLProblem <blaine@worldweb.com>
Re: Sorting dates...Argument "" isn't numeric <bik.mido@tiscalinet.it>
Re: Static Content Management -- Baking Pages rather th <jeffrey@jhu.edu>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Fri, 12 Dec 2003 20:42:38 GMT
From: Les Hazelton <seawolf@attglobal.net>
Subject: Re: Newsgroup Searching Program
Message-Id: <pan.2003.12.12.20.42.30.812878@attglobal.net>
On Fri, 12 Dec 2003 06:33:05 +0000, Gerard Lanois wrote:
> Les Hazelton <seawolf@attglobal.net> writes:
>
>> I need to supply a port number on the target system to enable the
>> secure connection.
>>
>> I have searched this news group, google and CPAN looking for information
>> on providing a port number for the connection and no luck. Can you point
>> me in the right direction?
>
>
> $nntp = Net::NNTP->new($hostname, Port => $portnum);
>
> The Port argument is not in the Net::NNTP documentation, but if you
> look at the constructor ('new') you'll see Port being passed to
> IO:Socket::INET as PeerPort.
>
> -Gerard
> http://home.san.rr.com/lanois/perl/
Gerard,
I appreciate the reply. I tried your suggestion, but it did not work for
me. Just in case I had written my script incorrectly I copied the one
from the group thread and tired it. Same result. The error I get is:
lrh@Farpoint:~> ./read-news-new-cl.pl
Can't connect to server inetnews.worldnet.att.net: Bad file descriptor
lrh@Farpoint:~>
The code in this test is as follows, except for the user ID & PW:
--------------
#!/usr/bin/perl -w
use strict;
use Net::NNTP;
# set lexical variables
my($SERVER, $account, $password, $port,
$nntp, $articles, $first, $last, $ng_name);
# define NNTP server
$SERVER = 'inetnews.worldnet.att.net';
# Set account, password and secure port numbers
$account = 'user.id';
$password = 'xxxxxxxx';
$port = '563';
# declare new Net::NNTP object - or die with a connection failure
# message
$nntp = Net::NNTP->new($SERVER, Debug=>0, Port=>$port)
or die "Can't connect to server $SERVER: $!\n";
# provide user ID and password for secure connection
$nntp->authinfo($account, $password)
or die "ERROR: Net::NNTP->authinfo() failed.\n";
-------------------------------
Did I misunderstand how to supply the port number or ??
--
Les Hazelton
--- Registered Linux user # 272996 ---
Space is big. You just won't believe how vastly, hugely, mind-bogglingly
big it is. I mean, you may think it's a long way down the road to the
drug store, but that's just peanuts to space.
-- The Hitchhiker's Guide to the Galaxy
------------------------------
Date: Fri, 12 Dec 2003 22:40:19 +0100
From: ngoc <linh@chello.no>
Subject: package install trouble
Message-Id: <oprz27thy7ozc6tv@news.online.no>
Hi
I install Compress::Zlib in Solaris.
> perl Makefile.PL
> make
error message: /usr/ucb/CC language optional software package not
installed.
I have already installed gcc.
What is wrong ?
Ngoc
------------------------------
Date: Fri, 12 Dec 2003 22:17:19 GMT
From: Sherm Pendley <spamfilter@dot-app.org>
Subject: Re: package install trouble
Message-Id: <P7rCb.339$xH2.231153@news1.news.adelphia.net>
ngoc wrote:
> Hi
> I install Compress::Zlib in Solaris.
>
>> perl Makefile.PL
>> make
>
> error message: /usr/ucb/CC language optional software package not
> installed.
> I have already installed gcc.
> What is wrong ?
Sounds like /usr/bin/cc is being used instead of /usr/local/bin/gcc. You
can verify this with "which cc".
Try adjusting your PATH environment variable so that /usr/local/bin
appears before /usr/bin, or set the CC environment variable to point to
the compiler binary you want to use.
sherm--
------------------------------
Date: Fri, 12 Dec 2003 16:24:54 -0600
From: Tony Curtis <tony_curtis32@_SPAMTRAP_yahoo.com>
Subject: Re: package install trouble
Message-Id: <8765gl1xop.fsf@limey.hpcc.uh.edu>
>> On Fri, 12 Dec 2003 22:40:19 +0100,
>> ngoc <linh@chello.no> said:
> Hi I install Compress::Zlib in Solaris.
>> perl Makefile.PL make
> error message: /usr/ucb/CC language optional software
> package not installed. I have already installed gcc. What
> is wrong ?
You mean "/usr/ucb/cc" don't you?
What this means is (probably) that you're trying to add a
module to the perl supplied with Solaris. This perl was built
using Sun's Forte compilers (naturally) and is expecting to
use the same compilers to add things to itself.
The Solaris FAQ should address this:
/usr/ucb/cc...
http://www.science.uva.nl/pub/solaris/solaris2.html#q5.37
perl...
http://www.science.uva.nl/pub/solaris/solaris2.html#q3.75
compilers...
http://www.science.uva.nl/pub/solaris/solaris2.html#q6.1
IIWY I'd build and install your own perl using gcc, and then
add to that. The CPAN module makes this easier than doing it
by hand.
http://stein.cshl.org/genome_informatics/using_perl_modules/installing.html
hth
t
------------------------------
Date: 12 Dec 2003 09:02:29 -0800
From: niall.macpherson@moneyline.com (Niall Macpherson)
Subject: Passing a hash by reference
Message-Id: <a3376e0d.0312120902.6458145e@posting.google.com>
Apologies if this has been covered before - I have seen a number of
posts on this subject but I still cannot work out my code doesn't
work.
I have been working with C / C++ for over 10 years and am fully
conversant with pointers and passing by reference in C. However ,
passing by reference in perl is causing me some problems.
Here is a little bit of test code -
##----------------------------------------------------------------------
sub AddHashEntries
{
my($rh_hashref) = @_;
for($cnt = 0; $cnt < 10; $cnt ++)
{
$value = "value " . $cnt;
$key = "key" . $cnt;
$$rh_hashref{$key} = $value;
}
return;
}
##----------------------------------------------------------------------
sub PrintHashEntries
{
my($rh_hashref) = @_;
foreach my $key (keys $$rh_hashref)
{
print("\nKey = [$key], value = $$rh_hashref{$key}");
}
return;
}
##----------------------------------------------------------------------
my %testhash = {};
AddHashEntries(\%testhash);
print("\nAdded all entries OK");
foreach my $lkey (keys %testhash) ## *** 1 ****
{
print("\nKey = [$lkey], value = $testhash{$lkey}");
}
PrintHashEntries(\%testhash);
##----------------------------------------------------------------------
The values appear to get added to hash OK - the call at *** 1 ****
produces output as I would expect , eg
Added all entries OK
Key = [key7], value = value 7
Key = [HASH(0x1abefac)], value =
Key = [key8], value = value 8
Key = [key9], value = value 9
Key = [key0], value = value 0
Key = [key1], value = value 1
Key = [key2], value = value 2
Key = [key3], value = value 3
Key = [key4], value = value 4
Key = [key5], value = value 5
Key = [key6], value = value 6
However , I can't even get the PrintHashEntries routine to compile - I
get
Type of arg 1 to keys must be hash (not scalar dereference) at
C:\MoreTestStuff\
GMPriceConf\hashreftest.pl line 20, near "$rh_hashref)
"
Execution of C:\MoreTestStuff\GMPriceConf\hashreftest.pl aborted due
to compilat
ion errors.
Can anyone tell me what I am doing wrong ?
Thanks
------------------------------
Date: Fri, 12 Dec 2003 18:22:25 +0100
From: Tore Aursand <tore@aursand.no>
Subject: Re: Passing a hash by reference
Message-Id: <pan.2003.12.12.17.21.59.433134@aursand.no>
On Fri, 12 Dec 2003 09:02:29 -0800, Niall Macpherson wrote:
> sub AddHashEntries
> {
> my($rh_hashref) = @_;
> for($cnt = 0; $cnt < 10; $cnt ++)
> {
> $value = "value " . $cnt;
> $key = "key" . $cnt;
> $$rh_hashref{$key} = $value;
> }
> return;
> }
sub AddHashEntries {
my $rh_hashref = shift;
for ( 1..10 ) {
my $value = 'value ' . $_;
my $key = 'key' . $_;
$rh_hashref->{$key} = $value;
}
}
> sub PrintHashEntries
> {
> my($rh_hashref) = @_;
>
> foreach my $key (keys $$rh_hashref)
> {
> print("\nKey = [$key], value = $$rh_hashref{$key}");
> }
> return;
> }
sub PrintHashEntries {
my $rh_hashref = shift;
foreach ( keys %$rh_hashref ) {
print "\nKey = [$key], value = $rh_hashref->{$_}";
}
}
--
Tore Aursand <tore@aursand.no>
"I didn't have time to write a short letter, so I wrote a long one
instead." -- Mark Twain
------------------------------
Date: Fri, 12 Dec 2003 10:10:52 -0800
From: Jim Gibson <jgibson@mail.arc.nasa.gov>
Subject: Re: Passing a hash by reference
Message-Id: <121220031010524648%jgibson@mail.arc.nasa.gov>
In article <a3376e0d.0312120902.6458145e@posting.google.com>, Niall
Macpherson <niall.macpherson@moneyline.com> wrote:
> Apologies if this has been covered before - I have seen a number of
> posts on this subject but I still cannot work out my code doesn't
> work.
>
> I have been working with C / C++ for over 10 years and am fully
> conversant with pointers and passing by reference in C. However ,
> passing by reference in perl is causing me some problems.
>
> Here is a little bit of test code -
>
> ##----------------------------------------------------------------------
> sub PrintHashEntries
> {
> my($rh_hashref) = @_;
>
> foreach my $key (keys $$rh_hashref)
This should be --------> %$rh_hashref
> {
> print("\nKey = [$key], value = $$rh_hashref{$key}");
> }
> return;
> }
------------------------------
Date: Fri, 12 Dec 2003 18:22:34 GMT
From: Uri Guttman <uri@stemsystems.com>
Subject: Re: Passing a hash by reference
Message-Id: <x71xr928wl.fsf@mail.sysarch.com>
>>>>> "TA" == Tore Aursand <tore@aursand.no> writes:
> sub AddHashEntries {
> my $rh_hashref = shift;
> for ( 1..10 ) {
> my $value = 'value ' . $_;
> my $key = 'key' . $_;
> $rh_hashref->{$key} = $value;
> }
> }
$rh_hashref->{"key$_"} = "value$_" for 1 .. 10 ;
uri
--
Uri Guttman ------ uri@stemsystems.com -------- http://www.stemsystems.com
--Perl Consulting, Stem Development, Systems Architecture, Design and Coding-
Search or Offer Perl Jobs ---------------------------- http://jobs.perl.org
------------------------------
Date: Fri, 12 Dec 2003 15:04:59 -0500
From: Brad Baxter <bmb@ginger.libs.uga.edu>
Subject: Re: Proposal: new module, Array::Each?
Message-Id: <Pine.A41.4.58.0312121456080.22240@ginger.libs.uga.edu>
On Wed, 9 Dec 2003, Bryan Castillo wrote:
> Brad Baxter <bmb@ginger.libs.uga.edu> wrote in message news:<Pine.A41.4.58.0312091240460.6362@ginger.libs.uga.edu>...
> > I'm considering making a new module with the tentative name Array::Each.
> >
> > A draft is available here:
> >
> > http://www.vitabrevis.ws/perl/modules/Array/Each.pm
> > http://www.vitabrevis.ws/perl/modules/Array/Each.pod.html
> The code below ............
>
> use strict;
> use warnings;
> use Array::Each qw/them rewind/;
> $|=1;
> while (1) {
> my @array = map{rand}(1..10);
> while (my ($k,$v) = them(@array)) {
> print "[$k:$v]";
> last if ($k == 0);
> }
> print "\nnext -> ";
> ### rewind(@array); # would fix it
> }
>
> produces..............
>
> next -> [1:0][2:8]
> next -> [0:4]
> next -> [1:4][2:0]
> next -> [0:1]
> next -> [1:0][2:3]
> next -> [0:0]
> next -> [1:9][2:9]
> next -> [0:1]
> next -> [1:6][2:4]
> next -> [0:1]
> next -> [1:0][2:7]
> next -> [0:0]
Hmmm, that's not what it produces for me, but I think I catch your drift.
> I realize that this occurs, because the variable has the same
> reference
> even though it has completely changed. You might want to note
> something
> about breaking out of iteration and how you should call rewind if you
> are
> going to be using the same variable in a loop.
Good point. I think the OO interface would make this moot (meaning that
the scope of the blessed reference should determine the life of the
iterator), but there may be similar situations that the documentation
might make hints about.
> Anyway, I could see how someone might write code that leaves entries
> in your %set variable which are never deleted. This might be a
> problem for a daemon.
Yes. I think the OO interface should take care of this, too.
> Perhaps, some type of syntax as shown below would work.....
> Without keeping a global hash.......
> Of course it would have to be modified to iterate over multiple
> arrays.
>
> (I like your syntax better, I just don't like the way context is
> maintained.
> Although I don't see any better way to do it, while keeping your
> syntax.)
I'm fond of "my syntax" :-), too, but I think OO will win the day.
> I really don't like the idea of the function being named each, but
> that is just my opinion.
Since OO won't export it, I'm still leaning toward 'each'.
Thanks a bunch for the feedback,
Brad
------------------------------
Date: Fri, 12 Dec 2003 15:14:16 -0500
From: Brad Baxter <bmb@ginger.libs.uga.edu>
Subject: Re: Proposal: new module, Array::Each?
Message-Id: <Pine.A41.4.58.0312121505100.22240@ginger.libs.uga.edu>
On Wed, 10 Dec 2003, Anno Siegel wrote:
> Brad Baxter <bmb@ginger.libs.uga.edu> wrote in comp.lang.perl.misc:
> > I'm considering making a new module with the tentative name Array::Each.
> >
> > A draft is available here:
> >
> > http://www.vitabrevis.ws/perl/modules/Array/Each.pm
> > http://www.vitabrevis.ws/perl/modules/Array/Each.pod.html
> By all means, go for an OO approach. This stuff has been shouting
> "object" from the moment we introduced the %i hash with its keys to
> distinguish different iterators.
>
> The user will have to create an iterator object (instead of "spontaneously"
> saying "( $i, $x, $y) = each( @x, @y)"), but it will be much clearer
> what's happening.
I agree.
> > Among other things, this should allow iterating over the same set of
> > arrays using different iterators. Should I bother?
>
> That's one of the advantages of explicit iterators.
>
> > All feedback is appreciated.
>
> Make each() return the index last (after the array elements) instead
> of first. That way the first n values correspond to the n arrays, and
> the index is easy to ignore when it isn't needed.
At first, I didn't like the sound of this, because I had been seeing this
correspondence between array and hash:
my( $index, $value ) = each( @a ) vs. my( $key, $value ) = each( %h )
But then I saw that the more meaningful correspondence might be the case
where someone is deliberately using parallel arrays instead of a hash:
my( $name, $value ) = each( @names, @values )
and may not care about the index. So now I agree with this suggestion.
Thanks!
Brad
------------------------------
Date: Fri, 12 Dec 2003 15:27:46 -0500
From: Brad Baxter <bmb@ginger.libs.uga.edu>
Subject: Re: Proposal: new module, Array::Each?
Message-Id: <Pine.A41.4.58.0312121514440.22240@ginger.libs.uga.edu>
On Wed, 10 Dec 2003, Bryan Castillo wrote:
> anno4000@lublin.zrz.tu-berlin.de (Anno Siegel) wrote in message news:<br7051$h2a$1@mamenchi.zrz.TU-Berlin.DE>...
> > Brad Baxter <bmb@ginger.libs.uga.edu> wrote in comp.lang.perl.misc:
> > > I'm considering making a new module with the tentative name Array::Each.
> > >
> > > A draft is available here:
> > >
> > > http://www.vitabrevis.ws/perl/modules/Array/Each.pm
> > > http://www.vitabrevis.ws/perl/modules/Array/Each.pod.html
> > By all means, go for an OO approach. This stuff has been shouting
> > "object" from the moment we introduced the %i hash with its keys to
> > distinguish different iterators.
> Isn't there some type of Iterator package for perl? Why stop at arrays?
> If there would be an OO approach, why not have iterators for many things.
Not that I found. While I agree you can have iterators for many things,
I'm pretty sure this isn't what I personally want to tackle. :-) Your
examples gave me a good idea what you have in mind, but again, I'll plan
for now to stick with the parallel arrays case.
But it does make me wonder if Iterator::Array might be a better name for
the package. However, my own sense is to stay with Array::Each.
Partly this is because a high-level Iterator category makes me think it
ought to supply an abstract framework that would be extended for each kind
of iteration. I don't think this is the usual case for CPAN, it's just
what comes to mind. But that also is not something I would feel
comfortable taking on.
Many thanks,
Brad
------------------------------
Date: Fri, 12 Dec 2003 15:33:51 -0500
From: Brad Baxter <bmb@ginger.libs.uga.edu>
Subject: Re: Proposal: new module, Array::Each?
Message-Id: <Pine.A41.4.58.0312121527590.22240@ginger.libs.uga.edu>
On Wed, 10 Dec 2003, Eric J. Roode wrote:
> Brad Baxter <bmb@ginger.libs.uga.edu> wrote in
> news:Pine.A41.4.58.0312091240460.6362@ginger.libs.uga.edu:
> > I'm considering making a new module with the tentative name
> > Array::Each.
> >
> > A draft is available here:
> >
> > http://www.vitabrevis.ws/perl/modules/Array/Each.pm
> > http://www.vitabrevis.ws/perl/modules/Array/Each.pod.html
> I think an OO interface is a good idea. If you do that, don't return
> the iteration value with the array values. Use a separate method for
> that.
>
> Perhaps something like this:
>
> $set = Array::Each->new (@x, @y);
> while (my ($x, $y) = $set->each())
> {
> print "Iteration number ", $set->index(), "\n";
> print " x = $x; y = $y\n";
> print " last iteration!\n" if $set->exhausted();
> }
> $set->rewind();
This sounds good to me, except that I do like Anno's suggestion to return
the iteration value as the last element. Your code above would work the
same--you would just be ignoring that element. I would still have a
method like index(), and I like the addition of exhausted().
Thanks!
Brad
------------------------------
Date: Fri, 12 Dec 2003 15:41:38 -0500
From: Brad Baxter <bmb@ginger.libs.uga.edu>
Subject: Re: Proposal: new module, Array::Each?
Message-Id: <Pine.A41.4.58.0312121534010.22240@ginger.libs.uga.edu>
On Tue, 9 Dec 2003, Brad Baxter wrote:
> I'm considering making a new module with the tentative name Array::Each.
>
> A draft is available here:
>
> http://www.vitabrevis.ws/perl/modules/Array/Each.pm
> http://www.vitabrevis.ws/perl/modules/Array/Each.pod.html
So far, I've heard from Bryan, Anno, and Eric--many thanks. Not having
heard strong objections to Array::Each, I'm still leaning in that
direction. I'll also recode the module as an OO one, and present the
result for review before uploading to CPAN (assuming it doesn't crash and
burn). I can't say how soon this will be, given the scarcity of tuits
right about now, but I don't expect anyone will necessarily miss it in the
mean time.
Best regards,
Brad
------------------------------
Date: 12 Dec 2003 13:41:46 -0800
From: happa1975@yahoo.com (JoelAshton)
Subject: Re: Scp files to another server help
Message-Id: <a412c6e1.0312121341.4f829896@posting.google.com>
"Tintin" <me@privacy.net> wrote in message news:<br68g0$28enps$1@ID-172104.news.uni-berlin.de>...
> "JennAshton" <> wrote in message
> news:c5b9b407.0312081805.19193fd1@posting.google.com...
> > Hi,
> >
> > I wrote a simple scp script from my server to pacman server which
> > copies all jpg files to /jennash/ directory.
> >
> > Now, I need help with this script. I would like it to pull not just
> > *.jpg files but other file types as well. Also, is it possible to pull
> > only files that is 3 minutes old? Please help.
> >
> > Thanks!
> >
> > JennAsh
> >
> > #!/usr/bin/perl
> >
> > system('scp /export/www/docs/*.jpg pacman:/export/www/jennash/');
> >
> > exit;
>
> And the relevance to Perl is???
>
> Here's a shell script to do it:
>
> #!/bin/sh
> scp `find /export/www/docs -type f -mmin 3` pacman:/export/www/jennash
Well, seeing your shell script I was able to come up with this
rsync -rt -e /usr/local/bin/ssh /htodcs/www/my_folder/
pacman:/htdocs/www/remote_folder
The above script allows me to execute via command line in Unix.
However, when I saved the script has shell script and tried to
executed via browser it didn't work.
The page displays:
We trust you have received the usual lecture from the local System
Administrator. It usually boils down to these two things: #1) Respect
the privacy of others. #2) Think before you type. Password:
Not sure why it is displaying since the sys-admin open up ssh
connection and a key has been established in my local directory in the
remote server.
Can anyone advise?
------------------------------
Date: Fri, 12 Dec 2003 10:21:36 -0800
From: Jim Gibson <jgibson@mail.arc.nasa.gov>
Subject: Re: Sending default code back to browser
Message-Id: <121220031021363328%jgibson@mail.arc.nasa.gov>
In article <745d2cc4.0312120718.47a017c@posting.google.com>, Page
<page_nix@hotmail.com> wrote:
> I'm not sure how this would work, but I'm guessing it's possible...
>
> I have a Perl script that retrieves one of either two types of files, gifs
> and pdfs. It works well. The URL specifices which gif or pdf is to be
> returned. The script finds the file on the server, opens it, and sends it
> to the user's browser window.
>
> My problem is when the user specifies a file that doesn't exist. Because of
> the nuances of Internet Explorer, if the user used a URL to view a PDF, the
> next time that user uses that same url, a PDF is expected by IE to be
> returned. If I try to return HTML text saying, "Sorry, file not found", IE
> has trouble rendering it since it isn't a PDF this time. So what I'd like
> to do is return a "default" PDF or GIF in the event that the file isn't
> found. I don't want to create a default PDF or GIF file though. In other
> words, I'd like to hardcode the GIF or PDF info in the Perl script.
>
> Is this as easy as opening a PDF in a text editor, copying the code, and
> pasting it into a Perl Print statement (making sure to send the appropriate
> content headers of course)? When I open a GIF in a text editor, I get some
> pretty weird looking Hex code, so I didn't know if this approach would work.
Why don't you try it? If that doesn't work, check out the various PDF
modules on CPAN (I have not used them).
------------------------------
Date: Fri, 12 Dec 2003 19:11:32 GMT
From: "Blaine Everingham" <blaine@worldweb.com>
Subject: SOAP - XMLProblem
Message-Id: <EpoCb.63025$bC.5944@clgrps13>
Hello,
I am having difficulty figuring out how to create a multiref using
SOAP::Lite. Below is an example of some code that I would like to create..
Can someone tell me how to do this using SOAP::Lite.
I am not sure how to get the 'href' tag happening in the getResultsByCity or
how to get he multiRef tag happening...
<ns1:getResultsByCity>
<in0 href="#id0"/>
</ns1:getResultsByCity>
<multiRef id="id0">
... More code..
</multiRef>
------------------------------
Date: 12 Dec 2003 16:50:12 GMT
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: Sorting dates...Argument "" isn't numeric
Message-Id: <es11uvsm573k562bphlghs61s7d5rg4qvk@4ax.com>
On Thu, 11 Dec 2003 22:57:34 -0600, tadmc@augustmail.com (Tad
McClellan) wrote:
>>> my @sorted = sort datecompare grep length(), @date;
>> my @sorted = sort datecompare grep $_, @date; #?
>
>
>The OP wants to eliminate empty strings from @date so as
>to avoid "not numeric" warnings.
>
>That's what my code does.
>
>He does not want to eliminate 0 and '0' as your code would.
Well, I know the difference between *my code* and *your code*. By the
supplied examples I *thought* that a plain 0 or '0' would never end up
in @date, though. Didn't mean to be offensive in your regards...
Michele
--
# This prints: Just another Perl hacker,
seek DATA,15,0 and print q... <DATA>;
__END__
------------------------------
Date: Fri, 12 Dec 2003 14:40:41 -0500
From: Jeffrey Silverman <jeffrey@jhu.edu>
Subject: Re: Static Content Management -- Baking Pages rather than Frying them
Message-Id: <pan.2003.12.12.19.40.40.2426@jhu.edu>
On Wed, 10 Dec 2003 09:54:13 -0800, Ben B wrote:
> All
>
> I'm looking for a tool or series of tools to help me manage the
> content of a website. My request is odd because I have no need to
> manage content on-the-fly. I would be happy to regenerate pages each
> time the content is updated.
>
> I'd need to be able to --
> + supply a 'template' HTML file
> + a file (or optionally a database) to pad out the template
> + include dynamically created navigation -- breadcrumbs and main menu
> for each page
>
> I'd be happy to work in Perl or PHP, but must be able to use these
> tools on a Windows platform. My preference would be for Open Source
> software.
>
> Can you let me know what the 'state of the art' is in this niche area?
> I have looked at some Perl scripts, but they seem not to work on
> Windows (and this is backed up by other user's comments).
>
> Thanks
>
> Ben
Suggested Links:
http://www.opensourcecms.com
http://www.movabletype.org/
http://www.phpnuke.org
--
Jeffrey D. Silverman | jeffrey AT jhu DOT edu
Website | http://www.wse.jhu.edu/newtnotes/
------------------------------
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.
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 5934
***************************************
