[17915] in Perl-Users-Digest
Perl-Users Digest, Issue: 75 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Jan 16 21:10:30 2001
Date: Tue, 16 Jan 2001 18:10:13 -0800 (PST)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Message-Id: <979697412-v10-i75@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Tue, 16 Jan 2001 Volume: 10 Number: 75
Today's topics:
Re: NEWBIE: need help with search spider/crawler <amonotod@netscape.net>
Re: NEWBIE: need help with search spider/crawler (Damian James)
Re: NEWBIE: need help with search spider/crawler (Abigail)
Re: NEWBIE: need help with search spider/crawler (Sam Holden)
Re: NEWBIE: need help with search spider/crawler (Ben Okopnik)
Re: NEWBIE: need help with search spider/crawler (Abigail)
Re: NEWBIE: need help with search spider/crawler (Damian James)
Re: NEWBIE: need help with search spider/crawler (Abigail)
Re: newbie: split problem <ren.maddox@tivoli.com>
Re: newbie: split problem <j_graumann@hotmail.com>
Re: Putting text in an image? (Martien Verbruggen)
Re: Random Numbers with a Twist (Abigail)
Re: Random Numbers with a Twist (Garry Williams)
Re: Random Numbers with a Twist (Richard J. Rauenzahn)
The Simpsons (and perl) <elijah@workspot.net>
Using filltint with PostScript module eric_edlin@my-deja.com
Re: What do you call the => operator? (Matt Schalit)
Re: What do you call the => operator? <mischief@velma.motion.net>
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Tue, 16 Jan 2001 22:57:15 GMT
From: amonotod <amonotod@netscape.net>
Subject: Re: NEWBIE: need help with search spider/crawler
Message-Id: <942jk8$i13$1@nnrp1.deja.com>
In article <942ij9$h2q$1@nnrp1.deja.com>,
amonotod <amonotod@netscape.net> wrote:
> In article <n3596t0t72ur4sjpca6muhoge26up0vcl6@4ax.com>,
> Lou Moran <lmoran@wtsg.com> wrote:
> > On 16 Jan 2001 08:56:18 GMT, abigail@foad.org (Abigail) wrote
> > wonderful things about sparkplugs:
> >
> > >Abigail
> > >--
> > >print 74.117.115.116.32;
> > >print 97.110.111.116.104.101.114.32;
> > >print 80.101.114.108.32;
> > >print 72.97.99.107.101.114.10;
> >
> > This one is way cool... I can't wait to figure out how it works.
> >
> > lmoran@wtsgSPAM.com
> > print "\x{263a}"
> >
>
> Hmmm... I figured it was a JAPH, but evidently not...
>
>
74.117115.1163297.11111.116104.101114.3280.101114.1083272.9799.107101.11
> 410
>
> Must be that perl sees the first . as a decimal indicator and the
second
> as a concatenation operator, then switches back and forth for each .
on
> each line. Is that it, or is my machine really stoned?
>
> Heres what I actually ran:
> #!perl -w
>
> use strict;
>
> print 74.117.115.116.32;
> print 97.110.111.116.104.101.114.32;
> print 80.101.114.108.32;
> print 72.97.99.107.101.114.10;
>
> with this command: perl abagail_sig.pl
>
> Did you also get this result?
>
> amonotod
Bad form to reply to yourself, I know, but ah well...
I got a little more curious about this, and looked in my ascii ref
chart, to confirm a little suspicion. That is a JAPH, as I had
originally thought; so why did it not JAPH out?
amonotod
--
`\|||/ amonotod@
(@@) netscape.net
ooO_(_)_Ooo________________________________
_____|_____|_____|_____|_____|_____|_____|_____|
Sent via Deja.com
http://www.deja.com/
------------------------------
Date: 16 Jan 2001 23:52:17 GMT
From: damian@puma.qimr.edu.au (Damian James)
Subject: Re: NEWBIE: need help with search spider/crawler
Message-Id: <slrn969nn2.8b4.damian@puma.qimr.edu.au>
In article <slrn96835i.kig.abigail@tsathoggua.rlyeh.net>, Abigail wrote:
>
>Abigail
>--
>print 74.117.115.116.32;
>print 97.110.111.116.104.101.114.32;
>print 80.101.114.108.32;
>print 72.97.99.107.101.114.10;
Actually, this has been bugging me for at least a couple of weeks -- since
I saw the same idiom in another (earlier version of this one?) of Abigail's
JAPH's.
I experimented, confirmed that it needs 5.6.
In 5.005, the interpreter breaks up the "." sepeated values into pairs and
treats each pair as a float. It then concatenates the floats and any
integers left over.
In other words, the above is equivalent to:
print join "", 74.117, 115.116, 32; #etc
In 5.6.0 it treats any more than two consecutive integers separated by "." as
ascii indices and proceeds to convert these to characters then concatenate
them.
In other words, equivalent to:
print pack("C*", (74, 117, 115, 116, 32)); #etc.
This behaviour is clearly a bit of DWIM that has been added deliberately to
5.6.0. I felt checking the docs to see how useful it might be was in
order.
I have spent maybe an hour a day since seeing this the first time trying to
find where this is documented :-). I have not succeeded!
I've grep'd my entire 5.6.0 dist for "concat" and "float". I have searched
this newsgroup's archive on deja for the samen combination, I have searched
all the Perl related websites I could find.
I even went back and read perlop, perlfunc, perldata and perlvar from start
to finish in case I was missing something.
Anyway, I had figured the next step would be to search some mailing list
archives, but since I see the JAPH has now generated some interest, I
thought coming to the group would be more appropriate.
So, any word from anyone about this? Is it documented?
Cheers,
Damian
------------------------------
Date: 16 Jan 2001 23:54:03 GMT
From: abigail@foad.org (Abigail)
Subject: Re: NEWBIE: need help with search spider/crawler
Message-Id: <slrn969nor.v5.abigail@tsathoggua.rlyeh.net>
amonotod (amonotod@netscape.net) wrote on MMDCXCV September MCMXCIII in
<URL:news:942jk8$i13$1@nnrp1.deja.com>:
== In article <942ij9$h2q$1@nnrp1.deja.com>,
== amonotod <amonotod@netscape.net> wrote:
== >
== > Heres what I actually ran:
== > #!perl -w
== >
== > use strict;
== >
== > print 74.117.115.116.32;
== > print 97.110.111.116.104.101.114.32;
== > print 80.101.114.108.32;
== > print 72.97.99.107.101.114.10;
== >
== > with this command: perl abagail_sig.pl
== >
== > Did you also get this result?
== >
== > amonotod
==
==
== Bad form to reply to yourself, I know, but ah well...
==
== I got a little more curious about this, and looked in my ascii ref
== chart, to confirm a little suspicion. That is a JAPH, as I had
== originally thought; so why did it not JAPH out?
Upgrade.
Abigail
--
package Just_another_Perl_Hacker; sub print {($_=$_[0])=~ s/_/ /g;
print } sub __PACKAGE__ { &
print ( __PACKAGE__)} &
__PACKAGE__
( )
------------------------------
Date: 17 Jan 2001 00:05:30 GMT
From: sholden@pgrad.cs.usyd.edu.au (Sam Holden)
Subject: Re: NEWBIE: need help with search spider/crawler
Message-Id: <slrn969oea.6mv.sholden@pgrad.cs.usyd.edu.au>
On 16 Jan 2001 23:52:17 GMT, Damian James <damian@puma.qimr.edu.au> wrote:
>
>In 5.005, the interpreter breaks up the "." sepeated values into pairs and
>treats each pair as a float. It then concatenates the floats and any
>integers left over.
>
>In other words, the above is equivalent to:
>
>print join "", 74.117, 115.116, 32; #etc
>
>In 5.6.0 it treats any more than two consecutive integers separated by "." as
>ascii indices and proceeds to convert these to characters then concatenate
>them.
>
>In other words, equivalent to:
>
>print pack("C*", (74, 117, 115, 116, 32)); #etc.
>
>This behaviour is clearly a bit of DWIM that has been added deliberately to
>5.6.0. I felt checking the docs to see how useful it might be was in
>order.
>
>I have spent maybe an hour a day since seeing this the first time trying to
>find where this is documented :-). I have not succeeded!
I suspect that changing the versioning style from the intelligent 5.005 to
be followed by 5.006 (so versions can be compared) to 5.6.0 to be followed
by 5.6.1 and so on (until 5.7.0 or 6.0.0 or Perl3000 or <insert cool name>)
meant hacking perl so that versions could still be compared...
Smells like a hack to me... but it's perl so that's considered a good thing.
--
Sam Holden
------------------------------
Date: 17 Jan 2001 00:08:57 GMT
From: ben-fuzzybear@geocities.com (Ben Okopnik)
Subject: Re: NEWBIE: need help with search spider/crawler
Message-Id: <slrn969opk.1a6.ben-fuzzybear@Odin.Thor>
The ancient archives of Tue, 16 Jan 2001 21:57:10 GMT showed
Garry Williams of comp.lang.perl.misc speaking thus:
>On 16 Jan 2001 20:39:46 GMT, Ben Okopnik <ben-fuzzybear@geocities.com> wrote:
>>The ancient archives of Tue, 16 Jan 2001 13:36:04 -0500 showed
>>Lou Moran of comp.lang.perl.misc speaking thus:
>>>On 16 Jan 2001 08:56:18 GMT, abigail@foad.org (Abigail) wrote
>>>wonderful things about sparkplugs:
>>>
>>>>Abigail
>>>>--
>>>>print 74.117.115.116.32;
>>>>print 97.110.111.116.104.101.114.32;
>>>>print 80.101.114.108.32;
>>>>print 72.97.99.107.101.114.10;
>>>
>>>This one is way cool... I can't wait to figure out how it works.
>>>
>>>lmoran@wtsgSPAM.com
>>>print "\x{263a}"
>>
>>
>>I'll confess: I just don't get it. Running the above with a
>>
>>perl -we '....
>>
>>etc., does nothing but print those strings; even your own .sig does
>>nothing more than output
>>
>>Illegal hex digit ignored at -e line 1.
>>{263a}
>>
>>What did I miss?
>
>perl 5.6.0
Ah - OK, thanks. I have to live with 5.005, though; 5.6.0 is somewhere in
my future (unless 6 comes out very soon), but <sigh> not for a few months
at least.
Ben Okopnik
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
The reason there is so little crime in Germany is that it's against the
law. -- Alex Levin
------------------------------
Date: 17 Jan 2001 00:20:33 GMT
From: abigail@foad.org (Abigail)
Subject: Re: NEWBIE: need help with search spider/crawler
Message-Id: <slrn969pah.v5.abigail@tsathoggua.rlyeh.net>
Damian James (damian@puma.qimr.edu.au) wrote on MMDCXCV September
MCMXCIII in <URL:news:slrn969nn2.8b4.damian@puma.qimr.edu.au>:
\\ In article <slrn96835i.kig.abigail@tsathoggua.rlyeh.net>, Abigail wrote:
\\ >
\\ >Abigail
\\ >--
\\ >print 74.117.115.116.32;
\\ >print 97.110.111.116.104.101.114.32;
\\ >print 80.101.114.108.32;
\\ >print 72.97.99.107.101.114.10;
\\
\\ Actually, this has been bugging me for at least a couple of weeks -- since
\\ I saw the same idiom in another (earlier version of this one?) of Abigail's
\\ JAPH's.
\\
\\ I experimented, confirmed that it needs 5.6.
\\
\\ In 5.005, the interpreter breaks up the "." sepeated values into pairs and
\\ treats each pair as a float. It then concatenates the floats and any
\\ integers left over.
\\
\\ In other words, the above is equivalent to:
\\
\\ print join "", 74.117, 115.116, 32; #etc
\\
\\ In 5.6.0 it treats any more than two consecutive integers separated by "." as
\\ ascii indices and proceeds to convert these to characters then concatenate
\\ them.
ASCII only has 128 code points; this constructs works with higher numbers
as well.
\\ In other words, equivalent to:
\\
\\ print pack("C*", (74, 117, 115, 116, 32)); #etc.
Eh, no, not quite. It just happens to be the same with this set of
numbers; but with higher numbers, it'll fail.
\\ This behaviour is clearly a bit of DWIM that has been added deliberately to
\\ 5.6.0. I felt checking the docs to see how useful it might be was in
\\ order.
No, it's just a side effect of being to handle version numbers.
\\ I have spent maybe an hour a day since seeing this the first time trying to
\\ find where this is documented :-). I have not succeeded!
\\
\\ I've grep'd my entire 5.6.0 dist for "concat" and "float". I have searched
\\ this newsgroup's archive on deja for the samen combination, I have searched
\\ all the Perl related websites I could find.
\\
\\ I even went back and read perlop, perlfunc, perldata and perlvar from start
\\ to finish in case I was missing something.
You missed it.
\\ Anyway, I had figured the next step would be to search some mailing list
\\ archives, but since I see the JAPH has now generated some interest, I
\\ thought coming to the group would be more appropriate.
\\
\\ So, any word from anyone about this? Is it documented?
perldata of course.
Abigail
--
perl -we 'print split /(?=(.*))/s => "Just another Perl Hacker\n";'
------------------------------
Date: 17 Jan 2001 01:05:28 GMT
From: damian@puma.qimr.edu.au (Damian James)
Subject: Re: NEWBIE: need help with search spider/crawler
Message-Id: <slrn969s09.8b4.damian@puma.qimr.edu.au>
In article <slrn969pah.v5.abigail@tsathoggua.rlyeh.net>, Abigail wrote:
>Damian James (damian@puma.qimr.edu.au) wrote on MMDCXCV September
>MCMXCIII in <URL:news:slrn969nn2.8b4.damian@puma.qimr.edu.au>:
>\\ ascii indices and proceeds to convert these to characters then concatenate
>\\ them.
>
>ASCII only has 128 code points; this constructs works with higher numbers
>as well.
>
*sigh*
I first tried learning to program in 1983 on an Atari 800, which came with
a particularly gnarly version of BASIC. Anyway, its character set was a
things called Atari-ASCII, which did have 256 characters. I guess my
misperception above is a residual scar from the experience.
OT:(It is my belief that a whole generation of potential
programmers was put off by exposure to BASIC in the
early eighties).
>\\ I even went back and read perlop, perlfunc, perldata and perlvar from start
>\\ to finish in case I was missing something.
>
>You missed it.
I did. I was convinced this had something to do with the concatenation
operator, I guess I was looking for that.
>perldata of course.
From perldata:
A literal of the form `v1.20.300.4000' is parsed as a string
composed of characters with the specified ordinals... If there
are two or more dots in the literal, the leading `v' may be omitted.
This really made my day, even if I feel a bit foolish :-).
I can see I still have a lot to learn about character encoding.
Cheers,
Damian
------------------------------
Date: 17 Jan 2001 01:23:49 GMT
From: abigail@foad.org (Abigail)
Subject: Re: NEWBIE: need help with search spider/crawler
Message-Id: <slrn969t15.2gu.abigail@tsathoggua.rlyeh.net>
Damian James (damian@puma.qimr.edu.au) wrote on MMDCXCVI September
MCMXCIII in <URL:news:slrn969s09.8b4.damian@puma.qimr.edu.au>:
&& In article <slrn969pah.v5.abigail@tsathoggua.rlyeh.net>, Abigail wrote:
&& >Damian James (damian@puma.qimr.edu.au) wrote on MMDCXCV September
&& >MCMXCIII in <URL:news:slrn969nn2.8b4.damian@puma.qimr.edu.au>:
&& >\\ ascii indices and proceeds to convert these to characters then concatenat
&& >\\ them.
&& >
&& >ASCII only has 128 code points; this constructs works with higher numbers
&& >as well.
&& >
&&
&& *sigh*
&&
&& I first tried learning to program in 1983 on an Atari 800, which came with
&& a particularly gnarly version of BASIC. Anyway, its character set was a
&& things called Atari-ASCII, which did have 256 characters. I guess my
&& misperception above is a residual scar from the experience.
The used construct works with higher numbers than 256 too.
Abigail
--
sub TIESCALAR {bless \$_} sub STORE {local $_ = pop; print} tie $_ => $_;
($_ => $_ => $_ => $_) = split /(?<=\s)/ => "Just another Perl Hacker\n";
------------------------------
Date: 16 Jan 2001 17:09:06 -0600
From: Ren Maddox <ren.maddox@tivoli.com>
Subject: Re: newbie: split problem
Message-Id: <m3r9233xil.fsf@dhcp11-177.support.tivoli.com>
Ren Maddox <ren.maddox@tivoli.com> writes:
> Johannes Graumann <j_graumann@hotmail.com> writes:
> I expect that you are having a problem reading the whole file into
> $xyz. There are, of course, several ways to do so, including:
>
> $xyz = join "", <FILE>;
>
> or
>
> { local $/; $xyz = <FILE>; }
Silly me... I left out the most obvious solution, which is to skip
$xyz altogether:
@all = <FILE>;
--
Ren Maddox
ren@tivoli.com
------------------------------
Date: Wed, 17 Jan 2001 01:23:52 GMT
From: Johannes Graumann <j_graumann@hotmail.com>
Subject: Re: newbie: split problem
Message-Id: <942s70$pcr$1@nnrp1.deja.com>
In article <3A64AA54.5EAE0724@home.com>,
Michael Carman <mjcarman@home.com> wrote:
> Johannes Graumann wrote:
> >
> > I want to do something like
> > @all = split("\n", $xyz)
> > to get strings from a file which holds a potential string in
> > each line, but that doesn't work (in contradiction to something
> > like @all = split("", $xyz)). How can I make the line break my
> > split-marker?
>
> You're making life much too difficult. Assuming, as you say, that you
> have a file with a string on each line, you can just read it all at a
> gulp. Perl will split it for you:
>
> open(FILE, 'myfile') or die "Can't open 'myfile' [$!]\n";
> chomp(@all = <FILE>);
> close(FILE);
> # Do something useful...
>
> -mjc
>
Thank you!
I'm getting there!
Johannes
Sent via Deja.com
http://www.deja.com/
------------------------------
Date: Wed, 17 Jan 2001 01:52:00 GMT
From: mgjv@tradingpost.com.au (Martien Verbruggen)
Subject: Re: Putting text in an image?
Message-Id: <slrn969uk0.jgc.mgjv@verbruggen.comdyn.com.au>
On Fri, 12 Jan 2001 11:30:31 -0500,
Eric <eric.kort@vai.org> wrote:
> Is there a perl module to help with placing text on an image? For example,
> I am writing a program to generate a histogram of an image (thus creating a
> tiff), and I would like to be able to put numbers on the x axis scale. Must
> I draw the numbers pixel by pixel, or is there a simpler way?
The PGPLOT module can create the histogram for you. It doesn't create
TIFF, I believe, but it does ppm and some other formats. converting
those to tiff could be done with the Image::Magick module, or an
external tool (maybe from the NetPBM or PBMplus packages).
You can use it to write text as well, if the stuff it outputs isn't
what you want.
If you don't want to use PGPLOT, Image::Magick has good drawing
features that you can use to plot the histogram, and its text. Then
you can save it as almost any format you can think of.
Martien
--
Martien Verbruggen |
Interactive Media Division | Freudian slip: when you say one thing
Commercial Dynamics Pty. Ltd. | but mean your mother.
NSW, Australia |
------------------------------
Date: 16 Jan 2001 23:49:38 GMT
From: abigail@foad.org (Abigail)
Subject: Re: Random Numbers with a Twist
Message-Id: <slrn969ngi.tp2.abigail@tsathoggua.rlyeh.net>
John Boy Walton (johngros.NOSPAM@bigpond.net.au) wrote on MMDCXCV
September MCMXCIII in <URL:news:bP396.65731$xW4.515596@news-server.bigpond.net.au>:
\\
\\ "Garry Williams" <garry@zvolve.com> wrote in message
\\ news:fH296.49$h41.2755@eagle.america.net...
\\ > On Tue, 16 Jan 2001 11:56:01 -0700, Rob Greenbank <rob@frii.com>
\\ > wrote:
\\ >
\\ > But Abigail already pointed out that this method could lead to no
\\ > solution by unfortunate choices early in the interation you propose.
\\ >
\\ > --
\\ > Garry Williams
\\ He did point out an easy test for it (the empty hash) and then you could run
\\ through again.
*shudder*
That would lead to an extremely slow program. It's not hard to come with
an example where you have more than 90% of picking the first point "wrong",
but you can pick over half of the required points before your hash empties.
The amount of backtracks required before picking a right point are
overwelming.
Abigail
--
sub f{sprintf'%c%s',$_[0],$_[1]}print f(74,f(117,f(115,f(116,f(32,f(97,
f(110,f(111,f(116,f(104,f(0x65,f(114,f(32,f(80,f(101,f(114,f(0x6c,f(32,
f(0x48,f(97,f(99,f(107,f(101,f(114,f(10,q ff)))))))))))))))))))))))))
------------------------------
Date: Wed, 17 Jan 2001 01:00:44 GMT
From: garry@zvolve.com (Garry Williams)
Subject: Re: Random Numbers with a Twist
Message-Id: <09696.83$h41.4583@eagle.america.net>
On Tue, 16 Jan 2001 22:20:55 GMT, John Boy Walton
<johngros.NOSPAM@bigpond.net.au> wrote:
>"Garry Williams" <garry@zvolve.com> wrote in message
>news:fH296.49$h41.2755@eagle.america.net...
>> On Tue, 16 Jan 2001 11:56:01 -0700, Rob Greenbank <rob@frii.com>
>> wrote:
>>
>> But Abigail already pointed out that this method could lead to no
>> solution by unfortunate choices early in the interation you propose.
>>
>He did point out an easy test for it (the empty hash) and then you could run
>through again.
This problem smells like a packing problem or traveling salesman
problem. There's probably a linear programming solution, but I'm over
my head.
Anyway an exhaustive search feels *very* wrong. I'm afraid that the
"run through again" part would be impractical in some easy-to-imagine
cases. This problem, solved the way you suggest, is probably
intractable.
--
Garry Williams
------------------------------
Date: 17 Jan 2001 01:04:16 GMT
From: nospam@hairball.cup.hp.com (Richard J. Rauenzahn)
Subject: Re: Random Numbers with a Twist
Message-Id: <979693455.626836@hpvablab.cup.hp.com>
Rob Greenbank <rob@frii.com> writes:
>It's value isn't important -- set them all to 1 if you like.
>
>To eliminate a point simply:
> under $point{"$x,$y"};
Wouldn't delete $point{"$x,$y"} be better than undef? Especially if he
uses your suggestion for picking the next random coordinate (indexing
into an array of the keys).
$ perl -l
%a = qw(a b c d);
print keys %a;
delete $a{a};
print keys %a;
%a = qw(a b c d);
print keys %a;
undef $a{a};
print keys %a;
__END__
ac
c
ac
ac
RIch
--
Rich Rauenzahn ----------+xrrauenza@cup.hp.comx+ Hewlett-Packard Company
Technical Consultant | I speak for me, | 19055 Pruneridge Ave.
Development Alliances Lab| *not* HP | MS 46TU2
ESPD / E-Serv. Partner Division +--------------+---- Cupertino, CA 95014
------------------------------
Date: 16 Jan 2001 23:16:52 GMT
From: Eli the Bearded <elijah@workspot.net>
Subject: The Simpsons (and perl)
Message-Id: <eli$0101161812@qz.little-neck.ny.us>
I remember hearing it claimed that on some episode of the
Simpsons, Bart writes "I will not post to comp.lang.perl"
on the blackboard during the opening credits.
Yet when I search the Simpsons Archive (www.snpp.com) for
that I can't find it. FWIW, the chalkboard archive is at:
<URL:http://www.snpp.com/guides/chalkboard.openings.html>.
Elijah
------
found that page from the h2g2.com page on the Simpsons
------------------------------
Date: Wed, 17 Jan 2001 01:40:04 GMT
From: eric_edlin@my-deja.com
Subject: Using filltint with PostScript module
Message-Id: <942t5j$qb5$1@nnrp1.deja.com>
Hello all,
I am using PostScript::Elements, and
PostScript::TextBlock to throw together a simple
template postscript file which may be easily
changed by editting the perl script. I need to
create a box which is filled in gray and it looked
like the filltint attribute might do the trick.
The module mentions this attribute very briefly,
but states that a value of -1 (default) is
transparent, and anything greater sets the gray
scale for the fill. So I tried the following:
$template->addBox(points=>[$Item_Desc{anchor_x},
$Item_Desc{anchor_y},
$Item_Desc{width}, $Item_Desc{height}],
filltint=>10);
This changes the setgray value to 10, and enters a
fill attribute for the box into the postscript
file, but when viewing with ghostview, there is no
change in the fill (shading) of the box after it
is drawn. Unfortunately, I am not very familiar
with postscript. Any advice or assistance would
be greatly appreciated.
Thanks,
Eric
Sent via Deja.com
http://www.deja.com/
------------------------------
Date: Tue, 16 Jan 2001 15:55:22 -0800
From: mschalit@pacbell.net (Matt Schalit)
Subject: Re: What do you call the => operator?
Message-Id: <MPG.14ce7f48aa1da21f9896fd@news.pacbell.net>
In article <slrn966d6p.cvd.tadmc@tadmc26.august.net>, tadmc@augustmail.com says...
> What is your point?
>
> We want to know what it is called.
>
> Your Camel quote above does not provide a name for it.
>
> Do you know what the word "digraph" means? It doesn't sound like it...
I don't know who you are or what you represent.
This is the first post I've read from you, and you sound like
an asshole. I wonder how many other people think the same?
Btw, when someone puts something inside quotes, the result is
called a quotation, dumbass.
Matt
------------------------------
Date: Wed, 17 Jan 2001 00:53:34 -0000
From: Chris Stith <mischief@velma.motion.net>
Subject: Re: What do you call the => operator?
Message-Id: <t69r8e36bekb73@corp.supernews.com>
Matt Schalit <mschalit@pacbell.net> wrote:
> In article <slrn966d6p.cvd.tadmc@tadmc26.august.net>, tadmc@augustmail.com says...
>
>> What is your point?
>>
>> We want to know what it is called.
>>
>> Your Camel quote above does not provide a name for it.
>>
>> Do you know what the word "digraph" means? It doesn't sound like it...
> I don't know who you are or what you represent.
> This is the first post I've read from you, and you sound like
> an asshole. I wonder how many other people think the same?
Not me. Tad's been very hepful to a great many people in this group
from what i can tell.
> Btw, when someone puts something inside quotes, the result is
> called a quotation, dumbass.
Really? I thought it was called a string. # programmer's humor ;)
Tad's point is that the quotation didn't offer an answer about the
name of the => operator. The word "digraph" means a two-character
symbol, as opposed to a one-character symbol.
As an aside: 'unigraph'? It's not in Webster's Collegiate, but
monograph is something else entirely, although trigraph is in
the dictionary with the expected meaning ;)
> Matt
This is the first post I've read from you, and you sound like a
presumptuous schoolyard punk. I wonder how many people think the
same?
Chris
--
Christopher E. Stith
Where there's a will, there's a lawyer.
------------------------------
Date: 16 Sep 99 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 16 Sep 99)
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: The mail to news gateway, and thus the ability to submit articles
| through this service to the newsgroup, has been removed. I do not have
| time to individually vet each article to make sure that someone isn't
| abusing the service, and I no longer have any desire to waste my time
| dealing with the campus admins when some fool complains to them about an
| article that has come through the gateway instead of complaining
| to the source.
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 75
*************************************
