[25016] in Perl-Users-Digest

home help back first fref pref prev next nref lref last post

Perl-Users Digest, Issue: 7266 Volume: 10

daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Oct 18 14:07:11 2004

Date: Mon, 18 Oct 2004 11:05:08 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)

Perl-Users Digest           Mon, 18 Oct 2004     Volume: 10 Number: 7266

Today's topics:
    Re: C (I think) to Perl Conversion <NOdj.athensSPAM@surfeu.fi>
        Calling a perl script from an html doc <spam@spamhotmail.com>
    Re: Calling a perl script from an html doc <sbryce@scottbryce.com>
    Re: Calling a perl script from an html doc <postmaster@castleamber.com>
    Re: Calling a perl script from an html doc <spam@spamhotmail.com>
    Re: criticize my code.. please? <usenet@morrow.me.uk>
        date format (Yasaswi Pulavarti)
    Re: date format <tadmc@augustmail.com>
    Re: date format <noreply@gunnar.cc>
    Re: date format <eric-amick@comcast.net>
    Re: disappearing arguments when one package function ca <usenet@morrow.me.uk>
        Fetching question (this was once answered by Luke from  (Jeff M.)
    Re: Fetching question (this was once answered by Luke f <phaylon@dunkelheit.at>
        How do I print http 404 not found header? <nntp@rogers.com>
    Re: How do I print http 404 not found header? <phaylon@dunkelheit.at>
    Re: How to checking a file that writing is complete? <usenet@morrow.me.uk>
    Re: install Bundle::CPAN in Cygwin failed <usenet@morrow.me.uk>
    Re: Is this really legal? <usenet@morrow.me.uk>
    Re: Lowest array value given index <cwilbur@mithril.chromatico.net>
    Re: Mason book available as PDF file? <notvalid@email.com>
    Re: options to shrink-wrap a perl script (dan baker)
    Re: options to shrink-wrap a perl script <ThomasKratz@REMOVEwebCAPS.de>
    Re: overriding perl switch <postmaster@castleamber.com>
    Re: Top 10 list algorithm <abigail@abigail.nl>
    Re: Top posting (was Re: Concatenating an array into on <HelgiBriem_1@hotmail.com>
        Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)

----------------------------------------------------------------------

Date: Mon, 18 Oct 2004 18:09:10 +0300
From: "Jussi Mononen" <NOdj.athensSPAM@surfeu.fi>
Subject: Re: C (I think) to Perl Conversion
Message-Id: <cl0ma6$gjn$1@nyytiset.pp.htv.fi>

>> Actually it is not, "//" is a C++ single-line comment, but *most*
>> C-compilers accept it by default.
>
> Actually it is. :-) Single-line comments are included in the current C99 
> standard. They weren't part of the C89 standard, but as you say, most 
> compilers accepted them anyway.

:-D

I stand corrected, I think I must read the C99 specs again.

> Indeed. It's also fairly easy to create Perl modules that wrap C 
> libraries.

Modules written in C are sometimes the only way to get Perl fast enough. 
I've been there and done that and I bought the t-shirt ;-)

/jUSSi 




------------------------------

Date: Mon, 18 Oct 2004 11:44:33 -0600
From: "Spin" <spam@spamhotmail.com>
Subject: Calling a perl script from an html doc
Message-Id: <10n805rjh6f40bd@corp.supernews.com>

How can I call a perl script from an html document when I have no web server
(eg. Apache with its cgi-bin folder)? Our accounting system's reports are
created as html files on a linux server, and they pop up in IE6 on our local
Win2k workstations.

What I want to do is call a perl script like this in my html: <img
src="my_perl_script_gets_my_dynamic_image.pl">.

Basically it's the equivalent right now of calling this page in my browser:
file:///W:/reports/my_perl_script_etc.pl which only displays the contents of
the script instead of processing it via perl. Can I use Javascript or
something to make the server run the script through perl in order to display
it as an image in my local html doc?

TIA
Caleb




------------------------------

Date: Mon, 18 Oct 2004 11:55:08 -0600
From: Scott Bryce <sbryce@scottbryce.com>
Subject: Re: Calling a perl script from an html doc
Message-Id: <10n80rr7dprjd3e@corp.supernews.com>

Spin wrote:

> How can I call a perl script from an html document when I have no web server

I assume you mean a CGI script written in Perl. You can't.

> Can I use Javascript or
> something to make the server run the script through perl in order to display
                     ^^^^^^^^^^
> it as an image in my local html doc?

You said there was no server.

Javascript runs in the browser. CGI scripts written in Perl run on the 
server. If you want to run a CGI script on the sever, there needs to be 
a server.

Even if the HTML documents are on a local drive, they can call CGI 
scripts on a sever.

You need to decide whether or not there is a server, then configure it 
to run CGI scripts written in Perl. If you need help with that, you 
should ask on a CGI newsgroup or a newsgroup about whatever sever 
software you may or may not have on the server that may or may not be there.



------------------------------

Date: 18 Oct 2004 18:01:03 GMT
From: John Bokma <postmaster@castleamber.com>
Subject: Re: Calling a perl script from an html doc
Message-Id: <Xns9586846BCCCF3castleamber@130.133.1.4>

Spin wrote:

> How can I call a perl script from an html document when I have no web
> server (eg. Apache with its cgi-bin folder)? Our accounting system's
> reports are created as html files on a linux server, and they pop up
> in IE6 on our local Win2k workstations.
> 
> What I want to do is call a perl script like this in my html: <img
> src="my_perl_script_gets_my_dynamic_image.pl">.
> 
> Basically it's the equivalent right now of calling this page in my
> browser: file:///W:/reports/my_perl_script_etc.pl which only displays
> the contents of the script instead of processing it via perl. Can I
> use Javascript or something to make the server run the script through
> perl in order to display it as an image in my local html doc?

Does AFAIK only work if you have and Perl installed, and the file is local 
(the latter not sure). But why not just use Apache?

-- 
John                               MexIT: http://johnbokma.com/mexit/
                           personal page:       http://johnbokma.com/
        Experienced programmer available:     http://castleamber.com/
            Happy Customers: http://castleamber.com/testimonials.html


------------------------------

Date: Mon, 18 Oct 2004 12:04:17 -0600
From: "Spin" <spam@spamhotmail.com>
Subject: Re: Calling a perl script from an html doc
Message-Id: <10n81aujp20bq23@corp.supernews.com>

Sorry, my fault for not being explicit enough.

There is no web server. There is a file server (samba) on which the html doc
is located. The file server has perl installed, but no web server. And
installing a web server is not an option.

Caleb


"Scott Bryce" <sbryce@scottbryce.com> wrote in message
news:10n80rr7dprjd3e@corp.supernews.com...
> Spin wrote:
>
> > How can I call a perl script from an html document when I have no web
server
>
> I assume you mean a CGI script written in Perl. You can't.
>
> > Can I use Javascript or
> > something to make the server run the script through perl in order to
display
>                      ^^^^^^^^^^
> > it as an image in my local html doc?
>
> You said there was no server.
>
> Javascript runs in the browser. CGI scripts written in Perl run on the
> server. If you want to run a CGI script on the sever, there needs to be
> a server.
>
> Even if the HTML documents are on a local drive, they can call CGI
> scripts on a sever.
>
> You need to decide whether or not there is a server, then configure it
> to run CGI scripts written in Perl. If you need help with that, you
> should ask on a CGI newsgroup or a newsgroup about whatever sever
> software you may or may not have on the server that may or may not be
there.
>




------------------------------

Date: Mon, 18 Oct 2004 00:19:34 +0100
From: Ben Morrow <usenet@morrow.me.uk>
Subject: Re: criticize my code.. please?
Message-Id: <69bb42-1e5.ln1@osiris.mauzo.dyndns.org>


Quoth "John W. Krahn" <krahnj@telus.net>:
> Ben Morrow wrote:
> > Quoth "Sergei Shelukhin" <raven_at@home.domonet.ru>:
> >>
> >>for (my $i = 0; $i < $n; $i++)
> > 
> > for my $i (0..$n) {
> 
>    for my $i ( 0 .. $n - 1 ) {

Gah, yes of course; sorry...

Ben

-- 
If I were a butterfly I'd live for a day, / I would be free, just blowing away.
This cruel country has driven me down / Teased me and lied, teased me and lied.
I've only sad stories to tell to this town: / My dreams have withered and died.
  ben@morrow.me.uk                                                 (Kate Rusby)


------------------------------

Date: 18 Oct 2004 08:43:10 -0700
From: yasaswi@encfor.com (Yasaswi Pulavarti)
Subject: date format
Message-Id: <aa862233.0410180743.1fdf5cca@posting.google.com>

I have a text file I need to load into MySQL database. In the text
file the date is shown as mm/dd/yyyy format. However I need to enter
the date in MySQL native yyyy-mm-dd format. How can I change
formatting without using substring function?
Thanks,
Yasaswi


------------------------------

Date: Mon, 18 Oct 2004 10:56:05 -0500
From: Tad McClellan <tadmc@augustmail.com>
Subject: Re: date format
Message-Id: <slrncn7psl.1f2.tadmc@magna.augustmail.com>

Yasaswi Pulavarti <yasaswi@encfor.com> wrote:

> I have a text file I need to load into MySQL database. In the text
> file the date is shown as mm/dd/yyyy format. However I need to enter
> the date in MySQL native yyyy-mm-dd format. How can I change
> formatting without using substring function?


What is wrong with the substr() function?


   s#(\d\d)/(\d\d)/(\d\d\d\d)#$3-$1-$2#;  # untested


-- 
    Tad McClellan                          SGML consulting
    tadmc@augustmail.com                   Perl programming
    Fort Worth, Texas


------------------------------

Date: Mon, 18 Oct 2004 17:56:30 +0200
From: Gunnar Hjalmarsson <noreply@gunnar.cc>
Subject: Re: date format
Message-Id: <2ti7jlF1vhadqU1@uni-berlin.de>

Yasaswi Pulavarti wrote:
> I have a text file I need to load into MySQL database. In the text
> file the date is shown as mm/dd/yyyy format. However I need to enter
> the date in MySQL native yyyy-mm-dd format. How can I change
> formatting without using substring function?

     s|(\d\d)/(\d\d)/(\d{4})|$3-$1-$2|

-- 
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl


------------------------------

Date: Mon, 18 Oct 2004 12:16:36 -0400
From: Eric Amick <eric-amick@comcast.net>
Subject: Re: date format
Message-Id: <3kq7n0hcqml0f8slj0cd316vbhui7dpiu3@4ax.com>

On 18 Oct 2004 08:43:10 -0700, yasaswi@encfor.com (Yasaswi Pulavarti)
wrote:

>I have a text file I need to load into MySQL database. In the text
>file the date is shown as mm/dd/yyyy format. However I need to enter
>the date in MySQL native yyyy-mm-dd format. How can I change
>formatting without using substring function?

MySQL has a STR_TO_DATE function that can do the conversion for you:

STR_TO_DATE('06/12/2004', '%m/%d/%Y')

-- 
Eric Amick
Columbia, MD


------------------------------

Date: Mon, 18 Oct 2004 00:26:58 +0100
From: Ben Morrow <usenet@morrow.me.uk>
Subject: Re: disappearing arguments when one package function calls another
Message-Id: <2nbb42-1e5.ln1@osiris.mauzo.dyndns.org>


Quoth ioneabu@yahoo.com (wana):
> 
> package myfunctions

All-lowercase top-level package names are reserved for pragmas. Chose
another name, either MyFunctions or (preferably) something more
descriptive.

>         @{$array} = <$file>;

There's no need for these {}, @$array will work perfectly well. Of
course, it does no harm to leave them in if you find it easier to follow
like that.

> sub ReplaceInFile
> {
>         #parameters
>         my $target = shift; #string to search for to replace
>         my $source = shift; #string to replace with
>         my $infile = shift;
>         my $outfile = shift;

It would be easier to write

    my ($target, $source, $infile, $outfile) = @_;

although it will not have quite the same effect (the arguments will not
be removed from @_; in this case it makes no difference).

>         foreach(@workspace) {s/$target/$source/g;}

This is very bad style. If you want a one-line for loop, use a statement
modifier:

    s/$target/$source/g for @workspace;

 . Otherwise, write it properly:

    for (@workspace) {
        s/$target/$source/g;
    }

Ben

-- 
   Although few may originate a policy, we are all able to judge it.
                                             - Pericles of Athens, c.430 B.C.
  ben@morrow.me.uk


------------------------------

Date: 18 Oct 2004 08:43:24 -0700
From: mnbv4567@yahoo.com (Jeff M.)
Subject: Fetching question (this was once answered by Luke from Hong Kong)
Message-Id: <c308860a.0410180743.584147c1@posting.google.com>

I'm trying to fetch a link and i dont need the content of the link i
just need the link itself. Here is what i mean:
Lets say when you go to: http://www.go.to/username it forwards you to:
http://www.geocities.com/username

So how do i fetch url http://www.go.to/username to find out which url
it forwarded me to.

Few years ago i was working with a programmer, Luke, from Hong Kong
and he was able to figure this out for me. And now i need this again,
Luke if you are out there please contact me.

Thanks


------------------------------

Date: Mon, 18 Oct 2004 17:49:14 +0200
From: Robert Sedlacek <phaylon@dunkelheit.at>
Subject: Re: Fetching question (this was once answered by Luke from Hong Kong)
Message-Id: <pan.2004.10.18.15.49.14.528924@dunkelheit.at>

Jeff M. wrote:

> So how do i fetch url http://www.go.to/username to find out which url it
> forwarded me to.

I think you're searching for a HEAD-Request. This should give you the
Response-Headers.

g,
Robert

-- 
http://www.dunkelheit.at/
sapere aude.



------------------------------

Date: Mon, 18 Oct 2004 12:28:10 -0400
From: "nntp" <nntp@rogers.com>
Subject: How do I print http 404 not found header?
Message-Id: <fsednb6186Krcu7cRVn-gA@rogers.com>

print "HTTP/1.1 404 Not Found";
do I need
print "Content-type: text/html\n\n"; after it?

Should I print
print "HTTP/1.1 404 Not Found";
print "locatioin: ...";




------------------------------

Date: Mon, 18 Oct 2004 18:26:56 +0200
From: Robert Sedlacek <phaylon@dunkelheit.at>
Subject: Re: How do I print http 404 not found header?
Message-Id: <pan.2004.10.18.16.26.56.30541@dunkelheit.at>

nntp wrote:

> print "HTTP/1.1 404 Not Found";
> do I need
> [...]
> Should I print
> [...]

You could first say what you are trying to do. :) If you want to have a
custom ErrorDocument, print out the Data you want to sent to the browser.
And if this is html, a Content-Type set to text/html should be right.

g,
Robert

-- 
http://www.dunkelheit.at/
sapere aude.



------------------------------

Date: Mon, 18 Oct 2004 00:44:23 +0100
From: Ben Morrow <usenet@morrow.me.uk>
Subject: Re: How to checking a file that writing is complete?
Message-Id: <nncb42-1e5.ln1@osiris.mauzo.dyndns.org>

[quoting fixed. Don't top-post]

Quoth "news.hinet.net" <sonet@msa.hinet.net>:
> "Joe Smith" <Joe.Smith@inwap.com> ??? news:bTpcd.143051$He1.29216@attbi_s01
> ???...
> > news.hinet.net wrote:
> >
> > > I must mv a logfile to other directory that generate by another program.
> > > Will I got incomplete file if move a file that writing is not complete ?
> >
> > It depends on whether the original directory and the destination directory
> > are on the same file system.  If yes, 'mv' does a rename without changing
> > the inode; open file handles are still valid.  If no, 'mv' does a copy
> > and delete; you may end up with a large file that is still open but has
> > no name.
> >
> > As to checking whether a file is still open for writing, perl can't
> > do it if the OS + file-system don't support that functionality.
> 
> What is the definition of  the original directory and the destination
> directory
>  are on the same file system??
> 
> The meaning is the same partition  , the same filesystem type(ex. NTFS
> <->NTFS) or
> the same HardDisk?

Err... are you talking windows or unix here?
Windows (AFAIK) doesn't support close-behind (where a file can be
renamed without processes holding it open knowing), so you'll have to
tell the writer to stop and restart around the move.

Under Unix you can get a list of filesystems with mount(1): any two
directories that are under the same entry in mount's output are on
the same filesystem. So, if mount says

/dev/hda1 on / type reiserfs (rw,noatime)
/dev/hda2 on /usr type reiserfs (rw,noatime)
/dev/hda3 on /usr/local type reiserfs (rw,noatime)

then /, /lib, etc. are on one filesystem; /usr, /usr/lib, /usr/lib/perl5
etc. are on another and /usr/local, /usr/local/bin etc. are on a third.

You can check which filesystem a file (or directory) is on with stat:
the first member ($st->dev if you use File::stat, which I'd recommend)
gives you the device (filesystem) number, so two files are on the same
fs iff stat returns the same first member for both. Be aware that 'fake'
filesystems (such as Linux' usbfs (/proc/bus/usb) and tmpfs (often used
for /dev and /dev/shm)) may return 'undef' for this member, so be
careful to catch this.

> Sorry! My english is very poor!

That's fine: don't worry about it :).

Ben

-- 
Heracles: Vulture! Here's a titbit for you / A few dried molecules of the gall
   From the liver of a friend of yours. / Excuse the arrow but I have no spoon.
(Ted Hughes,        [ Heracles shoots Vulture with arrow. Vulture bursts into ]
 /Alcestis/)        [ flame, and falls out of sight. ]         ben@morrow.me.uk


------------------------------

Date: Mon, 18 Oct 2004 00:56:54 +0100
From: Ben Morrow <usenet@morrow.me.uk>
Subject: Re: install Bundle::CPAN in Cygwin failed
Message-Id: <6fdb42-1e5.ln1@osiris.mauzo.dyndns.org>


Quoth seasea@hotmail.com (sea):
> I am using Perl 5.8.5 in Cygwin.  I tried to install packages from
> cpan but failed. It gives the following eorrs when I installed
> Bundle::CPAN
> 
> Running make install
> Cannot forceunlink /usr/lib/perl5/5.8.5/cygwin-thread-multi-64int/auto/Cwd/Cwd.d
> ll: Permission denied at /usr/lib/perl5/5.8.5/File/Find.pm line 906
> 
> I have no clue at all.  BTW, I am not an admin in this computer.

See perldoc -q lib.

Ben

-- 
  The cosmos, at best, is like a rubbish heap scattered at random.
                                                         - Heraclitus
  ben@morrow.me.uk


------------------------------

Date: Mon, 18 Oct 2004 00:52:15 +0100
From: Ben Morrow <usenet@morrow.me.uk>
Subject: Re: Is this really legal?
Message-Id: <f6db42-1e5.ln1@osiris.mauzo.dyndns.org>


Quoth tim@vegeta.ath.cx:
> The are not required in the statement modifier form, but STATEMENT may
> be a block if desired.

Not true. In Perl (unlike C) a statement is a statement and a block a
block. You can, however, make a statement out of a block by 'do'ing it:

do { $x = $y } unless defined $x;

I would *very strongly* recommend against *ever* casting an if like
this; however, I oftem use it on the RHS of a statement:

my $x = do { local $/; <$FH> };

defined $x or do {
    warn '$x was not defined';
    $x = 3;
};

Note the need for a terminating ; here.

<ObPerl6>
In Perl6, a block will be a closure that will be executed immediately
under appropriate circumstances, so I expect 
    { $x = $y } unless defined $x;
will work.
</ObPerl6>

Ben

-- 
  The cosmos, at best, is like a rubbish heap scattered at random.
                                                         - Heraclitus
  ben@morrow.me.uk


------------------------------

Date: Mon, 18 Oct 2004 15:18:02 GMT
From: Charlton Wilbur <cwilbur@mithril.chromatico.net>
Subject: Re: Lowest array value given index
Message-Id: <87ekjwrre6.fsf@mithril.chromatico.net>

>>>>> "j" == Jim  <jimnl69@hotmail.com> writes:

    j> I'm trying to find an efficient way of finding the lowest value
    j> of an array but starting at a given index.

This one is clear code; you need to examine every element to determine
that you have the lowest one.  Anything more efficient than this will
probably require arcane knowledge of perl internals which are likely
to change from version to version.

my $low_index = $index;
for ($index .. $#array, 0 .. $index - 1)
{
    $low_index = $_
	if $array[$_] < $array[$low_index];
}

print "low element is at index $low_index\n";



Charlton

-- 
cwilbur at chromatico dot net
cwilbur at mac dot com


------------------------------

Date: Mon, 18 Oct 2004 16:51:08 GMT
From: Ala Qumsieh <notvalid@email.com>
Subject: Re: Mason book available as PDF file?
Message-Id: <0wScd.15425$nj.6901@newssvr13.news.prodigy.com>

John Bokma wrote:

> Since it's available as HTML, freely, I was wondering, is there a PDF 
> version available?

I don't know, but qt the very bottom of the page, there is a link to the 
pseudo-POD version:

http://www.masonbook.com/book/mason-book.tar.gz

--Ala


------------------------------

Date: 18 Oct 2004 08:48:59 -0700
From: botfood@yahoo.com (dan baker)
Subject: Re: options to shrink-wrap a perl script
Message-Id: <13685ef8.0410180748.64d1251e@posting.google.com>

Abigail <abigail@abigail.nl> wrote in message news:<slrncn5l1v.img.abigail@alexandra.abigail.nl>...
> 
> You're looking for PAR.
>-------------------

ok, great, what and where is "PAR"?

d


------------------------------

Date: Mon, 18 Oct 2004 17:55:50 +0200
From: Thomas Kratz <ThomasKratz@REMOVEwebCAPS.de>
Subject: Re: options to shrink-wrap a perl script
Message-Id: <cl0p27$rq8$1@online.de>

dan baker wrote:
> Abigail <abigail@abigail.nl> wrote in message news:<slrncn5l1v.img.abigail@alexandra.abigail.nl>...
> 
>>You're looking for PAR.
>>-------------------
> 
> 
> ok, great, what and where is "PAR"?
> 
> d

Didn't it occur to you that it could be a module?

http://www.google.com/search?hl=en&q=perl+PAR&btnG=Google+Search
http://search.cpan.org/search?query=PAR&mode=all
http://par.perl.org/

Thomas


------------------------------

Date: 18 Oct 2004 17:57:18 GMT
From: John Bokma <postmaster@castleamber.com>
Subject: Re: overriding perl switch
Message-Id: <Xns958683BF41EA0castleamber@130.133.1.4>

Anno Siegel wrote:

> As has been revealed, the poster asked about -w, but wants to revoke
> a different, as yet undisclosed, switch.  What silliness...

Let me guess... let me guess :-)

The -T, because the OP discovered that

perl somecoolscript.cgi

Gave a warning about taint too late...

Well, just try

perl -T somecoolscript.cgi.

-- 
John                               MexIT: http://johnbokma.com/mexit/
                           personal page:       http://johnbokma.com/
        Experienced programmer available:     http://castleamber.com/
            Happy Customers: http://castleamber.com/testimonials.html


------------------------------

Date: 11 Oct 2004 20:52:53 GMT
From: Abigail <abigail@abigail.nl>
Subject: Re: Top 10 list algorithm
Message-Id: <slrncmlsl4.34g.abigail@alexandra.abigail.nl>

Anno Siegel (anno4000@lublin.zrz.tu-berlin.de) wrote on MMMMLIX September
MCMXCIII in <URL:news:ckdff4$cis$1@mamenchi.zrz.TU-Berlin.DE>:
<>  Shawn Corey  <shawn.corey@sympatico.ca> wrote in comp.lang.perl.misc:
<> > Anno Siegel wrote:
<> > > I still think that in practice it would pay to keep the heap size down
<> > > to k (the number of elements to be extracted).  You'd still have to
<> > > *inspect* all the input, but the number of "heap operations" (heap
<> > > insertions and original (non-recursive) calls to heapify()) would be
<> > > much smaller, and operate on a smaller heap.
<> > > 
<> > > Anno
<> > 
<> > Unfortunately, no. I wrote some benchmarks just to see what happens in 
<> > practice. The subroutine heap_each() is commented out since it takes so 
<> > long to complete.
<>  
<>  Then there must be something wrong with the implementation.  My
<>  benchmark (see below) shows the "small-heap" solution I suggested
<>  about 8 times faster than Abigail's "big-heap" solution.


It's O (n log k) (small heap) vs O (n + k log n) (big heap).



Abigail
-- 
perl -MTime::JulianDay -lwe'@r=reverse(M=>(0)x99=>CM=>(0)x399=>D=>(0)x99=>CD=>(
0)x299=>C=>(0)x9=>XC=>(0)x39=>L=>(0)x9=>XL=>(0)x29=>X=>IX=>0=>0=>0=>V=>IV=>0=>0
=>I=>$==-2449231+gm_julian_day+time);do{until($=<$#r){$_.=$r[$#r];$=-=$#r}for(;
!$r[--$#r];){}}while$=;$,="\x20";print+$_=>September=>MCMXCIII=>=>=>=>=>=>=>=>'


------------------------------

Date: Mon, 18 Oct 2004 15:35:52 +0000
From: Helgi Briem <HelgiBriem_1@hotmail.com>
Subject: Re: Top posting (was Re: Concatenating an array into one string?)
Message-Id: <1ko7n0ta4l12h0rgb7rmnqptj0rn9sk1t9@4ax.com>

On Fri, 15 Oct 2004 19:20:26 +0100, Ben Morrow <usenet@morrow.me.uk>
wrote:
>> Noone?  Who's "noone"?
>
>The transformation of compound nouns from two words to a 
>hyphenated compound to a single word as they become more 
>naturalised is a perfectly well established trait in English. 
>Take 'nobody': it was 'no body' in the 14th century, 'no-body'
> in the 18th, and 'nobody' in the 19th
>[OED].
>
>People who try to restrict the natural evolution of languages
> through ignorance really get on my nerves :).

Far be it from me to restrict the natural evolution of
languages.  I was trying to make a (rather feeble) joke
at someone else's expense.  So sue me.

--
Helgi Briem  hbriem AT simnet DOT is

A: Because it messes up the order in which people normally read text.
Q: Why is top-posting such a bad thing?
A: Top-posting.
Q: What is the most annoying thing on usenet and in e-mail?


------------------------------

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 7266
***************************************


home help back first fref pref prev next nref lref last post