[12539] in Perl-Users-Digest
Perl-Users Digest, Issue: 6139 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sat Jun 26 21:07:14 1999
Date: Sat, 26 Jun 99 18:00:15 -0700
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Sat, 26 Jun 1999 Volume: 8 Number: 6139
Today's topics:
Re: 'Perl core' or 'perl core'? (Abigail)
Re: 'ucfirst' for a sentence? (Abigail)
Re: @array= qx{<command>} - handling (Abigail)
Re: A month behind using localtime(time) ? (Abigail)
Command line parameters / Wildcard characters / Recursi <eman@cc.gatech.edu>
Re: Command line parameters / Wildcard characters / Rec <tchrist@mox.perl.com>
Re: Constant? (Eric Bohlman)
Re: Deleting lines from a file (Abigail)
Re: deleting part of a string (Abigail)
dynamic loading <marco_lucio@hotmail.com>
Re: FAQs and attitudes (was Re: How can I read a whole (Abigail)
Re: Index of an array-item (Abigail)
Re: Index of an array-item <tchrist@mox.perl.com>
Re: Neet Perl Obfucation Program (Abigail)
Re: rename dose not work (Abigail)
Re: Statistics for comp.lang.perl.misc (Abigail)
Re: Unlink == delete files? Why (on earth) is it called <gellyfish@gellyfish.com>
Special: Digest Administrivia (Last modified: 12 Dec 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 26 Jun 1999 18:29:49 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: 'Perl core' or 'perl core'?
Message-Id: <slrn7naoj1.npo.abigail@alexandra.delanet.com>
Wyzelli (wyzelli@yahoo.com) wrote on MMCXXIII September MCMXCIII in
<URL:news:bpjc3.588$x9.26332@vic.nntp.telstra.net>:
&& Abigail <abigail@delanet.com> wrote in message
&& news:slrn7mq84r.k1b.abigail@alexandra.delanet.com...
&&
&& > -----------== 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
&& ==-----
Did your really have to quote that? It's already a waste that my ISP feels
the need to add this cruft.
&& I have been thinking about this one for a few days (Yes I had already read
&& the FAQ prior) and wondering why the ambiguity, then I figured that it is
&& because of the sentence structure that it is confusing. The term Perl core
&& as it was used seems to be referring to the core 'belonging ' to Perl hence
&& my desire to see it capitalised, as opposed to 'the core of perl(.exe)'
&& which would be a little clearer as to the actual subject of the
&& conversation, (ie the executable).
&&
&& Given the second as being the actual intention, I would change my vote to be
&& not 'perl core' but 'core of perl', possibly with the addition of the .exe
&& to make it even clearer.
Adding a .exe would make it extremely confusing. I've no idea where I can
find the core of perl.exe (core.exe of perl???) on my system. I don't even
know where to find perl.exe.
I've heard about execuses for operating systems that have perl.exe files,
but they are the exceptions.
Abigail
--
perl5.004 -wMMath::BigInt -e'$^V=Math::BigInt->new(qq]$^F$^W783$[$%9889$^F47]
.qq]$|88768$^W596577669$%$^W5$^F3364$[$^W$^F$|838747$[8889739$%$|$^F673$%$^W]
.qq]98$^F76777$=56]);$^U=substr($]=>$|=>5)*(q.25..($^W=@^V))=>do{print+chr$^V
%$^U;$^V/=$^U}while$^V!=$^W'
-----------== 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: 26 Jun 1999 18:45:10 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: 'ucfirst' for a sentence?
Message-Id: <slrn7napfr.npo.abigail@alexandra.delanet.com>
bing-du@tamu.edu (bing-du@tamu.edu) wrote on MMCXXIII September MCMXCIII
in <URL:news:7ktjb9$904$1@nnrp1.deja.com>:
~~ Hello,
~~
~~ Let's say there is a sentence "deja news is helpful".
~~
~~ Instead of 'split' the sentence first, then 'ucfirst' each word,
~~ Any other better way to convert the sentence to:
~~ "Deja News Is Helpful"?
$string = 'Deja News Is Helpful' if $string eq 'deja news is helpful';
FAQs are helpful too.
Abigail
--
perl -we 'print split /(?=(.*))/s => "Just another Perl Hacker\n";'
-----------== 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: 26 Jun 1999 18:49:09 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: @array= qx{<command>} - handling
Message-Id: <slrn7napna.npo.abigail@alexandra.delanet.com>
Martin Leja (martin@unix-ag.uni-siegen.de) wrote on MMCXXIII September
MCMXCIII in <URL:news:37720813.0@rainbow.hrz.uni-siegen.de>:
## hi,
##
## consider the following code:
## bash$ perl -e '@array=qx{/usr/bin/printf "bla\nblub\n"}; print("*$array[0]*$array[1]*");'
## *bla
## *blub
## *bash$
##
## ok, the two lines are split correctly into the array, but why does every
## array variable still contain a trailing '\n'?
What makes you think those \n's shouldn't be there? You pass them to printf...
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: 26 Jun 1999 18:33:07 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: A month behind using localtime(time) ?
Message-Id: <slrn7naop4.npo.abigail@alexandra.delanet.com>
markus (drbrain@ziemlich.org) wrote on MMCXXV September MCMXCIII in
<URL:news:slrn7n9npk.82k.drbrain@josefine.ben.tuwien.ac.at>:
&& In article <slrn7n0t7l.k1b.abigail@alexandra.delanet.com>, Abigail wrote:
&& >perl -e '$a = q 94a75737420616e6f74686572205065726c204861636b65720a9 and
&& > ${qq$\x5F$} = q 97265646f9 and s g..g;
&& > qq e\x63\x68\x72\x20\x30\x78$&eggee;
&& > {eval if $a =~ s e..eqq qprint chr 0x$& and \x71\x20\x71\x71qeexcess}'
&&
&& Holy shit ! Where the heck do you have the signatuers from ? Or, how
&& do you create a new every time ? If i remember correctly you don't post
&& signature with perl code more than time.
I bet that searching on Deja for the string
'94a75737420616e6f74686572205065726c204861636b65720a9' will tell you.
&& I guess you have some script which generates, isnt it that way ? :-)
I've a script that generates, yes.
(Generate what?)
Abigail
--
perl -weprint\<\<EOT\; -eJust -eanother -ePerl -eHacker -eEOT
-----------== 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: Sat, 26 Jun 1999 20:20:33 -0400
From: Eric Anderson <eman@cc.gatech.edu>
Subject: Command line parameters / Wildcard characters / Recursive directories
Message-Id: <37756E51.9A009E51@cc.gatech.edu>
I'm trying to do something in perl that I'm not really sure how to do.
Basically I want someone to enter something like the following:
myScript -R *.html *.inc
The -R option would tell the program to recursively read the
subdirectories. So basically the script would know to process all html
files and inc files in this directory and the subdirectories.
I want to write a script that runs one both windows and unix. Now when
the script is running on windows the wildcard character is not
automatically processed so perl recieves the following as parameters:
-R
*.html
*.inc
Now this isn't a big deal becuase I can just use the glob function to
manually get a list of the files. And under Unix (at least Linux with
bash shell) the wildcard expansion is processed by the shell before the
script even get the parameters. Now this is all good for doing current
directory but when it comes to doing the subdirectories i don't know how
this will be acomplished. On the windows system it is no big deal
becuase I can just get a list of all the directories in the current one
and then use the glob in all the directories.
Now the question is how will the work out under Unix. Since it processes
the wildcard characters before I even get it I won't know what wildcard
string to use with glob on the subdirectories. Any pointers? Thanks for
any help anyone to provide.
--
Eric Anderson
Computer Science, Georgia Tech
Co-op, Southern Regional Education Board
ICQ# 1279816
------------------------------
Date: 26 Jun 1999 18:47:37 -0700
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: Command line parameters / Wildcard characters / Recursive directories
Message-Id: <377574a9@cs.colorado.edu>
[courtesy cc of this posting mailed to cited author]
In comp.lang.perl.misc, Eric Anderson <eman@cc.gatech.edu> writes:
:I want to write a script that runs one both windows and unix. Now when
:the script is running on windows the wildcard character is not
:automatically processed
That depends on whether you're running a broken shell or not.
The default shell is broken. You probably don't want to do that.
I've heard good things about pdksh.
:so perl recieves the following as parameters:
:
:-R
:*.html
:*.inc
:
:Now the question is how will the work out under Unix. Since it processes
:the wildcard characters before I even get it I won't know what wildcard
:string to use with glob on the subdirectories.
And now you see the fundamental issue. That's part of why the only sane
thing to do is to bump the common processing up to the run-time system.
:Any pointers?
Get a real shell?
--tom
--
"I just hope I'm never promoted to the level of my incontinence."
--Larry Wall
------------------------------
Date: 26 Jun 1999 23:23:43 GMT
From: ebohlman@netcom.com (Eric Bohlman)
Subject: Re: Constant?
Message-Id: <7l3ndv$lsb@dfw-ixnews6.ix.netcom.com>
Matthew Wilson (matthewwilson@matthewwilson.free-online.co.uk) wrote:
: Forgive me if this is plastered over an FAQ or doc somewhere, but when I run
: this script I am told "Can't modify constant item in scalar assignment"
: relating to the reassignment of the scalar count. Why on earth is this a
: constant? I thought they had to be declared with use constant! Please
: help!
:
: Here is the bit of code (part of a larger program though)
: $count = 9; # 9 is assigned to count here ......
[snip]
: count = 1; #And here is where the error occurs
Since you left off the "$" perl is assuming that count is the name of a
subroutine that it should call. But you can't call a subroutine and
assign something to its value, so you get the error message. The result
of a subroutine isn't a true constant, but it can be considered a
"constant item" because once you've got it, you can't change it, any more
than you can change the result of 2+2.
If you used strict and -w, perl would have complained about your
questionable use of barewords, which would have pointed you to the problem.
------------------------------
Date: 26 Jun 1999 19:20:29 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: Deleting lines from a file
Message-Id: <slrn7nari2.npo.abigail@alexandra.delanet.com>
rt_daemon@yahoo.com (rt_daemon@yahoo.com) wrote on MMCXXV September
MCMXCIII in <URL:news:7l1i3k$mqb$1@nnrp1.deja.com>:
<> Greetings,
<>
<> How can delete some lines from a file ?
unlink $RTFFAQ;
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: 26 Jun 1999 18:40:49 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: deleting part of a string
Message-Id: <slrn7nap7l.npo.abigail@alexandra.delanet.com>
Hasanuddin Tamir (hasant@trabas.co.id) wrote on MMCXXIII September
MCMXCIII in <URL:news:7ku7gu$hm4$1@nnrp1.deja.com>:
** In article <slrn7mqr82.k1b.abigail@alexandra.delanet.com>,
** abigail@delanet.com wrote:
** > Hasanuddin Tamir (hasant@trabas.co.id) wrote on MMCXIX September
** MCMXCIII
** > in
** <URL:news:Pine.LNX.3.96.990621012916.17964A-100000@borg.intern.trabas.co
** .id>:
** > && On 18 Jun 1999, Abigail wrote:
** > &&
** > && abigail] JQ (pigs_can_fly@mindless.com) wrote on MMCXVII September
** MCMXCIII in
** > && abigail] <URL:news:376a79fc.62397051@news.cyberway.com.sg>:
** > && abigail] //
** > && abigail] // I need to delete whatever follows the LAST occurence of
** /, including
Your newsreader is broken. It inserts newlines where it shouldn't.
Please fix your newsreader.
** > && abigail] // the last /
** > && abigail]
** > && abigail]
** > && abigail] s{/[^/]*$}{};
** > &&
** > && or,
** > &&
** > && use File::Basename;
** > && $string_without_whatever_follows_last_slash_including_itself =
** > && dirname($original_string);
** >
** > Now, why would you use something that uses a module, is longer to
** type,
** > and isn't portable instead of 12 character substitution?
**
** Longer to type, yes....
** but beside to mererly show another way, I also
** blindly assumed that he wanted to extract string
** contains file path (or URL). And that's what
** the module does. Talking about portable, the
** module is platform independent.
The problem is that the code as given above, does *NOT* remove everything
from the last slash onwards. What it exactly does depends on the platform.
And URL separators don't change when moving from platform to platform.
The module is platform independent if you know what you are doing, it'll
break your code if used unwisely. Using File::Basename for dealing with
URLs is unwise.
Abigail
--
sub _'_{$_'_=~s/$a/$_/}map{$$_=$Z++}Y,a..z,A..X;*{($_::_=sprintf+q=%X==>"$A$Y".
"$b$r$T$u")=~s~0~O~g;map+_::_,U=>T=>L=>$Z;$_::_}=*_;sub _{print+/.*::(.*)/s}
*_'_=*{chr($b*$e)};*__=*{chr(1<<$e)};
_::_(r(e(k(c(a(H(__(l(r(e(P(__(r(e(h(t(o(n(a(__(t(us(J())))))))))))))))))))))))
-----------== 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: Sat, 26 Jun 1999 23:52:43 GMT
From: Marco Lucio <marco_lucio@hotmail.com>
Subject: dynamic loading
Message-Id: <7l3p49$a3q$1@nnrp1.deja.com>
Hi,
Do anyone knows, how can I know if my plataform and my compiler
supports dynamic loading.
I have digital unix version 4.0F, and a CC compiler, running in an
ALPHA.
Thanks in advance,
Marco Lucio.
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: 26 Jun 1999 19:29:53 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: FAQs and attitudes (was Re: How can I read a whole file in one go ?)
Message-Id: <slrn7nas3k.npo.abigail@alexandra.delanet.com>
Ronald J Kimball (rjk@linguist.dartmouth.edu) wrote on MMCXXV September
MCMXCIII in <URL:news:1dtz56o.8nrb0v1vj76rrN@p41.tc2.metro.ma.tiac.com>:
() Tom Christiansen <tchrist@mox.perl.com> wrote:
()
() > % man perlfaq5
() >
()
() > This tiny but expedient solution is neat, clean, and portable to
() > all systems that you've bothered to install decent tools on,
() > even if you are a Prisoner of Bill. For those die-hards PoBs
() > who've paid their billtax and refuse to use the toolbox, or who
() > like writing complicated code for job security, you can of
() > course read the file manually.
() >
()
() I hope that this is Tom's own private copy of the FAQs, and that terms
() such as "Prisoner of Bill" and "billtax" are not actually present in
() Perl's standard documentation, where they would be entirely
() inappropriate.
$ cd ~/Src/perl5.005_57/pod
$ cat *.pod | grep -ci 'billtax'
1
$ cat *.pod | grep -ci 'prisoner of bill'
1
$
Abigail
--
perl -wlne '}print$.;{' file # Count the number of lines.
-----------== 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: 26 Jun 1999 19:47:29 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: Index of an array-item
Message-Id: <slrn7nat4j.npo.abigail@alexandra.delanet.com>
Tom Christiansen (tchrist@mox.perl.com) wrote on MMCXXV September
MCMXCIII in <URL:news:37752380@cs.colorado.edu>:
.. [courtesy cc of this posting mailed to cited author]
..
.. In comp.lang.perl.misc, lr@hpl.hp.com (Larry Rosler) writes:
.. :Cursed to torture myself and others with MicroPlanet Gravity v2.11
..
.. :I wonder why you think that this FAQ is responsive to the particular
.. :question. Where in the array is not the same as whether in the array.
..
.. It does not seem all that different to me.
..
.. Here's the issue: as soon as you say the word "search" in conjunction
.. with either "list" or "array", you're setting yourself up for trouble.
.. Arrays are for ordering. Hashes are for searching. Going the other
.. way is possible, but suboptimal.
Says who? Talking about how efficient datastructures are, without taking
into account how they are created, or how often searches are performed
doesn't make sense. I might get an array from reading over a socket.
I might want to search the result of readdir(), which isn't a hash but
a list. I might be interested in the content of @ARGV. Or perhaps the
order is very important - something hashes don't give me. Unless I want
to search many times, only fools will build a hash first.
.. it's certainly easy enough to ask for the i'th line. But when you want
.. to know what value of i has "fred" stored at it, you're in big trouble.
.. So you get stuck using a linear (cf line, linear) search algorithm rather
.. than one of constant order.
..
.. The obvious thing to do is of course:
..
.. while (<>) {
.. chomp;
.. $line[$.] = $_;
.. $data{$_} = $.;
.. }
And building a second datastructure that's at best build in linear time
(but takes super linear time when unlucky) beats a linear search algorithm
because of?
Abigail
--
srand 123456;$-=rand$_--=>@[[$-,$_]=@[[$_,$-]for(reverse+1..(@[=split
//=>"IGrACVGQ\x02GJCWVhP\x02PL\x02jNMP"));print+(map{$_^q^"^}@[),"\n"
-----------== 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: 26 Jun 1999 18:58:00 -0700
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: Index of an array-item
Message-Id: <37757718@cs.colorado.edu>
[courtesy cc of this posting mailed to cited author]
In comp.lang.perl.misc abigail@delanet.com scribit:
;.. Arrays are for ordering. Hashes are for searching. Going the other
;.. way is possible, but suboptimal.
;Says who?
Says someone who is trying to give simple rules that make sense
to most people most of the time.
;Talking about how efficient datastructures are, without taking
;into account how they are created, or how often searches are performed
;doesn't make sense.
I don't know that it's necessary to couch every posting with "just in
cases" or "oh by the ways". And I don't always have time to write a
brand spanking new FMTEYEWTK for each and every question -- especially
when I'm having too much fun honing my Latin, rewriting Romantic poetry,
learning new fugues, and climbing snow-covered mountains. It is, after
all, summer, and a modicum of tomfoolery is to be tolerated if not in
fact expected.
However, I have no dispute with your essential points, and invite you
to write a lengthy treatise exploring in laborious detail the trade-offs
associated with the application of essential Perl data structures in such
situations as you have alluded to above. Iambic pentameter is completely
optional.
;And building a second datastructure that's at best build in linear time
;(but takes super linear time when unlucky) beats a linear search algorithm
;because of?
Build once, search many.
--tom
--
"Yes, you can think of almost everything as a function, but this may upset
your wife." --Larry Wall
------------------------------
Date: 26 Jun 1999 18:43:18 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: Neet Perl Obfucation Program
Message-Id: <slrn7napc9.npo.abigail@alexandra.delanet.com>
Rick Johnson (firespring@nfx.net) wrote on MMCXXV September MCMXCIII in
<URL:news:37749269.25EE78AD@nfx.net>:
{} So where can one find an example of a GOOD license?
Please put your followups in context with the quotations. Or do you
prefer to see the summary of last weeks episode after this weeks one
as well? Now, I cannot figure out what the context of the question
is, so I leave it unaswered.
[30 line quoted text, including signature and advertisement deleted]
Abigail
--
%0=map{reverse+chop,$_}ABC,ACB,BAC,BCA,CAB,CBA;$_=shift().AC;1while+s/(\d+)((.)
(.))/($0=$1-1)?"$0$3$0{$2}1$2$0$0{$2}$4":"$3 => $4\n"/xeg;print#Towers of Hanoi
-----------== 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: 26 Jun 1999 19:54:37 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: rename dose not work
Message-Id: <slrn7nati2.npo.abigail@alexandra.delanet.com>
vitanut@my-deja.com (vitanut@my-deja.com) wrote on MMCXXV September
MCMXCIII in <URL:news:7l1gch$mar$1@nnrp1.deja.com>:
@@
@@ rename("/usr/www/vitanut/old.txt","/usr/www/vitanut/new.txt");
@@
@@ Why doesn't the above code work?
Because you have a semicolon after the closing paren!
Abigail
--
perl -we 'print split /(?=(.*))/s => "Just another Perl Hacker\n";'
-----------== 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: 26 Jun 1999 18:25:00 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: Statistics for comp.lang.perl.misc
Message-Id: <slrn7naoa0.npo.abigail@alexandra.delanet.com>
Bart Lateur (bart.lateur@skynet.be) wrote on MMCXXII September MCMXCIII
in <URL:news:3770f544.1738101@news.skynet.be>:
`` Abigail wrote:
``
`` >() >I don't think FAQs are
`` >() >original content, but Gregs little program thinks they are.
``
`` >Oh, I wasn't thinking about TomC. I was thinking about the people TomC
`` >replies to.
``
`` ??? You mean people typing in a question from scratch, that happens to
`` be a FAQ, is not original content, but a post by somebody who drags in a
`` lot of precanned text IS original?
That's not what I said, was it?
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=>$r=-2449231+gm_julian_day+time);do{until($r<$#r){$_.=$r[$#r];$r-=$#r}for(;
!$r[--$#r];){}}while$r;$,="\x20";print+$_=>September=>MCMXCIII=>()'
-----------== 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: 26 Jun 1999 23:21:20 -0000
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: Unlink == delete files? Why (on earth) is it called unlink?
Message-Id: <7l3n9g$51h$1@gellyfish.btinternet.com>
On Sat, 26 Jun 1999 14:34:31 -0700 Ook! wrote:
> In article <37752DDB.5D596676@falukuriren.se>, Mats Pettersson
> <mats.pettersson@falukuriren.se> wrote:
>
> ->After searching for a built in file-delete function in despair, i was
> ->surprised (although i probably shouldn't be) to find it in 'unlink'.
> ->
> ->Why such an unlogical name? Does it really delete files (as freeing up
> ->disk space), or am i missing something of great importance here?
>
> Consider it an artifact of the Unix (File System) heritage of Perl. It (is
> in the mind of the clique that writes adequate books for O'Reilly and) was
> used as a tool by Unix system admistrators to automate repetitive tasks
> that were not easily performed with the current set of tools at hand, such
> as the various GNU application programs, vi, awk, sed, and the Bourne and
> C shells.
A) That is artefact
B) none of vi, awk, sed, and the Bourne and C shells have anything to do
with GNU.
C) What do *you* consider the Unix filesystem - choose one ...
No-one is forcing you to use Perl are they - go home and do VBScript ...
/J\
--
Jonathan Stowe <jns@gellyfish.com>
Some of your questions answered:
<URL:http://www.btinternet.com/~gellyfish/resources/wwwfaq.htm>
Hastings: <URL:http://www.newhoo.com/Regional/UK/England/East_Sussex/Hastings>
------------------------------
Date: 12 Dec 98 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Special: Digest Administrivia (Last modified: 12 Dec 98)
Message-Id: <null>
Administrivia:
Well, after 6 months, here's the answer to the quiz: what do we do about
comp.lang.perl.moderated. Answer: nothing.
]From: Russ Allbery <rra@stanford.edu>
]Date: 21 Sep 1998 19:53:43 -0700
]Subject: comp.lang.perl.moderated available via e-mail
]
]It is possible to subscribe to comp.lang.perl.moderated as a mailing list.
]To do so, send mail to majordomo@eyrie.org with "subscribe clpm" in the
]body. Majordomo will then send you instructions on how to confirm your
]subscription. This is provided as a general service for those people who
]cannot receive the newsgroup for whatever reason or who just prefer to
]receive messages via e-mail.
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 V8 Issue 6139
**************************************
