[25045] in Perl-Users-Digest
Perl-Users Digest, Issue: 7295 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sun Oct 24 11:05:50 2004
Date: Sun, 24 Oct 2004 08: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 Sun, 24 Oct 2004 Volume: 10 Number: 7295
Today's topics:
array parameters <dmw@nospam.unete.cl>
Re: array parameters <usa1@llenroc.ude.invalid>
Re: arrays of arrays question <spamtrap@dot-app.org>
copying files (yaduraj)
Re: copying files <steffen@konzeptloses.de>
Re: copying files <usa1@llenroc.ude.invalid>
Re: copying files <usa1@llenroc.ude.invalid>
Re: copying files (Peter J. Acklam)
Re: copying files <postmaster@localhost.localdomain>
FAQ 4.13: How do I find the current century or millenni <comdog@panix.com>
FAQ 5.15: Is there a leak/bug in glob()? <comdog@panix.com>
FAQ 5.22: How do I randomly update a binary file? <comdog@panix.com>
FAQ 5.34: Why doesn't glob("*.*") get all the files? <comdog@panix.com>
Re: Fast random string generation (Peter J. Acklam)
Re: Is there any way to call a function w/in an RE (Anno Siegel)
Re: open-perl-ide qustion (Bryan Williams)
Re: open-perl-ide qustion <catcher@linuxmail.org>
Re: perl to english <richard.kofler@chello.at>
Re: Practical Extraction Recording Language (Anno Siegel)
Re: Practical Extraction Recording Language <tintin@invalid.invalid>
Re: Practical Extraction Recording Language <richard@zync.co.uk>
Re: Practical Extraction Recording Language <usa1@llenroc.ude.invalid>
Re: Practical Extraction Recording Language <uri@stemsystems.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 24 Oct 2004 10:40:00 -0300
From: Daniel Molina Wegener <dmw@nospam.unete.cl>
Subject: array parameters
Message-Id: <417bb0b0@omega.ifxnw.cl>
Keywords: array parameters sub reference
Hello,
I have a trouble passing multiple array parameters in
Perl 5. I handle parameters using @_, but I can't handle
multiple array parameters using @_.
sub mysub {
my ($arg1, @arg2, @arg3) = @_;
# do something with args...
}
Then I can't handle @arg2 and @arg3, because Perl 5
does not takes @arg2 and @arg3 as one array. Any other way
to handle array parameters?. Any way to pass by reference
any parameter in subs?.
Regards...
--
| Daniel Molina Wegener <dmw at unete dot cl>
| Developer | FreeBSD Power-User
| "tres tristes triggers"
------------------------------
Date: 24 Oct 2004 14:07:40 GMT
From: "A. Sinan Unur" <usa1@llenroc.ude.invalid>
Subject: Re: array parameters
Message-Id: <Xns958C6706E7509asu1cornelledu@132.236.56.8>
Daniel Molina Wegener <dmw@nospam.unete.cl> wrote in
news:417bb0b0@omega.ifxnw.cl:
> Hello,
>
> I have a trouble passing multiple array parameters in
> Perl 5. I handle parameters using @_, but I can't handle
> multiple array parameters using @_.
>
> sub mysub {
> my ($arg1, @arg2, @arg3) = @_;
> # do something with args...
> }
>
> Then I can't handle @arg2 and @arg3,
...
> Any way to pass by reference any parameter in subs?.
Interestingly enough, perldoc perlsub has a section titled "Pass by
Reference".
Sinan.
------------------------------
Date: Sun, 24 Oct 2004 03:49:05 -0400
From: Sherm Pendley <spamtrap@dot-app.org>
Subject: Re: arrays of arrays question
Message-Id: <ObWdnURW8dfsw-bcRVn-og@adelphia.com>
daniel kaplan wrote:
> ok, i have been thru perlfaq4 (i believe four) and my manuals aren't helping
They only help if you read them. Look at the list of available docs with
"perldoc perl". Look in the tutorials section near the top. What is the
name of the third tutorial listed there?
I've been very patient and tried to help you, but I'm reaching my limit.
You need to start making *some* effort to help yourself.
sherm--
--
Cocoa programming in Perl: http://camelbones.sourceforge.net
Hire me! My resume: http://www.dot-app.org
------------------------------
Date: 24 Oct 2004 03:42:01 -0700
From: yadurajj@yahoo.com (yaduraj)
Subject: copying files
Message-Id: <3668515b.0410240242.998b3ee@posting.google.com>
I have a simple question,pardon me..
if I have to copy a file, I can use something like this:
copy ("$DIR/test.c" ,"$INP_DIR/");
this copies test.c from one location to another..but
if i have to copy all the files with .c extension like, what is the
method to this...
can i not use *.c in some way..
please help me on this..
thanks in advance
------------------------------
Date: Sun, 24 Oct 2004 13:53:48 +0200
From: "Steffen G." <steffen@konzeptloses.de>
Subject: Re: copying files
Message-Id: <2u1je2F22vke9U1@uni-berlin.de>
yaduraj wrote:
> [...]
> if i have to copy all the files with .c extension like, what is the
> method to this...
> can i not use *.c in some way..
> please help me on this..
>
> thanks in advance
Try this:
~~~
my $source='source'; # insert the source path (without trailing /)
my $target='target'; # insert the target path
my $select='^.*\.c$'; # this is the RegExpr equivalent to "*.c"
opendir(DIR,$source);
my @strings=readdir(DIR);
closedir(DIR);
map { system("cp $source/$_ $target") } grep(/$select/,@strings);
~~~
I'm afraid it's not the easiest solution, but it works fine ;)
HTH
Steffen
------------------------------
Date: 24 Oct 2004 13:06:42 GMT
From: "A. Sinan Unur" <usa1@llenroc.ude.invalid>
Subject: Re: copying files
Message-Id: <Xns958C5CB00772asu1cornelledu@132.236.56.8>
"Steffen G." <steffen@konzeptloses.de> wrote in news:2u1je2F22vke9U1@uni-
berlin.de:
> yaduraj wrote:
>
>> [...]
>> if i have to copy all the files with .c extension like, what is the
>> method to this...
...
> my $source='source'; # insert the source path (without trailing /)
> my $target='target'; # insert the target path
> my $select='^.*\.c$'; # this is the RegExpr equivalent to "*.c"
>
> opendir(DIR,$source);
> my @strings=readdir(DIR);
> closedir(DIR);
>
> map { system("cp $source/$_ $target") } grep(/$select/,@strings);
There isn't much of a point to going through all of that if all you are
going to do is call system and not even check it's return value.
cp is not generally available on Win32 systems.
If you are going to go that route, why not just use:
system('cp', "$source/*.c", $target) == 0
or die "System failed: $?;
If there are a lot of entries in the directory, building the @strings array
can be expensive.
Here is one way to do it in a more portable way (other alternatives include
using File::Find, File::Finder or File::Find:Rule).
#! perl
use strict;
use warnings;
use File::Copy;
use File::Spec::Functions qw/catfile/;
my $source_dir = catfile 'D:', 'Home', 'Dload';
my $target_dir = catfile $source_dir, 'Jpeg';
opendir my $dir, $source_dir
or die "Cannot open directory $source_dir: $!";
while(defined (my $f = readdir $dir)) {
next unless $f =~ /.+\.jpg$/i;
my $target = catfile $target_dir, $f;
if(-e $target) {
# maybe ask the user if it is OK to overwrite?
}
my $source = catfile $source_dir, $f;
next unless -f $source;
if(copy $source, $target) {
print "$source copied to $target\n";
} else {
print STDERR "Failed to copy $source to $target\n";
}
}
closedir $dir or die "Cannot close directory: $!";
__END__
Sinan.
------------------------------
Date: 24 Oct 2004 13:10:29 GMT
From: "A. Sinan Unur" <usa1@llenroc.ude.invalid>
Subject: Re: copying files
Message-Id: <Xns958C5D54C131Easu1cornelledu@132.236.56.8>
"A. Sinan Unur" <usa1@llenroc.ude.invalid> wrote in
news:Xns958C5CB00772asu1cornelledu@132.236.56.8:
> "Steffen G." <steffen@konzeptloses.de> wrote in
> news:2u1je2F22vke9U1@uni- berlin.de:
>> map { system("cp $source/$_ $target") } grep(/$select/,@strings);
...
> If you are going to go that route, why not just use:
>
> system('cp', "$source/*.c", $target) == 0
> or die "System failed: $?;
Ooops, sorry for the typo above.
Sinan.
------------------------------
Date: Sun, 24 Oct 2004 15:42:37 +0200
From: pjacklam@online.no (Peter J. Acklam)
Subject: Re: copying files
Message-Id: <fz44kzaq.fsf@online.no>
yadurajj@yahoo.com (yaduraj) wrote:
> I have a simple question,pardon me..
>
> if I have to copy a file, I can use something like this:
>
> copy ("$DIR/test.c" ,"$INP_DIR/");
>
> this copies test.c from one location to another..but if i have
> to copy all the files with .c extension like, what is the method
> to this... can i not use *.c in some way..
Some thing like this (untested). You get the idea. You can also
get the files with opendir(), readdir(), grep(), and closedir().
for my $file (glob "$DIR/*.c") {
copy ($file ,"$INP_DIR/")
or die "$0: $file: copy failed: $!";
}
Peter
--
#!/local/bin/perl5 -wp -*- mode: cperl; coding: iso-8859-1; -*-
# matlab comment stripper (strips comments from Matlab m-files)
s/^((?:(?:[])}\w.]'+|[^'%])+|'[^'\n]*(?:''[^'\n]*)*')*).*/$1/x;
------------------------------
Date: Sun, 24 Oct 2004 14:59:34 +0100
From: bengee <postmaster@localhost.localdomain>
Subject: Re: copying files
Message-Id: <417bb526$0$43609$ed2e19e4@ptn-nntp-reader04.plus.net>
yaduraj wrote:
> I have a simple question,pardon me..
>
> if I have to copy a file, I can use something like this:
>
> copy ("$DIR/test.c" ,"$INP_DIR/");
>
> this copies test.c from one location to another..but
> if i have to copy all the files with .c extension like, what is the
> method to this...
> can i not use *.c in some way..
> please help me on this..
>
> thanks in advance
foreach (glob('dir/*.c')) {
copy($_, 'inp_dir') || die("Can't copy file $_");
}
HTH
bengee
------------------------------
Date: Sun, 24 Oct 2004 04:03:05 +0000 (UTC)
From: PerlFAQ Server <comdog@panix.com>
Subject: FAQ 4.13: How do I find the current century or millennium?
Message-Id: <clf9hp$ev7$1@reader1.panix.com>
This message is one of several periodic postings to comp.lang.perl.misc
intended to make it easier for perl programmers to find answers to
common questions. The core of this message represents an excerpt
from the documentation provided with Perl.
--------------------------------------------------------------------
4.13: How do I find the current century or millennium?
Use the following simple functions:
sub get_century {
return int((((localtime(shift || time))[5] + 1999))/100);
}
sub get_millennium {
return 1+int((((localtime(shift || time))[5] + 1899))/1000);
}
On some systems, the POSIX module's strftime() function has been
extended in a non-standard way to use a %C format, which they sometimes
claim is the "century". It isn't, because on most such systems, this is
only the first two digits of the four-digit year, and thus cannot be
used to reliably determine the current century or millennium.
--------------------------------------------------------------------
Documents such as this have been called "Answers to Frequently
Asked Questions" or FAQ for short. They represent an important
part of the Usenet tradition. They serve to reduce the volume of
redundant traffic on a news group by providing quality answers to
questions that keep coming up.
If you are some how irritated by seeing these postings you are free
to ignore them or add the sender to your killfile. If you find
errors or other problems with these postings please send corrections
or comments to the posting email address or to the maintainers as
directed in the perlfaq manual page.
Note that the FAQ text posted by this server may have been modified
from that distributed in the stable Perl release. It may have been
edited to reflect the additions, changes and corrections provided
by respondents, reviewers, and critics to previous postings of
these FAQ. Complete text of these FAQ are available on request.
The perlfaq manual page contains the following copyright notice.
AUTHOR AND COPYRIGHT
Copyright (c) 1997-2002 Tom Christiansen and Nathan
Torkington, and other contributors as noted. All rights
reserved.
This posting is provided in the hope that it will be useful but
does not represent a commitment or contract of any kind on the part
of the contributers, authors or their agents.
------------------------------
Date: Sat, 23 Oct 2004 22:03:03 +0000 (UTC)
From: PerlFAQ Server <comdog@panix.com>
Subject: FAQ 5.15: Is there a leak/bug in glob()?
Message-Id: <cleken$91h$1@reader1.panix.com>
This message is one of several periodic postings to comp.lang.perl.misc
intended to make it easier for perl programmers to find answers to
common questions. The core of this message represents an excerpt
from the documentation provided with Perl.
--------------------------------------------------------------------
5.15: Is there a leak/bug in glob()?
Due to the current implementation on some operating systems, when you
use the glob() function or its angle-bracket alias in a scalar context,
you may cause a memory leak and/or unpredictable behavior. It's best
therefore to use glob() only in list context.
--------------------------------------------------------------------
Documents such as this have been called "Answers to Frequently
Asked Questions" or FAQ for short. They represent an important
part of the Usenet tradition. They serve to reduce the volume of
redundant traffic on a news group by providing quality answers to
questions that keep coming up.
If you are some how irritated by seeing these postings you are free
to ignore them or add the sender to your killfile. If you find
errors or other problems with these postings please send corrections
or comments to the posting email address or to the maintainers as
directed in the perlfaq manual page.
Note that the FAQ text posted by this server may have been modified
from that distributed in the stable Perl release. It may have been
edited to reflect the additions, changes and corrections provided
by respondents, reviewers, and critics to previous postings of
these FAQ. Complete text of these FAQ are available on request.
The perlfaq manual page contains the following copyright notice.
AUTHOR AND COPYRIGHT
Copyright (c) 1997-2002 Tom Christiansen and Nathan
Torkington, and other contributors as noted. All rights
reserved.
This posting is provided in the hope that it will be useful but
does not represent a commitment or contract of any kind on the part
of the contributers, authors or their agents.
------------------------------
Date: Sun, 24 Oct 2004 10:03:00 +0000 (UTC)
From: PerlFAQ Server <comdog@panix.com>
Subject: FAQ 5.22: How do I randomly update a binary file?
Message-Id: <clfukk$k32$1@reader1.panix.com>
This message is one of several periodic postings to comp.lang.perl.misc
intended to make it easier for perl programmers to find answers to
common questions. The core of this message represents an excerpt
from the documentation provided with Perl.
--------------------------------------------------------------------
5.22: How do I randomly update a binary file?
If you're just trying to patch a binary, in many cases something as
simple as this works:
perl -i -pe 's{window manager}{window mangler}g' /usr/bin/emacs
However, if you have fixed sized records, then you might do something
more like this:
$RECSIZE = 220; # size of record, in bytes
$recno = 37; # which record to update
open(FH, "+<somewhere") || die "can't update somewhere: $!";
seek(FH, $recno * $RECSIZE, 0);
read(FH, $record, $RECSIZE) == $RECSIZE || die "can't read record $recno: $!";
# munge the record
seek(FH, -$RECSIZE, 1);
print FH $record;
close FH;
Locking and error checking are left as an exercise for the reader. Don't
forget them or you'll be quite sorry.
--------------------------------------------------------------------
Documents such as this have been called "Answers to Frequently
Asked Questions" or FAQ for short. They represent an important
part of the Usenet tradition. They serve to reduce the volume of
redundant traffic on a news group by providing quality answers to
questions that keep coming up.
If you are some how irritated by seeing these postings you are free
to ignore them or add the sender to your killfile. If you find
errors or other problems with these postings please send corrections
or comments to the posting email address or to the maintainers as
directed in the perlfaq manual page.
Note that the FAQ text posted by this server may have been modified
from that distributed in the stable Perl release. It may have been
edited to reflect the additions, changes and corrections provided
by respondents, reviewers, and critics to previous postings of
these FAQ. Complete text of these FAQ are available on request.
The perlfaq manual page contains the following copyright notice.
AUTHOR AND COPYRIGHT
Copyright (c) 1997-2002 Tom Christiansen and Nathan
Torkington, and other contributors as noted. All rights
reserved.
This posting is provided in the hope that it will be useful but
does not represent a commitment or contract of any kind on the part
of the contributers, authors or their agents.
------------------------------
Date: Sat, 23 Oct 2004 21:23:18 +0000 (UTC)
From: PerlFAQ Server <comdog@panix.com>
Subject: FAQ 5.34: Why doesn't glob("*.*") get all the files?
Message-Id: <clei46$8bh$1@reader1.panix.com>
This message is one of several periodic postings to comp.lang.perl.misc
intended to make it easier for perl programmers to find answers to
common questions. The core of this message represents an excerpt
from the documentation provided with Perl.
--------------------------------------------------------------------
5.34: Why doesn't glob("*.*") get all the files?
Because even on non-Unix ports, Perl's glob function follows standard
Unix globbing semantics. You'll need "glob("*")" to get all (non-hidden)
files. This makes glob() portable even to legacy systems. Your port may
include proprietary globbing functions as well. Check its documentation
for details.
--------------------------------------------------------------------
Documents such as this have been called "Answers to Frequently
Asked Questions" or FAQ for short. They represent an important
part of the Usenet tradition. They serve to reduce the volume of
redundant traffic on a news group by providing quality answers to
questions that keep coming up.
If you are some how irritated by seeing these postings you are free
to ignore them or add the sender to your killfile. If you find
errors or other problems with these postings please send corrections
or comments to the posting email address or to the maintainers as
directed in the perlfaq manual page.
Note that the FAQ text posted by this server may have been modified
from that distributed in the stable Perl release. It may have been
edited to reflect the additions, changes and corrections provided
by respondents, reviewers, and critics to previous postings of
these FAQ. Complete text of these FAQ are available on request.
The perlfaq manual page contains the following copyright notice.
AUTHOR AND COPYRIGHT
Copyright (c) 1997-2002 Tom Christiansen and Nathan
Torkington, and other contributors as noted. All rights
reserved.
This posting is provided in the hope that it will be useful but
does not represent a commitment or contract of any kind on the part
of the contributers, authors or their agents.
------------------------------
Date: Sun, 24 Oct 2004 14:50:58 +0200
From: pjacklam@online.no (Peter J. Acklam)
Subject: Re: Fast random string generation
Message-Id: <r7nol1ot.fsf@online.no>
Derek Fountain <nospam@example.com> wrote:
> I need to generate a string of random characters, say about
> 20,000 characters long. And I need to do it quickly! I tried the
> obvious:
>
> for( my $i=0; $i<20000; $i++ ) {
> $str .= chr(int(rand(256)));
> }
>
> which works, but I have a feeling there must be a faster way
> than doing 20,000 string concatenations...?
my $str = "\000" x 20_000;
my @chr = map { chr $_ } 0 .. 255;
substr $str, $_, 1, $chr[rand 256] for 1 .. 20_000;
Peter
--
#!/local/bin/perl5 -wp -*- mode: cperl; coding: iso-8859-1; -*-
# matlab comment stripper (strips comments from Matlab m-files)
s/^((?:(?:[])}\w.]'+|[^'%])+|'[^'\n]*(?:''[^'\n]*)*')*).*/$1/x;
------------------------------
Date: 24 Oct 2004 07:48:37 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: Is there any way to call a function w/in an RE
Message-Id: <clfmol$c2p$1@mamenchi.zrz.TU-Berlin.DE>
El Duce <elduce@mailinator.com> wrote in comp.lang.perl.misc:
> I would like to call a function w/in an RE. Say foo:
>
> $x =~ s/abc(.*)def/foo($1)/g;
>
> (I know that syntax doesn't work, but you hopefully get the idea).
>
> Is there a way?
Look for the /e modifier in perlop.
> TIA,
> El Duce
Hmmm?
Anno
------------------------------
Date: 24 Oct 2004 06:43:33 -0700
From: bitbucketz2002@yahoo.com (Bryan Williams)
Subject: Re: open-perl-ide qustion
Message-Id: <38a10436.0410240543.28c760b8@posting.google.com>
"daniel kaplan" <nospam@nospam.com> wrote in message news:<1098581951.537700@nntp.acecape.com>...
> > A couple of thoughts. One is that it hasn't moved since early 2003.
>
> my apologies, by moved, do you mean it hasn't been updated?
Perhaps it doesn't need to be ... it just works.
>
> started playing with it, and it does seem simplistic. however i will say
> this, i tried activestate's komodo. it was slow to load, slow to run, you
> name it.
It is vey simplistic, but that is what I want. I have tried just about
every
option under the sun and always come back to Open-Perl-IDE or vi.
>
> this one, open-perl-ide, seems semi-simplistic, but then again my PLs are as
> well...and it loads quickly, without any delay.
>
> but would love any recommendations that people might have in terms of IDE.
> i far prefer it to command line world.
I have been using Open-Perl-IDE for 2 1/2 years and am very happy with
it. I have created 2 very large enterprise pTk apps with it (over
800,000 lines) and it has fit the bill. I highly recommend it, but
this is my personal view - an IDE is a very much a personal decision.
Go try them all and see which works best for the way you work.
Cheers,
Cameron
------------------------------
Date: Sun, 24 Oct 2004 10:12:50 -0400
From: "Robert" <catcher@linuxmail.org>
Subject: Re: open-perl-ide qustion
Message-Id: <0O2dncWyaZzCJebcRVn-rg@adelphia.com>
"Matt Garrish" <matthew.garrish@sympatico.ca> wrote in message
news:oyEed.40526$J16.2367740@news20.bellglobal.com...
>
> "daniel kaplan" <nospam@nospam.com> wrote in message
> news:1098581951.537700@nntp.acecape.com...
>>
>> but would love any recommendations that people might have in terms of
>> IDE.
>> i far prefer it to command line world.
>>
>
> Beware the IDEs of March...
>
> Matt
>
Arrrgh! :-)
Robert
------------------------------
Date: Sun, 24 Oct 2004 07:53:52 GMT
From: Richard Kofler <richard.kofler@chello.at>
Subject: Re: perl to english
Message-Id: <417B5FBA.97A388A8@chello.at>
Peter Scott wrote:
>
> In article <cl6pgu$poo$2@mamenchi.zrz.TU-Berlin.DE>,
> anno4000@lublin.zrz.tu-berlin.de (Anno Siegel) writes:
> >Uri Guttman <uguttman@athenahealth.com> wrote in comp.lang.perl.misc:
> >> logical flow descriptions and only perl is good for program poetry!
> >
> >Oh, come on. There must be some Cobol poetry. Something long
> >and impenetrable, in hexameter...
>
> There is the classic COBOL version of Goldilocks and the
> Three Bears, which I was introduced to over 20 years ago...
>
make that 30 years ago - I am not this young anymore :)
dic_k
--
Richard Kofler
SOLID STATE EDV
Dienstleistungen GmbH
Vienna/Austria/Europe
------------------------------
Date: 24 Oct 2004 08:12:50 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: Practical Extraction Recording Language
Message-Id: <clfo62$d2l$1@mamenchi.zrz.TU-Berlin.DE>
Ala Qumsieh <notvalid@email.com> wrote in comp.lang.perl.misc:
> Uri Guttman wrote:
>
> >>>>>>"ASU" == A Sinan Unur <usa1@llenroc.ude.invalid> writes:
> >
> >
> > ASU> Just for laughs:
> > ASU> http://www.unc.edu/~husted/Work/PerlReference.htm#anchor8
>
> [snip valid critique]
>
> > this page is mind boggling. if someone can find an email address, feel
> > free to forward my critique.
>
> I'm totally surprised you actually went through the whole page! I just
> couldn't go on after the first few paragraphs. Things like this should
> be illegal!
What I find fascinating is how the author combines incompetence with
the tone of authority. The young woman ("Lindsay Husted, presently an
undergraduate...") obviously writes about things she doesn't understand.
But no sign of insecurity enters the writing even at its most nonsensical.
At some point, incompetence impairs a person's ability to perceive it.
Anno
------------------------------
Date: Sun, 24 Oct 2004 21:52:07 +1300
From: "Tintin" <tintin@invalid.invalid>
Subject: Re: Practical Extraction Recording Language
Message-Id: <2u18nhF250cdrU1@uni-berlin.de>
"Uri Guttman" <uri@stemsystems.com> wrote in message
news:x7wtxgbq7q.fsf@mail.sysarch.com...
> Lindsay Husted, presently an undergraduate at the University of
> North Carolina and an NSF appointee, built this site.
>
> the last modified time is:
>
> 06/16/04 15:20:44
>
> this page is mind boggling. if someone can find an email address, feel
> free to forward my critique.
See http://www.unc.edu/~husted/Contactme.htm
------------------------------
Date: Sun, 24 Oct 2004 09:30:40 GMT
From: Octo Mancer <richard@zync.co.uk>
Subject: Re: Practical Extraction Recording Language
Message-Id: <pan.2004.10.24.09.25.35.898903@zync.co.uk>
On Sun, 24 Oct 2004 08:12:50 +0000, Anno Siegel wrote:
> What I find fascinating is how the author combines incompetence with
> the tone of authority. The young woman ("Lindsay Husted, presently an
> undergraduate...") obviously writes about things she doesn't understand.
> But no sign of insecurity enters the writing even at its most nonsensical.
I agree. There is never any hint in the writing that the author knows they
are creating the most dangerous kind of instruction - half truth mixed
with complete tosh (reminiscent of some religious texts).
My personal favourite:
"It uses a combination of shell, awk, sed, grep, and C languages. It was
created by Larry Wall and is a GNU product, which means it is FREE."
I challenge anyone to cram so many fallacies into so few words!!! This
sentence caused me to think the whole page was intentional comedy, but by
the end of the next section the horrible truth had dawned.
R
------------------------------
Date: 24 Oct 2004 12:15:49 GMT
From: "A. Sinan Unur" <usa1@llenroc.ude.invalid>
Subject: Re: Practical Extraction Recording Language
Message-Id: <Xns958C54100667Casu1cornelledu@132.236.56.8>
anno4000@lublin.zrz.tu-berlin.de (Anno Siegel) wrote in
news:clfo62$d2l$1@mamenchi.zrz.TU-Berlin.DE:
> At some point, incompetence impairs a person's ability to perceive it.
Speaking of which: http://www.apa.org/journals/psp/psp7761121.html
Sinan.
------------------------------
Date: Sun, 24 Oct 2004 14:43:17 GMT
From: Uri Guttman <uri@stemsystems.com>
Subject: Re: Practical Extraction Recording Language
Message-Id: <x7mzyc6uvr.fsf@mail.sysarch.com>
>>>>> "AS" == Anno Siegel <anno4000@lublin.zrz.tu-berlin.de> writes:
AS> What I find fascinating is how the author combines incompetence
AS> with the tone of authority. The young woman ("Lindsay Husted,
AS> presently an undergraduate...") obviously writes about things she
AS> doesn't understand. But no sign of insecurity enters the writing
AS> even at its most nonsensical.
AS> At some point, incompetence impairs a person's ability to perceive it.
i did find a page of contacts for the 'leaders' of this 'revitalize'
program and sent an email to the one from her school. i eagerly await an
answer (got a vacation reply so it is valid!). that this was funded by
the NSF was the biggest insult. they should just pour money into TPF
instead.
and as someone else said this is about the worst perl tute i have ever
seen. it is so wrong in so many ways. we should keep an archive copy
around before the author deletes it (now that is has been discovered by
the real perl community and ridiculed).
uri
--
Uri Guttman ------ uri@stemsystems.com -------- http://www.stemsystems.com
--Perl Consulting, Stem Development, Systems Architecture, Design and Coding-
Search or Offer Perl Jobs ---------------------------- http://jobs.perl.org
------------------------------
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 7295
***************************************
