[27147] in Perl-Users-Digest
Perl-Users Digest, Issue: 8995 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sat Feb 25 21:05:48 2006
Date: Sat, 25 Feb 2006 18:05:04 -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, 25 Feb 2006 Volume: 10 Number: 8995
Today's topics:
Re: A Problem With GD <1usa@llenroc.ude.invalid>
Re: A Problem With GD <markem@airmail.net>
Re: A Problem With GD <markem@airmail.net>
Re: A Problem With GD <tadmc@augustmail.com>
Re: A Problem With GD <1usa@llenroc.ude.invalid>
Re: A Problem With GD <markem@airmail.net>
Re: A Problem With GD <markem@airmail.net>
Re: A Problem With GD <markem@airmail.net>
Re: A Problem With GD <1usa@llenroc.ude.invalid>
Re: A Problem With GD <1usa@llenroc.ude.invalid>
Re: A Problem With GD <1usa@llenroc.ude.invalid>
Re: A Problem With GD <sisyphus1@nomail.afraid.org>
Re: simple pointer operations (newbe) <abigail@abigail.nl>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Sat, 25 Feb 2006 19:09:38 GMT
From: "A. Sinan Unur" <1usa@llenroc.ude.invalid>
Subject: Re: A Problem With GD
Message-Id: <Xns97759025F9FEAasu1cornelledu@127.0.0.1>
Mark Manning <markem@airmail.net> wrote in
news:1201aimaa6bj368@corp.supernews.com:
> To whomever works on GD:
>
> I believe I may have uncovered a problem with the GIF renderer under
> GD.
> I can reproduce
How can anyone else reproduce the error if you do not provide a short but
complete script that generates the behavior you see?
Information on which versions of Perl modules and C libraries you are
using would have been helpful.
Have you seen the posting guidelines for this group?
Sinan
--
A. Sinan Unur <1usa@llenroc.ude.invalid>
(reverse each component and remove .invalid for email address)
comp.lang.perl.misc guidelines on the WWW:
http://mail.augustmail.com/~tadmc/clpmisc/clpmisc_guidelines.html
------------------------------
Date: Sat, 25 Feb 2006 14:30:03 -0600
From: Mark Manning <markem@airmail.net>
Subject: Re: A Problem With GD
Message-Id: <1201fg7dv7klt09@corp.supernews.com>
Yes I have and that is why I said: "To whomever works on GD". I did not
want to clutter up the group with needless code et al.
A. Sinan Unur wrote:
> Mark Manning <markem@airmail.net> wrote in
> news:1201aimaa6bj368@corp.supernews.com:
>
>
>>To whomever works on GD:
>>
>>I believe I may have uncovered a problem with the GIF renderer under
>>GD.
>> I can reproduce
>
>
> How can anyone else reproduce the error if you do not provide a short but
> complete script that generates the behavior you see?
>
> Information on which versions of Perl modules and C libraries you are
> using would have been helpful.
>
> Have you seen the posting guidelines for this group?
>
> Sinan
>
------------------------------
Date: Sat, 25 Feb 2006 14:50:51 -0600
From: Mark Manning <markem@airmail.net>
Subject: Re: A Problem With GD
Message-Id: <1201gn750d926e1@corp.supernews.com>
Ok - here ya go! :-)
#!perl
#
# Test case
#
use GD;
GD::Image->trueColor(1);
my $a = new GD::Image( 100, 100 ); # First Image
my $b = new GD::Image( 100, 100 ); # Second Image
my $fg_r = 253; # Foreground -> Red
my $fg_g = 245; # Foreground -> Green
my $fg_b = 230; # Foreground -> Blue
my $bg_r = 205; # Background -> Red
my $bg_g = 192; # Background -> Green
my $bg_b = 176; # Background -> Blue
my @ax = (); # Keep track of how many dots according to X
my @ay = (); # Keep track of how many dots according to Y
$fc = $a->colorAllocate( 255, 255, 255 ); # Transparent color
$fg = $a->colorExact( $fg_r, $fg_b, $fg_b ); # Foreground color
$bg = $a->colorExact( $bg_r, $bg_b, $bg_b ); # Background color
$a->filledRectangle( 0, 0, 99, 99, $fg );
for( $i=0; $i<500; $i++ ){
$f = 1;
while( $f > 0 ){
$x = int(rand(100));
$y = int(rand(100));
if( ($ax[$x] > 10) || ($ay[$y] > 10) ){ $f = 1; }
else{ $f = 0; }
}
$a->setPixel($x, $y, $bg);
$ox = $x;
$oy = $y;
$ax[$x]++;
$ay[$y]++;
}
open( OUTFILE, ">TestPic1.gif" ) || die $!;
binmode OUTFILE;
print OUTFILE $a->gif;
close( OUTFILE );
open( OUTFILE, ">TestPic1.png" ) || die $!;
binmode OUTFILE;
print OUTFILE $a->png;
close( OUTFILE );
$fg_r = int(($fg_r * 2) / 3); # Adjust the colors
$fg_g = int(($fg_g * 2) / 3); # Adjust the colors
$fg_b = int(($fg_b * 2) / 3); # Adjust the colors
$bg_r = int(($bg_r * 2) / 3); # Adjust the colors
$bg_g = int(($bg_g * 2) / 3); # Adjust the colors
$bg_b = int(($bg_b * 2) / 3); # Adjust the colors
$fc = $b->colorAllocate( 255, 255, 255 ); # Transparent color
$fg = $b->colorExact( $fg_r, $fg_b, $fg_b ); # Foreground color
$bg = $b->colorExact( $bg_r, $bg_b, $bg_b ); # Background color
$b->filledRectangle( 0, 0, 99, 99, $fg );
for( $i=0; $i<500; $i++ ){
$f = 1;
while( $f > 0 ){
$x = int(rand(100));
$y = int(rand(100));
if( ($ax[$x] > 10) || ($ay[$y] > 10) ){ $f = 1; }
else{ $f = 0; }
}
$b->setPixel($x, $y, $bg);
$ox = $x;
$oy = $y;
$ax[$x]++;
$ay[$y]++;
}
open( OUTFILE, ">TestPic2.gif" ) || die $!;
binmode OUTFILE;
print OUTFILE $b->gif;
close( OUTFILE );
open( OUTFILE, ">TestPic2.png" ) || die $!;
binmode OUTFILE;
print OUTFILE $b->png;
close( OUTFILE );
exit( 0 );
The darker colored GIF file will contain the extra dots in a line
(several lines on my machine). The version of GD that was installed is
the current one available for installation via the ppm of ActiveState
Perl. The version of Perl I am running is:
This is perl, v5.8.7 built for MSWin32-x86-multi-thread
(with 14 registered patches, see perl -V for more detail)
Copyright 1987-2005, Larry Wall
Binary build 815 [211909] provided by ActiveState http://www.ActiveState.com
ActiveState is a division of Sophos.
Built Nov 2 2005 08:44:52
Perl may be copied only under the terms of either the Artistic License
or the
GNU General Public License, which may be found in the Perl 5 source kit.
Complete documentation for Perl, including FAQ lists, should be found on
this system using `man perl' or `perldoc perl'. If you have access to the
Internet, point your browser at http://www.perl.org/, the Perl Home Page.
(If you need the -V information let me know.)
Version of GD is: Module Version: 2.31
(Latest version downloaded and installed two weeks ago.)
A. Sinan Unur wrote:
> Mark Manning <markem@airmail.net> wrote in
> news:1201aimaa6bj368@corp.supernews.com:
>
>
>>To whomever works on GD:
>>
>>I believe I may have uncovered a problem with the GIF renderer under
>>GD.
>> I can reproduce
>
>
> How can anyone else reproduce the error if you do not provide a short but
> complete script that generates the behavior you see?
>
> Information on which versions of Perl modules and C libraries you are
> using would have been helpful.
>
> Have you seen the posting guidelines for this group?
>
> Sinan
>
------------------------------
Date: Sat, 25 Feb 2006 18:17:50 -0600
From: Tad McClellan <tadmc@augustmail.com>
Subject: Re: A Problem With GD
Message-Id: <slrne01ste.jem.tadmc@magna.augustmail.com>
Mark Manning <markem@airmail.net> wrote:
> Yes I have
Please re-read the "Use an effective followup style" part.
> A. Sinan Unur wrote:
>> Have you seen the posting guidelines for this group?
[ snip TOFU ]
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Sun, 26 Feb 2006 00:26:01 GMT
From: "A. Sinan Unur" <1usa@llenroc.ude.invalid>
Subject: Re: A Problem With GD
Message-Id: <Xns9775C5C9B6F93asu1cornelledu@127.0.0.1>
Mark Manning <markem@airmail.net> wrote in
news:1201gn750d926e1@corp.supernews.com:
[ *Please do not top-post* ]
> A. Sinan Unur wrote:
>
>> Mark Manning <markem@airmail.net> wrote in
>> news:1201aimaa6bj368@corp.supernews.com:
>>>To whomever works on GD:
>>>
>>>I believe I may have uncovered a problem with the GIF renderer under
>>>GD. I can reproduce
>>
>>
>> How can anyone else reproduce the error if you do not provide a short
>> but complete script that generates the behavior you see?
> Ok - here ya go! :-)
>> Have you seen the posting guidelines for this group?
It looks like you haven't read the posting guidelines yet. Please do.
>
> #!perl
> #
> # Test case
> #
use strict;
use warnings;
missing.
When I first ran your script with warnings enabled, I got a whole bunch
of them. So, now, to make sure the issue is with GD but not your code, I
need to go fix those warnings.
Not posting warnings and strict clean code is considered *very* rude
here. So, here's a piece of my mind before I wrestle through your code.
> use GD;
> GD::Image->trueColor(1);
I could go on, but I am not sure it is worth the time I would spend
fixing the script. May I ask you why you are trying to create true color
images in GIF format?
>
> my $a = new GD::Image( 100, 100 ); # First Image
> my $b = new GD::Image( 100, 100 ); # Second Image
my $img1 = GD::Image->new( 100, 100 );
my $img2 = GD::Image->new( 100, 100 );
>
> my $fg_r = 253; # Foreground -> Red
> my $fg_g = 245; # Foreground -> Green
> my $fg_b = 230; # Foreground -> Blue
> my $bg_r = 205; # Background -> Red
> my $bg_g = 192; # Background -> Green
> my $bg_b = 176; # Background -> Blue
> my @ax = (); # Keep track of how many dots
> according to X my @ay = (); # Keep track of how
> many dots according to Y
Right margin comments that wrap are silly and annoying.
Give your variables meaningful names, and declare them in the smallest
applicable scope so you don't have to resort to comments to remember
what they do.
Reduce the number of declarations by grouping appropriate variables into
data structures:
use constant FG_COLOR => ( 253, 245, 230 );
use constant BG_COLOR => ( 205, 192, 176 );
use constant TRANSPARENT_COLOR => ( 255, 255, 255);
> $fg = $a->colorExact( $fg_r, $fg_b, $fg_b );
> $bg = $a->colorExact( $bg_r, $bg_b, $bg_b );
Guess what the documentation says?
$index = $image->colorExact(red,green,blue)
This returns the index of a color that exactly matches the specified
red green and blue components. If such a color is not in the color
table, this call returns -1.
You might want to check what value this call returns.
# Background color
>
> $a->filledRectangle( 0, 0, 99, 99, $fg );
> for( $i=0; $i<500; $i++ ){
> $f = 1;
> while( $f > 0 ){
> $x = int(rand(100));
> $y = int(rand(100));
>
> if( ($ax[$x] > 10) || ($ay[$y] > 10) ){ $f = 1; }
> else{ $f = 0; }
> }
Proper whitespace and indentation help others to understand your code.
Don't hesitate to use a pretty-printer if you lack the discipline to
properly format your code.
When you repost, please factor common code into a subroutine so that
readers do not have to keep going back and forth to try to discern if
there is any real difference in the code to create one image versus
another etc.
Did I mention that you should read and follow the posting guidelines?
Sinan
--
A. Sinan Unur <1usa@llenroc.ude.invalid>
(reverse each component and remove .invalid for email address)
comp.lang.perl.misc guidelines on the WWW:
http://mail.augustmail.com/~tadmc/clpmisc/clpmisc_guidelines.html
------------------------------
Date: Sat, 25 Feb 2006 19:28:27 -0600
From: Mark Manning <markem@airmail.net>
Subject: Re: A Problem With GD
Message-Id: <12020vn3fi6dp1c@corp.supernews.com>
A. Sinan Unur wrote:
This is a test case and not a full blown program.
>>#!perl
>>#
>># Test case
>>#
I didn't put these in because this was - a test case.
> use strict;
> use warnings;
Of course you will get errors.
> When I first ran your script with warnings enabled, I got a whole bunch
> of them. So, now, to make sure the issue is with GD but not your code, I
> need to go fix those warnings.
Not as rude as acting like you are.
> Not posting warnings and strict clean code is considered *very* rude
> here. So, here's a piece of my mind before I wrestle through your code.
>> use GD;
>> GD::Image->trueColor(1);
The GD documentation does not say you can not use truecolor on anything.
According to the docs you can enable truecolor whenever and whereever
you want. The GIF file format is supposed to be a loss-less file
format. Therefore, using two colors is not supposed to cause any kind
of a problem with GIF. This is a null-issue.
> I could go on, but I am not sure it is worth the time I would spend
> fixing the script. May I ask you why you are trying to create true color
> images in GIF format?
Then why don't you just stop and let someone else help? I didn't ask
for someone rude to help. And I don't need "HELP" per se. I am simply
trying to get in touch with the people who work on GD to point out that
there is something strange going on in GD. So all of the rest of this
garbage you are spewing at me is irrelevant.
>> my $a = new GD::Image( 100, 100 ); # First Image
>> my $b = new GD::Image( 100, 100 ); # Second Image
>
>
> my $img1 = GD::Image->new( 100, 100 );
> my $img2 = GD::Image->new( 100, 100 );
Potatoes - potatoes - tomatoes - tomatoes. You have your way - I have mine.
> Right margin comments that wrap are silly and annoying.
Another stupid remark. Netscape is doing the wrapping. I'm not doing
it to annoy or anger anyone. Looked good on my screen. Looks like crap
on the posting.
> Give your variables meaningful names, and declare them in the smallest
> applicable scope so you don't have to resort to comments to remember
> what they do.
Again a non-issue. Test case?
> Reduce the number of declarations by grouping appropriate variables into
> data structures:
>
> use constant FG_COLOR => ( 253, 245, 230 );
> use constant BG_COLOR => ( 205, 192, 176 );
> use constant TRANSPARENT_COLOR => ( 255, 255, 255);
Again we are back to potatoes - potatoes - tomatoes - tomatoes. (And if
you don't understand what I'm saying it's the old song called "Let's
call the whole thing off".
>> $fg = $a->colorExact( $fg_r, $fg_b, $fg_b );
>> $bg = $a->colorExact( $bg_r, $bg_b, $bg_b );
>
>
> Guess what the documentation says?
>
> $index = $image->colorExact(red,green,blue)
>
> This returns the index of a color that exactly matches the specified
> red green and blue components. If such a color is not in the color
> table, this call returns -1.
Guess what? I already tried that and all of the other color resolving
calls. None of them fix the problem.
>
> You might want to check what value this call returns.
Already did.
> Proper whitespace and indentation help others to understand your code.
Can't make Netscape change how it sends things.
>
> Don't hesitate to use a pretty-printer if you lack the discipline to
> properly format your code.
Oh GACK! You're being an ass. Go away.
> When you repost, please factor common code into a subroutine so that
> readers do not have to keep going back and forth to try to discern if
> there is any real difference in the code to create one image versus
> another etc.
Next time try focusing on helping people rather than trying to beat them
into the ground with your baseless accusations and blathering.
>
> Did I mention that you should read and follow the posting guidelines?
Did I mention you're being and ass?
>
> Sinan
>
------------------------------
Date: Sat, 25 Feb 2006 19:29:08 -0600
From: Mark Manning <markem@airmail.net>
Subject: Re: A Problem With GD
Message-Id: <120210v96c32038@corp.supernews.com>
I did it on purpose.
Tad McClellan wrote:
------------------------------
Date: Sat, 25 Feb 2006 19:37:05 -0600
From: Mark Manning <markem@airmail.net>
Subject: Re: A Problem With GD
Message-Id: <12021ft5639sue5@corp.supernews.com>
A very nice person on the group has pointed me to the GD web page and
I've submitted an error report there. Blather away with your snide
remarks and other nasty comments. And - oh - by the way - next time I
have to post - don't bother responding. I really don't need your
comments or remarks.
My motto has always been help - don't hurt. Yours, it seems, is just
the reverse.
A. Sinan Unur wrote:
[ Lots of garbage stuff removed. ]
------------------------------
Date: Sun, 26 Feb 2006 01:39:44 GMT
From: "A. Sinan Unur" <1usa@llenroc.ude.invalid>
Subject: Re: A Problem With GD
Message-Id: <Xns9775D249BB0BCasu1cornelledu@127.0.0.1>
Mark Manning <markem@airmail.net> wrote in
news:1201gn750d926e1@corp.supernews.com:
> Ok - here ya go! :-)
Well, OK, so I rearranged your script a bit. After getting rid of unused
variables, and creating a palette image, I do not observe the issue.
#!/usr/bin/perl
use strict;
use warnings;
use GD;
my $img1 = make_tile({
width => 100,
height => 100,
transparent => [ 255, 255, 255 ],
fg_rgb => [ 253, 245, 230 ],
bg_rgb => [ 205, 192, 176 ],
}
);
my $img2 = make_tile({
width => 100,
height => 100,
transparent => [ 255, 255, 255 ],
fg_rgb => [ map { scale_color($_) } 253, 245, 230 ],
bg_rgb => [ map { scale_color($_) } 205, 192, 176 ],
}
);
my ($prefix, $num) = ('TestPic', 1);
for my $gd ( $img1, $img2 ) {
for my $format ( qw( gif png ) ) {
write_image($gd, "$prefix.$num", $format);
}
++$num;
}
sub scale_color { my $c = int( ( $_[0] / 3) * 2 ) };
sub make_tile {
my %args = %{ $_[0] };
my $img = GD::Image->newPalette($args{width}, $args{height});
my $transparent = $img->colorAllocate( @{ $args{transparent} });
my $fg = $img->colorAllocate( @{ $args{fg_rgb} });
my $bg = $img->colorAllocate( @{ $args{bg_rgb} });
$img->filledRectangle(0, 0, $args{width} - 1, $args{height} - 1,
$bg);
my $hits = { };
for ( 1 .. 500 ) {
my $flag = 1;
my ($x, $y);
while ( $flag ) {
$x = int(rand 100);
$y = int(rand 100);
$flag = 0 if $hits->{x}->{$x} ++ < 10
and $hits->{y}->{$y} ++ < 10;
}
$img->setPixel($x, $y, $fg);
}
return $img;
}
sub write_image {
my ($gd, $filename, $format) = @_;
open my $img_fh, '>', "$filename.$format"
or die "Cannot open '$filename.$format': $!";
binmode $img_fh;
print $img_fh $gd->$format;
close $img_fh or die "Cannot close '$filename.$format': !";
}
--
A. Sinan Unur <1usa@llenroc.ude.invalid>
(reverse each component and remove .invalid for email address)
comp.lang.perl.misc guidelines on the WWW:
http://mail.augustmail.com/~tadmc/clpmisc/clpmisc_guidelines.html
------------------------------
Date: Sun, 26 Feb 2006 01:44:29 GMT
From: "A. Sinan Unur" <1usa@llenroc.ude.invalid>
Subject: Re: A Problem With GD
Message-Id: <Xns9775D31763C71asu1cornelledu@127.0.0.1>
"A. Sinan Unur" <1usa@llenroc.ude.invalid> wrote in
news:Xns9775D249BB0BCasu1cornelledu@127.0.0.1:
> Mark Manning <markem@airmail.net> wrote in
> news:1201gn750d926e1@corp.supernews.com:
>
>> Ok - here ya go! :-)
>
> Well, OK, so I rearranged your script a bit
Obviously wasn't worth it.
Sinan
--
A. Sinan Unur <1usa@llenroc.ude.invalid>
(reverse each component and remove .invalid for email address)
comp.lang.perl.misc guidelines on the WWW:
http://mail.augustmail.com/~tadmc/clpmisc/clpmisc_guidelines.html
------------------------------
Date: Sun, 26 Feb 2006 01:51:06 GMT
From: "A. Sinan Unur" <1usa@llenroc.ude.invalid>
Subject: Re: A Problem With GD
Message-Id: <Xns9775D4369347asu1cornelledu@127.0.0.1>
Mark Manning <markem@airmail.net> wrote in
news:12020vn3fi6dp1c@corp.supernews.com:
> A. Sinan Unur wrote:
>
> This is a test case and not a full blown program.
I did not write that. Please pay attention to preserve correct
attributions when you reply.
>
>>>#!perl
>>>#
>>># Test case
>>>#
>
> I didn't put these in because this was - a test case.
>
>> use strict;
>> use warnings;
>
> Of course you will get errors.
It is especially important to ask Perl to help you when you are having
problems, don't you think?
...
>> Guess what the documentation says?
>>
>> $index = $image->colorExact(red,green,blue)
>>
>> This returns the index of a color that exactly matches the
>> specified red green and blue components. If such a color is not
>> in the color table, this call returns -1.
>
> Guess what? I already tried that and all of the other color resolving
> calls. None of them fix the problem.
>
>>
>> You might want to check what value this call returns.
>
> Already did.
Then you might have noticed at least one of those calls returning -1?
>
>> Proper whitespace and indentation help others to understand your
>> code.
>
> Can't make Netscape change how it sends things.
That is your problem.
>> Don't hesitate to use a pretty-printer if you lack the discipline to
>> properly format your code.
>
> Oh GACK! You're being an ass. Go away.
...
>> Did I mention that you should read and follow the posting guidelines?
>
> Did I mention you're being and ass?
But a cute one:
http://www.unur.com/sinan/album/tr_072005/2005_0809_064336aa.jpg
Bye!
--
A. Sinan Unur <1usa@llenroc.ude.invalid>
(reverse each component and remove .invalid for email address)
comp.lang.perl.misc guidelines on the WWW:
http://mail.augustmail.com/~tadmc/clpmisc/clpmisc_guidelines.html
------------------------------
Date: Sun, 26 Feb 2006 12:57:16 +1100
From: "Sisyphus" <sisyphus1@nomail.afraid.org>
Subject: Re: A Problem With GD
Message-Id: <44010b73$0$17406$afc38c87@news.optusnet.com.au>
"Mark Manning" <markem@airmail.net> wrote in message
news:1201gn750d926e1@corp.supernews.com...
> Ok - here ya go! :-)
>
Best to post a *minimal* script that exhibits the problem. Here's all that's
needed (though it can probably be reduced further):
use GD;
use warnings;
use strict;
GD::Image->trueColor(1);
my ($fg, $bg, $x, $y, $i);
my $b = new GD::Image( 100, 100 );
#my $fg_r = 253; # Foreground -> Red
#my $fg_g = 245; # Foreground -> Green
#my $fg_b = 230; # Foreground -> Blue
#my $bg_r = 205; # Background -> Red
#my $bg_g = 192; # Background -> Green
#my $bg_b = 176; # Background -> Blue
my $fg_r = 168;
my $fg_g = 163;
my $fg_b = 153;
my $bg_r = 136;
my $bg_g = 128;
my $bg_b = 117;
$fg = $b->colorExact( $fg_r, $fg_b, $fg_b );
$bg = $b->colorExact( $bg_r, $bg_b, $bg_b );
$b->filledRectangle( 0, 0, 99, 99, $fg );
for( $i=0; $i<500; $i++ ){
$x = int(rand(100));
$y = int(rand(100));
$b->setPixel($x, $y, $bg);
}
open( OUTFILE, ">TestPic2.gif" ) || die $!;
binmode OUTFILE;
print OUTFILE $b->gif;
close( OUTFILE );
open( OUTFILE, ">TestPic2.png" ) || die $!;
binmode OUTFILE;
print OUTFILE $b->png;
close( OUTFILE );
exit( 0 );
Like you, I find that if I use the values that are commented out (they're
the values you used for for the first image files), then there's no problem.
But if I run that script as is (using the values you used for the second
image files), I get those extra lines of extra dots in the gif file. So ....
the strangeness you report is dependent upon the values that are given to
$fg_r, $fg_b, $fg_g, $bg_r, $bg_b, and $bg_g ... and probably upon something
else as well ... but I don't know what :-)
Hth.
Cheers,
Rob
------------------------------
Date: 25 Feb 2006 21:52:33 GMT
From: Abigail <abigail@abigail.nl>
Subject: Re: simple pointer operations (newbe)
Message-Id: <slrne01kd1.h1.abigail@alexandra.abigail.nl>
Jürgen Exner (jurgenex@hotmail.com) wrote on MMMMDLXI September MCMXCIII
in <URL:news:y60Mf.762$FE2.730@trnddc01>:
-: Dirk Lehmann wrote:
-: > Okay, I think that I should learn much more about the differences
-: > between a pointer and a reference. I'm just at the beginning to
-: > understand references because the most introductions to Perl let
-: > references shown like a pointer
-:
-: Which actually is correct. References do point to thingies, so they are
-: pointers.
They are in the same way pointers as you are a road sign if you point
to something.
Pointers are the term for thingies that point to memory locations.
Calling other things pointers as well just delutes the term, and
makes sensible communication impossible.
Don't call references pointers, that doesn't benefit anyone.
Abigail
--
sub A::TIESCALAR{bless\my$x=>A};package B;@q[0..3]=qw/Hacker Perl
Another Just/;use overload'""'=>sub{pop @q};sub A::FETCH{bless\my
$y=>B}; tie my $shoe => qq 'A';print "$shoe $shoe $shoe $shoe\n";
------------------------------
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 8995
***************************************
