[10153] in Perl-Users-Digest
Perl-Users Digest, Issue: 3746 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Sep 18 00:07:18 1998
Date: Thu, 17 Sep 98 21:00:18 -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 Thu, 17 Sep 1998 Volume: 8 Number: 3746
Today's topics:
Re: array of directories, subdirectories <jdf@pobox.com>
Re: array of directories, subdirectories (Andre L.)
Re: collecting string padding techniques (Ronald J Kimball)
Dealing with hyphens at line break with regexp match (Jedediah D. Parsons)
Re: Formatting a variable to three digits (Ronald J Kimball)
Re: Formatting a variable to three digits <uri@sysarch.com>
Re: Glob inside a foreach loop <jdf@pobox.com>
Help with some code <krisb@users.qual.net>
Re: how safe is xor encryption ? (Michael J Gebis)
Re: how safe is xor encryption ? <eashton@bbnplanet.com>
Re: How to "execute" a CGI (Perl) script inside a HTML (Larry Hunter)
Re: milliseconds? <hank.turowski@bronco.net>
MS Access Module? (MICHAEL HOLLAND)
Re: newbie trying to create library - questions <murrayb@vansel.alcatel.com>
Re: Perl & Java - differences and uses (Terry Reedy)
Re: Perl & Java - differences and uses <pats@acm.org>
Perl truncate doesn't work but C truncate does? (Dr H. T. Leung)
Re: Q:ActiveState's win32release missing makemaker - he <gp@gpsoft.de>
Re: Tie STDOUT <JayGuerette@pobox.com>
Re: Traversing symlinks using File::Find (Martien Verbruggen)
Re: Traversing symlinks using File::Find (Mark-Jason Dominus)
Re: What is Perl related? [was Re: how safe is xor encr <gclark@iconnect.net>
Re: What is Perl related? [was Re: how safe is xor encr (Ronald J Kimball)
Re: Who posts original posts on CLPM? (Ronald J Kimball)
Re: wwwboard run under NT (Tom McGee)
Special: Digest Administrivia (Last modified: 12 Mar 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 18 Sep 1998 03:00:58 +0200
From: Jonathan Feinberg <jdf@pobox.com>
To: rseweryniak@my-dejanews.com
Subject: Re: array of directories, subdirectories
Message-Id: <m3af3y44l1.fsf@joshua.panix.com>
rseweryniak@my-dejanews.com writes:
> What segment of code would I use to create an array of directories
> and its subdirectories (not files)?
Something like this:
use File::Find;
my @dirs = ();
find(\&wanted, '/proletariat', '/bourgeoisie');
print map "$_\n", @dirs;
sub wanted {
return unless -d $_;
push @dirs, $File::Find::name;
}
--
Jonathan Feinberg jdf@pobox.com Sunny Brooklyn, NY
http://pobox.com/~jdf
------------------------------
Date: Thu, 17 Sep 1998 20:53:30 -0500
From: alecler@cam.org (Andre L.)
Subject: Re: array of directories, subdirectories
Message-Id: <alecler-1709982053300001@dialup-575.hip.cam.org>
In article <6trmc0$i4i$1@nnrp1.dejanews.com>, rseweryniak@my-dejanews.com wrote:
> What segment of code would I use to create an array of directories and its
> subdirectories (not files)? Would like to create an array similar to the
> following:
>
> @all_dirs = ('/images',
> '/images/space',
> '/images/water',
> '/pictures',
> '/pictures/animals',
> '/pictures/plants',
> );
>
> I am using Perl for Win32 on a NT server. Any help would be greatly
> appreciated. Thanks in advance.
Using File::Find would make this easy.
Andre
------------------------------
Date: Thu, 17 Sep 1998 22:57:39 -0400
From: rjk@coos.dartmouth.edu (Ronald J Kimball)
Subject: Re: collecting string padding techniques
Message-Id: <1dfit3d.z3by9zc2p2kuN@bay1-152.quincy.ziplink.net>
Uri Guttman <uri@camel.fastserv.com> wrote:
Oops...
$pad_len = 5;
$num = 11;
$text = 'foo';
> # left padding with 0
>
> $padded = sprintf( "%0{$pad_len}d", $num ) ;
$padded eq '{5}d';
> # left padding with blank
>
> $padded = sprintf( "%{$pad_len}s", $text ) ;
$padded eq '{5}s';
> # right padding with blank
>
> $padded = sprintf( "%{$pad_len}d", $num ) ;
$padded eq '{5}d';
I think you meant to put the dollar sign outside the curly brackets.
:-)
> # prepending the pad using x and substr
>
> $padded = substr( $padded = $num, 0, 0 ) = '0' x ($pad_len - length( $num )) ;
$padded eq '000';
I don't think you wanted the assignment to $padded at the beginning of
the expression.
--
_ / ' _ / - aka - rjk@coos.dartmouth.edu
( /)//)//)(//)/( Ronald J Kimball chipmunk@m-net.arbornet.org
/ http://www.ziplink.net/~rjk/
"It's funny 'cause it's true ... and vice versa."
------------------------------
Date: 18 Sep 1998 02:51:25 GMT
From: jed@glug.hip.berkeley.edu (Jedediah D. Parsons)
Subject: Dealing with hyphens at line break with regexp match
Message-Id: <slrn703ior.tj1.jed@glug.hip.berkeley.edu>
Greetings:
How does one search for a pattern in a text file in which someone has
already broken and hyphenated some words at line end?
That is, how would I be sure to get both occurrences of ``incredible''
in the following text:
Incredible as it sounds, there is an incred-
ible amount of incredulity ...
Thanks for any advice,
Jed
--
Jed Parsons: ``Lingua balbus, hebes ingenio
Harpsichordist, Classicist, Homebrewer. Viris doctis sermonem facio.''
mailto:jed@socrates.berkeley.edu -- Archipoeta
http://www.OCF.Berkeley.EDU/~jparsons/
------------------------------
Date: Thu, 17 Sep 1998 22:57:46 -0400
From: rjk@coos.dartmouth.edu (Ronald J Kimball)
Subject: Re: Formatting a variable to three digits
Message-Id: <1dfitol.jdg5qvir27ymN@bay1-152.quincy.ziplink.net>
Uri Guttman <uri@camel.fastserv.com> wrote:
> >> return '0' x ($desired_length - length( $num ) ) . $num ;
> >> or
> >> return sprintf( "%.$desired_length", $num ) ;
>
> see my recent post for many other techniques and i am looking to collect more.
>
> JZ> Mea culpa. Isn't the Perl motto "There's more than one wrong way to do
> JZ> it"?
>
> close but no cigar!
Actually, if you do see Uri's recent post, you might be convinced that
that *is* the Perl motto. :-)
Even Uri's second suggestion above isn't quite right... "%.5" isn't a
valid format string.
No offense meant, Uri!
--
_ / ' _ / - aka - rjk@coos.dartmouth.edu
( /)//)//)(//)/( Ronald J Kimball chipmunk@m-net.arbornet.org
/ http://www.ziplink.net/~rjk/
"It's funny 'cause it's true ... and vice versa."
------------------------------
Date: 17 Sep 1998 23:37:46 -0400
From: Uri Guttman <uri@sysarch.com>
To: rjk@coos.dartmouth.edu (Ronald J Kimball)
Subject: Re: Formatting a variable to three digits
Message-Id: <x7af3yxf91.fsf@sysarch.com>
>>>>> "RJK" == Ronald J Kimball <rjk@coos.dartmouth.edu> writes:
RJK> Uri Guttman <uri@camel.fastserv.com> wrote:
>> >> return '0' x ($desired_length - length( $num ) ) . $num ;
>> >> or
>> >> return sprintf( "%.$desired_length", $num ) ;
>>
JZ> Mea culpa. Isn't the Perl motto "There's more than one wrong way to do
JZ> it"?
RJK> Actually, if you do see Uri's recent post, you might be convinced that
RJK> that *is* the Perl motto. :-)
RJK> Even Uri's second suggestion above isn't quite right... "%.5" isn't a
RJK> valid format string.
RJK> No offense meant, Uri!
offense taken :-). we'll have a drunken slugfest at the next pm meeting!
so i had a little typo. the other post has methods of padding which are
all tested.
and the previous poster already thanked me for my efforts!
uri
--
Uri Guttman ----------------- SYStems ARCHitecture and Software Engineering
Perl Hacker for Hire ---------------------- Perl, Internet, UNIX Consulting
uri@sysarch.com ------------------------------------ http://www.sysarch.com
The Best Search Engine on the Net ------------- http://www.northernlight.com
------------------------------
Date: 18 Sep 1998 03:07:48 +0200
From: Jonathan Feinberg <jdf@pobox.com>
To: mgoddard@rosetta.org (Matt Goddard)
Subject: Re: Glob inside a foreach loop
Message-Id: <m37lz2449n.fsf@joshua.panix.com>
mgoddard@REMOVETHISrosetta.org (Matt Goddard) writes:
> Win32::SetCwd $dir;
Replace this line with the more portable and vastly more informative
chdir $dir || die "$dir: $!\n";
You will then see an error message in your STDERR, if the chdir
fails. You don't show any evidence, in your sample code, of checking
for unexpected conditions. This is biting you on the rear.
--
Jonathan Feinberg jdf@pobox.com Sunny Brooklyn, NY
http://pobox.com/~jdf
------------------------------
Date: Fri, 18 Sep 1998 03:48:34 GMT
From: Kris Bernardic <krisb@users.qual.net>
Subject: Help with some code
Message-Id: <3602028E.F716A3B6@users.qual.net>
--------------C301E6D1CB8C3901223FAE3B
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
I was hoping someone could help me with the following. In the part that
is bold below I need to to recognize a string of 6 characters. What I
have on my site is a password system and I need this script to verify
that a pin has been entered that is 6 characters long, containing words
and/or letters.
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ s/<([^>]|\n)*>//g;
$value =~ s/<//g;
$value =~ s/>//g;
# count order items and check if sending check
if ($name eq "pin" && $value > 0) {$CKpin = 1}
Thanks in advance.
--
fit2print.com - Your Digital Newsstand
Order magazines "on demand" @ http://www.fit2print.com
--------------C301E6D1CB8C3901223FAE3B
Content-Type: text/html; charset=us-ascii
Content-Transfer-Encoding: 7bit
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
I was hoping someone could help me with the following. In the part
that is bold below I need to to recognize a string of 6 characters.
What I have on my site is a password system and I need this script to verify
that a pin has been entered that is 6 characters long, containing words
and/or letters.
<P>foreach $pair (@pairs) {
<BR> ($name, $value) = split(/=/, $pair);
<BR> $value =~ tr/+/ /;
<BR> $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
<BR> $value =~ s/<([^>]|\n)*>//g;
<BR> $value =~ s/<//g;
<BR> $value =~ s/>//g;
<BR> # count order items and check if sending check
<BR> <B> if ($name eq "pin" && $value > 0) </B>{$CKpin
= 1}
<P>Thanks in advance.
<P>--
<BR>fit2print.com - Your Digital Newsstand
<BR>Order magazines "on demand" @ <A HREF="http://www.fit2print.com">http://www.fit2print.com</A>
<BR> </HTML>
--------------C301E6D1CB8C3901223FAE3B--
------------------------------
Date: 18 Sep 1998 02:37:16 GMT
From: gebis@fee.ecn.purdue.edu (Michael J Gebis)
Subject: Re: how safe is xor encryption ?
Message-Id: <6tsh0s$5d2@mozo.cc.purdue.edu>
Randal Schwartz <merlyn@stonehenge.com> writes:
}>>>>> "Mark-Jason" == Mark-Jason Dominus <mjd@op.net> writes:
}Mark-Jason> One decimal digit contains the same information as 3.322 binary
}Mark-Jason> digits. A credit card number is 16 digits long, so it contains
}Mark-Jason> 16*3.332 = 53.15 bits of information. (Less, if you discount for the
}Mark-Jason> check digits.)
}Exactly 3.332 bits less, by my determination. :)
}(The final digit is completely computable from the remaining digits.)
Actually, you can get as low as 47.01501624516068193992.
98.5779% of all 16-digit numbers can be immediately eliminated as not a
visa, mastercard, amex, diners-club, carte-blanche, discover, enroute, or
jcb card number.
--
Mike Gebis gebis@ecn.purdue.edu mgebis@eternal.net
------------------------------
Date: Fri, 18 Sep 1998 03:40:59 GMT
From: Elaine -HappyFunBall- Ashton <eashton@bbnplanet.com>
Subject: Re: how safe is xor encryption ?
Message-Id: <3601D3E5.47B34BE1@bbnplanet.com>
Michael J Gebis wrote:
> Actually, you can get as low as 47.01501624516068193992.
>
> 98.5779% of all 16-digit numbers can be immediately eliminated as not a
> visa, mastercard, amex, diners-club, carte-blanche, discover, enroute, or
> jcb card number.
True. But, regardless of the encryption algorithim, one can still obtain
the key by modern convention fairly easily. Encryption isn't the only
answer, good scripts, good admin and smart security is. No matter how
good the encryption, someone will have the time and the ingenuity to
break it. Purple was broken, XOR can be broken. Nothing is 100% secure.
Nothing. With 98.5% of the numbers eliminated you can pretty much go
through the national database and make an educated choice should you
choose to. There is little guesswork there.
I'll tell a little story here which may illuminate some of my earlier
posts. I was asked to help tiger team a financial server on a network
that was not in our baliwick by the president of the company. We hacked
the CC server in less than an hour and sent the Pres. a bouquet of
flowers via FTD on his CC shortly thereafter to illustrate our point.
The DBA got a wedgie and called the FBI due to his unwitting ignorance
about what was really going on..he thought he had a secure network....he
used XOR.
btw - To the person who broke MJD's CC#, I'll have a beer in your
general direction tonite just because. :)
e.
"All of us, all of us, all of us trying to save our immortal souls, some
ways seemingly more round-about and mysterious than others. We're having
a good time here. But hope all will be revealed soon." R. Carver
------------------------------
Date: 18 Sep 1998 02:48:07 GMT
From: lhunter@acm.org (Larry Hunter)
Subject: Re: How to "execute" a CGI (Perl) script inside a HTML page.
Message-Id: <6tshl7$b3m$2@hiram.io.com>
In article <3601586A.9C187ED3@cisco.com>, jian@cisco.com says...
>I need to "execute" a short perl CGI script inside a HTML page
>automatically when a page is loaded. The script generates some
>segment of of the HTML file. My web server has been set up for CGI
If you CAN'T modify your web server, you've got two options:
1. Use an SSI <!--#execute...--> per the second response.
2. Write a CGI script to generate the whole HTML page. You can write
a static HTML page with an extra comment like "<!--INSERT HERE-->"
and have a Perl CGI program just copy the HTML and insert your
page-specific stuff immediately after the comment.
If you CAN modify your web server you've got two more options:
1. PerlScript per the third response. (But I couldn't raise their
URL listed in the www.perl.com reference section a while ago.)
2. PerlEx from ActiveState (www.activestate.com). A plugin for any
web server running on an NT box. Vendor says it includes
precompiling Perl CGI scripts as well as running them in the
server process. (Wish they had a version for Apache/UNIX...)
--
------------------------------------------------------------------------
Larry Hunter lhunter@acm.org http://www.io.com/~lhunter/
------------------------------
Date: Thu, 17 Sep 1998 18:02:44 -0700
From: Hank Turowski <hank.turowski@bronco.net>
Subject: Re: milliseconds?
Message-Id: <3601B134.E6D3A8D8@bronco.net>
This is EXACTLY the place to ask questions when the FAQs dont quite cut it.
Unfortunately for you, in this case the answer can be easily found in the
standard
Perl documentation. I humbly suggest that in the future you check there before
you ask a question of the group.
You should just be glad Randal didn't get ahold of you. :)
miho21@yahoo.com wrote:
> you know what? forget it... there is no need to explain to me about
> programming, since i know some languages like c++ and java. what I do not
> know, is perl programming. somehow i got the wrong impression that this group
> might be able to help on this specific issue.
>
> there is no need to explain to me about research either, but you know what?
> usenet is a big part of my research turf. I find it very helpful to be able
> to toss questions and get answers when FAQs dont quite cut it, and they dont
> always... I am to understand, however, that comp.lang.perl is not the place
> to ask such questions (yes, even stupid questions like "what does $a mean").
>
> Moderate the group, friends. atitudewise you are allready moderated.
>
> back to lurking...
>
> mihoko.
>
> In article <EzEEsK.135@world.std.com>,
> aml@world.std.com (Andrew M. Langmead) wrote:
> > I would think that it would save Tom a lot of time if he wrote the
> > explanation once and everyone else referred to that explanation if
> > they needed it. After all, there are probably more people who want to
> > know what qw/STRING/ is than there are of him.
> >
> > Oh wait. Since he's responsible for a good part (if not most) of the
> > standard perl documentation, he probably already did write the
> > explanation down. Its in the perlop document. (and if he didn't write
> > that particular section, he knew he didn't have to because it was
> > already there.) All we need is to have everyone look for their answers
> > there.
> >
> > Programming is something that requires a certain amount of research
> > skills. If you post a question for evey single construct you have not
> > come accross before, it will get a little tedious, don't you think?
> >
> > What does "$a" mean?
> > What does "=" mean?
> > What does "+" mean?
> > What do "{" and "}" mean?
> > What does "print" mean?
> > ...
> > What does "use Fctl(:flock)" mean?
> > ...
> > (ad nauseum)
> >
> > I think it is time to bring out my Lego analogy again.
> >
> > The sytactic elements of Perl are similar to the individual elements
> > of a Lego set. Each individual block is fairly uninteresting examined
> > by itself, but they can be put together in an infinate variety of
> > interesting ways. Programmers are very likely programmers because they
> > love the infinate possibilities that computers give them, and they
> > congregate in places like comp.lang.perl.misc because they love
> > discussing with each other things that they can build with the
> > language. Discussing the definition of a particular syntactic element
> > is about exciting as discussing an individual Lego block.
> >
> > --
> > Andrew Langmead
> >
>
> --
> "We believe that life, creation, everything is based on mathematics."
> -Zulu Nation
>
> -----== Posted via Deja News, The Leader in Internet Discussion ==-----
> http://www.dejanews.com/rg_mkgrp.xp Create Your Own Free Member Forum
--
Hank Turowski
------------------------------
Date: 18 Sep 1998 02:50:00 GMT
From: s002mdh@news.wright.edu (MICHAEL HOLLAND)
Subject: MS Access Module?
Message-Id: <6tshoo$sf9$1@mercury.wright.edu>
Does anyone know of a module for the manipulation of an MS Access Database?
------------------------------
Date: 17 Sep 1998 16:35:29 -0700
From: Brad Murray <murrayb@vansel.alcatel.com>
Subject: Re: newbie trying to create library - questions
Message-Id: <upvcuqpmm.fsf@vansel.alcatel.com>
Arran Price <arranp@datamail.co.nz> writes:
> sub PRINTFROG
> {
> print"frog=$FROG\n";
> $CAT="fluffy";
> }
>
> 1;
How about:
sub FrogsAndCats
{
my $frog = shift;
print "frog=$frog\n";
return "fluffy";
}
1;
...and then:
require "froglib.pl";
$frog="kermit";
$cat = FrogsAndCats($frog);
print "cat = $cat\n";
...although it might be better if you posted your real problem as this
all smacks of artificiality. Your real problem might be better served
by a more interesting algorithm.
--
Brad Murray "...and they that weave networks shall be confounded"
Software Analyst Isaiah, 19:9
Alcatel Canada
------------------------------
Date: 18 Sep 1998 02:58:03 GMT
From: tjreedy@udel.edu (Terry Reedy)
Subject: Re: Perl & Java - differences and uses
Message-Id: <6tsi7r$f7o$1@news.udel.edu>
zenin@bawdycaste.org says...
> [Python's block structuring is a failure - my paraphrase]
To me, its a feature which attracted me to use it. I'm glad that we each
have a language we like.
> Stretch a block over a screen boundary (such as for a package/class
> def) and they add quite a bit. They also make it very easy to jump
> to the ends of a given block, which in the case of the above could
> be many screens away.
Actually, Python allows optional use of '#{' and '#}' as block delimiters
(but only at the ends of lines, in addition to normal indentation). One
could add these where desired for the purpose described above.
Terry J. Reedy
------------------------------
Date: 17 Sep 1998 20:58:38 PDT
From: Patricia Shanahan <pats@acm.org>
Subject: Re: Perl & Java - differences and uses
Message-Id: <3601D9E5.C7081C12@acm.org>
There are a lot more people who will buy a computer without Ada than
will buy one without an operating system and commands.
While it is possible to write those from scratch in any language, for
most of the start-ups in the 1980's the only economically practical
option was a UNIX source licence. Getting from a UNIX source license
to a working OS not only requires a C compiler, it is a great
toughening exercise for getting the kinks out of the compiler.
Patricia
John Porter wrote:
>
> Patricia Shanahan wrote:
> >
> > Joseph Kesselman (yclept Keshlam) wrote:
> > >
> > > Patricia Shanahan wrote:
> > > > I don't think the popularity of C can be used as evidence of its
> > > > technical goodness
> > >
> > > The problem: Define "technical goodness".
> >
> > Doesn't matter. Whatever it is, I don't think you can deduce it from
> > C's popularity alone, because of the non-technical factors that have
> > influenced C's popularity.
>
> You can deduce *some* degree of technical goodness, because without
> it, all the non-technical factors in the world wouldn't result in
> C having the popularity that it has had. Look at ADA and PL/1 for
> examples: huge non-technical forces (the DoD and IBM, respectively)
> were unable to make people use those languages.
>
> --
> John Porter
------------------------------
Date: 18 Sep 1998 02:39:19 GMT
From: htl10@cus.cam.ac.uk (Dr H. T. Leung)
Subject: Perl truncate doesn't work but C truncate does?
Message-Id: <6tsh4n$kdf$1@pegasus.csx.cam.ac.uk>
Can somebody tell me why this piece of perl script doesn't work? It just silently
ignore me (no "can't open"), just nothing. The file I wanted it to truncate
was 680M, nothing happens; no error messages.
----------------------------
#!/usr/bin/perl
open (HAHA, "/win95D/CD/data11.mpg")
or die "can't open!\n";
truncate HAHA, 630000000;
close (HAHA);
----------------------------
while this piece of C code did the job successfully?
------------------------------
#include <unistd.h>
int main(void)
{
truncate("/win95D/CD/data11.mpg", 630000000);
return 0;
}
------------------------------
--
--------------------------------------------------
"What you don't care cannot hurt you." Chap. 7a, AMS-NS
------------------------------
Date: Fri, 18 Sep 1998 04:49:26 +0100
From: "Guenther Pewny" <gp@gpsoft.de>
Subject: Re: Q:ActiveState's win32release missing makemaker - help me
Message-Id: <6tshvr$86q$1@goof.de.uu.net>
Which AS Perl version do you have?
I have Build 502 = 5.005_02, and it HAS a makemaker.
But I think even with this version DBI/DBD::Oracle will not compile,
because AS Perl's C API (XS file conventions) differ from standard Perl.
I downloaded the compiled versions of
DBI
DBD::Oracle
DBD::ODBC
directly from www.activestate.com using their ppm.pl module installer.
They seem to work, but if you use DBD::Oracle from within a CGI script
using CGI.pm, CGI output on <STDOUT> stops at the moment you
call $sth->prepare(...) the first time.
So I tried to DBD::ODBC with an Oracle ODBC driver, and the same
script worked correctly.
So my tip:
AS Perl 502 + DBI/DBD::ODBC using ppm.pl for installation
directly from the ActiveState archive.
Hope that helps
G|nther Pewny
Kurt Lange schrieb in Nachricht <3601bba1.0@nt.dave-world.net>...
>I am trying to build the DBI and DBD::Oralce Modules for Perl for Win32. I
>get an error right off the bat, indicating that I am missing makemaker.
>This is true, it is missing. Has anyone ever successfully built the
modules
>on NT4.0, or least the DBI module. I am either looking for the already
>built modules, or I am looking for a solution to the missing makemaker. I
>have seen previous build that contain the makemaker, and connot figure out
>why this particular build did not have it.
>
>Please respond to one of these news groups(for other people with the same
>problem). And please respond to the following email address for my work
and
>home
>dmackin@gte.net AND milkman@dave-world.net
>
>You help is deeply appreciated.
>
>Kurt Lange
>Internet Programmer
>
>
>
>
>
------------------------------
Date: Thu, 17 Sep 1998 21:42:11 -0400
From: "Jay Guerette" <JayGuerette@pobox.com>
Subject: Re: Tie STDOUT
Message-Id: <6tsduf$neh@news-central.tiac.net>
>> This code is intended to capture output to STDOUT and redirect it
elsewhere.
>> I have 2 questions about the following snippet:
>>
>> 1. Why doesn't PRINTF work?
>
>What does it mean, doesn't work. Does it like print "krtek" instead of
>that "hello world"? The following piece of code behaves quite happily
>for me:
>
> package Tie::StdOut;
> sub TIEHANDLE {
> my $class = shift;
> bless {}, $class;
> }
> sub PRINT {
> my $self = shift;
> print STDERR 'Tie::StdOut::PRINT: ', @_;
> }
> sub PRINTF {
> my $self = shift;
> print STDERR 'Tie::StdOut::PRINTF: ';
> printf STDERR @_;
> }
> package main;
> tie *STDOUT, Tie::StdOut;
> print "hello world<br>\n";
> $greeting = "hello again";
> printf "%s<br>\n", $greeting;
> __END__
>
>This is perl, version 5.004_04.
Ahhh.... older version. I updated... thanks for pointing out your version
number!
------------------------------
Date: Fri, 18 Sep 1998 02:12:38 GMT
From: mgjv@comdyn.com.au (Martien Verbruggen)
Subject: Re: Traversing symlinks using File::Find
Message-Id: <qkjM1.1055$bj5.180639@nsw.nnrp.telstra.net>
In article <36008C71.44C296A0@us.oracle.com>,
Allen Choy <achoy@us.oracle.com> writes:
> Is it possible to traverse symbolic links using File::Find? It seems to
> be skipping them when I try.
Hmmm, a question about File::Find. Maybe the documentation has
something to say about this!
# perldoc File::Find
[snip]
BUGS
There is no way to make find or finddepth follow symlinks.
[snip]
Gosh, imagine that. It is in the documentation. Who would have ever
expected that????
Martien
--
Martien Verbruggen |
Webmaster www.tradingpost.com.au | If at first you don't succeed, try
Commercial Dynamics Pty. Ltd. | again. Then quit; there's no use being
NSW, Australia | a damn fool about it.
------------------------------
Date: 17 Sep 1998 22:32:12 -0400
From: mjd@op.net (Mark-Jason Dominus)
Subject: Re: Traversing symlinks using File::Find
Message-Id: <6tsgnc$hcn$1@monet.op.net>
In article <qkjM1.1055$bj5.180639@nsw.nnrp.telstra.net>,
Martien Verbruggen <mgjv@comdyn.com.au> wrote:
> There is no way to make find or finddepth follow symlinks.
Is File::Find reentrant? If it is, then your `wanted' routine could
make a recursive call to File::Find when it encountered a symlink.
------------------------------
Date: Thu, 17 Sep 1998 15:35:43 -0500
From: gerald clark <gclark@iconnect.net>
Subject: Re: What is Perl related? [was Re: how safe is xor encryption ?]
Message-Id: <3601729F.4A7CF045@iconnect.net>
In other words RTFM?
We don't need a news group! it's ALL in the manual, and anything else is
OFF TOPIC !!!
-^-----=
{ (O_ \ =
{ (O / =
-v-----=
Ben Sauvin wrote:
>
> One suspects that the border between "perl-related" and something else
> divides that which is explicitly furnished by the Perl programming language,
> its various modules and incidental accompanying documentation from that
> which can be addressed by any (or most) programming languages, even if only
> at the concept level.
>
> Elaine -HappyFunBall- Ashton wrote:
>
> > Ronald J Kimball wrote:
> >
> > > Why do people have such a broad idea of 'what is Perl related'. This
> > > was started by someone who wanted to do an e-commerce solution,
> > > coincidentally in Perl. And the discussion has continued to have
> > > nothing whatsoever to do with Perl.
> >
> > Take my point. Perl is not an entity living in a vacuum independent of
> > anything else. Yes, it did start out as a Perl question on e-commerce
> > but digressed into a discussion on security and encryption. Perhaps you
> > are uninterested in anything along those lines, but since Perl people in
> > my general experience tend to be 'jack of all trade' type of people, it
> > was somewhat a linear progression of the topic.
> >
> > Security is an important point whether you're dealing with Perl or
> > something else. And certainly it was a much more interesting discourse
> > than 'hey, why doesn't this 3 line perl program work?'. It's only Usenet
> >
> > e.
> >
> > "All of us, all of us, all of us trying to save our immortal souls, some
> > ways seemingly more round-about and mysterious than others. We're having
> > a good time here. But hope all will be revealed soon." R. Carver
--
Gerald L. Clark
Remove the -nospam- when replying.
------------------------------
Date: Thu, 17 Sep 1998 22:57:48 -0400
From: rjk@coos.dartmouth.edu (Ronald J Kimball)
Subject: Re: What is Perl related? [was Re: how safe is xor encryption ?]
Message-Id: <1dfiuhs.1ym56x015alchpN@bay1-152.quincy.ziplink.net>
Elaine -HappyFunBall- Ashton wrote:
>
> Ronald J Kimball wrote:
>
> > Why do people have such a broad idea of 'what is Perl related'. This
> > was started by someone who wanted to do an e-commerce solution,
> > coincidentally in Perl. And the discussion has continued to have
> > nothing whatsoever to do with Perl.
>
> Take my point. Perl is not an entity living in a vacuum independent of
> anything else. Yes, it did start out as a Perl question on e-commerce
> but digressed into a discussion on security and encryption.
I disagree. There was no Perl question in the original post. The
poster wanted to know if using XOR encryption to protect his CC database
was a good idea. Nothing about Perl in that.
> Perhaps you
> are uninterested in anything along those lines, but since Perl people in
> my general experience tend to be 'jack of all trade' type of people, it
> was somewhat a linear progression of the topic.
There was no linear progression. The discussion has been about
encryption and security from the beginning. The original post should
have been made to a newsgroup for encryption and/or security. Any Perl
programmers with a genuine interest in encryption and/or security would
have been able to find it there. More importantly, anyone at all with a
genuine interest, even non-Perl-programmers, would have been able to
find it there.
> Security is an important point whether you're dealing with Perl or
> something else. And certainly it was a much more interesting discourse
> than 'hey, why doesn't this 3 line perl program work?'. It's only Usenet
Exactly. "...or something else." Hence, it is not appropriate to
discuss general security issues in cl.perl.m. Unless you want to
exclude all those people who are dealing with something else?
Whether or not it was more interesting is entirely subjective, of
course.
:-)
--
_ / ' _ / - aka - rjk@coos.dartmouth.edu
( /)//)//)(//)/( Ronald J Kimball chipmunk@m-net.arbornet.org
/ http://www.ziplink.net/~rjk/
"It's funny 'cause it's true ... and vice versa."
------------------------------
Date: Thu, 17 Sep 1998 22:57:53 -0400
From: rjk@coos.dartmouth.edu (Ronald J Kimball)
Subject: Re: Who posts original posts on CLPM?
Message-Id: <1dfivj9.1l7ilfe1vb6mbgN@bay1-152.quincy.ziplink.net>
Asher <asher@magicnet.net> wrote:
> The web page shows both root posts and follw-up posts. You should be
> able to decide which explanation is more valid by looking at the graph.
What graph?
Oops, I had image auto-loading turned off (and the graph image had no
ALT text to suggest it was important :-) .
Anyway, the graph is very helpful in showing the posting ratios for this
sample. Thanks!
--
_ / ' _ / - aka - rjk@coos.dartmouth.edu
( /)//)//)(//)/( Ronald J Kimball chipmunk@m-net.arbornet.org
/ http://www.ziplink.net/~rjk/
"It's funny 'cause it's true ... and vice versa."
------------------------------
Date: Fri, 18 Sep 1998 02:50:13 GMT
From: tamcgee@home.com (Tom McGee)
Subject: Re: wwwboard run under NT
Message-Id: <tamcgee-1709982252030001@cc1017583-a.union1.nj.home.com>
Yes. If I remember correctly (I set it up a long time ago) the key thing
is to make sure the paths that are set up to the various directories at
the top of the script look like:
c:\\dir\\dir\\dir
and not c:\dir\dir\dir
--Tom
In article <36007D97.7567@driverzone.com>, Barry Fanion
<webmaster@driverzone.com> wrote:
>>Has anybody gotten wwwboard to run under windows NT ??
>>
>>Barry Fanion
>>mailto:webmaster@driverzone.com
>>http://www.driverzone.com
------------------------------
Date: 12 Jul 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 Mar 98)
Message-Id: <null>
Administrivia:
Special notice: in a few days, the new group comp.lang.perl.moderated
should be formed. I would rather not support two different groups, and I
know of no other plans to create a digested moderated group. This leaves
me with two options: 1) keep on with this group 2) change to the
moderated one.
If you have opinions on this, send them to
perl-users-request@ruby.oce.orst.edu.
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 3746
**************************************
