[23406] in Perl-Users-Digest
Perl-Users Digest, Issue: 5624 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Oct 6 18:05:41 2003
Date: Mon, 6 Oct 2003 15:05:08 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Mon, 6 Oct 2003 Volume: 10 Number: 5624
Today's topics:
Re: code with style <perl@my-header.org>
Re: code with style <perl@my-header.org>
Re: EBCDIC-ASCII Conversation <flavell@ph.gla.ac.uk>
Getting MAC & NetBIOS Name with Perl? <snuffy2@yahoo.com>
Re: Looking for a search engine submit script <ir@microsoft.com>
Re: Looking for a search engine submit script (Tad McClellan)
Re: LWP:UserAgent not working ??? <bart.lateur@pandora.be>
Opinions on "new SomeObject" vs. "SomeObject->new()" (Patriote)
Re: Opinions on "new SomeObject" vs. "SomeObject->new() <uri@stemsystems.com>
Re: Order of evaluation of expressions <nospam-abuse@ilyaz.org>
Re: regex behavior <michael.p.broida@boeing_oops.com>
Re: regex with nots in it (Roy Johnson)
Re: regex with nots in it (Malcolm Dew-Jones)
Sendmail BCC with multiple recipients (Erica Coffin)
Re: Sendmail BCC with multiple recipients <mbudash@sonic.net>
Re: Sendmail BCC with multiple recipients <noreply@gunnar.cc>
Re: Sendmail BCC with multiple recipients (Erica Coffin)
Re: two regexs <perl@my-header.org>
Re: two regexs <skuo@mtwhitney.nsc.com>
Re: two regexs (Tad McClellan)
What is the Image module in Perl? <ir@microsoft.com>
Re: What is the Image module in Perl? <nospam@bigpond.com>
Re: <bwalton@rochester.rr.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 06 Oct 2003 21:43:16 +0200
From: Matija Papec <perl@my-header.org>
Subject: Re: code with style
Message-Id: <1bh3ovkjl9vs3pt11tvg3roms7ulm0kdjh@4ax.com>
X-Ftn-To: Anno Siegel
anno4000@lublin.zrz.tu-berlin.de (Anno Siegel) wrote:
>We have seen a few solutions using a hash to count the unique elements
>in each array. Here is how I would write it:
>
> sub maximum_multiplicity {
> my $max = 0;
> for ( @{shift() } ) {
> my %h;
> @h{ @$_} = ();
> $max = keys %h if keys %h > $max;
> }
> $max;
> }
Something is wrong, his code prints 3 as result and your 5.
--
Matija
------------------------------
Date: Mon, 06 Oct 2003 21:48:20 +0200
From: Matija Papec <perl@my-header.org>
Subject: Re: code with style
Message-Id: <fmh3ov0b1qp62vs74eojl1tindtpn72h7s@4ax.com>
>anno4000@lublin.zrz.tu-berlin.de (Anno Siegel) wrote:
>>We have seen a few solutions using a hash to count the unique elements
>>in each array. Here is how I would write it:
>>
>> sub maximum_multiplicity {
>> my $max = 0;
>> for ( @{shift() } ) {
>> my %h;
>> @h{ @$_} = ();
>> $max = keys %h if keys %h > $max;
>> }
>> $max;
>> }
>
>Something is wrong, his code prints 3 as result and your 5.
please ignore this. :p :)
--
Matija
------------------------------
Date: Mon, 6 Oct 2003 19:05:12 +0100
From: "Alan J. Flavell" <flavell@ph.gla.ac.uk>
Subject: Re: EBCDIC-ASCII Conversation
Message-Id: <Pine.LNX.4.53.0310061859150.31525@ppepc56.ph.gla.ac.uk>
On Mon, 6 Oct 2003, Reinhard Burgmann wrote:
> I have to convert a EBCDIC-File into an ASCII-Code in perl. Unfortunately
> part's of the files are in packed format I have to do this in perl.
Clarification, please. Are you saying that these data records contain
"packed decimal" fields? Then a mere character code conversion from
EBCDIC to ASCII is not going to help. You need to know the format of
your records (i.e which ranges contain packed-decimal), and unpack
those into signed decimal format before continuing.
Presumably Perl can do that with an appropriate unpack() template, but
it's not something I've had reason to try (I was fresh out of IBM
mainframes around the time that I first met Perl, and anyway, in
scientific work we hardly ever had to deal with packed-decimal data in
practice).
------------------------------
Date: Mon, 06 Oct 2003 20:51:32 GMT
From: "Snuffy2" <snuffy2@yahoo.com>
Subject: Getting MAC & NetBIOS Name with Perl?
Message-Id: <oBkgb.36102$qj6.2231314@news1.news.adelphia.net>
I'm looking to try to get a users MAC and/or NetBIOS name when they visit my
website. It somehow can be done, I'm not sure with Perl, but it can be done.
Does anyone have any idea how?
As an example check out:
http://stealthtests.lockdowncorp.com/
On that site, there are tests that will display NetBIOS & MAC addresses.
(NOTE: if you are properly firewalled or protected it won't display the
information accurately, however if unprotected and not behind a NAT or
router, it works)
Now how did they do this? & how can I?
Thanx
------------------------------
Date: Mon, 06 Oct 2003 20:15:36 GMT
From: "Public Interest" <ir@microsoft.com>
Subject: Re: Looking for a search engine submit script
Message-Id: <I3kgb.166636$0v4.12612864@bgtnsc04-news.ops.worldnet.att.net>
Do you know anything about freshmeat.net and sourceforge.net? Are they
similar and S is bigger than F? Heard IBM bought sourceforge.net.
news:e0160815.0310060625.4bb1a7c@posting.google.com...
> "Public Interest" <ir@microsoft.com> wrote in message
news:<bF8gb.166115$0v4.12560844@bgtnsc04-news.ops.worldnet.att.net>...
> > The most recent ones I can find online is as out of date as 2001. What I
am
> > looking for is something like http://www.addpro.com/submit30.htm
> >
> > But even this most recent "free tool" has 3-4 out of date links.
> >
> > I remember on http://www.jimworld.com/tools/ there was a free tool, but
he
> > took it out of his website and he never released the source code.
> >
> > Basically, anyone who kept track of url submiting syntax on different
search
> > engines can write a Perl or HTML tools easily...
>
> There are a few different methods you could use if you were to write your
own.
>
> Pre-made scripts/applications _may_ be available at http://freshmeat.net
>
> HTH
>
> Jim
------------------------------
Date: Mon, 6 Oct 2003 16:26:43 -0500
From: tadmc@augustmail.com (Tad McClellan)
Subject: Re: Looking for a search engine submit script
Message-Id: <slrnbo3ngj.h04.tadmc@magna.augustmail.com>
Public Interest <ir@microsoft.com> wrote:
> Do you know anything about freshmeat.net and sourceforge.net? Are they
> similar and S is bigger than F? Heard IBM bought sourceforge.net.
Please do not make off-topic posts.
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Mon, 06 Oct 2003 19:29:14 GMT
From: Bart Lateur <bart.lateur@pandora.be>
Subject: Re: LWP:UserAgent not working ???
Message-Id: <ajg3ov04mavs1epnqgae35hsh2n44m9br5@4ax.com>
Gaurav wrote:
>where can i find just the module needed for LWP::UserAgent to work. Do
>i need more modules or just that one particular module ?
lib-www, that's the suite you need. I think it only relies on standard
modules.
--
Bart.
------------------------------
Date: 6 Oct 2003 14:36:33 -0700
From: patriote@fastmail.fm (Patriote)
Subject: Opinions on "new SomeObject" vs. "SomeObject->new()"
Message-Id: <dced8a08.0310061336.35f80601@posting.google.com>
Some programmers use the style
$objSome = new SomeObject;
instead of
$objSome = SomeObject->new();
What are the penalties for using the former Java-like syntax if any?
I've heard that it can cause problems with inheritance, but I've read
no specifics.
Thanks.
------------------------------
Date: Mon, 06 Oct 2003 22:01:11 GMT
From: Uri Guttman <uri@stemsystems.com>
Subject: Re: Opinions on "new SomeObject" vs. "SomeObject->new()"
Message-Id: <x765j2hvq0.fsf@mail.sysarch.com>
>>>>> "P" == Patriote <patriote@fastmail.fm> writes:
P> Some programmers use the style
P> $objSome = new SomeObject;
P> instead of
P> $objSome = SomeObject->new();
P> What are the penalties for using the former Java-like syntax if any?
P> I've heard that it can cause problems with inheritance, but I've read
P> no specifics.
read perldoc perlobj and look for the section on indirect object syntax.
direct object calls are safer and a better style IMO.
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: Mon, 6 Oct 2003 21:12:51 +0000 (UTC)
From: Ilya Zakharevich <nospam-abuse@ilyaz.org>
Subject: Re: Order of evaluation of expressions
Message-Id: <blslsj$5ku$1@agate.berkeley.edu>
[A complimentary Cc of this posting was sent to
David Combs
<dkcombs@panix.com>], who wrote in article <blrms4$l84$1@reader2.panix.com>:
> So few understand what I (probably badly) said,
The famous example is calculate sum of 1/n in opposite orders, once
from large values to small ones, the second time from small values to
large ones:
perl -wle "$s=0; $s += 1/$_ for 1..1e7; print $s"
16.6953113658567
perl -wle "$s=0; $s += 1/(10000001 - $_) for 1..1e7; print $s"
16.6953113658599
Doing calculations with precision of 77 digits (with gp):
? \p75
realprecision = 77 significant digits (75 digits displayed)
? sum(X=1,10000000,1./X)
%2 = 16.6953113658598518153991189395404518842498697523730804627851359543562876569
As you can see, the second way gives a practically precise value
(doing printf '%.20f' gives 16.69531136585989017360, so the result is
100x times more precise).
The idea is that when you add a small number to a large one, very few
digits of the small number matter (you can think that the small number
is first "denormalized" to the magnitude of the large one, with binary
digits "out of range" thrown away); this does not matter if you do
this addition once, but if you increment by a small number millions of
times, these rounding errors accumulate.
In the second way of addition when you calculate $s += $a with a small
$a (i.e., a large 10000001 - $_), $s is much smaller than in the first
way (check it with a pencil and a piece of paper for the first several
terms). In consequence, the errors due to rounding $a when
denormalizing to the size of $s are much smaller.
Hope this helps,
Ilya
------------------------------
Date: Mon, 6 Oct 2003 20:50:26 GMT
From: "Michael P. Broida" <michael.p.broida@boeing_oops.com>
Subject: Re: regex behavior
Message-Id: <3F81D592.208F5420@boeing_oops.com>
Abigail wrote:
>
> Michael P. Broida (michael.p.broida@boeing_oops.com) wrote on
> MMMDCLXXXIII September MCMXCIII in <URL:news:3F7B532C.7878A3BB@boeing_oops.com>:
> ,, Abigail wrote:
> ,, >
> ,, > Matija Papec (mpapec@yahoo.com) wrote on MMMDCLXXXIII September MCMXCIII
> ,, > in <URL:news:4bdmnvcb9or2nbm2ne1euvhqp1e64s84g7@4ax.com>:
> ,, > --
> ,, > -- I went through perldoc but didn't found similar regex,
> ,, > -- print join ',', 'a bb ccc dddd' =~ /(\w)+/g;
> ,, > --
> ,, > -- the question is, what it exactly matches and why?
> ,, >
> ,, > /(\w)+/ matches a set of consecutive word characters, capturing
> ,, > the *last* one. //g in list context means, do this as often as
> ,, > possible (without overlap), returning a list of each of the submatches.
> ,, >
> ,, > So, 'a bb ccc dddd' =~ /(\w)+/g; returns for each substring of
> ,, > consecutive word characters the last one, resulting in 'a', 'b', 'c' and 'd'.
> ,,
> ,, That tests out as you said, so it's MY thinking that's off. :)
> ,, Hopefully, you can clue me in. :)
> ,,
> ,, I expected it to result in "a,bb,ccc,dddd". Now I realize that
> ,, it's the positioning of the + that causes it to get a single
> ,, character from each group. If the + is inside the (), it
> ,, prints what I expected.
> ,,
> ,, But... What is causing the original /(\w)+/ to get the LAST
> ,, character from each group instead of the FIRST character from
> ,, each group?
>
> Would you expect:
>
> $x = $_ for qw /a b c d/
> print $x;
>
> to print 'a' as well?
It doesn't print anything without a semi-colon on the first line.
<grin>
At first glance, I thought it would print each letter. Then I
looked deeper and realized it's basically assigning and re-assigning
$x (via $_) during the "for" loop, but only printing it when it's all
done. Thus it only prints "d".
But the prior discussion was about a regex, not a "for" loop.
If your point is that the regex processing works similarly to
the "for" loop in your example, then I see what you mean.
If that's NOT what your point was, then you've lost me. <grin>
Mike
------------------------------
Date: 6 Oct 2003 11:21:43 -0700
From: rjohnson@shell.com (Roy Johnson)
Subject: Re: regex with nots in it
Message-Id: <3ee08638.0310061021.5c22b9c2@posting.google.com>
anno4000@lublin.zrz.tu-berlin.de (Anno Siegel) wrote in message news:<blrk1p$31f$1@mamenchi.zrz.TU-Berlin.DE>...
> /Perl(.*?!PHP)/
By which you mean
/Perl(?!.*PHP)/
------------------------------
Date: 6 Oct 2003 11:43:05 -0800
From: yf110@vtn1.victoria.tc.ca (Malcolm Dew-Jones)
Subject: Re: regex with nots in it
Message-Id: <3f81b7b9@news.victoria.tc.ca>
Anno Siegel (anno4000@lublin.zrz.tu-berlin.de) wrote:
: Bernard El-Hagin <bernard.el-haginDODGE_THIS@lido-tech.net> wrote in comp.lang.perl.misc:
: > "Ben Holness" <usenet@bens-house.org.uk> wrote in
: > news:pan.2003.10.06.11.07.13.474914@bens-house.org.uk:
: >
: > >
: > >>> The phrase must have the string "Perl" and must not be followed by
: > >>> "PHP" in it, so that it would match:
: > >>>
: > >>> "I like Perl"
: > >>> "Perl is cool"
: > >>>
: > >>> But not match
: > >>>
: > >>> "I like Perl more than PHP"
: > >>> "Although PHP is OK"
: > >>
: > >> Then look for "look-ahead" in perlre.pod.
: > >
: > > hmmm. Doesn't seem to work because look-ahead cannot deal with wildcards:
: > >
: > > /Perl.*(?!PHP)/
: >
: >
: > Try
: >
: >
: > /Perl(?!.*PHP)/
: >
: >
: > > doesn't do what I want :( perlre suggests that it's easier to have it as
: > > two regular expressions, which is what I was trying to avoid.
: >
: >
: > Why? It's a perfectly valid suggestion.
: The condition that "PHP" must come after "Perl" makes the two-regex
: solution a little less attractive. Some trickery with pos() or
: @+ is required, as in
: /Perl/g && !/\G.*PHP/
: which makes it slightly obscure.
No, simply look for what you don't want and reject it
$match = /Perl/ # needs to match this
&& ! /Perl.*PHP/ # but mustn't match this
------------------------------
Date: Mon, 06 Oct 2003 19:28:07 GMT
From: ecoffin@conbrio.cs.tufts.edu (Erica Coffin)
Subject: Sendmail BCC with multiple recipients
Message-Id: <bnjgb.200$X2.17258@news.tufts.edu>
Hello,
I'm completely stuck on this problem I've been having calling sendmail from a perl script.
I can't seem to have multiple bcc recipients. If I have one bcc recipient, the message is received by the one bcc recipient and everything is happy. If I have more than one bcc recipient, the message is sent to the To recipient only, and none of the bcc recipients receive an email.
I am posting here instead of a sendmail NG, because when I copy and paste the output of the print line (from below) everything works great. All the bcc recipients get a copy of the message.
Here is the salient portion of my script:
$sendmail = '/usr/bin/sendmail';
$from = 'from@from.com';
$email = $debug ? $debug_email : $hash{'eMail'};
$subject = 'Your loan application';
$text = 'blah blah blah';
$bcc = 'bcc_recip1@company.com, bcc_recip2@company.com, bcc_recip3@company.com';
open MAIL, "|$sendmail $email"
or die "Unable to start sendmail:$!\n";
print MAIL "From: $from\nBcc: $bcc\nSubject:$subject\n$text";
close MAIL;
Thanks for any help,
erica
------------------------------
Date: Mon, 06 Oct 2003 19:51:31 GMT
From: Michael Budash <mbudash@sonic.net>
Subject: Re: Sendmail BCC with multiple recipients
Message-Id: <mbudash-915B35.12513006102003@typhoon.sonic.net>
In article <bnjgb.200$X2.17258@news.tufts.edu>,
ecoffin@conbrio.cs.tufts.edu (Erica Coffin) wrote:
> Hello,
>
> I'm completely stuck on this problem I've been having calling sendmail from a
> perl script.
> I can't seem to have multiple bcc recipients. If I have one bcc recipient,
> the message is received by the one bcc recipient and everything is happy. If
> I have more than one bcc recipient, the message is sent to the To recipient
> only, and none of the bcc recipients receive an email.
>
> I am posting here instead of a sendmail NG, because when I copy and paste the
> output of the print line (from below) everything works great. All the bcc
> recipients get a copy of the message.
>
> Here is the salient portion of my script:
>
> $sendmail = '/usr/bin/sendmail';
> $from = 'from@from.com';
> $email = $debug ? $debug_email : $hash{'eMail'};
> $subject = 'Your loan application';
> $text = 'blah blah blah';
> $bcc = 'bcc_recip1@company.com, bcc_recip2@company.com,
> bcc_recip3@company.com';
>
> open MAIL, "|$sendmail $email"
> or die "Unable to start sendmail:$!\n";
> print MAIL "From: $from\nBcc: $bcc\nSubject:$subject\n$text";
> close MAIL;
>
> Thanks for any help,
> erica
perhaps you re-typed rather than cut-and-pasted your code, but you will
of course need a blank line after the headers and before the email
body...:
print MAIL "From: $from\nBcc: $bcc\nSubject:$subject\n";
print MAIL "\n";
print MAIL $text;
--
Michael Budash
------------------------------
Date: Mon, 06 Oct 2003 22:06:15 +0200
From: Gunnar Hjalmarsson <noreply@gunnar.cc>
Subject: Re: Sendmail BCC with multiple recipients
Message-Id: <blsi12$fklts$1@ID-184292.news.uni-berlin.de>
Erica Coffin wrote:
> I can't seem to have multiple bcc recipients. If I have one bcc
> recipient, the message is received by the one bcc recipient and
> everything is happy. If I have more than one bcc recipient, the
> message is sent to the To recipient only,
Really? I don't see any "To:" field in the code you posted here. You'd
better be careful with the code you post when asking for help.
> and none of the bcc recipients receive an email.
You posted a very similar question to comp.lang.perl, to which I
replied. That's called multi posting, and is not in compliance with
the netiquette for Usenet.
Why didn't you follow up your initial question?
> I am posting here instead of a sendmail NG, because when I copy and
> paste the output of the print line (from below) everything works
> great. All the bcc recipients get a copy of the message.
That does not make it a Perl programming question.
One idea is that CGI is run with a different user ID, and that
sendmail is configured to not accept multiple bcc recipients from the
CGI user.
> $subject = 'Your loan application';
---------------^^^^^^^^^^^^^^^^^^^^^
Are you about to send spam????
> print MAIL "From: $from\nBcc: $bcc\nSubject:$subject\n$text";
-----------------------------------------------^^
Missing space.
--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl
------------------------------
Date: Mon, 06 Oct 2003 21:59:16 GMT
From: ecoffin@conbrio.cs.tufts.edu (Erica Coffin)
Subject: Re: Sendmail BCC with multiple recipients
Message-Id: <UAlgb.201$X2.17258@news.tufts.edu>
Gunnar Hjalmarsson (noreply@gunnar.cc) wrote:
: Erica Coffin wrote:
: > recipient, the message is received by the one bcc recipient and
: > everything is happy. If I have more than one bcc recipient, the
: > message is sent to the To recipient only,
: Really? I don't see any "To:" field in the code you posted here. You'd
: better be careful with the code you post when asking for help.
The 'To:' field must be specified on the command line unless you use sendmail -t which I am not. The $email variable contains the recipient email. You can see this on the line:
open MAIL, "|$sendmail $email"
: You posted a very similar question to comp.lang.perl, to which I
: replied. That's called multi posting, and is not in compliance with
: the netiquette for Usenet.
You are correct and I apologize. I posted it there until I saw another post saying that comp.lang.perl was obsolete, so I reposted to this news group.
: > I am posting here instead of a sendmail NG, because when I copy and
: > paste the output of the print line (from below) everything works
: > great. All the bcc recipients get a copy of the message.
: That does not make it a Perl programming question.
It makes it unclear whether it's a Perl programming question, but I think it was hardly unreasonable to post the question here.
: One idea is that CGI is run with a different user ID, and that
: sendmail is configured to not accept multiple bcc recipients from the
: CGI user.
This is not a CGI script.
: > $subject = 'Your loan application';
: ---------------^^^^^^^^^^^^^^^^^^^^^
: Are you about to send spam????
No, I work for a company that distributes loans for business and these emails are for people who are actively working on an application on our website, but thanks for checking.
erica
------------------------------
Date: Mon, 06 Oct 2003 21:39:05 +0200
From: Matija Papec <perl@my-header.org>
Subject: Re: two regexs
Message-Id: <mug3ov4n0e7b4h0q0p8ujf5vfvqb88vp25@4ax.com>
X-Ftn-To: Tad McClellan
tadmc@augustmail.com (Tad McClellan) wrote:
>> Afaik CGI.pm, can't deal with predefined forms
>
>What is a "predefined form" ?
I have forms stored in html files and need to populate them with user or db
input.
--
Matija
------------------------------
Date: Mon, 6 Oct 2003 13:09:17 -0700
From: Steven Kuo <skuo@mtwhitney.nsc.com>
Subject: Re: two regexs
Message-Id: <Pine.GSO.4.21.0310061301500.24614-100000@mtwhitney.nsc.com>
On Sat, 4 Oct 2003, Matija Papec wrote:
>
> I would like to match each value from @str with only one regex. I come to,
> if ( /="(.+?)"|=(\S+)/ ) { print $1 || $2 }
>
> but I'm not sure if this is the best matching solution?
It's fine. Other alternatives are likely to be ugly. For example,
my @str = (
'="foo bar" ..',
'=foobar ..',
);
for (@str) {
if (/=(")?((??{ $1 ? q{.+?(?=")} : q{\\S+} }))/) {
print $2, "\n";
}
}
--
Hope this helps,
Steven
------------------------------
Date: Mon, 6 Oct 2003 16:24:24 -0500
From: tadmc@augustmail.com (Tad McClellan)
Subject: Re: two regexs
Message-Id: <slrnbo3nc8.h04.tadmc@magna.augustmail.com>
Matija Papec <perl@my-header.org> wrote:
> tadmc@augustmail.com (Tad McClellan) wrote:
>>> Afaik CGI.pm, can't deal with predefined forms
>>
>>What is a "predefined form" ?
>
> I have forms stored in html files and need to populate them with user or db
> input.
That is client-side then?
If so, then the server-side CGI module is of course not the Right Tool.
The Perl FAQ points to the Right Tool:
perldoc -q " form "
How do I automate an HTML form submission?
(despite the fact that the question has nothing to do with HTML...)
Or are you talking about something else?
(maybe I still don't know what a "predefined form" is?)
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Mon, 06 Oct 2003 20:20:30 GMT
From: "Public Interest" <ir@microsoft.com>
Subject: What is the Image module in Perl?
Message-Id: <i8kgb.166638$0v4.12612729@bgtnsc04-news.ops.worldnet.att.net>
I want to make changes to .gif and .jpeg files, such as resize them and cut
80% of the pictures. Add new text. Is TK only for GUI interface or TK can
handle graphics? How does those only stock chart make the realtime chart? Do
they draw the chart using text data from database, or they pre-draw realtime
graph for every stock using some 3rd party program unrelated to web server,
perl, php, then anyone requests 1 graph, it just displays the saved graph.
------------------------------
Date: Tue, 07 Oct 2003 07:49:22 +1000
From: Gregory Toomey <nospam@bigpond.com>
Subject: Re: What is the Image module in Perl?
Message-Id: <1278548.551WVe6ASy@gregs-web-hosting-and-pickle-farming>
It was a dark and stormy night, and Public Interest managed to scribble:
> I want to make changes to .gif and .jpeg files, such as resize them and
> cut 80% of the pictures.
Use Image::Magick available from www.cpan.org
Add new text. Is TK only for GUI interface or TK
> can handle graphics? How does those only stock chart make the realtime
> chart? Do they draw the chart using text data from database, or they
> pre-draw realtime graph for every stock using some 3rd party program
> unrelated to web server, perl, php, then anyone requests 1 graph, it just
> displays the saved graph.
Well if you look at the stock market graph I have at www.ipo-australia.com or htttp://www.float.com.au/scgi-bin/prod/graph.cgi?ticker=wow I use:
- the Perl GD module from cpan (version 1.18)
- the graph is created in real time and included in the HTML (have a look at the HTML)
- I access an Oracle datbase for all the data
- you can speed up response time by sending back the static head of a web page straight away, while concurrently working generating the dynamic part; recommended for those obsessed with decreasing response time
gtoomey
------------------------------
Date: Sat, 19 Jul 2003 01:59:56 GMT
From: Bob Walton <bwalton@rochester.rr.com>
Subject: Re:
Message-Id: <3F18A600.3040306@rochester.rr.com>
Ron wrote:
> Tried this code get a server 500 error.
>
> Anyone know what's wrong with it?
>
> if $DayName eq "Select a Day" or $RouteName eq "Select A Route") {
(---^
> dienice("Please use the back button on your browser to fill out the Day
> & Route fields.");
> }
...
> Ron
...
--
Bob Walton
------------------------------
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 5624
***************************************
