[16925] in Perl-Users-Digest
Perl-Users Digest, Issue: 4337 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Sep 15 18:06:46 2000
Date: Fri, 15 Sep 2000 15:05:21 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Message-Id: <969055521-v9-i4337@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Fri, 15 Sep 2000 Volume: 9 Number: 4337
Today's topics:
Re: [Newbie]File::Find question <abe@ztreet.demon.nl>
Re: [Query] Any way to affect results of a match with a <tim@ipac.caltech.edu>
Re: a pesky regex -- any ideas? <rdice@pobox.com>
Re: binmode(): How is OS related with "\n"? <lr@hpl.hp.com>
Re: binmode(): How is OS related with "\n"? (Tim Hammerquist)
Re: binmode(): How is OS related with "\n"? <flavell@mail.cern.ch>
Re: Changing the filename for reporting compile errors (Mark-Jason Dominus)
Re: Generating Random Password in Perl <radek@no-spam.karnet.pl>
Re: Getting started w/ Perl <bart.lateur@skynet.be>
help - error: Can't locate loadable object for module. <zigouras@mail.med.upenn.edu>
HELP?? Perl script is not recognized in win98 ?? <csc4aal@erols.com>
Re: HELP?? Perl script is not recognized in win98 ?? <eric.kort@vai.org>
Re: kill a process in Win32 <r_hou@yahoo.com>
Mail::Mailer the Only Way? rathmore@tierceron.com
Re: Newbe question michaeljgardner@my-deja.com
Re: Newbie - Should I learn Perl or Javascript (Tim Hammerquist)
Re: obfuscator or compiler (Tim Hammerquist)
Re: obfuscator or compiler <yanick@babyl.sympatico.ca>
Re: obfuscator or compiler <yanick@babyl.sympatico.ca>
Re: obfuscator or compiler <lr@hpl.hp.com>
Re: obfuscator or compiler <flavell@mail.cern.ch>
Re: obfuscator or compiler <yanick@babyl.sympatico.ca>
Re: obfuscator or compiler <yanick@babyl.sympatico.ca>
Re: Password protecting a script (Abigail)
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Fri, 15 Sep 2000 20:14:50 +0200
From: Abe Timmerman <abe@ztreet.demon.nl>
Subject: Re: [Newbie]File::Find question
Message-Id: <0ro4ssse7ikf5qre6s9ipa2o7fjnk0dtr5@4ax.com>
On 13 Sep 2000 20:54:44 GMT, skbrown@vcd.hp.com (Steve K. Brown) wrote:
> I am trying to use File::Find to seach for files in a directory structure. I am starting from a
> directory and most of the subdirectories are two and three deep. I have read and reread
> the File::Find instructions and can not find my answer there. I have also tried reading
> the FAQ's and I have not been able to find an answer to my question. So please help me!
>
> There are 439 files to find. They are in random order.
> My code is as follows:
...
> Where:
> $vss is the starting directory
> %Crc is the list of file names for which I want to find the path.
>
> As you can see I am sending the find subroutine one file name at a time. The problem
> is that only the first two files are found and then the rest can not be found. The error
> message reads: "Can't stat FILENAME: No such file or directory" In the
> instructions when the find subroutine is called there is a chdir to the found
> directory. Why is it that I can not chdir back to the source directory in between
> calls to the find subroutine? What changes would you suggest to make my code work the
> way I want it to work?
I think you are going about this the wrong way around. File::Find will
traverse the directory tree starting at a given directory and pass all
directory entries to the 'wanted()' sub. As the documentation for
File::Find will also tell you, it chdir()s into any directory it
encounters (and relies on the fact that you leave it there when you
return from the wanted() sub).
My test program sets up a hash (%to_find) with the filenames from your
%Crc hash as keys. Every directory entry that is passed to the wanted()
sub is checked for its fileness and existence as a key in the hash, if
so, the full path ($File::Find::name) is pushed onto an array in the
hash. This allows for more than one occurrence of the same name in
different directories.
#!/usr/bin/perl -w
use strict;
use File::Find;
my $vss = './';
#files to find
my %Crc = (
1 => 'ffind01.pl',
2 => 'test.txt',
3 => 'Foo.pm',
4 => 'not_to_be_found',
);
my %to_find;
@to_find{ values %Crc } = ();
find(\&wanted, $vss);
print "Found:\n", map "\t$_\n" => map @$_ => grep $_ => values %to_find;
print "Not found:\n", map "\t$_\n" => grep !$to_find{$_} => keys
%to_find;
sub wanted {
push @{ $to_find{$_} }, $File::Find::name
if -f && exists $to_find{$_};
}
__END__
--
Good luck,
Abe
##
perl -Mstrict -wle 'sub Just{&$_}sub another{&$_}sub Perl{&$_}sub hacker{&$_}$_=sub{(split /::/,(caller $^W)[3])[-$^W].$"};print@{[Just,another,Perl,hacker]}'
------------------------------
Date: Fri, 15 Sep 2000 11:58:46 -0700
From: Tim Conrow <tim@ipac.caltech.edu>
Subject: Re: [Query] Any way to affect results of a match with an internal eval?
Message-Id: <39C27166.97A8F9B7@ipac.caltech.edu>
"William C. Ray" wrote:
>
> What I want to do is to be able to attach code to a
> regex match such that the results of evaluation of the code
> affect whether a particular match is valid. Additionally, the
> code portion needs to be able to work on values that are being
> extracted by other portions of the regex. ...
> If it were possible to attach code to
> a regex such that it affected the match, one could write a
> regex something like /(.+)=(.+)(?{compare(\1,\2)})/
You're very close. Now, mind you, I don't really understand all these gosh darn
new fangled regex semantics, but this seems to work:
use re "eval";
print $ARGV[0] =~ m@(\d+)\s*([+*%-])\s*(\d+)\s*=\s*(??{eval "$1 $2 $3"})@ ?
"yup" : "nope";
Try with params like
"3 + 5 = 12"
"3 + 5 = 8"
"8 * 9 = 72"
--
-- Tim Conrow tim@ipac.caltech.edu |
------------------------------
Date: Fri, 15 Sep 2000 21:58:19 GMT
From: Richard Dice <rdice@pobox.com>
Subject: Re: a pesky regex -- any ideas?
Message-Id: <39C29B4E.F391C104@pobox.com>
> First, you should set $*=1 for multi-line matching
Or use //m, which is the prefered "modern" method for doing it.
> Then why don't you just do this
>
> $header =~ /\nTo: (*)\nCc/
Sorry... I didn't generalize enough in my example. It's not guaranteed
that "Cc" is the next header attribute in the list.
Cheers,
Richard
--
----------------------------------------------------------------------------
Richard Dice * Personal 514 816 9568 * Fax 514 816 9569
ShadNet Creator * http://shadnet.shad.ca/ * rdice@shadnet.shad.ca
Occasional Writer, HotWired * http://www.hotwired.com/webmonkey/
"squeeze the world 'til it's small enough to join us heel to toe"
- jesus jones
------------------------------
Date: Fri, 15 Sep 2000 11:06:11 -0700
From: Larry Rosler <lr@hpl.hp.com>
Subject: Re: binmode(): How is OS related with "\n"?
Message-Id: <MPG.142c04efdea8f2598ad75@nntp.hpl.hp.com>
In article <slrn8s4ob3.jp.tim@degree.ath.cx> on Fri, 15 Sep 2000
17:37:30 GMT, Tim Hammerquist <tim@degree.ath.cx> says...
...
> In OSs that don't distinguish between text and binary, it doesn't matter
> at all if you binmode them anyway. Therefore, some consider it a
> precaution to routinely binmode all open files.
'routinely binmode ALL open files'? Huh?
You must not binmode text files, only binary files (hence the function
name :-). The application program must know the category of the file,
or must try to deduce it (see `perldoc -f -X` for -B and -T, which are
heuristic attempts).
--
(Just Another Larry) Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Fri, 15 Sep 2000 18:18:30 GMT
From: tim@degree.ath.cx (Tim Hammerquist)
Subject: Re: binmode(): How is OS related with "\n"?
Message-Id: <slrn8s4qnv.jp.tim@degree.ath.cx>
Larry Rosler <lr@hpl.hp.com> wrote:
> Tim Hammerquist <tim@degree.ath.cx> says...
> > In OSs that don't distinguish between text and binary, it doesn't matter
> > at all if you binmode them anyway.
From `perldoc -f binmode`:
: Fortunately for most of us, you can't go wrong using binmode() on systems
: that don't care about it, though.
> You must not binmode text files, only binary files (hence the function
> name :-). The application program must know the category of the file,
> or must try to deduce it (see `perldoc -f -X` for -B and -T, which are
> heuristic attempts).
> > Therefore, some consider it a
> > precaution to routinely binmode all open files.
It's apparently inaccurate to say "all" open files. However, we know
*nix won't care one way or another because of the perldoc quote above.
To sum up: if it's a binary file, a common guideline is to binmode it,
regardless of whether the current OS distinguishes. It may be ported to
another platform which _does_ care.
I think that's what I was trying to say.
--
-Tim Hammerquist <timmy@cpan.org>
Familiarity breeds contempt -- and children.
-- Mark Twain
------------------------------
Date: Fri, 15 Sep 2000 21:43:26 +0200
From: "Alan J. Flavell" <flavell@mail.cern.ch>
Subject: Re: binmode(): How is OS related with "\n"?
Message-Id: <Pine.GHP.4.21.0009152141170.1816-100000@hpplus03.cern.ch>
On Fri, 15 Sep 2000, Tim Hammerquist wrote:
> It's apparently inaccurate to say "all" open files.
Of course it is. Otherwise it could be the default.
> To sum up: if it's a binary file, a common guideline is to binmode it,
But how does a newbie know what a "binary file" is? Perhaps it would
be slightly more helpful to say "if it's not a text file", or else
we'd need to explain in more detail what we mean. (Well they should
go and read the relevant part of perlport, in the end).
> regardless of whether the current OS distinguishes. It may be ported to
> another platform which _does_ care.
Quite. Looks good advice now.
cheers
------------------------------
Date: Fri, 15 Sep 2000 16:40:08 GMT
From: mjd@plover.com (Mark-Jason Dominus)
Subject: Re: Changing the filename for reporting compile errors
Message-Id: <39c250e5.72b6$1ee@news.op.net>
In article <39BF86DF.FBDC89FF@flash.net>,
Thom Harp <thomharp@flash.net> wrote:
> do '/tmp/file.pl';
>
>Is there a way for compile time errors to report the original filename,
>and not the /tmp one?
Perhaps something like this? It creates a child process attached to
the parent's STDERR. The parent's error messgages go into the child,
which tampers with them as appropriate and then prints them out.
defined($pid = open STDERR, "|-") or die ...;
if ($pid == 0) { # I am the filter process
while (<STDIN>) { # read parent's error messages from STDIN
s{/tmp/file.pl}{$0}g;
print STDERR;
}
exit 0;
}
... continue as before ...
Here's an alternative approach:
eval { do '/tmp/file.pl' };
if ($@) {
$err = $@;
$err =~ s{/tmp/file.pl}{$0}g;
die $err;
}
It won't catch warning messages though.
------------------------------
Date: 15 Sep 2000 19:35:49 +0200
From: Radoslaw Zielinski <radek@no-spam.karnet.pl>
Subject: Re: Generating Random Password in Perl
Message-Id: <969039345.3916@bongo.whisky.rz>
[[ J Garcia ]]:
>I am looking for any tips or any pre-written Perl code
>on how to generate random passwords for users wishing
>to register. Any help on how to do that? Thanks.
my $pass = join '', ("A".."Z","a".."z",0..9)[map rand 62, 1..$length];
--
Radosław Zieliński
------------------------------
Date: Fri, 15 Sep 2000 20:02:56 GMT
From: Bart Lateur <bart.lateur@skynet.be>
Subject: Re: Getting started w/ Perl
Message-Id: <ipu4ss0tok4h6nsb8dquslm8rl3hd5rurh@4ax.com>
Phil wrote:
>Id really like to get into learning perl (specifically for cgi
>purposes).
>
>I dont have any programming knowledge, or knowledge of Unix. Just
>another MS Win guy here (although I'd definately consider myself
>advanced, as far as computer knowledge)
>
>So, where to get started?
I think you want a web server. And Perl. Well... you have a PC, most
likely a modern Win32 PC. Go and get IndigoPerl, which installs Perl
*and* an Apache web server at the same time.
<http://www.indigostar.com/indigoperl.htm>
In my experience, IndigoPerl is 100% compatible with ActiveState's
ActivePerl 5.6.0, which is the best known. <www.activestate.com>.
Oh, and get an editor too that can run your script and capture the
output, for examples see <www.gwdsoft.com>, <www.textpad.com>,
<http://www.lancs.ac.uk/people/cpaap/pfe/> and a few others (UltraEdit,
Zeus, VIM, ...).
>Since Perl is mainly for Unix environments, should I start with
>learning a Unix OS first?
You a masochist or something? Learn one thing at a time. Install Linux
or FreeBSD on an old PC, and play with it for a month or so. Then do ONE
of the next two, and the next much later:
* Install Apache, put in a few (old and cheap) network cards in both
your computers, and hook them up. Make a few (initially static) web
sites. Install a few scripts written by other people, and make it work.
<www.cgi-resources.com>, <http://hotwired.lycos.com/webmonkey/>
* Learn Perl at the command line.
Only when comfortable with all of the above, you're ready for Perl+CGI.
Once familiar with Perl as a language, you can do much worse than check
out Randal's WebTechniques columns:
<http://www.stonehenge.com/merlyn/WebTechniques/>
--
Bart.
------------------------------
Date: Fri, 15 Sep 2000 16:26:41 -0400
From: Nico F Zigouras <zigouras@mail.med.upenn.edu>
Subject: help - error: Can't locate loadable object for module.
Message-Id: <Pine.OSF.4.10.10009151624560.32278-100000@dolphin.upenn.edu>
I am wondering if some one can help. I just installed DBD::DB2 and got
this error:
Can't locate loadable object for module DBD::DB2::Constants in @INC (@INC
contains: /usr/local/lib/perl5/5.00503/sun4-solaris /usr/local/lib/perl5/5.00503
/usr/local/lib/perl5/site_perl/5.005/sun4-solaris
/usr/local/lib/perl5/site_perl/5.00
5 .) at /usr/local/lib/perl5/site_perl/5.005/sun4-solaris/DBD/DB2.pm line
25
BEGIN failed--compilation aborted at
/usr/local/lib/perl5/site_perl/5.005/sun4-s
olaris/DBD/DB2.pm line 25.
BEGIN failed--compilation aborted at -e line 1.
Does anyone have a suggestion as to what I could do?
Thanks in advance.
------------------------------
Date: Fri, 15 Sep 2000 16:06:01 -0400
From: "Altaf A. Ladhani" <csc4aal@erols.com>
Subject: HELP?? Perl script is not recognized in win98 ??
Message-Id: <39C28128.F963CB74@erols.com>
Readers,
I am facing a small problem. I have just installed Per 5.004 in my
win98 machine. An index.html if pointing at .pl file
<FORM METHOD="post" ACTION="c:\winshare\wwwroot\cgi-bin\quote.pl">
and quote.pl looks something like this
---------------- begin ----------------------------
#! c:\perl\bin\perl.exe
print("just testing the script\n");
---------------------------------------------------------
-------------------------- error --------------------
HTTP Error 405
405 Method Not Allowed
The method specified in the Request Line is not allowed for the resource
identified by the request. Please ensure that you have the proper
MIME type set up for the resource you are requesting.
Please contact the server's administrator if this problem persists.
---------------------------------------------------------
shows up. can someone please help me why is it doing this to me.
will appreciate all the help.
Altaf
------------------------------
Date: Fri, 15 Sep 2000 17:00:37 -0400
From: "Eric" <eric.kort@vai.org>
Subject: Re: HELP?? Perl script is not recognized in win98 ??
Message-Id: <8pu2i7$1acd$1@msunews.cl.msu.edu>
"Altaf A. Ladhani" <csc4aal@erols.com> wrote in message
news:39C28128.F963CB74@erols.com...
> Readers,
>
> I am facing a small problem. I have just installed Per 5.004 in my
> win98 machine. An index.html if pointing at .pl file
>
<<snip>>
There's your problem right there.
You can not run cgi scripts (and that is what you are trying to do, even if
it is a .pl file) locally. The script must be processed by a perl-aware web
server and the resulting html code sent to the browser. So you must set up
a web server (like personal web server--although I don't know if PWS
supports cgi scripts, or Apache), or put your script on a web server
somewhere. An example of a free web server that supports cgi is
hypermart.com.
From one newbie to another, it looks like you may want to read up on the
basics of web programming and cgi. I might recommend "CGI programming with
Perl 5" (from the "Teach yourself in a week" series). Others may have even
better resources.
hth,
Eric
------------------------------
Date: Fri, 15 Sep 2000 15:46:58 -0500
From: "robert hou" <r_hou@yahoo.com>
Subject: Re: kill a process in Win32
Message-Id: <8pu1s0$68n$1@schbbs.mot.com>
Thanks for the suggestion.
I use utility kill and tlist from the resource kit. it works quite well.
I don't understand why there are no equivalent function of "tlist" in the
win32:process module.
Robert
"Scott W. Tillman" <swtillman@west.raytheon.com> wrote in message
news:39C167EE.25F496AD@west.raytheon.com...
> According to kill.exe, you can use the task name directly:
>
> kill /?
> Microsoft (R) Windows NT (TM) Version 3.5 KILL
> Copyright (C) 1994 Microsoft Corp. All rights reserved
>
> usage: KILL [options] <<pid> | <pattern>>
>
> [options]:
> -f Force process kill
>
> <pid>
> This is the process id for the task
> to be killed. Use TLIST to get a
> valid pid
>
> <pattern>
> The pattern can be a complete task
> name or a regular expression pattern
> to use as a match. Kill matches the
> supplied pattern against the task names
> and the window titles.
>
> jason wrote:
>
> > robert hou <r_hou@yahoo.com> wrote ..
> > >I need to kill a process with known name in Windows NT. I guess I am
> > >supposed to use kill, but how do I get the PID info? In unix it's easy
to
> > >get it by using 'ps -ef'. How to do it in Win32?
> >
> > there's probably a better way of doing this .. *but* .. if you're
> > desperate there's a utility called 'tlist' which comes with the NT
> > Resource Kit .. and I know that there are also ports of the UNIX 'ps' to
> > Win32
> >
> > --
> > jason -- elephant@squirrelgroup.com --
>
------------------------------
Date: Fri, 15 Sep 2000 21:09:35 GMT
From: rathmore@tierceron.com
Subject: Mail::Mailer the Only Way?
Message-Id: <8pu35t$obu$1@nnrp1.deja.com>
Is Mail::Mailer the only way to send mail on NT without _really_
knowing your stuff?
I'm getting the following error when I run a test script that I got
from the Cookbook:
C:\Projects\Test Programs>perl -w mail_test.pl
Odd number of elements in hash assignment at
C:/Perl/lib/Mail/Mailer/smtp.pm line 13.
Invalid argument at C:/Perl/lib/Mail/Mailer.pm line 270.
Here is the script I'm using:
use Mail::Mailer;
$from_address = "rathmore\@tierceron.com";
$to_address = "wrathmolten\@hotmail.com";
$subject = "Mail Test";
$body = "This is the body. It's pretty nice, eh?\n";
$mailer = Mail::Mailer->new("smtp", "mail.tierceron.com");
$mailer->open({ From => $from_address,
To => $to_address,
Subject => $subject,
})
or die "Can't open: $!\n";
print $mailer $body;
$mailer->close();
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Fri, 15 Sep 2000 21:28:31 GMT
From: michaeljgardner@my-deja.com
Subject: Re: Newbe question
Message-Id: <8pu493$pr6$1@nnrp1.deja.com>
In article <8pt5p1$bmip$1@as121.tel.hr>,
"Silvo" <silvo.vidovic@tel.net.ba> wrote:
> How can I extract the Header and Record size of a DBF file opend in
Perl
> with
> the open statement ?
> Or, this will do it too, how to get the ASCII value of a character?
>
> Please help.
>
>
Try the following, you'll need to assign the path and filename of your
dbf to the scalar $dbfname.
$dbfname='name and path needed here'
my($fh)='dbfname';
open($fh,$dbfname);
seek($fh,0,0);
read($fh,my($line),32);
# GET FIRST LINE OF DBF AND FIND OUT RECORD COUNT, HEADERSIZE, AND
RECORD SIZE
my($records)=unpack("v4",substr($line,4,4));
my($headersize)=unpack("v2",substr($line,8,2));
my($recordsize)=unpack("v2",substr($line,10,2)),
HTH,
Michael
P.S. You mean there's someone else using dbfs?
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Fri, 15 Sep 2000 18:05:55 GMT
From: tim@degree.ath.cx (Tim Hammerquist)
Subject: Re: Newbie - Should I learn Perl or Javascript
Message-Id: <slrn8s4q0d.jp.tim@degree.ath.cx>
Jim Verzino <jimve@yahoo.com> wrote:
> I am going to spend some time learning some programming for the web. I am
> not sure if I should invest in learning perl or javascript first. I have a
> business need that would make perl a little smarter from a practicality
> perspective but that can be avoided if need be.
Learning Perl is _always_ smarter than learning JavaScript.
> I am not new to programming and know some programming languages, but those
> are a few years out of date. I do know that learning a new language is
> considerable investment though and I want to make the right choice.
Actually, learning JavaScript is a considerably *smaller* investment
than Perl. Many don't consider JavaScript programming, partly due to
the incredible mass of people who just cut-and-paste someone else's
code, and partly because it's so stripped-down as a language.
> Are these competitors or complimentary. What are the pros and cons of one
> over the other. Any help would be appreciated.
You can use Perl in place of JavaScript in very limited
circumstances. All clients must have MS Internet Explorer 3 or higher,
with ActivePerl installed, and PerlScript engine installed and
registered.
Perl will _never_ have to worry about JavaScript stealing its glory.
Ergo, they are basically complimentary, though by no means
interdependent.
Then again, what recommendation did you expect in clpm? =)
--
-Tim Hammerquist <timmy@cpan.org>
Most people are other people. Their thoughts are someone else's
opinions, their lives a mimicry, their passions a quotation.
-- Oscar Wilde
------------------------------
Date: Fri, 15 Sep 2000 18:08:43 GMT
From: tim@degree.ath.cx (Tim Hammerquist)
Subject: Re: obfuscator or compiler
Message-Id: <slrn8s4q5l.jp.tim@degree.ath.cx>
Larry Rosler <lr@hpl.hp.com> wrote:
> Yanick Champoux <yanick@babyl.sympatico.ca> says...
> > Nyarlathothep, 'perldoc -q compile' offers you some alternatives.
> ^^^^^^^^^^^^^
> That isn't rot13, so what is it?
A reference to a many-referenced god from the H.P. Lovecraft mythos.
--
-Tim Hammerquist <timmy@cpan.org>
Universities are places of knowledge. The freshman
each bring a little in with them, and the seniors
take none away, so knowledge accumulates.
-- Unknown
------------------------------
Date: Fri, 15 Sep 2000 18:21:43 GMT
From: Yanick Champoux <yanick@babyl.sympatico.ca>
Subject: Re: obfuscator or compiler
Message-Id: <XMtw5.241029$Gh.5716131@news20.bellglobal.com>
Larry Rosler <lr@hpl.hp.com> wrote:
: In article <icsw5.383$3u6.90707@news20.bellglobal.com> on Fri, 15 Sep
: 2000 16:34:22 GMT, Yanick Champoux <yanick@babyl.sympatico.ca> says...
:> On the other hand, if you are not ready to become a Perlish
:> Nyarlathothep, 'perldoc -q compile' offers you some alternatives.
: ^^^^^^^^^^^^^
: That isn't rot13, so what is it?
<quote author="Lovecraft>
Nyarlathotep - The Crawling Chaos
Screamingly sentient, dumbly delirious, only the gods that were can
tell. A sickened, sensitive shadow writhing in hands that are not
hands, and whirled blindly past ghastly midnights of rotting creation,
corpses of dead worlds with sores that were cities, charnel winds that
brush the pallid stars and make them flicker low. Beyond the worlds
vague ghosts of monstrous things; half seen columns of unsanctified
temples that rest on nameless rocks beneath space and reach up to
dizzy vacua above the spheres of light and darkness. And through this
revolting graveyard of the universe the muffled, maddening beating of
drums, and the thin, monotonous whine of blasphemous flutes from
inconceivable, unlighted chambers beyond Time; the detestable pounding
and piping whereunto dance slowly, awkwardly, and absurdly the gigantic,
tenebrous ultimate gods - the blind, voiceless, mindless gargoyles
whose soul is Nyarlathotep.
</quote>
The complete original text can be found at
http://www.deliverance.mcmail.com/lovecraft/nyarlathotep.htm.
print "Yet another Thing That Should Not Be,"
Yanick
--
eval" use 'that poor Yanick' ";
print map{ (sort keys %{{ map({$_=>1}split'',$@) }})[hex] }
qw/8 b 15 1 9 10 11 15 c b 13 1 12 b 13 f 1 c 9 a e b 13 0/;
------------------------------
Date: Fri, 15 Sep 2000 18:48:14 GMT
From: Yanick Champoux <yanick@babyl.sympatico.ca>
Subject: Re: obfuscator or compiler
Message-Id: <O9uw5.241280$Gh.5716720@news20.bellglobal.com>
Yanick Champoux <yanick@babyl.sympatico.ca> wrote:
: Larry Rosler <lr@hpl.hp.com> wrote:
: : In article <icsw5.383$3u6.90707@news20.bellglobal.com> on Fri, 15 Sep
: : 2000 16:34:22 GMT, Yanick Champoux <yanick@babyl.sympatico.ca> says...
: :> On the other hand, if you are not ready to become a Perlish
: :> Nyarlathothep, 'perldoc -q compile' offers you some alternatives.
: : ^^^^^^^^^^^^^
: : That isn't rot13, so what is it?
I just realized that, in the 'perldoc' spirit, I should have answered
lynx http://www.google.com/search?q=Nyarlathotep
;)
die if $0 eq 'Necronomicon' and -w $0 == $MAD_ARAB_ABDUL_ALHAZRED;
Yanick
--
eval" use 'that poor Yanick' ";
print map{ (sort keys %{{ map({$_=>1}split'',$@) }})[hex] }
qw/8 b 15 1 9 10 11 15 c b 13 1 12 b 13 f 1 c 9 a e b 13 0/;
------------------------------
Date: Fri, 15 Sep 2000 12:29:53 -0700
From: Larry Rosler <lr@hpl.hp.com>
Subject: Re: obfuscator or compiler
Message-Id: <MPG.142c18895dc10f7398ad78@nntp.hpl.hp.com>
In article <O9uw5.241280$Gh.5716720@news20.bellglobal.com> on Fri, 15
Sep 2000 18:48:14 GMT, Yanick Champoux <yanick@babyl.sympatico.ca>
says...
> Yanick Champoux <yanick@babyl.sympatico.ca> wrote:
> : Larry Rosler <lr@hpl.hp.com> wrote:
> : : In article <icsw5.383$3u6.90707@news20.bellglobal.com> on Fri, 15 Sep
> : : 2000 16:34:22 GMT, Yanick Champoux <yanick@babyl.sympatico.ca> says...
>
> : :> On the other hand, if you are not ready to become a Perlish
> : :> Nyarlathothep, 'perldoc -q compile' offers you some alternatives.
> : : ^^^^^^^^^^^^^
>
> : : That isn't rot13, so what is it?
>
> I just realized that, in the 'perldoc' spirit, I should have answered
>
> lynx http://www.google.com/search?q=Nyarlathotep
>
> ;)
Correct URL, but some few of us now use tools more appropriate than
lynx. I realized that Googling was what I should have done, after I saw
the answer.
> die if $0 eq 'Necronomicon' and -w $0 == $MAD_ARAB_ABDUL_ALHAZRED;
I do remember the Necronomicon, though, without needing Google. The '-w
$0' part is a bit much, but the consequent is quite appropriate.
do 'Cthulhu' or die$!
--
(Just Another Larry) Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Fri, 15 Sep 2000 21:40:30 +0200
From: "Alan J. Flavell" <flavell@mail.cern.ch>
Subject: Re: obfuscator or compiler
Message-Id: <Pine.GHP.4.21.0009152139180.1816-100000@hpplus03.cern.ch>
On Fri, 15 Sep 2000, Yanick Champoux wrote:
> Nyarlathotep - The Crawling Chaos
>
> Screamingly sentient, dumbly delirious, only the gods that were can
> tell. A sickened, sensitive shadow writhing in hands that are not
> hands, and whirled blindly past ghastly midnights of rotting creation,
I thought we had one of those already, trolling this group.
have a good weekend
------------------------------
Date: Fri, 15 Sep 2000 20:02:04 GMT
From: Yanick Champoux <yanick@babyl.sympatico.ca>
Subject: Re: obfuscator or compiler
Message-Id: <0fvw5.241841$Gh.5726979@news20.bellglobal.com>
Larry Rosler <lr@hpl.hp.com> wrote:
: In article <O9uw5.241280$Gh.5716720@news20.bellglobal.com> on Fri, 15
: Sep 2000 18:48:14 GMT, Yanick Champoux <yanick@babyl.sympatico.ca>
: says...
:> Yanick Champoux <yanick@babyl.sympatico.ca> wrote:
:> : Larry Rosler <lr@hpl.hp.com> wrote:
:> : : In article <icsw5.383$3u6.90707@news20.bellglobal.com> on Fri, 15 Sep
:> : : 2000 16:34:22 GMT, Yanick Champoux <yanick@babyl.sympatico.ca> says...
:>
:> : :> On the other hand, if you are not ready to become a Perlish
:> : :> Nyarlathothep, 'perldoc -q compile' offers you some alternatives.
:> : : ^^^^^^^^^^^^^
Yeah, I typo'ed again. All apologies to the Crawling Chaos for
butchering his name. :)
:> lynx http://www.google.com/search?q=Nyarlathotep
: Correct URL, but some few of us now use tools more appropriate than
: lynx.
Oh, true. What was I thinking...
perl -MLWP::Simple -e'getprint "http://www.google.com/search?q=".shift' \
Nyarlathotep
Hmmm, adding a -g option to perldoc so that it directly access google
would be evil, right? :)
:> die if $0 eq 'Necronomicon' and -w $0 == $MAD_ARAB_ABDUL_ALHAZRED;
: I do remember the Necronomicon, though, without needing Google. The '-w
: $0' part is a bit much, but the consequent is quite appropriate.
I was considering, since the Necronomicon has been written
a long tiem ago, and by a mad arab, what is the probably that
is has been written on *gasp* a camel's hide? If you ask me,
this would make an awful lot of sense...
: do 'Cthulhu' or die$!
delete $t{ san }; # delete san in t :)
listen 2, $mad_piping_sound and
wait for $horror_that, sleep $beneath_the_sea;
Yanick
--
eval" use 'that poor Yanick' ";
print map{ (sort keys %{{ map({$_=>1}split'',$@) }})[hex] }
qw/8 b 15 1 9 10 11 15 c b 13 1 12 b 13 f 1 c 9 a e b 13 0/;
------------------------------
Date: Fri, 15 Sep 2000 20:50:01 GMT
From: Yanick Champoux <yanick@babyl.sympatico.ca>
Subject: Re: obfuscator or compiler
Message-Id: <ZXvw5.262760$1h3.5294304@news20.bellglobal.com>
Alan J. Flavell <flavell@mail.cern.ch> wrote:
: On Fri, 15 Sep 2000, Yanick Champoux wrote:
:> Nyarlathotep - The Crawling Chaos
:>
:> Screamingly sentient, dumbly delirious, only the gods that were can
:> tell. A sickened, sensitive shadow writhing in hands that are not
:> hands, and whirled blindly past ghastly midnights of rotting creation,
: I thought we had one of those already, trolling this group.
*rotflsmlo*
: have a good weekend
Be sure I will. |)
Pursing the Dream Quest to Unknown Perl FAQ,
Yanick
--
eval" use 'that poor Yanick' ";
print map{ (sort keys %{{ map({$_=>1}split'',$@) }})[hex] }
qw/8 b 15 1 9 10 11 15 c b 13 1 12 b 13 f 1 c 9 a e b 13 0/;
------------------------------
Date: 15 Sep 2000 21:43:47 GMT
From: abigail@foad.org (Abigail)
Subject: Re: Password protecting a script
Message-Id: <slrn8s55uh.4mc.abigail@alexandra.foad.org>
Geoff Soper (g.soper@soundhouse.co.uk) wrote on MMDLXXII September
MCMXCIII in <URL:news:49fe7f1bceg.soper@soundhouse.co.uk>:
<> I would like a script to be only used once having entered a password. What
<> would the best way of achieving this be?
Put a BEGIN {unlink $0} right under the she-bang line.
<> The script is running on an
<> Apache server if that helps at all. The script should only ever be used by
<> a single (the same) person so a single password would be acceptable. In
<> use the script is called several times in a row, passing itself different
<> parameters each time but I don't really want the user to have to re-enter
<> the password within a single session.
Huh? I don't understand. You said you want to script to be used only once,
but now it's used several times?
What do you _really_ want?
Abigail
--
sub camel (^#87=i@J&&&#]u'^^s]#'#={123{#}7890t[0.9]9@+*`"'***}A&&&}n2o}00}t324i;
h[{e **###{r{+P={**{e^^^#'#i@{r'^=^{l+{#}H***i[0.9]&@a5`"':&^;&^,*&^$43##@@####;
c}^^^&&&k}&&&}#=e*****[]}'r####'`=437*{#};::'1[0.9]2@43`"'*#==[[.{{],,,1278@#@);
print+((($llama=prototype'camel')=~y|+{#}$=^*&[0-9]i@:;`"',.| |d)&&$llama."\n");
------------------------------
Date: 16 Sep 99 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 16 Sep 99)
Message-Id: <null>
Administrivia:
The Perl-Users Digest is a retransmission of the USENET newsgroup
comp.lang.perl.misc. For subscription or unsubscription requests, send
the single line:
subscribe perl-users
or:
unsubscribe perl-users
to almanac@ruby.oce.orst.edu.
| NOTE: The mail to news gateway, and thus the ability to submit articles
| through this service to the newsgroup, has been removed. I do not have
| time to individually vet each article to make sure that someone isn't
| abusing the service, and I no longer have any desire to waste my time
| dealing with the campus admins when some fool complains to them about an
| article that has come through the gateway instead of complaining
| to the source.
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 V9 Issue 4337
**************************************
