[23932] in Perl-Users-Digest
Perl-Users Digest, Issue: 6133 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sat Feb 14 18:05:42 2004
Date: Sat, 14 Feb 2004 15:05:09 -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 Sat, 14 Feb 2004 Volume: 10 Number: 6133
Today's topics:
Re: => operator, not just fancy comma <kevin@vaildc.net>
Re: => operator, not just fancy comma <nospam-abuse@ilyaz.org>
Re: => operator, not just fancy comma <tassilo.parseval@rwth-aachen.de>
Re: configure, WIN32 <tmohr@s.netic.de>
Re: Getting CGI to read from a different STDIN source (Bill Gerba)
Re: hidden perl <tore@aursand.no>
Re: How to call a perl script that returns nothing in a <pne-news-200402@newton.digitalspace.net>
How to find number of CPUs (Yash)
Re: How to find number of CPUs <matthew.garrish@sympatico.ca>
Re: How to find number of CPUs <Petri_member@newsguy.com>
Image::Magick scale smaller makes file size bigger <gary@abertron.co.uk>
Re: Image::Magick scale smaller makes file size bigger <gnari@simnet.is>
Re: Is Windows running <lv@aol.com>
mac ftp <todd@asgweb.net>
Re: mac ftp <dwall@fastmail.fm>
Re: mac ftp <usenet@morrow.me.uk>
Re: Perl : Cant Find String Terminator <tadmc@augustmail.com>
Re: Perl : Cant Find String Terminator <tadmc@augustmail.com>
Re: Perl usage these days? <usenet@morrow.me.uk>
Re: Perl usage these days? <minter@lunenburg.org>
Re: PERL-SQL and date comparison <rafalk@comcast.net>
Re: Problems with version 5.8.0 on OS/2 <nospam-abuse@ilyaz.org>
Re: Reading html into a source file <matthew.garrish@sympatico.ca>
Save the Bandwidth -smarter way to send the same file a (KK)
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Sat, 14 Feb 2004 15:23:08 -0500
From: Kevin Michael Vail <kevin@vaildc.net>
Subject: Re: => operator, not just fancy comma
Message-Id: <kevin-5275E3.15230814022004@news101.his.com>
In article <x7isiav5bt.fsf@mail.sysarch.com>,
Uri Guttman <uri@stemsystems.com> wrote:
> >>>>> "IZ" == Ilya Zakharevich <nospam-abuse@ilyaz.org> writes:
>
> IZ> -d => @files
>
> IZ> => quotes the preceding identifier ``d'', resulting in
> IZ> -'d', @files.
>
> IZ> Since -'d' is '-d', one gets an illusion that it is ``-d'' which is
> quoted.
> that makes no sense at all. look at this:
>
>
> perl -le '%h = ( -d => 3 ); print keys %h'
> -d
>
> your definition of - should not be part of the key string
> there. something is grabbing the - into the string and it is =>.
So explain this one:
perl -le '%h = ( - 'd', 3); print keys %h'
-d
No => there!
This is under 5.8.1.
--
Found Poetry (_Science News_, 14-Jun-2003): oldest _homo sapiens_ find
+-----------------------------------------+ ocean eddies' far-flung effects;
| Kevin Michael Vail <kevin@vaildc.net> | superior threads spun
+-----------------------------------------+ the pox from prairie dogs.
------------------------------
Date: Sat, 14 Feb 2004 21:44:06 +0000 (UTC)
From: Ilya Zakharevich <nospam-abuse@ilyaz.org>
Subject: Re: => operator, not just fancy comma
Message-Id: <c0m4r6$1ovj$1@agate.berkeley.edu>
[A complimentary Cc of this posting was sent to
Uri Guttman
<uri@stemsystems.com>], who wrote in article <x7isiav5bt.fsf@mail.sysarch.com>:
> IZ> -d => @files
>
> IZ> => quotes the preceding identifier ``d'', resulting in
> IZ> -'d', @files.
>
> IZ> Since -'d' is '-d', one gets an illusion that it is ``-d'' which is quoted.
> that makes no sense at all. look at this:
>
>
> perl -le '%h = ( -d => 3 ); print keys %h'
> -d
>
> your definition of - should not be part of the key string
> there. something is grabbing the - into the string and it is =>.
I have no idea what you are talking about. Compare with ('-' . 'd' => 3)...
> and check this out in the source:
>
> case '-':
> so -word is special cased with =>. it is not some random side effect.
You know how many special cases are in the Perl tokenizer, right?
Most probably this special case is there to compensate for ill effects
of some other special case.
To make tokenizer compatible with "preferences etc" of the parser is
very hard job; but for the users, who do not care about separation of
lexer/yaccer, this particular construct should be quite straitforward
- as I explained.
Hope this helps,
Ilya
------------------------------
Date: 14 Feb 2004 22:23:57 GMT
From: "Tassilo v. Parseval" <tassilo.parseval@rwth-aachen.de>
Subject: Re: => operator, not just fancy comma
Message-Id: <c0m75t$d8r$1@nets3.rz.RWTH-Aachen.DE>
Also sprach Ilya Zakharevich:
><uri@stemsystems.com>], who wrote in article <x7isiav5bt.fsf@mail.sysarch.com>:
>> IZ> -d => @files
>>
>> IZ> => quotes the preceding identifier ``d'', resulting in
>> IZ> -'d', @files.
>>
>> IZ> Since -'d' is '-d', one gets an illusion that it is ``-d'' which is quoted.
>> that makes no sense at all. look at this:
>>
>>
>> perl -le '%h = ( -d => 3 ); print keys %h'
>> -d
>>
>> your definition of - should not be part of the key string
>> there. something is grabbing the - into the string and it is =>.
>
> I have no idea what you are talking about. Compare with ('-' . 'd' => 3)...
>
>> and check this out in the source:
>>
>> case '-':
>
>> so -word is special cased with =>. it is not some random side effect.
>
> You know how many special cases are in the Perl tokenizer, right?
> Most probably this special case is there to compensate for ill effects
> of some other special case.
As far as I understand the part of the tokenizer that Uri quoted, there
are actually a lot of different things going on in there.
Here it's a filetest operator:
%hash = (-e, 1);
and the checking for a following => is indeed a special case to not
confuse filetest operators and a string.
Here it is a string:
%hash = (- e, 1);
although there is no fat comma. If I can follow the code correctly, both
%hash = (-e => 1);
and
%hash = (- e, 1);
give the same result through different branches in the code. With the
fat comma
if (strnEQ(s,"=>",2)) {
s = force_word(PL_bufptr,WORD,FALSE,FALSE,FALSE);
DEBUG_T( { PerlIO_printf(Perl_debug_log,
"### Saw unary minus before =>, forcing word '%s'\n", s);
} );
OPERATOR('-'); /* unary minus */
}
is executed. Otherwise (the '(- e, 1)' case) the code falls through to
this branch around 90 lines later:
else {
if (isSPACE(*s) || !isSPACE(*PL_bufptr))
check_uni();
OPERATOR('-'); /* unary minus */
}
> To make tokenizer compatible with "preferences etc" of the parser is
> very hard job; but for the users, who do not care about separation of
> lexer/yaccer, this particular construct should be quite straitforward
> - as I explained.
Now that I had a slightly closer look at the tokenizer for the first
time, I agree with you. Its internals are insane so better look at it
from an end-user point of view. :-)
Tassilo
--
$_=q#",}])!JAPH!qq(tsuJ[{@"tnirp}3..0}_$;//::niam/s~=)]3[))_$-3(rellac(=_$({
pam{rekcahbus})(rekcah{lrePbus})(lreP{rehtonabus})!JAPH!qq(rehtona{tsuJbus#;
$_=reverse,s+(?<=sub).+q#q!'"qq.\t$&."'!#+sexisexiixesixeseg;y~\n~~dddd;eval
------------------------------
Date: Sat, 14 Feb 2004 16:59:40 +0100
From: Torsten Mohr <tmohr@s.netic.de>
Subject: Re: configure, WIN32
Message-Id: <c0lglc$5t0$1@schleim.qwe.de>
>> But i'd like to pass some additional parameters to the
>> compile process.
>>
>
> Is there some reason you've chosen to eliminate ActiveState Perl as a
> choice for Win32 Perl?
Yes, and you already quoted it. I want to pass additional parameters
to the build process to build a STATIC version of libperl. I want
to link my own programs against it to execute internal scripts.
I already did this for libperl58.dll, but i don't want the dependency on
the external dll.
Best regards,
Torsten.
------------------------------
Date: 14 Feb 2004 12:05:40 -0800
From: junkmail@wirespring.com (Bill Gerba)
Subject: Re: Getting CGI to read from a different STDIN source
Message-Id: <7f2e88c6.0402141205.5c345731@posting.google.com>
Brian McCauley <nobull@mail.com> wrote in message news:<u9r7wyiq9f.fsf@wcl-l.bham.ac.uk>...
>
> You could just open the file as STDIN
>
...
>
> How about
>
> # Untested
> open(STDIN,"posted_data.txt") or die "can't open temp file: $!";
> my $cc = new CGI;
This was the first thing I tried. In my first post I noted that when
I do this I not only get an empty CGI object, but I also get a
peculiar message about STDOUT being opened for output only.
------------------------------
Date: Sat, 14 Feb 2004 16:50:18 +0100
From: Tore Aursand <tore@aursand.no>
Subject: Re: hidden perl
Message-Id: <pan.2004.02.13.08.31.05.75797@aursand.no>
On Fri, 13 Feb 2004 05:25:33 +0000, Uri Guttman wrote:
>> well yes, it is our code, and we want to keep it private......
> so what? why would anyone want to copy it? if they sell it you can sue
> their asses off.
And - in many cases - more profitable, too! :)
1. Create a Perl script
2. Give it to another company
3. ???
4. Profit!
--
Tore Aursand <tore@aursand.no>
"I am become Death, shatterer of worlds." -- J. Robert Oppenheimer,
upon witnessing the explosion of the first atomic bomb.
------------------------------
Date: Sat, 14 Feb 2004 20:57:33 +0100
From: Philip Newton <pne-news-200402@newton.digitalspace.net>
Subject: Re: How to call a perl script that returns nothing in an HTML
Message-Id: <cbvs2010o19pod1b8po877f7q5oemq3es6@4ax.com>
On Wed, 11 Feb 2004 16:27:48 +0100, Gunnar Hjalmarsson
<noreply@gunnar.cc> wrote:
> Ben Morrow wrote:
> > $/ = \4096; # or some such: no point reading a binary file by lines
>
> Well, in this case we are probably talking about a 1px x 1px image.
Yes, but there's still no point in parsing the buffer for \n characters
in binary data.
(I probably would've used something like "read IMG, $buf, -s IMG; print
$buf" to read the whole thing in one go.)
Cheers,
Philip
--
Philip Newton <nospam.newton@gmx.li>
That really is my address; no need to remove anything to reply.
If you're not part of the solution, you're part of the precipitate.
------------------------------
Date: 14 Feb 2004 05:26:00 -0800
From: yashgt@yahoo.com (Yash)
Subject: How to find number of CPUs
Message-Id: <5a373b1d.0402140526.68b2061e@posting.google.com>
Can you please tell me how to find the number of CPUs present on a PC
using Perl 5.6 on Windows 2000?
Thanks
------------------------------
Date: Sat, 14 Feb 2004 10:26:20 -0500
From: "Matt Garrish" <matthew.garrish@sympatico.ca>
Subject: Re: How to find number of CPUs
Message-Id: <u6rXb.12496$lK.833993@news20.bellglobal.com>
"Yash" <yashgt@yahoo.com> wrote in message
news:5a373b1d.0402140526.68b2061e@posting.google.com...
> Can you please tell me how to find the number of CPUs present on a PC
> using Perl 5.6 on Windows 2000?
>
It's an environment variable. Check your environment:
perl -e "print $ENV{NUMBER_OF_PROCESSORS}"
Before posting you should find out how you would normally locate this
information, and only ask here if you can't find any conceivable way to do
so using Perl.
Matt
------------------------------
Date: 14 Feb 2004 09:00:29 -0800
From: Petri <Petri_member@newsguy.com>
Subject: Re: How to find number of CPUs
Message-Id: <c0lk7d0241b@drn.newsguy.com>
In article <5a373b1d.0402140526.68b2061e@posting.google.com>, Yash says...
> Can you please tell me how to find the number of CPUs present on a
> PC using Perl 5.6 on Windows 2000?
WMI is your friend:
http://msdn.microsoft.com/library/en-us/dnanchor/html/anch_wmi.asp?frame=true
More on Windows scripting:
http://msdn.microsoft.com/nhp/Default.asp?contentid=28001169&frame=true
Excerpt from stuff I had lying around:
---8<---
#!/usr/bin/perl -w
use strict;
use warnings;
use Win32::OLE qw(in with);
my $wmi;
eval { # Wrap in eval to catch errors in object creation.
$wmi = Win32::OLE->GetObject("winmgmts:");
};
unless ($@) {
print "Processor info\n";
print "-" x 30,"\n";
my $cpu_set = $wmi->InstancesOf("Win32_Processor");
foreach my $cpu (in($cpu_set)) {
print "Name: ".$cpu->{'Name'}."\n" if $cpu->{'Name'};
print "Caption: ".$cpu->{'Caption'}."\n" if $cpu->{'Caption'};
print "Architecture: ".$cpu->{'Architecture'}."\n" if
$cpu->{'Architecture'};
print "Description: ".$cpu->{'Description'}."\n" if
$cpu->{'Description'};
print "Family: ".$cpu->{'Family'}."\n" if $cpu->{'Family'};
print "Other Family Desc: ".$cpu->{'OtherFamilyDescription'}."\n" if
$cpu->{'OtherFamilyDescription'};
print "Manufacturer: ".$cpu->{'Manufacturer'}."\n" if
$cpu->{'Manufacturer'};
print "ProcessorID: ".$cpu->{'ProcessorID'}."\n" if
$cpu->{'ProcessorID'};
print "ProcessorType: ".$cpu->{'ProcessorType'}."\n" if
$cpu->{'ProcessorType'};
print "Revision: ".$cpu->{'Revision'}."\n" if $cpu->{'Revision'};
print "System Name: ".$cpu->{'SystemName'}."\n" if $cpu->{'SystemName'};
print "Version: ".$cpu->{'Version'}."\n" if $cpu->{'Version'};
print "Status Info: ".$cpu->{'StatusInfo'}."\n" if $cpu->{'StatusInfo'};
print "Current Voltage: ".$cpu->{'CurrentVoltage'}."\n" if
$cpu->{'CurrentVoltage'};
print "DeviceID: ".$cpu->{'DeviceID'}."\n" if $cpu->{'DeviceID'};
print "Status: ".$cpu->{'Status'}."\n" if $cpu->{'Status'};
print "Data Width: ".$cpu->{'DataWidth'}." bit\n" if
$cpu->{'DataWidth'};
print "Clock Speed: ".$cpu->{'CurrentClockSpeed'}." MHz\n" if
$cpu->{'CurrentClockSpeed'};
print "L2 Cache Size: ".$cpu->{'L2CacheSize'}." KByte\n" if
$cpu->{'L2CacheSize'};
print "Level: ".$cpu->{'Level'}."\n" if $cpu->{'Level'};
print "External Clock: ".$cpu->{'ExtClock'}." MHz\n" if $cpu->{'ExtClock'};
print "\n";
}
} else {
die "Win32::OLE->GetObject failed: ", Win32::OLE->LastError, "\n";
}
---8<---
Hope this helps!
Petri
------------------------------
Date: Sat, 14 Feb 2004 16:01:20 +0000
From: Gary Mayor <gary@abertron.co.uk>
Subject: Image::Magick scale smaller makes file size bigger
Message-Id: <c0lgit$hs5$1@news8.svr.pol.co.uk>
Hi,
I know this should be in the modules group but as there seems to be a
lack of anyone else having this problem I thought i'de better give it
better coverage.
The problem is i'm using Image Magick to create thumbnails smaller
images out of large ones. 99% of the time this works great but there's
1% where the thumbnail has a bigger file size then the original image
and that I can't understand. The code i'm using is below and I hope
someone knows what this might be. I've tried resizing and saving the
images in gimp and the sizes turn out correct. Also if I compress the
image the size does decrease but why would a image with no compression
turn out bigger than the original. I also tried adding the icmp or
whatever it was to the code but that didn't make any difference. How can
this be anyone know?
Thanks
Gary
my $imager = Image::Magick->new;
die unless ref $imager;
my $status = $imager->Read("$infile");
print "Read: $status\n" if $status;
$height = $imager->Get('height');
$width = $imager->Get('width');
my $ttwidth = 100;
my $tbheight=1;
my $tbwidth=1;
my $fixed=$ttwidth;
my $scalefix=1;
my $scalefactor=$width/$fixed;
$tbheight=$height/$scalefactor;
$tbwidth=$fixed;
$count++;
$original[$count] = $cfile;
$status = $imager->Write(filename=>"$dir/$cfile");
$imager->Scale( width=>$tbwidth, height=>$tbheight );
$imager->Set(Quality=>$compression);
$new[$count] = "$outfile";
$status = $imager->Write(filename=>"$dir/$outfile",compression=>'JPEG');
------------------------------
Date: Sat, 14 Feb 2004 17:34:24 -0000
From: "gnari" <gnari@simnet.is>
Subject: Re: Image::Magick scale smaller makes file size bigger
Message-Id: <c0lm5a$l7s$1@news.simnet.is>
"Gary Mayor" <gary@abertron.co.uk> wrote in message
news:c0lgit$hs5$1@news8.svr.pol.co.uk...
> Hi,
> I know this should be in the modules group but as there seems to be a
> lack of anyone else having this problem I thought i'de better give it
> better coverage.
there are a lot of other groups with much greater coverage, where these
questions are equally off-topic.
> The problem is i'm using Image Magick to create thumbnails smaller
> images out of large ones. 99% of the time this works great but there's
> 1% where the thumbnail has a bigger file size then the original image
> and that I can't understand.
that is entirely possible. when making a thumbnail, the sofware might
be doing a lot of processing to make the smaller image recognizable.
this may include playing with color depth or dithering. the rsulting
image may not compress as effectively as the original
> ... Also if I compress the
> image the size does decrease but why would a image with no compression
> turn out bigger than the original.
i do not know what you are talking about. was the original jpeg with
0 compression?
anyways some of the graphics newsgroups might be a better place
for this kind of questions. (unless, of course, if this only happens
with Image::Magick , but not the Imagemagick commandline tools)
gnari
------------------------------
Date: Sat, 14 Feb 2004 16:00:34 -0600
From: l v <lv@aol.com>
Subject: Re: Is Windows running
Message-Id: <0UwXb.6708$5M.219492@dfw-read.news.verio.net>
Ben Morrow wrote:
> l v <lv@aol.com> wrote:
>
>>Chris Arnott wrote:
>>
>>>So, does anyone know of a good way to determine if Windows is not the
>>>present operating system on a running machine.
>>
>>The dos command nbtstat -a remoteIpAddress would identify if windows was
>>running.
>
>
> Not if the remote machine was a unix box with samba running (not at
> all unlikely in the given situation).
>
> Ben
>
Then perhaps srvinfo.exe from the windows 2000 resource kit.
Len
------------------------------
Date: Sat, 14 Feb 2004 13:30:37 -0700
From: Todd Anderson <todd@asgweb.net>
Subject: mac ftp
Message-Id: <402E8356.DB79BE29@asgweb.net>
Hello,
Does anyone know of a mac ftp program that will allow me to login and
upload my perl scripts as nobody?
Thanks in advance for your help.
------------------------------
Date: Sat, 14 Feb 2004 21:10:50 -0000
From: "David K. Wall" <dwall@fastmail.fm>
Subject: Re: mac ftp
Message-Id: <Xns948FA4987CE2Bdkwwashere@216.168.3.30>
Todd Anderson <todd@asgweb.net> wrote:
> Does anyone know of a mac ftp program that will allow me to login and
> upload my perl scripts as nobody?
I think you'd have better luck asking this question in a newsgroup devoted to
Mac applications instead of Perl. comp.sys.mac.apps looks as if it might be
promising. (I don't read that group, so I'm not sure.)
I guess this relates to your earlier questions about permissions on web
servers. One of the comp.infosystems.www.servers.* groups would be
appropriate for those questions.
> Thanks in advance for your help.
All I did was point you to other groups. :-)
--
David Wall
------------------------------
Date: Sat, 14 Feb 2004 21:12:24 +0000 (UTC)
From: Ben Morrow <usenet@morrow.me.uk>
Subject: Re: mac ftp
Message-Id: <c0m2vo$890$1@wisteria.csv.warwick.ac.uk>
Todd Anderson <todd@asgweb.net> wrote:
> Does anyone know of a mac ftp program that will allow me to login and
> upload my perl scripts as nobody?
Net::FTP :)
Ben
--
Every twenty-four hours about 34k children die from the effects of poverty.
Meanwhile, the latest estimate is that 2800 people died on 9/11, so it's like
that image, that ghastly, grey-billowing, double-barrelled fall, repeated
twelve times every day. Full of children. [Iain Banks] ben@morrow.me.uk
------------------------------
Date: Sat, 14 Feb 2004 10:22:37 -0600
From: Tad McClellan <tadmc@augustmail.com>
Subject: Re: Perl : Cant Find String Terminator
Message-Id: <slrnc2siqd.1mk.tadmc@magna.augustmail.com>
Donald LaFramboise <donnmelda@earthlink.net> wrote:
> print<<HTML_RESPOSE
>
> needs a semicolon at the end of the line,
No it doesn't.
[snip TOFU, a clear indicator of the quality of the followup...]
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Sat, 14 Feb 2004 10:40:02 -0600
From: Tad McClellan <tadmc@augustmail.com>
Subject: Re: Perl : Cant Find String Terminator
Message-Id: <slrnc2sjr2.1mk.tadmc@magna.augustmail.com>
TP <pin@purdue.edu> wrote:
> i get the message Cant Find String Terminator anywhere before EOF
> everytime i try to compile my script..
> print<<HTML_RESPOSE
>
> Content-type: text/html
><HTML>
><BODY>
>
><h2>Your search for $searchkey return $nummatches matches.</h2>
>
>
> foreach $matchedEntry (@matches){
> print "$matchedEntry\n";
> }
>
></BODY>
></HTML>
> HTML_RESPONSE
Others have already pointed out the cause of your syntax error,
but nobody has told you that you can't interpolate code (like that).
A "here-doc" is a way of quoting a _string_, so that foreach() is
NOT seen as code, it is data.
If you want code in the middle of the string, you can have 3
statements: string_part1 then code then string_part2.
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Sat, 14 Feb 2004 16:36:49 +0000 (UTC)
From: Ben Morrow <usenet@morrow.me.uk>
Subject: Re: Perl usage these days?
Message-Id: <c0lir1$3oj$1@wisteria.csv.warwick.ac.uk>
thumb_42@yahoo.com wrote:
> Both PHP and Perl have a lot of issues in making software hard to install.
> I'd say they're about equal with perl just slightly better than PHP in terms
> of installation of 3rd party applications. (perl PAR looks promising in this
> regard to compete with java's .war files)
PAR is pretty much perfect as far as distribution goes: it lets you
make a distro assuming any of no perl, perl binary only, perl + core
modules, perl + core + other modules.
Ben
--
I've seen things you people wouldn't believe: attack ships on fire off the
shoulder of Orion; I've watched C-beams glitter in the darkness near the
Tannhauser Gate. All these moments will be lost, in time, like tears in rain.
Time to die. |-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-| ben@morrow.me.uk
------------------------------
Date: Sat, 14 Feb 2004 18:56:10 GMT
From: "H. Wade Minter" <minter@lunenburg.org>
Subject: Re: Perl usage these days?
Message-Id: <ebuXb.9042$jx3.1010111@twister.southeast.rr.com>
thumb_42@yahoo.com wrote:
> Looks impressive. :-)
Thanks - I was pleased how well everything came together, especially since
I'm not a very good coder.
> Do you have issues in distributing/installing it compared to say, a jar
> file?
>
> Both PHP and Perl have a lot of issues in making software hard to install.
> I'd say they're about equal with perl just slightly better than PHP in terms
> of installation of 3rd party applications. (perl PAR looks promising in this
> regard to compete with java's .war files)
Most of the users of the software besides myself are on Windows, so I used
to use Perl2EXE's eval version to distribute the sript in a single Windows
.EXE. However, starting from the last release going forward, I'm using PAR,
which does a great job and is Free to boot.
I think Autrijus' and the PAR team's work is going to provide big benefits
for people who need to distribute complex Perl applications, and encourage
everyone to check them out at http://par.perl.org/
--Wade
------------------------------
Date: Sat, 14 Feb 2004 15:04:49 -0500
From: "Rafal Konopka" <rafalk@comcast.net>
Subject: Re: PERL-SQL and date comparison
Message-Id: <XfadnREvZ8DG4rPdRVn-sA@comcast.com>
Thanks gnari for the SQL function you suggested
> > you should be using functions like to_char():
> > WHERE to_char(open_time,'YYYY-MM-DD')='2004-02-05'
> > gnari
The field I'm retrieving the date from is a datetime time stamp. Like I
said when I use the SQL client "='2004-02-05'" works fine. but passed via a
Perl script, it doesn't. Neither does 'IS'.
I'll certainly try the to_char() function and see if it works.
BTW, WHERE open_time BETWEEN '<date>' and <date>' certainly works!
Thanks to all for pointers and suggestions. I really appreciate it.
Rafal
------------------------------
Date: Sat, 14 Feb 2004 21:46:28 +0000 (UTC)
From: Ilya Zakharevich <nospam-abuse@ilyaz.org>
Subject: Re: Problems with version 5.8.0 on OS/2
Message-Id: <c0m4vk$1ovv$1@agate.berkeley.edu>
[A complimentary Cc of this posting was sent to
Bart Lateur
<bart.lateur@pandora.be>], who wrote in article <k8sr20989jtp01mpkfbhhv72mgdcqmcihg@4ax.com>:
> >and am unable to execute programs. I believe my problem is with a
> >thing called @INC. According to @INC, this version of Perl was built
> >with a target drive of L:. I want to change this to D:. If I
> >understand correctly, the PERLLIB_PREFIX statement placed (as one
> >option) in the config.sys (which I have done) should override the
> >prebuilt target drive with one of my choosing.
>
> That's not what I read. From the README:
>
> Set the Perl environment variables, the most important of which
> is PERL_LIBPATH. Its format is build/path; install\path. For
> example:
Unless this build is completely broken, this is just bullshit. See
view perl perlos2
for details.
Hope this helps,
Ilya
------------------------------
Date: Sat, 14 Feb 2004 10:34:26 -0500
From: "Matt Garrish" <matthew.garrish@sympatico.ca>
Subject: Re: Reading html into a source file
Message-Id: <4erXb.12499$lK.835144@news20.bellglobal.com>
"Bill" <wherrera@lynxview.com> wrote in message
news:239ce42f.0402131134.56480af2@posting.google.com...
> chris.tunnecliff@markelintl.com (Chris) wrote in message
news:<b8146f1.0402130640.4ea9625@posting.google.com>...
>
> > #!/usr/local/bin/perl
> > print "Content-Type: text/plain\n\n";
> > use LWP::Simple;
> > $content = get ("http://www.webbuyeruk.co.uk/index.htm");
> > print " This is Content:\n\n $content \n\n";
> > exit;
> >
> > (above as seen in google postings) but no contents appear on my
> > screen? Any help appreciated! I'm using perl 5.8 on windows 2K.
>
> Works here, 5.8, XP. are you running it via
>
> c:> perl filename.pl
>
> or as
>
> c:> filename.pl
>
> or by clickin on filename? If the latter two, you need
> /usr/local/bin/perl.exe to exist, of course :/
Why do you say that? Windows will check the registry in the latter two cases
to determine the default application to use to run .pl files. All he needs
is a correct file association.
Matt
------------------------------
Date: 14 Feb 2004 05:33:27 -0800
From: kewlkarun@yahoo.com (KK)
Subject: Save the Bandwidth -smarter way to send the same file attachment to N users?
Message-Id: <c8fd5039.0402140533.220d461b@posting.google.com>
Hi, my program can send mails to several people (nothing to do with
SPAM) with an attachment. However, in that process, everytime I send a
mail to a new user, I need to upload the attachment. I have access to
store files at the host & wondering if I can exploit this in saving
bandwidth ? (to be precise, I have access to store files with login&
passwd at cs.college.edu & its mail server is mail.cs.college.edu).
I'm a newbie to perl programming, detailed explaination is highly
appreciated.
Secondly, in this process of sending mails (using mail::sender
package) to N (say 3000) users, do I choke the mail server? If yes,
how to introduce delay in between sending mails?
regards,
KK
------------------------------
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 6133
***************************************
