[21854] in Perl-Users-Digest
Perl-Users Digest, Issue: 4058 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sat Nov 2 00:06:20 2002
Date: Fri, 1 Nov 2002 21:05:09 -0800 (PST)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Fri, 1 Nov 2002 Volume: 10 Number: 4058
Today's topics:
Re: [Q] about AUTOLOAD <goldbb2@earthlink.net>
Archive::Tar known issues? <nibl@onlinehome.de>
Re: Controlling RegEx Greediness <goldbb2@earthlink.net>
Re: Embedding Perl >with< the ptkdb debugger <phlipcpp@yahoo.com>
Re: Getopt::Long - Process @_ in subroutine? <skuo@mtwhitney.nsc.com>
Help With Directory Handling <gregorybair@nospam.hotmail.com>
Re: Help With Directory Handling <tony_curtis32@yahoo.com>
Re: Help With Directory Handling <me@dwall.fastmail.fm>
How to open browser window without browser menubar, to (Jerry)
Re: How to open browser window without browser menubar <jeff@vpservices.com>
Re: How to open browser window without browser menubar <spam@thecouch.homeip.net>
Re: new & improved (but still troubled) sockets <goldbb2@earthlink.net>
Path problem diplaying an image <corin@cadaway.co.uk>
Re: Path problem diplaying an image <tony_curtis32@yahoo.com>
Re: Textbooks on Perl/Python <max@alcyone.com>
Re: Textbooks on Perl/Python (Cameron Laird)
Re: Textbooks on Perl/Python <python@rcn.com>
weird problem with MCPAN <nospam@rostie.net>
Re: Why is this an infine loop??? <ilovebritishbeef@yahoo.com>
Re: ~ Perl script output help ~ <flavell@mail.cern.ch>
Re: ~ Perl script output help ~ <flavell@mail.cern.ch>
Re: ~ Perl script output help ~ <me@dwall.fastmail.fm>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Fri, 01 Nov 2002 22:00:35 -0500
From: Benjamin Goldberg <goldbb2@earthlink.net>
Subject: Re: [Q] about AUTOLOAD
Message-Id: <3DC33FD3.EF1A9330@earthlink.net>
bill wrote:
>
> I've been playing with the NEXT pseudo-class, and in particular, with
> its AUTOLOAD method. One puzzling thing about NEXT::AUTOLOAD is that,
> at least when it is called by another class' AUTOLOAD method, the
> variable NEXT::AUTOLOAD is not set. How come? Is this a bug, or is
> this the correct behavior?
When Package::AUTOLOAD(...) is automatically called by perl itself, then
perl will set the $Package::AUTOLOAD variable. When your AUTOLOAD
subroutine calls NEXT::AUTOLOAD(...), you don't have to set
$NEXT::AUTOLOAD, because the subroutine NEXT::AUTOLOAD(...) "knows" that
it's not really being called by perl, but instead is being explicitly
called by some other AUTOLOAD subroutine, and therefor looks at the
string in ${ caller() . "::AUTOLOAD" }.
In short, you don't have to do that because it's smart enough to figure
out the methodname without it.
--
my $n = 2; print +(split //, 'e,4c3H r ktulrnsJ2tPaeh'
."\n1oa! er")[map $n = ($n * 24 + 30) % 31, (42) x 26]
------------------------------
Date: Sat, 02 Nov 2002 03:12:26 +0100
From: nibl <nibl@onlinehome.de>
Subject: Archive::Tar known issues?
Message-Id: <duc6su0hvtaggu8b3tkceabalhffb007gi@4ax.com>
I read on a forum about some unpredictable problems with Archive::Tar.
Can anyone confirm this?
I think the complaint was that opening the archive later caused some
data to be garbled, but they couldn't figure out why.
Thanks,
nibl
------------------------------
Date: Fri, 01 Nov 2002 22:25:46 -0500
From: Benjamin Goldberg <goldbb2@earthlink.net>
Subject: Re: Controlling RegEx Greediness
Message-Id: <3DC345BA.9D6B32B8@earthlink.net>
TBN wrote:
>
> I know this has been done before, but I couldn't find an example.
>
> If I have a string such as...
>
> my $s = 'one="this" two="<b>that</b>" and three="something else"';
>
> How can I write a RegEx that will return only the value of the
> name-value that interests me?
>
> In other words, I need to return what is within quotes for two= or
> three=, but if I use something like...
>
> /two=\".*\"/
>
> I'll get a lot more than I bargained for.
Indeed, especially if your data has 'footwo="bar"' or somesuch.
I would suggest:
my %options;
while( $data =~ /\G(\w+)="(.*?)"\s*/gc ) {
$options{$1} = $2;
}
die "Malformed \$data" if pos($data) != length $data;
print $options{two}, "\n";
[untested]
--
my $n = 2; print +(split //, 'e,4c3H r ktulrnsJ2tPaeh'
."\n1oa! er")[map $n = ($n * 24 + 30) % 31, (42) x 26]
------------------------------
Date: Sat, 02 Nov 2002 03:51:40 GMT
From: Phlip <phlipcpp@yahoo.com>
Subject: Re: Embedding Perl >with< the ptkdb debugger
Message-Id: <gZHw9.501$2F.12751008@newssvr17.news.prodigy.com>
Benjamin Goldberg wrote:
> That is, you want:
Thanks! But...
> char *embedding[] = { "", "-d:ptkdb", "-e1" };
>
> perl_construct( my_perl );
> perl_parse(my_perl, NULL, 3, embedding, NULL);
Now this gives "Can't load module Tk::Event, dynamic loading not available
in this perl."
My rig is VC++ -> ActiveState's Perl56.dll . I'l recompile ActiveState if I
must, but why couldn't they turn on a simple issue like dynamic linking?
--
Phlip
http://clublet.com/c/c/why?ZenoBuddhism
-- How does Bugs Bunny do it? How does he know when he
wakes up in the morning to put in his pocket 3 sticks
of dynamite, a physician costume, and a bicycle pump? --
------------------------------
Date: Fri, 1 Nov 2002 15:16:11 -0800
From: Steven Kuo <skuo@mtwhitney.nsc.com>
Subject: Re: Getopt::Long - Process @_ in subroutine?
Message-Id: <Pine.GSO.4.21.0211011512540.18151-100000@mtwhitney.nsc.com>
On Fri, 1 Nov 2002, Ed Kulis wrote:
> Hi,
>
> I'd like create perl script which reads options from a file.
>
> The options would be like
>
> -days_old 1.5 -mv_to_storage
>
> I'd like have a top perl script that reads these options from the file and
> then passes them to a subroutine where Getoptions would parse @_.
>
> It seems from the Camel Book that Getoptions only operates on perl command
> line options.
>
> Now I can
> qx{script.pl -days_old 1.5 -mv_to_storage}
>
> with the script name that calls another perl script but I'd like to just
> have 1 script if I can.
>
> Any suggestions?
>
> -ed
Copy @_ to a local version of @ARGV within the subroutine:
#! /usr/local/bin/perl
use strict;
use warnings;
use Getopt::Long;
# args read from file (DATA)
my @args = map { chomp; split; } <DATA>;
# pass args to subroutine
marine(@args);
sub marine {
{
my ($string, $number);
local @ARGV = @_;
GetOptions (
'string=s' => \$string,
'number=i' => \$number
);
if ($string and $number) {
print "You gave me $string and $number\n";
} else {
print "Incomplete specification\n";
}
}
}
__DATA__
--string ONE
--number 2
--
Regards,
Steven
------------------------------
Date: Fri, 01 Nov 2002 21:56:02 -0500
From: Gregory Bair <gregorybair@nospam.hotmail.com>
Subject: Help With Directory Handling
Message-Id: <3DC33EC2.3050205@nospam.hotmail.com>
Hi all,
I've just been playing around a little with reading directories, and I
think I've got something wrong below. I just can't see what it is.
It's supposed to list the files in the directory, but all I get for
output is the .(I forget what that's called) listed about 10 times(which
is, of course, the number of files in the directory).
$dir = "/N/fs22/gbair/Steel/archives";
#Open the directory and read the files.
opendir(DIR,$dir);
@read = readdir(DIR);
closedir DIR;
#list the files.
foreach $i (@read) {
$file = $read[$i];
print "$file\n";
}
Any help would be greatly appreciated.
TIA,
Gregory Bair
------------------------------
Date: Fri, 01 Nov 2002 21:06:57 -0600
From: Tony Curtis <tony_curtis32@yahoo.com>
Subject: Re: Help With Directory Handling
Message-Id: <87fzuku0tq.fsf@limey.hpcc.uh.edu>
>> On Fri, 01 Nov 2002 21:56:02 -0500,
>> Gregory Bair <gregorybair@nospam.hotmail.com> said:
> Hi all, I've just been playing around a little with
> reading directories, and I think I've got something
> wrong below. I just can't see what it is. It's supposed
> to list the files in the directory, but all I get for
> output is the .(I forget what that's called) listed
> about 10 times(which is, of course, the number of files
> in the directory).
> $dir = "/N/fs22/gbair/Steel/archives"; #Open the
> directory and read the files. opendir(DIR,$dir); @read
> = readdir(DIR); closedir DIR;
You should check that opendir() and closedir() succeeded:
opendir(DIR, $dir)
or die "Couldn't open directory $dir: $!\n";
use strict; and warnings; would also help you track down
problems.
> #list the files. foreach $i (@read) { $file =
> $read[$i]; print "$file\n";
> }
$i is already the directory entry (file) name, not an
index into an array.
hth
t
------------------------------
Date: Sat, 02 Nov 2002 03:50:34 GMT
From: "David K. Wall" <me@dwall.fastmail.fm>
Subject: Re: Help With Directory Handling
Message-Id: <Xns92B9E860F341Edkwwashere@63.240.76.16>
Gregory Bair <gregorybair@nospam.hotmail.com> wrote:
> I've just been playing around a little with reading directories, and I
> think I've got something wrong below. I just can't see what it is.
> It's supposed to list the files in the directory, but all I get for
> output is the .(I forget what that's called) listed about 10
> times(which is, of course, the number of files in the directory).
Ask perl to give you as much help as it can:
use strict;
use warnings;
All serious programs should start with these statements, just to make you
more careful. Check the docs to see what they do.
> $dir = "/N/fs22/gbair/Steel/archives";
> #Open the directory and read the files.
> opendir(DIR,$dir);
Always check to see if the opendir() succeeded:
opendir(DIR,$dir) or die "Cannot open $dir: $!";
> @read = readdir(DIR);
> closedir DIR;
You should check to see if this succeeded, too.
>
> #list the files.
> foreach $i (@read) {
With strictures enabled, this would be
foreach my $i (@read) {
Declaring $i with my() makes $i visible *only* within the foreach() loop.
> $file = $read[$i];
And here's why it's not working. The way you have it written, $i is an
alias to each element of the array @read, *not* the index of the array
element. That is, if you leave out the line '$file = $read[$i];' and
write the foreach() loop as
foreach my $file (@read) {
> print "$file\n";
then this line will give you the expected output.
> }
>
> Any help would be greatly appreciated.
Well, Tony Curtis already posted more or less the same thing, but since
I've typed this in I'll go ahead and post it anyway.
--
David Wall - me@dwall.fastmail.fm
"Oook."
------------------------------
Date: 1 Nov 2002 15:39:46 -0800
From: jgrant1001@hotmail.com (Jerry)
Subject: How to open browser window without browser menubar, toobar, etc.
Message-Id: <6669cb29.0211011539.6ffab71@posting.google.com>
I want to send a response to a new pop-up browser window with no
menubar, toolbar, location features.
This is easy to do in the client browser with javascript using
window.open but how is it done in perl?
For instance, a hot link on the form calls display() with
target=_blank. The popup window is opened ok with the proper contents.
However, I want the response to be a new popup browser window without
so-called browser chrome.
In the below code how would I make this happen?
sub display()
{
print "Content-type: text/html\n\n";
print "<html><head><title>Display Clients</title>\n";
print "</head><body>\n";
print ...
print ...
print </body></html>;
}
Jerry
------------------------------
Date: Fri, 01 Nov 2002 16:51:33 -0800
From: Jeff Zucker <jeff@vpservices.com>
Subject: Re: How to open browser window without browser menubar, toobar, etc.
Message-Id: <3DC32195.60302@vpservices.com>
Jerry wrote:
> I want to send a response to a new pop-up browser window with no
> menubar, toolbar, location features.
> This is easy to do in the client browser with javascript using
> window.open but how is it done in perl?
Q: I want to talk to someone 3,000 miles away. This is easy to do with
a telephone, but how is it done with a coffee mug?
A: It isn't done with a coffe mug, use the telephone.
Perl's *only* way of interacting with a browser is to print things. It
can print HTML or JavaScript or CSS or CGI/HTTPD headers, but still its
only role is to print. If you continue to imagine it has magical
abilities to make browsers do things, you will not be doing yourself a
favor.
> sub display()
> {
> print "Content-type: text/html\n\n";
> print "<html><head> ...
Right about there, print the javascript needed to open the kind of
window you want.
--
Jeff
------------------------------
Date: Fri, 01 Nov 2002 19:32:22 -0500
From: Mina Naguib <spam@thecouch.homeip.net>
Subject: Re: How to open browser window without browser menubar, toobar, etc.
Message-Id: <3DC31D16.4030108@thecouch.homeip.net>
-----BEGIN xxx SIGNED MESSAGE-----
Hash: SHA1
Jerry wrote:
| I want to send a response to a new pop-up browser window with no
| menubar, toolbar, location features.
| This is easy to do in the client browser with javascript using
| window.open but how is it done in perl?
| For instance, a hot link on the form calls display() with
| target=_blank. The popup window is opened ok with the proper contents.
| However, I want the response to be a new popup browser window without
| so-called browser chrome.
| In the below code how would I make this happen?
| sub display()
| {
| print "Content-type: text/html\n\n";
| print "<html><head><title>Display Clients</title>\n";
| print "</head><body>\n";
| print ...
| print ...
| print </body></html>;
| }
| Jerry
This is not handled by Perl (your server-side code) at all but by the
client (web browser + content html+javscript). The fact that you're
using perl to generate the content and send it to the client is mostly
irrelevant in this case (Think: how to make it work in a normal .html
file ? Now copy that code into your perl's "print" statements)
Asking in a javascript group will probably be a better idea.
Also, when you want to print several lines of code, this might be a
better idea than multiple print() statements:
print <<"ENDOFHTML";
Content-type: text/html
<html>
<head>etc..
etc.
etc.
ENDOFHTML
Best pf luck.
-----BEGIN xxx SIGNATURE-----
Version: GnuPG v1.0.6 (GNU/Linux)
Comment: Using GnuPG with Mozilla - http://enigmail.mozdev.org
iD8DBQE9wx0VeS99pGMif6wRAkzDAJ4yt/m51C2buotpUPwb4Oc1RoGLRwCgp73M
GV5dH0g2/2R77Xy9c0SN8tU=
=uc2T
-----END PGP SIGNATURE-----
------------------------------
Date: Fri, 01 Nov 2002 22:20:11 -0500
From: Benjamin Goldberg <goldbb2@earthlink.net>
Subject: Re: new & improved (but still troubled) sockets
Message-Id: <3DC3446B.ECACE471@earthlink.net>
Leaffoot wrote:
[snip]
> my $socket_l = IO::Socket::INET->new("$remote_host:$port");
> if($socket_l) {
At this point, you ought to do:
$socket_l->autoflush(1);
> return $socket_l;
[snip]
> while(my @hdls = $sel->can_read(50)) {
> foreach my $fh (@hdls) {
>
> while($length_l = sysread($fh, $comeback_l, $len)) {
No! You should only call sysread ONCE on a particular socket for each
time that can_read indicates that that socket is readable.
Calling it more than once defeats the purpose.
A few other comments:
Since you "know" that you've only put one socket into $sel, there's no
point in looping over @hdls, since there will only ever be one item in
it.
In your earlier post, you indicated that you want a 50 second timeout
total, including all of the transactions; here, you have a 50 second
timeout per read, which means that if you get a large number of small
reads, with 49 second waits between them, you could end up taking many
minutes total.
I would suggest something like the following [untested] piece of code:
sub recstr {
my ($sock, $len) = @_;
my $sel = IO::Select->new($sock);
my $expire = time() + 50;
my $stuff = "";
while( (my $timeout = time() - $expire) >= 0 ) {
() = $sel->can_read($timeout) and
my $n = sysread( $sock, $stuff, 8192, length $stuff )
or last;
print STDOUT substr( $stuff, -$n );
last if m/END OF REPORT|\d+CERR.*$/m;
}
close $socket;
return $stuff;
}
--
my $n = 2; print +(split //, 'e,4c3H r ktulrnsJ2tPaeh'
."\n1oa! er")[map $n = ($n * 24 + 30) % 31, (42) x 26]
------------------------------
Date: Sat, 2 Nov 2002 10:58:15 +0800
From: "Corin" <corin@cadaway.co.uk>
Subject: Path problem diplaying an image
Message-Id: <3dc33f28@newsgate.imsbiz.com>
This is a very simple problem which is really bugging me.
I have written a script to upload an image file ($final_filename) from my
hard disc to the server .
If I upload it to my root directory then I can display the image using :
print("<img src=\"$final_filename\">");
but if I specify the upload path to be in another directory I cannot display
the image, the new path being :
print("<img
src=\http://www.mydomain.com/public_html/photo_uploads/$final_filename\>");
or
print("<img
src=\"/home/mydomain/public_html/photo_uploads/$final_filename\">");
I know the image file ($final_filename) is in the photo_uploads directory
coz I can see it and it isn't corrupt.
Please can somebody give me some valuable path advice here, as I'm sure it's
something very easy to fix. Thank you.
------------------------------
Date: Fri, 01 Nov 2002 21:08:46 -0600
From: Tony Curtis <tony_curtis32@yahoo.com>
Subject: Re: Path problem diplaying an image
Message-Id: <87d6pou0qp.fsf@limey.hpcc.uh.edu>
>> On Sat, 2 Nov 2002 10:58:15 +0800,
>> "Corin" <corin@cadaway.co.uk> said:
> This is a very simple problem which is really bugging
> me. I have written a script to upload an image file
> ($final_filename) from my hard disc to the server . If
> I upload it to my root directory then I can display the
> image using :
> print("<img src=\"$final_filename\">");
> but if I specify the upload path to be in another
> directory I cannot display the image, the new path being
> :
> print("<img
> src=\http://www.mydomain.com/public_html/photo_uploads/$final_filename\>");
> or print("<img
> src=\"/home/mydomain/public_html/photo_uploads/$final_filename\">");
> I know the image file ($final_filename) is in the
> photo_uploads directory coz I can see it and it isn't
> corrupt.
The problem is that you are referencing the underlying
directory structure rather than the virtual hierarchy that
the web server maps onto that structure.
It's an issue of how you configure your web server,
nothing to do with perl.
hth
t
------------------------------
Date: Fri, 01 Nov 2002 17:50:59 -0800
From: Erik Max Francis <max@alcyone.com>
Subject: Re: Textbooks on Perl/Python
Message-Id: <3DC32F83.8990DEC9@alcyone.com>
Jalab wrote:
> Any help in finding a university level textbook on the subject of
> "Scripting languages" I am mainly looking for a book that covers Perl
> and Python only as the 2 main scripting languages and that is written
> for students, i.e. chapter summary, exercises, etc. I hate to force my
> student to buy and study from two separate books.
I doubt you'll find one that will really cover both subjects adequately,
since they're totally different languages. The only thing I can think
of that comes close is the "little language" books, that give a brief
summary of a wide variety of "little," high-level languages. The one
I'm familiar with (though I don't own it) is _HPL: Little Languages and
Tools_ by Salus (editor).
--
Erik Max Francis / max@alcyone.com / http://www.alcyone.com/max/
__ San Jose, CA, USA / 37 20 N 121 53 W / &tSftDotIotE
/ \ Things are as they are because they were as they were.
\__/ Thomas Gold
Bosskey.net: Return to Wolfenstein / http://www.bosskey.net/rtcw/
A personal guide to Return to Castle Wolfenstein.
------------------------------
Date: Sat, 02 Nov 2002 02:08:58 -0000
From: claird@lairds.com (Cameron Laird)
Subject: Re: Textbooks on Perl/Python
Message-Id: <us6ctqqf2bq979@corp.supernews.com>
In article <3DC32F83.8990DEC9@alcyone.com>,
Erik Max Francis <max@alcyone.com> wrote:
>Jalab wrote:
>
>> Any help in finding a university level textbook on the subject of
>> "Scripting languages" I am mainly looking for a book that covers Perl
>> and Python only as the 2 main scripting languages and that is written
>> for students, i.e. chapter summary, exercises, etc. I hate to force my
>> student to buy and study from two separate books.
>
>I doubt you'll find one that will really cover both subjects adequately,
>since they're totally different languages. The only thing I can think
>of that comes close is the "little language" books, that give a brief
>summary of a wide variety of "little," high-level languages. The one
>I'm familiar with (though I don't own it) is _HPL: Little Languages and
>Tools_ by Salus (editor).
.
.
.
I'm plenty opinionated on this subject.
There isn't such a book as Jalab wants. It'd be great
fun to write one, but there isn't a market ... well, I'll
just say such a book doesn't exist now.
What's your goal for the students? To be ready to go out
in industry and solve problems? To understand the theory
and practice of industrial-strength "scripting languages"?
To pad their résumés? To safety-proof them so they
don't hurt themselves the first time they're asked to
write a dynamic Web page? To supplement an academic course
on DSLs? I know what *I*'d do in each case--and they're
not all the same answer.
I'm all for people buying *Little Languages and Tools*,
incidentally.
--
Cameron Laird <Cameron@Lairds.com>
Business: http://www.Phaseit.net
Personal: http://phaseit.net/claird/home.html
------------------------------
Date: Fri, 1 Nov 2002 23:36:07 -0500
From: "Raymond Hettinger" <python@rcn.com>
Subject: Re: Textbooks on Perl/Python
Message-Id: <apvknt$2dn$1@bob.news.rcn.net>
> I hate to force my
> student to buy and study from two separate books.
>
> Any ideas?
Why not force your students to download and study
some of the high quality, free on-line tutorials that
are available for both languages?
Raymond Hettinger
------------------------------
Date: Sat, 02 Nov 2002 01:30:41 GMT
From: Randy <nospam@rostie.net>
Subject: weird problem with MCPAN
Message-Id: <j6a6sugsar43m9gcqqgqilctfi409k9g6f@4ax.com>
Where I work we run an old version of perl
Perl 5.005_02 on Sun Solaris version 7
I am trying to use the MCPAN shell ( perl -MCPAN -e shell; )
to install some perl modules. When I try go to install a module, it
tells me that there's a new CPAN module, and suggests that I install
it. I go ahead and do this, and I guess it doesn't tell me till later
that it requires perl 5.8, and it procedes to install it:
Running make for J/JH/JHI/perl-5.8.0.tar.gz
Fetching with LWP:
ftp://archive.progeny.com/CPAN/authors/id/J/JH/JHI/perl-5.8.0.tar.gz
Fetching with LWP:
ftp://archive.progeny.com/CPAN/authors/id/J/JH/JHI/CHECKSUMS
Checksum for
/home/randyr/.cpan/sources/authors/id/J/JH/JHI/perl-5.8.0.tar.gz ok
x perl-5.8.0, 0 bytes, 0 tape blocks
------------------------------
Date: Fri, 01 Nov 2002 23:55:11 GMT
From: "El Senor" <ilovebritishbeef@yahoo.com>
Subject: Re: Why is this an infine loop???
Message-Id: <zvEw9.1887$t4.185946@newsread2.prod.itd.earthlink.net>
"Joe Schaefer" <joe+usenet@sunstarsys.com> wrote:
> And be sure to say whether or not you are using taint checks (-T).
> Tainted hash/array entries are known to cause this behavior in pre-5.8
> perls.
You got it!! When I stopped using the -T option, the program worked. Too
late for my assignment, but thanks anyway.
-Mike
------------------------------
Date: Sat, 2 Nov 2002 01:42:29 +0100
From: "Alan J. Flavell" <flavell@mail.cern.ch>
Subject: Re: ~ Perl script output help ~
Message-Id: <Pine.LNX.4.40.0211020131400.14107-100000@lxplus076.cern.ch>
On Nov 1, Jay Tilton inscribed on the eternal scroll:
> Besides the tagged subject line and the MIME post, there is a fistful
> of other reasons not to emulate the OP.
>
> The attachment was an MSWord document.
Aha, that could explain why it didn't show up. I guess that some
helpful part of usenet is blocking articles with attachments on their
way here, because even when I saw your comment above, and temporarily
lifted my hide-postings-with-attachments filter, the original posting
didn't show.
> Creating an article less likely to be cooperatively received would
> require deliberate design and effort.
Indeed. And sticking attention-grabbing characters into subject lines
works as quite a turn-off for any technical interest that an article
might otherwise have. Why _do_ people insist on harming themselves in
this fashion? (rhetorical question!).
all the best
------------------------------
Date: Sat, 2 Nov 2002 01:56:23 +0100
From: "Alan J. Flavell" <flavell@mail.cern.ch>
Subject: Re: ~ Perl script output help ~
Message-Id: <Pine.LNX.4.40.0211020150540.14107-100000@lxplus076.cern.ch>
On Nov 1, Rick Cross inscribed on the eternal scroll:
> And YOU should perhaps include a little more of the OP in your reply when
> sanctimoniusly whinging about people in a public forum.
Your contribution to the Perl community has been what, exactly?
If this is typical:
___
/
> What, no 'use strict;'?
>
Of course not, I was just keeping it simple for the example.
\___
then you should go far.
------------------------------
Date: Sat, 02 Nov 2002 03:07:13 GMT
From: "David K. Wall" <me@dwall.fastmail.fm>
Subject: Re: ~ Perl script output help ~
Message-Id: <Xns92B9E1077C21dkwwashere@63.240.76.16>
tiltonj@erols.com (Jay Tilton) wrote:
>
> Besides the tagged subject line and the MIME post, there is a fistful
> of other reasons not to emulate the OP.
>
> The attachment was an MSWord document.
[snip other reasons]
Heh. I didn't even notice the attachment; my newsreader had a bit of text
stating that there was an attachment, but it showed up in the same font and
color that I have set for signatures. My eyes skipped over it like a
banner ad on a web page....
--
David Wall - me@dwall.fastmail.fm
"Oook."
------------------------------
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 4058
***************************************
