[12782] in Perl-Users-Digest
Perl-Users Digest, Issue: 192 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Jul 19 17:17:12 1999
Date: Mon, 19 Jul 1999 14:10:16 -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, 19 Jul 1999 Volume: 9 Number: 192
Today's topics:
Re: padding a number (Larry Rosler)
Re: padding a number (John Stanley)
Re: padding a number <laurens@bsqaure.com>
Re: padding a number (Abigail)
Re: Padding numbers with 0's (John Stanley)
Re: Padding numbers with 0's (Larry Rosler)
Re: Perl created web page wont display images <flavell@mail.cern.ch>
Programming problem <oe@sob-online.net>
Re: Programming problem <mlopresti@bigfoot.com>
Re: Programming problem <laughingotter@foxinternet.net>
Re: Programming problem (Dave Cross)
Re: Programming problem (Jon Bell)
Time Conversion (Mesarchm)
Re: TPJ/Earthweb junk mail? (brian d foy)
Re: TPJ/Earthweb junk mail? (brian d foy)
Re: TPJ/Earthweb junk mail? <uri@sysarch.com>
Re: TPJ/Earthweb junk mail? (John Stanley)
Re: TPJ/Earthweb junk mail? (Abigail)
Re: TPJ/Earthweb junk mail? (Michel Dalle)
Re: TPJ/Earthweb junk mail? (Jon Orwant)
weird getc behaviour <ruedas@geophysik.uni-frankfurt.de>
Digest Administrivia (Last modified: 1 Jul 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 19 Jul 1999 12:15:47 -0700
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: padding a number
Message-Id: <MPG.11fd1939e9fc273f989cfc@nntp.hpl.hp.com>
In article <x7n1wsfotm.fsf@home.sysarch.com> on 19 Jul 1999 14:59:33 -
0400, Uri Guttman <uri@sysarch.com> says...
> >>>>> "LR" == Larry Rosler <lr@hpl.hp.com> writes:
> LR> In article <7mvnri$pcs$1@brokaw.wa.com> on Mon, 19 Jul 1999 10:38:41 -
> LR> 0700, Lauren Smith <laurens@bsqaure.com> says...
> >> skyfaye@my-deja.com wrote in message <7mvm85$1p6$1@nnrp1.deja.com>...
> >> >I know this probably is a FAQ but I couldn't find it there. So here's
> >> >the simple question: How do you pad a number with a single '0' (zero)?
> >>
> >> $num *= 10;
>
> LR> GASP!!! Words fail me.
>
> it pads on the right if the number is not zero.
>
> $num .= '0' ;
>
> will work for all numbers.
>
> :-)
>
> should this be in the faq? actually padding on the right is covered (but
> in the latest but unpublished version). maybe 5.006 will get the new pods.
'Number' ne 'integer'.
Try 0.5 for example.
--
(Just Another Larry) Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: 19 Jul 1999 19:29:54 GMT
From: stanley@skyking.OCE.ORST.EDU (John Stanley)
Subject: Re: padding a number
Message-Id: <7mvubi$j4i$1@news.NERO.NET>
In article <slrn7p6qko.gjg.fl_aggie@thepentagon.com>,
I R A Darth Aggie <fl_aggie@thepentagon.com> wrote:
>On Mon, 19 Jul 1999 10:38:41 -0700, Lauren Smith <laurens@bsqaure.com>, in
><7mvnri$pcs$1@brokaw.wa.com> wrote:
>
>+ > How do you pad a number with a single '0' (zero)?
>
>+ $num *= 10;
>
>It really does pay off to test you code to see if it does what you claim it
>will...
>
>% perl
>$num=0;
>$num *= 10;
>print q|Lauren's Method: |,$num,"\n";
>printf "James' Method: %.2d\n",$num;
>
>Results:
>
>Lauren's Method: 0
>James' Method: 00
$num = 100;
Lauren's Method: 1000
James' Method: 1000
$num = 1.2345;
Lauren's Method: 12.345
James' Method: 12
It really does pay off to test you code to see if it does what you claim it
will...
John's method: printf "$num" . "0";
------------------------------
Date: Mon, 19 Jul 1999 12:51:53 -0700
From: "Lauren Smith" <laurens@bsqaure.com>
Subject: Re: padding a number
Message-Id: <7mvvl9$ve7$1@brokaw.wa.com>
Larry Rosler wrote in message ...
>> >> $num *= 10;
Doesn't support zero and non-integers.
>>
>> LR> GASP!!! Words fail me.
Sometimes I impress myself too! ;-)
>'Number' ne 'integer'.
DOH!
>
>Try 0.5 for example.
If you're padding on the right, Uri's will work correction will work.
AND (digging myself deeper and deeper into this hole)...
to pad on the left:
$num = reverse $num;
$num .= '0';
$num = reverse $num;
IN
15
0
.5
OUT
015
00
00.5 (numbers below zero are already padded with a zero)
Lauren
------------------------------
Date: 19 Jul 1999 15:45:54 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: padding a number
Message-Id: <slrn7p73j0.oqh.abigail@alexandra.delanet.com>
Larry Rosler (lr@hpl.hp.com) wrote on MMCXLVIII September MCMXCIII in
<URL:news:MPG.11fd1939e9fc273f989cfc@nntp.hpl.hp.com>:
@@ In article <x7n1wsfotm.fsf@home.sysarch.com> on 19 Jul 1999 14:59:33 -
@@ 0400, Uri Guttman <uri@sysarch.com> says...
@@ > >>>>> "LR" == Larry Rosler <lr@hpl.hp.com> writes:
@@ > LR> In article <7mvnri$pcs$1@brokaw.wa.com> on Mon, 19 Jul 1999 10:38:41 -
@@ > LR> 0700, Lauren Smith <laurens@bsqaure.com> says...
@@ > >> skyfaye@my-deja.com wrote in message <7mvm85$1p6$1@nnrp1.deja.com>...
@@ > >> >I know this probably is a FAQ but I couldn't find it there. So here's
@@ > >> >the simple question: How do you pad a number with a single '0' (zero)?
@@ > >>
@@ > >> $num *= 10;
@@ >
@@ > LR> GASP!!! Words fail me.
@@ >
@@ > it pads on the right if the number is not zero.
@@ >
@@ > $num .= '0' ;
@@ >
@@ > will work for all numbers.
@@ >
@@ > :-)
@@ >
@@ > should this be in the faq? actually padding on the right is covered (but
@@ > in the latest but unpublished version). maybe 5.006 will get the new pods.
@@
@@ 'Number' ne 'integer'.
@@
@@ Try 0.5 for example.
As long as you know how to print it.
$num = 0.5;
$num .= '0';
print "$num";
One of the cases where putting quotes around a scalar *IS* the right way. ;)
Oh, and it covers the case of $num being equal to 0 as well.
Abigail
--
perl -MLWP::UserAgent -MHTML::TreeBuilder -MHTML::FormatText -wle'print +(
HTML::FormatText -> new -> format (HTML::TreeBuilder -> new -> parse (
LWP::UserAgent -> new -> request (HTTP::Request -> new ("GET",
"http://work.ucsd.edu:5141/cgi-bin/http_webster?isindex=perl")) -> content))
=~ /(.*\))[-\s]+Addition/s) [0]'
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: 19 Jul 1999 19:37:53 GMT
From: stanley@skyking.OCE.ORST.EDU (John Stanley)
Subject: Re: Padding numbers with 0's
Message-Id: <7mvuqh$j6j$1@news.NERO.NET>
In article <7mvpgv$3cd$1@nnrp1.deja.com>, <skyfaye@my-deja.com> wrote:
>In article <7moa8j$oc9$1@bayer.itron.com>,
> "TravisC" <travis.cox@itron.com> wrote:
>> The simplest way to create a fixed length number with leading zeros
>> would be to do something like.
>> printf "%04d%02d%02d\n",$year,$month,$day;
>
>How do you assign that formatted date to a variable?
open( O, ">/tmp/my_date" ) || die "cannot open output mydate: $!\n";
printf O "\$var = %04d%02d%02d;",$year,$month,$day;
close O || die "cannot close output mydate: $!\n";
unlink "/tmp/my_date" || die "cannot unlink output mydate: $!\n";
$tmp = `cat /tmp/my_date | sort | uniq | tail -1 | more`;
eval($tmp);
------------------------------
Date: Mon, 19 Jul 1999 13:31:53 -0700
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: Padding numbers with 0's
Message-Id: <MPG.11fd2b138735e616989cfd@nntp.hpl.hp.com>
In article <7mvuqh$j6j$1@news.NERO.NET> on 19 Jul 1999 19:37:53 GMT,
John Stanley <stanley@skyking.OCE.ORST.EDU> says...
> In article <7mvpgv$3cd$1@nnrp1.deja.com>, <skyfaye@my-deja.com> wrote:
> >In article <7moa8j$oc9$1@bayer.itron.com>,
> > "TravisC" <travis.cox@itron.com> wrote:
> >> The simplest way to create a fixed length number with leading zeros
> >> would be to do something like.
> >> printf "%04d%02d%02d\n",$year,$month,$day;
> >
> >How do you assign that formatted date to a variable?
>
> open( O, ">/tmp/my_date" ) || die "cannot open output mydate: $!\n";
> printf O "\$var = %04d%02d%02d;",$year,$month,$day;
> close O || die "cannot close output mydate: $!\n";
> unlink "/tmp/my_date" || die "cannot unlink output mydate: $!\n";
> $tmp = `cat /tmp/my_date | sort | uniq | tail -1 | more`;
> eval($tmp);
1. Did you overlook printing a newline after the semicolon yo get a
proper text file?
2. How do you manage to read the file after you unlink it?
Great work otherwise!
--
(Just Another Larry) Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Mon, 19 Jul 1999 21:07:14 +0200
From: "Alan J. Flavell" <flavell@mail.cern.ch>
Subject: Re: Perl created web page wont display images
Message-Id: <Pine.HPP.3.95a.990719205257.14786F-100000@hpplus03.cern.ch>
On Mon, 19 Jul 1999, Jeremy Webster wrote:
> I have a web page that I'm creating with perl script.
But you don't have a Perl language problem, so you're off-beam here.
> The problem is
> that images dont load correctly. I get a "you don't have permission ..."
> error.
You'll get better results and a more confident command of the situation
if you manage to disentangle the various components of the problem in
your mind.
Take a look at the HTML that your script created (e.g look at it in a
browser using the View-Source option). Imagine that you had written
that HTML yourself in a text editor. Would it work? Evidently not,
based on what you are telling us.
> The pictures have the same permissions (OS is red hat linux) as all
> the other pics on pages that aren't created by perl.
These images are static files? Then the fact that the HTML was created
by a script is several steps removed from your problem. On the basis of
what you are posting, it seems you have created IMG SRC= tags with
defective URLs. Take a closer look at those URLs and try to work out
what's wrong with them. Where are they?
One possible guess is that you are creating relative URLs in your HTML,
so these are being resolved relative to the directory where the script
is sitting.
Or maybe you made the mistake of putting static image files into a
scriptaliased directory (such as /cgi-bin ) and the web server is trying
to execute them as a result.
> Anyway, I suppose I'm asking if there is something special I need to know
> about setting permissions for pics in this situation?
If you want more accurate diagnostics, then you have to put your
defective material on the WWW and let people access it so that they can
report their findings. As it is, we can only guess, on the basis of
your rather vague descriptions. But in any case, you have come to the
wrong place here. Please consider analyzing your problem along the
lines that I suggested, and following up further problems in their
appropriate place, which might be comp.infosystems.www.authoring.cgi
(after checking the instructions for its automoderation bot).
good luck
------------------------------
Date: Mon, 19 Jul 1999 22:22:25 +0200
From: Oliver Ertl <oe@sob-online.net>
Subject: Programming problem
Message-Id: <37938901.CB09EB5E@sob-online.net>
Hello,
why is the following perl program not working.
-- begin --
#!/usr/bin/perl
print "Content-type:text/plain\n\n";
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$FORM{$name} = $value;
}
print "Results from FORM post\n\n";
print "$FORM{'login_name'}\n";
print "$FORM{'password'}\n\n";
$ip_address = $ENV{'REMOTE_ADDR'};
if ( $ip_address eq 'xxx.xxx.xxx.10-30' ) {
print "Access accepted for $ip_address\n";
}
else {
print "Access dinied for $ip_address\n";
}
-- end --
Thanks.
Oliver
------------------------------
Date: Mon, 19 Jul 1999 16:31:24 -0400
From: matt <mlopresti@bigfoot.com>
Subject: Re: Programming problem
Message-Id: <37938B1C.74CE222F@bigfoot.com>
Can you narrow it down? Perhaps some error messages?
Oliver Ertl wrote:
> Hello,
>
> why is the following perl program not working.
>
> -- begin --
> #!/usr/bin/perl
>
> print "Content-type:text/plain\n\n";
>
> read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
> @pairs = split(/&/, $buffer);
>
> foreach $pair (@pairs) {
> ($name, $value) = split(/=/, $pair);
> $value =~ tr/+/ /;
> $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
> $FORM{$name} = $value;
> }
>
> print "Results from FORM post\n\n";
> print "$FORM{'login_name'}\n";
> print "$FORM{'password'}\n\n";
>
> $ip_address = $ENV{'REMOTE_ADDR'};
>
> if ( $ip_address eq 'xxx.xxx.xxx.10-30' ) {
> print "Access accepted for $ip_address\n";
> }
> else {
> print "Access dinied for $ip_address\n";
> }
> -- end --
>
> Thanks.
>
> Oliver
------------------------------
Date: Mon, 19 Jul 1999 13:45:32 -0700
From: Steve Laybourn <laughingotter@foxinternet.net>
Subject: Re: Programming problem
Message-Id: <37938E6B.4620726B@foxinternet.net>
Hello!
Seems easy enough to me.
You need a space in your Content-type statement so it looks like this:
print "Content-type: text/plain\n\n";
Try that. Bet it works!
But I've never seen an IP address expressed like that before...hyphens I
always thought to be illegal (or was that an example?)
Good luck!
Steve Laybourn
Laughing Otter Computing Services
e-mail: otter101@hotmail.com
------------------------------
Date: Mon, 19 Jul 1999 20:58:34 GMT
From: dave@dave.org.uk (Dave Cross)
Subject: Re: Programming problem
Message-Id: <37958ff2.8380531@news.demon.co.uk>
[you posted to two non-existant newsgroups, one that is a complte
waste of time and this one - I've trimmed the newsgroups to just this
one]
On Mon, 19 Jul 1999 22:22:25 +0200, Oliver Ertl <oe@sob-online.net>
wrote:
>Hello,
>
>why is the following perl program not working.
Define 'not working'. What is it not doing that it should do? Or doing
that it shouldn't do? Do you get any error messages?
There are a few things that you can do to make debugging scripts
easier.
>-- begin --
>#!/usr/bin/perl
#!/usr/bin/perl -w
use strict;
use CGI qw/:standard/;
>print "Content-type:text/plain\n\n";
print header(-type=>'text/plain');
# This will avoid the bug that you've introduced by having
# no space between 'Content-type:' and 'text/plain'.
# Why do people *still* insist on doing all this work
# when CGI.pm does it all for them?
>read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
>@pairs = split(/&/, $buffer);
>
>foreach $pair (@pairs) {
> ($name, $value) = split(/=/, $pair);
> $value =~ tr/+/ /;
> $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
> $FORM{$name} = $value;
>}
>
>print "Results from FORM post\n\n";
>print "$FORM{'login_name'}\n";
print param('login_name'), "\n";
>print "$FORM{'password'}\n\n";
print param('password'), "\n\n";
>
>$ip_address = $ENV{'REMOTE_ADDR'};
>
# I don't think that your IP address will *ever* look
# like this.
>if ( $ip_address eq 'xxx.xxx.xxx.10-30' ) {
> print "Access accepted for $ip_address\n";
>}
>else {
> print "Access dinied for $ip_address\n";
>}
>-- end --
>
>Thanks.
Pleasure
>Oliver
Dave...
--
Dave Cross <dave@dave.org.uk>
<http://www.dave.org.uk>
------------------------------
Date: Mon, 19 Jul 1999 20:49:17 GMT
From: jtbell@presby.edu (Jon Bell)
Subject: Re: Programming problem
Message-Id: <FF4xu6.I1y@presby.edu>
Oliver Ertl <oe@sob-online.net> wrote:
>Hello,
>
>why is the following perl program not working.
Patient: "Hello, doctor, why is my body not working today?"
Doctor: "Well, uh, what symptoms do you have?"
--
Jon Bell <jtbell@presby.edu> Presbyterian College
Dept. of Physics and Computer Science Clinton, South Carolina USA
[ Information about newsgroups for beginners: ]
[ http://www.geocities.com/ResearchTriangle/Lab/6882/ ]
------------------------------
Date: 19 Jul 1999 20:48:17 GMT
From: mesarchm@aol.com (Mesarchm)
Subject: Time Conversion
Message-Id: <19990719164817.22334.00000325@ng-cg1.aol.com>
I have this time [06/07/99:0:03:03] and need to convert it to this format
[07/Jun/1999:00:03:03]
Any suggestions would be much appreciated,
Mike
------------------------------
Date: Mon, 19 Jul 1999 15:17:13 -0400
From: brian@pm.org (brian d foy)
Subject: Re: TPJ/Earthweb junk mail?
Message-Id: <brian-ya02408000R1907991517130001@news.panix.com>
In article <37935b4e@discussions>, "Scott Anderson & Mike Green" <sanderson@earthweb.com> posted:
> We are currently *not* renting out the TPJ
> names, nor will we, until such time as these
> people have opted in for such mailings.
does "currently" implied "maybe tomorrow though"? you haven't
addressed the issue of how "opting in" works. are subscribers
automatically in, or do they specifically have to ask to be
included? is Earthweb going to provide a way for subscribers
to opt out without using the web since the web site sucks so much?
> There are two exceptions:
> 1. We took the liberty of sending the
> ITKnowledge online reference library mailer
> you received to our entire house list. It
> has been our experience that users of various
> EarthWeb services find ITK to be a useful
> adjunct to their physical library.
is this a tacit admission that Earthweb acquired TPJ to sell
other Earthweb services? this seems to contradict your privacy
policy that says this sort of thing would not happen before the
user was given an opportunity to decline such intrusions.
i think you'll find Perl users a different class of people than
the users of other Earthweb services. IMO, your ITKnowledge services
are offensive to anyone who knows what they are doing.
--
brian d foy
CGI Meta FAQ <URL:http://www.smithrenaud.com/public/CGI_MetaFAQ.html>
Perl Monger Hats! <URL:http://www.pm.org/clothing.shtml>
------------------------------
Date: Mon, 19 Jul 1999 15:19:11 -0400
From: brian@pm.org (brian d foy)
Subject: Re: TPJ/Earthweb junk mail?
Message-Id: <brian-ya02408000R1907991519110001@news.panix.com>
In article <x7vhbgfsn7.fsf@home.sysarch.com>, Uri Guttman <uri@sysarch.com> posted:
> >>>>> "SA&MG" == Scott Anderson & Mike Green <sanderson@earthweb.com> writes:
>
> SA&MG> Mike Green and I saw your posting this
> SA&MG> morning and we’d like to let you know what
> SA&MG> we’re actually doing (and not doing) with
> SA&MG> regard to TPJ subscriber information.
>
> how can you trust a web company where users have to share email
> addresses? these are the geniuses who bought tpj? i have seen this type
> of account for home users, but NEVER for a business address.
i'm wondering why Mike Green is hiding behind a marketing guy. i
guess he wants to publish "The Voice of the Perl Community" without
actually having to sully himself by actually being a part of the
community.
--
brian d foy
CGI Meta FAQ <URL:http://www.smithrenaud.com/public/CGI_MetaFAQ.html>
Perl Monger Hats! <URL:http://www.pm.org/clothing.shtml>
------------------------------
Date: 19 Jul 1999 15:21:06 -0400
From: Uri Guttman <uri@sysarch.com>
Subject: Re: TPJ/Earthweb junk mail?
Message-Id: <x7iu7gfntp.fsf@home.sysarch.com>
>>>>> "bdf" == brian d foy <brian@pm.org> writes:
bdf> In article <x7vhbgfsn7.fsf@home.sysarch.com>, Uri Guttman <uri@sysarch.com> posted:
>> >>>>> "SA&MG" == Scott Anderson & Mike Green <sanderson@earthweb.com> writes:
>>
>> SA&MG> Mike Green and I saw your posting this
>> SA&MG> morning and we’d like to let you know what
>> SA&MG> we’re actually doing (and not doing) with
>> SA&MG> regard to TPJ subscriber information.
>>
>> how can you trust a web company where users have to share email
>> addresses? these are the geniuses who bought tpj? i have seen this type
>> of account for home users, but NEVER for a business address.
bdf> i'm wondering why Mike Green is hiding behind a marketing guy. i
bdf> guess he wants to publish "The Voice of the Perl Community" without
bdf> actually having to sully himself by actually being a part of the
bdf> community.
i say we try to buy back tpj from them. let's put on a perl show. more
than a conference, we will have singing and dancing and possibly some
teenage romance!! we can do it gang! we just have to work together! who
do we cast in judy garland's role? abigail? elaine? tom?
<ducking and covering>
or we could just boycott it and start a rival journal. unfortunately,
jon is welded to them by contract. we could start printing copies of
perlmonth and snailing them out.
whatever, these jerks have got to go. they don't deserve the honor of
owning the perl journal. i am surprised o'reilly never looked into
buying it. or would that be too monopolistic for some? at least i would
trust they would respect it and provide it with a clean web site and
otherwise leave it alone.
uri
--
Uri Guttman ----------------- SYStems ARCHitecture and Software Engineering
uri@sysarch.com --------------------------- Perl, Internet, UNIX Consulting
Have Perl, Will Travel ----------------------------- http://www.sysarch.com
The Best Search Engine on the Net ------------- http://www.northernlight.com
"F**king Windows 98", said the general in South Park before shooting Bill.
------------------------------
Date: 19 Jul 1999 19:31:58 GMT
From: stanley@skyking.OCE.ORST.EDU (John Stanley)
Subject: Re: TPJ/Earthweb junk mail?
Message-Id: <7mvufe$j5g$1@news.NERO.NET>
In article <37935b4e@discussions>,
Scott Anderson & Mike Green <sanderson@earthweb.com> wrote:
>There are two exceptions:
>1. We took the liberty of sending the
>ITKnowledge online reference library mailer
>you received to our entire house list. It
>has been our experience that users of various
>EarthWeb services find ITK to be a useful
>adjunct to their physical library.
In other words, yes, it was an unsolicited bulk mailing to a list
of people who had never had the chance to opt out, but it's ok because
you figured they really wanted to know the information even if they
didn't think they wanted it.
------------------------------
Date: 19 Jul 1999 15:27:31 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: TPJ/Earthweb junk mail?
Message-Id: <slrn7p72gf.oqh.abigail@alexandra.delanet.com>
Jon Orwant (orwant@rising-sun.media.mit.edu) wrote on MMCXLVIII September
MCMXCIII in <URL:news:ORWANT.99Jul19091103@rising-sun.media.mit.edu>:
??
?? Abigail, you gave me your address so that I could send you a free copy
?? of TPJ #8. Which I did. I put your name into my database so that
?? when I made my weekly run to the post office, I'd have a nice label to
?? attach to your issue. This doesn't excuse the junk mail EarthWeb sent
?? you, but it does explain why you got it: if they sent mail to people
?? on the TPJ list (as apparently they did), you'd get mail, because you
?? were on that list. It doesn't explain the duplicates, though.
That's true. The second time you send me something was when you send me
the manuscript of your book last year, which explains for the variation
in the address (just the name is different, not the address itself).
Abigail
--
tie $" => A; $, = " "; $\ = "\n"; @a = ("") x 2; print map {"@a"} 1 .. 4;
sub A::TIESCALAR {bless \my $A => A} # Yet Another silly JAPH by Abigail
sub A::FETCH {@q = qw /Just Another Perl Hacker/ unless @q; shift @q}
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: Mon, 19 Jul 1999 17:46:03 GMT
From: michel.dalle@usa.net (Michel Dalle)
Subject: Re: TPJ/Earthweb junk mail?
Message-Id: <7mvocg$dk6$1@news.mch.sbs.de>
In article <37935b4e@discussions>, "Scott Anderson & Mike Green" <sanderson@earthweb.com> wrote:
[snip]
>There are two exceptions:
>1. We took the liberty of sending the
>ITKnowledge online reference library mailer
>you received to our entire house list. It
>has been our experience that users of various
>EarthWeb services find ITK to be a useful
>adjunct to their physical library.
[snip]
Hmmm, I cannot judge about the other aspects of your message,
but this sounds suspiciously like all the other junk-mail I receive
from people who thought "this might be of interest to you" - NOT !
After all, many things could "be a useful adjunct to [your] physical
library", including book cases, a nice sofa, not to mention some pizza
in case you get hungry, or some 'make money fast' scheme (so that
you can buy more books?), etc. Would you be happy if you received mails
advertising all these products ?
Michel.
------------------------------
Date: 19 Jul 1999 20:51:00 GMT
From: orwant@rising-sun.media.mit.edu (Jon Orwant)
To: Uri Guttman <uri@sysarch.com>
Subject: Re: TPJ/Earthweb junk mail?
Message-Id: <ORWANT.99Jul19165100@rising-sun.media.mit.edu>
In article <x7vhbgfsn7.fsf@home.sysarch.com> Uri Guttman <uri@sysarch.com> writes:
Newsgroups: comp.lang.perl.misc
From: Uri Guttman <uri@sysarch.com>
Organization: Sysarch, Inc.
Lines: 24
X-Newsreader: Gnus v5.6.44/Emacs 20.3
Date: 19 Jul 1999 13:37:00 -0400
>>>>> "SA&MG" == Scott Anderson & Mike Green <sanderson@earthweb.com> writes:
SA&MG> Mike Green and I saw your posting this
SA&MG> morning and we’d like to let you know what
SA&MG> we’re actually doing (and not doing) with
SA&MG> regard to TPJ subscriber information.
how can you trust a web company where users have to share email
addresses? these are the geniuses who bought tpj? i have seen this type
of account for home users, but NEVER for a business address.
They do have separate email addresses, Uri. Whatever news client
Scott is using decouples the email address from the poster's name.
and on top of it they post with redmondware funny chars and with a
bizarre short line wrap (which is better than no line wrap at all!)
I'll admit, those \222's are annoying. Nearly as annoying as people
who post in all lower case. Only six year olds and graphic designers
get to ignore their shift key.
jon, i am sorry to hammer you, but ya could been a contendah!!
Hammer away. I'm going to continue to do my job and edit Perl articles.
-Jon
--
------------------------------
Date: Mon, 19 Jul 1999 21:47:21 +0200
From: Thomas Ruedas <ruedas@geophysik.uni-frankfurt.de>
Subject: weird getc behaviour
Message-Id: <379380C9.2781@geophysik.uni-frankfurt.de>
Hello,
here's a problem with getc which I can't understand. I'm writing a Perl
script to extract \cite commands from a LaTeX file. This is a short test
version:
#!/usr/local/bin/perl5
$infile=$ARGV[0];
$outfile=join("-",("cite",$infile));
open (OUTFILE,">$outfile");
open (INFILE,"$infile");
while ($char = getc INFILE) {
print $char;
}
close (INFILE);
close (OUTFILE);
exit;
The while loop is quit for some mysterious reason before reading the 0
in the last line of the following LaTeX snippet:
\@addtoreset{table}{subsection}
...
% redefine subparagraph title appareance
\titleformat{\subparagraph}[runin]{\normalfont\itshape}{}{0pt}{}
As I saw when substituting the 0 by an 1, it doesn't stop at all 0s or
{0s, only in some places.
Can anybody tell me why and possibly how I can work around it?
--
--------------------------------------------
Thomas Ruedas
Institute of Meteorology and Geophysics,
J.W. Goethe University Frankfurt/Main
Feldbergstrasse 47 D-60323 Frankfurt/Main, Germany
Phone:+49-(0)69-798-24949 Fax:+49-(0)69-798-23280
e-mail: ruedas@geophysik.uni-frankfurt.de
http://www.geophysik.uni-frankfurt.de/~ruedas/
--------------------------------------------
------------------------------
Date: 1 Jul 99 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 1 Jul 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.
To submit articles to comp.lang.perl.misc (and this Digest), send your
article to perl-users@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.
The Meta-FAQ, an article containing information about the FAQ, is
available by requesting "send perl-users meta-faq". The real FAQ, as it
appeared last in the newsgroup, can be retrieved with the request "send
perl-users FAQ". Due to their sizes, neither the Meta-FAQ nor the FAQ
are included in the digest.
The "mini-FAQ", which is an updated version of the Meta-FAQ, is
available by requesting "send perl-users mini-faq". It appears twice
weekly in the group, but is not distributed in the digest.
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 V9 Issue 192
*************************************
