[28274] in Perl-Users-Digest
Perl-Users Digest, Issue: 9638 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Aug 23 11:05:51 2006
Date: Wed, 23 Aug 2006 08:05:07 -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 Wed, 23 Aug 2006 Volume: 10 Number: 9638
Today's topics:
Re: hiw do i perform this extraction <bik.mido@tiscalinet.it>
Re: hiw do i perform this extraction <tadmc@augustmail.com>
how can I find the driver list in perl <odperry@gmail.com>
Re: how can I find the driver list in perl <rvtol+news@isolution.nl>
Re: how can I find the driver list in perl <bik.mido@tiscalinet.it>
Re: how can I find the driver list in perl <odperry@gmail.com>
Re: how can I find the driver list in perl <someone@example.com>
Re: how can I find the driver list in perl anno4000@radom.zrz.tu-berlin.de
Re: how can I find the driver list in perl <David.Squire@no.spam.from.here.au>
Re: how can I find the driver list in perl <bik.mido@tiscalinet.it>
Re: how can I find the driver list in perl <tadmc@augustmail.com>
Re: how can I find the driver list in perl <bik.mido@tiscalinet.it>
Re: how can I find the driver list in perl <odperry@gmail.com>
Re: how can I find the driver list in perl <mritty@gmail.com>
Re: How do I run the MS Windows file search program fro <usenet@mpreston.demon.co.uk>
invoking .exe file <deepseaorka@gmail.com>
Re: invoking .exe file <appumail@gmail.com>
Re: invoking .exe file <bik.mido@tiscalinet.it>
Most useful standard module? <zhushenli@gmail.com>
Re: Most useful standard module? <mritty@gmail.com>
Re: Most useful standard module? <klaus03@gmail.com>
Re: Most useful standard module? <veatchla@yahoo.com>
perl for windows <Larry.Martell@gmail.com>
Re: read file backwards <uri@stemsystems.com>
Re: Spazio utilizzato dagli utenti <bik.mido@tiscalinet.it>
taint issues in utf8_heavy.pl rider.hibiki@gmail.com
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 23 Aug 2006 13:12:55 +0200
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: hiw do i perform this extraction
Message-Id: <4hdoe254edrfeps3i1tudt5cck9sjdl1h2@4ax.com>
On 22 Aug 2006 21:09:32 -0700, "kitcha" <kitcha315@gmail.com> wrote:
>the problem is that all the characters that come after {} rnt
>printed...it would be thankful if u cud explain the script to me as i m
>not able to understand it..
It is my vague understanding that you may be having difficulties
understanding the proposed script. I'll try to help you. May you be so
kind, in turn, to explain the above three lines of "English" text?
: #!/usr/bin/perl
: use warnings;
: use strict;
give me all the help you can...
: while ( <DATA> ) {
The DATA filehandle is a special one used here to keep the example
self contained. It may also be either your own $fh or the ARGV magic
fh. This says, read the lines from the fh one by one and do something
with each of them
: if ( s/^\s\s+/ / ) {
perldoc -f s
perldoc perlre
: print;
: next;
print the modified line and skip to the next if the substituion
succeeded. Or else...
: }
: s/^[^,]+,\s*//;
do a substitution,
: s/,[^,]+$//;
then another one,
: print "$_\n";
And then... ehm... print(), maybe?
Michele
--
{$_=pack'B8'x25,unpack'A8'x32,$a^=sub{pop^pop}->(map substr
(($a||=join'',map--$|x$_,(unpack'w',unpack'u','G^<R<Y]*YB='
.'KYU;*EVH[.FHF2W+#"\Z*5TI/ER<Z`S(G.DZZ9OX0Z')=~/./g)x2,$_,
256),7,249);s/[^\w,]/ /g;$ \=/^J/?$/:"\r";print,redo}#JAPH,
------------------------------
Date: Wed, 23 Aug 2006 07:24:59 -0500
From: Tad McClellan <tadmc@augustmail.com>
Subject: Re: hiw do i perform this extraction
Message-Id: <slrneeoi8r.eqf.tadmc@magna.augustmail.com>
kitcha <kitcha315@gmail.com> wrote:
> Hi Tad ,
Do not send stealth-Cc emails. It is rude.
> Thanks for the script but it has some issues
It works perfectly for the data that you gave me.
> I have a 1000 line document like this...
If you change the specification, then the solution is likely to change!
> the problem is that all the characters that come after {} rnt
> printed...
The problem was that you gave virtually no specification for
what you wanted.
My program does exactly what you asked for.
If you want something else, then specify something else.
> it would be thankful if u cud explain the script to me as i m
It is spelled "you", not "u".
It is spelled "could", not "cud".
It is spelled "am", not "m".
Do not use "cutsie" spellings, it is rude to people for whom
English is not a first language.
> not able to understand it..
Programs are much easier to understand if you write them yourself.
Try that first, then post here if you get stuck.
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: 23 Aug 2006 01:21:07 -0700
From: "Over G" <odperry@gmail.com>
Subject: how can I find the driver list in perl
Message-Id: <1156321267.425519.119260@74g2000cwt.googlegroups.com>
what should I write in perl in order t get the driver list in my
computer?
(mean hard disk.)
thanks.
O
------------------------------
Date: Wed, 23 Aug 2006 10:57:35 +0200
From: "Dr.Ruud" <rvtol+news@isolution.nl>
Subject: Re: how can I find the driver list in perl
Message-Id: <echcj6.18c.1@news.isolution.nl>
Over G schreef:
> [W]hat should I write in [P]erl in order t[o] get
> the driver list in my computer?
I assume that you share a car. You don't need Perl if you remember part
of the name, or of the contents, of the file with the driver list, just
use (example for Windows computer follows) [Start], Search.
If you prefer to do it in Perl, then start by reading the Posting
Guidelines that are posted here twice a week.
--
Affijn, Ruud
"Gewoon is een tijger."
------------------------------
Date: 23 Aug 2006 12:51:42 +0200
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: how can I find the driver list in perl
Message-Id: <eccoe213qkkql2s0s9a6j6t4tus79nffsf@4ax.com>
On 23 Aug 2006 01:21:07 -0700, "Over G" <odperry@gmail.com> wrote:
>what should I write in perl in order t get the driver list in my
>computer?
I'd *start* with
perl -V::osname
>(mean hard disk.)
Oh, c'mon! How can you be sure your hd is mean?!? And how does this
have to do with your question?
Michele
--
{$_=pack'B8'x25,unpack'A8'x32,$a^=sub{pop^pop}->(map substr
(($a||=join'',map--$|x$_,(unpack'w',unpack'u','G^<R<Y]*YB='
.'KYU;*EVH[.FHF2W+#"\Z*5TI/ER<Z`S(G.DZZ9OX0Z')=~/./g)x2,$_,
256),7,249);s/[^\w,]/ /g;$ \=/^J/?$/:"\r";print,redo}#JAPH,
------------------------------
Date: 23 Aug 2006 05:37:19 -0700
From: "Over G" <odperry@gmail.com>
Subject: Re: how can I find the driver list in perl
Message-Id: <1156336639.199134.223500@75g2000cwc.googlegroups.com>
that was a very rude answer. instead of answering my question stright
away you are using low sarcasm of the worst kind.
pathetic, don't bother to answer.
Are you sure that your name Start with DR.
which university gave you this ?!
(probably gaza strip university.)
Dr.Ruud wrote:
> Over G schreef:
>
> > [W]hat should I write in [P]erl in order t[o] get
> > the driver list in my computer?
>
> I assume that you share a car. You don't need Perl if you remember part
> of the name, or of the contents, of the file with the driver list, just
> use (example for Windows computer follows) [Start], Search.
>
> If you prefer to do it in Perl, then start by reading the Posting
> Guidelines that are posted here twice a week.
>
> --
> Affijn, Ruud
>
> "Gewoon is een tijger."
------------------------------
Date: Wed, 23 Aug 2006 12:47:29 GMT
From: "John W. Krahn" <someone@example.com>
Subject: Re: how can I find the driver list in perl
Message-Id: <B7YGg.10413$395.6659@edtnps90>
Michele Dondi wrote:
> On 23 Aug 2006 01:21:07 -0700, "Over G" <odperry@gmail.com> wrote:
>
>>what should I write in perl in order t get the driver list in my
>>computer?
>
> I'd *start* with
>
> perl -V::osname
I think you mean:
perl -V:osname
John
--
use Perl;
program
fulfillment
------------------------------
Date: 23 Aug 2006 13:08:34 GMT
From: anno4000@radom.zrz.tu-berlin.de
Subject: Re: how can I find the driver list in perl
Message-Id: <4l32aiF13anU1@news.dfncis.de>
Over G <odperry@gmail.com> wrote in comp.lang.perl.misc:
First, don't top-post.
> that was a very rude answer. instead of answering my question stright
> away you are using low sarcasm of the worst kind.
You thoughtlessly posted a question that has nothing to do with Perl
on a Perl newsgroup. On Usenet this is considered rude. It is even
more rude to use a language that saves you a handful of keystrokes
but leaves the reader guessing what you mean. You had a rude reply
coming. So what?
> pathetic, don't bother to answer.
>
> Are you sure that your name Start with DR.
> which university gave you this ?!
>
> (probably gaza strip university.)
Ah, ethnic slurs too. That certainly qualifies you to talk about rude.
Anno
------------------------------
Date: Wed, 23 Aug 2006 14:10:13 +0100
From: David Squire <David.Squire@no.spam.from.here.au>
Subject: Re: how can I find the driver list in perl
Message-Id: <echk3l$nqm$1@gemini.csx.cam.ac.uk>
Over G wrote:
[top-posting corrected. Please don't do that]
>
>
>
> Dr.Ruud wrote:
>> Over G schreef:
>>
>>> [W]hat should I write in [P]erl in order t[o] get
>>> the driver list in my computer?
>> I assume that you share a car. You don't need Perl if you remember part
>> of the name, or of the contents, of the file with the driver list, just
>> use (example for Windows computer follows) [Start], Search.
>>
>> If you prefer to do it in Perl, then start by reading the Posting
>> Guidelines that are posted here twice a week.
[quoted .sig snipped. Please don't do that]
> that was a very rude answer. instead of answering my question stright
> away you are using low sarcasm of the worst kind.
>
> pathetic, don't bother to answer.
You will be very unlikely to get help here unless you follow Dr. Ruud's
advice and read and follow the Posting Guidelines for this group.
>
> Are you sure that your name Start with DR.
> which university gave you this ?!
>
> (probably gaza strip university.)
And you call others rude!
*plonk*
DS
------------------------------
Date: 23 Aug 2006 15:53:03 +0200
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: how can I find the driver list in perl
Message-Id: <a9noe2dqopvh7sa36bllra5a0dibiubcuv@4ax.com>
On 23 Aug 2006 05:37:19 -0700, "Over G" <odperry@gmail.com> wrote:
>that was a very rude answer. instead of answering my question stright
>away you are using low sarcasm of the worst kind.
Not just as rude as both your answer and this further followup are.
The latter made even more severe by the rude use of top-posting.
>pathetic, don't bother to answer.
So long then...
>Are you sure that your name Start with DR.
>which university gave you this ?!
>
>(probably gaza strip university.)
Wow! So you're racist too.
Michele
--
{$_=pack'B8'x25,unpack'A8'x32,$a^=sub{pop^pop}->(map substr
(($a||=join'',map--$|x$_,(unpack'w',unpack'u','G^<R<Y]*YB='
.'KYU;*EVH[.FHF2W+#"\Z*5TI/ER<Z`S(G.DZZ9OX0Z')=~/./g)x2,$_,
256),7,249);s/[^\w,]/ /g;$ \=/^J/?$/:"\r";print,redo}#JAPH,
------------------------------
Date: Wed, 23 Aug 2006 08:54:31 -0500
From: Tad McClellan <tadmc@augustmail.com>
Subject: Re: how can I find the driver list in perl
Message-Id: <slrneeongn.f2l.tadmc@magna.augustmail.com>
Over G <odperry@gmail.com> wrote:
>
> that was a very rude answer.
Rude questions get rude answers.
You find that surprising?
> instead of answering my question stright
> away
You asked a question that has nothing to do with Perl programming.
This is the Perl programming newsgroup you know...
> pathetic, don't bother to answer.
I think you can count on a whole lot of people not answering
your questions from now on!
> Are you sure that your name Start with DR.
And what is *your* name?
> which university gave you this ?!
>
> (probably gaza strip university.)
Ad hominem attacks such as that indicate a lack of intellect.
So long!
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: 23 Aug 2006 15:55:38 +0200
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: how can I find the driver list in perl
Message-Id: <khnoe2tlvfpssc454hi3l5kvff0st698g0@4ax.com>
On Wed, 23 Aug 2006 12:47:29 GMT, "John W. Krahn"
<someone@example.com> wrote:
>> I'd *start* with
>>
>> perl -V::osname
>
>I think you mean:
>
> perl -V:osname
$ perl -V:osname
osname='linux';
$ perl -V::osname
'linux';
Typing more to print less! ;-)
Michele
--
{$_=pack'B8'x25,unpack'A8'x32,$a^=sub{pop^pop}->(map substr
(($a||=join'',map--$|x$_,(unpack'w',unpack'u','G^<R<Y]*YB='
.'KYU;*EVH[.FHF2W+#"\Z*5TI/ER<Z`S(G.DZZ9OX0Z')=~/./g)x2,$_,
256),7,249);s/[^\w,]/ /g;$ \=/^J/?$/:"\r";print,redo}#JAPH,
------------------------------
Date: 23 Aug 2006 07:54:32 -0700
From: "Over G" <odperry@gmail.com>
Subject: Re: how can I find the driver list in perl
Message-Id: <1156344871.979920.269920@74g2000cwt.googlegroups.com>
Tad McClellan wrote:
> Over G <odperry@gmail.com> wrote:
> >
> > that was a very rude answer.
>
>
> Rude questions get rude answers.
>
> You find that surprising?
>
>
> > instead of answering my question stright
> > away
>
>
> You asked a question that has nothing to do with Perl programming.
>
> This is the Perl programming newsgroup you know...
I will rephrase :
What command should I use IN THE PERL LANGUAGE in order to get the
list of available HD in my computer.
thanks.
>
> Ad hominem attacks such as that indicate a lack of intellect.
Lack of intellect is someone that can not understand simple question,
and prefer to attack with usless Sarcasm.
------------------------------
Date: 23 Aug 2006 08:02:47 -0700
From: "Paul Lalli" <mritty@gmail.com>
Subject: Re: how can I find the driver list in perl
Message-Id: <1156345367.851733.218480@75g2000cwc.googlegroups.com>
Over G wrote:
> what should I write in perl in order t get the driver list in my
> computer?
>
> (mean hard disk.)
Then why didn't you *say* hard disk to begin with? A synonym of "hard
disk" is "hard drive". "drivers" are something completely different.
The answer depends entirely on what system you're on. You didn't
include that, so I'll assume Microsoft Windows (because that's the
question to which I know the answer).
Go to http://search.cpan.org and search for "Win32::DriveInfo"
Paul Lalli
------------------------------
Date: Wed, 23 Aug 2006 11:43:33 +0100
From: The Magpie <usenet@mpreston.demon.co.uk>
Subject: Re: How do I run the MS Windows file search program from html
Message-Id: <echbgi$s4o$3$830fa795@news.demon.co.uk>
Ray Muforosky wrote:
>
> Task: I want to do file search, using the "conatining text" option from
> a web page.
>
> How do I search for a file on my local drive containing a certain
> string, from a web page. That is, how do run the windows search program
> from a web page.
>
Not, I am sure, by using Javascript - so I am afraid you will probably
need to ask in a Microsoft newsgroup.
------------------------------
Date: 23 Aug 2006 02:54:26 -0700
From: "deepseaorka@gmail.com" <deepseaorka@gmail.com>
Subject: invoking .exe file
Message-Id: <1156326866.669474.23660@74g2000cwt.googlegroups.com>
hi everyone,
i am new to this group. i am trying to invoke a tool through scripting
in perl. so anyone please tell me how i would invoke a .exe file with
perl
thanks
deep
------------------------------
Date: Wed, 23 Aug 2006 15:51:42 +0530
From: Murugesh <appumail@gmail.com>
Subject: Re: invoking .exe file
Message-Id: <44EC2C36.7080905@gmail.com>
system("cool.exe");
deepseaorka@gmail.com wrote:
>hi everyone,
>
>i am new to this group. i am trying to invoke a tool through scripting
>in perl. so anyone please tell me how i would invoke a .exe file with
>perl
>thanks
>
>deep
>
>
>
------------------------------
Date: 23 Aug 2006 12:53:56 +0200
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: invoking .exe file
Message-Id: <tqcoe2dvih68d31hh0ciouje99dgn0q27g@4ax.com>
On 23 Aug 2006 02:54:26 -0700, "deepseaorka@gmail.com"
<deepseaorka@gmail.com> wrote:
>i am new to this group. i am trying to invoke a tool through scripting
>in perl. so anyone please tell me how i would invoke a .exe file with
>perl
perldoc -f system
perldoc -f qx
perldoc -f open
(perldoc -f exec)
Michele
--
{$_=pack'B8'x25,unpack'A8'x32,$a^=sub{pop^pop}->(map substr
(($a||=join'',map--$|x$_,(unpack'w',unpack'u','G^<R<Y]*YB='
.'KYU;*EVH[.FHF2W+#"\Z*5TI/ER<Z`S(G.DZZ9OX0Z')=~/./g)x2,$_,
256),7,249);s/[^\w,]/ /g;$ \=/^J/?$/:"\r";print,redo}#JAPH,
------------------------------
Date: 23 Aug 2006 02:45:13 -0700
From: "Davy" <zhushenli@gmail.com>
Subject: Most useful standard module?
Message-Id: <1156326313.349336.168340@b28g2000cwb.googlegroups.com>
Hi all,
I have used Getopt::Std and File::Find. I found standard module useful.
Is there any artical summarize the most useful standard module?
Best regards,
Davy
------------------------------
Date: 23 Aug 2006 03:46:10 -0700
From: "Paul Lalli" <mritty@gmail.com>
Subject: Re: Most useful standard module?
Message-Id: <1156329970.821753.218450@h48g2000cwc.googlegroups.com>
Davy wrote:
> I have used Getopt::Std and File::Find. I found standard module useful.
>
> Is there any artical summarize the most useful standard module?
Your question is somewhat nonsensical. The most useful module is
dependent on what your program is trying to accomplish. List::Util
might be terribly useful in one script, but completely unnecessary in
another.
The two modules (really, pragmas) that you should have in EVERY script
are strict and warnings.
Paul Lalli
------------------------------
Date: 23 Aug 2006 04:27:03 -0700
From: "Klaus" <klaus03@gmail.com>
Subject: Re: Most useful standard module?
Message-Id: <1156332423.140394.157700@i3g2000cwc.googlegroups.com>
Davy wrote:
> I have used Getopt::Std and File::Find. I found standard module useful.
>
> Is there any artical summarize the most useful standard module?
The answer to this question depends very much on personal style and
preferences.
There is an article about modules by Damian Conway at
http://www.oreilly.com/pub/wlg/7507
Those modules look "most useful" to me (although I don't know if they
are "standard" yet)
There is also a podcast from OSCON 2005 where Damian himself presented
his modules:
2005-09-10: This is a recording of Damian Conway presenting the Conway
Channel 2005 at O'Reilly's Open Source Convention in Portland Oregon.
at http://www.perlcast.com/episodes
direct link to podcast:
http://perlcast.com/audio/Perlcast_Presentation_001_Conway_Channel_OSCON_2005.mp3
------------------------------
Date: Wed, 23 Aug 2006 08:32:51 -0500
From: l v <veatchla@yahoo.com>
Subject: Re: Most useful standard module?
Message-Id: <1156339307_16607@sp6iad.superfeed.net>
Davy wrote:
> Hi all,
>
> I have used Getopt::Std and File::Find. I found standard module useful.
>
> Is there any artical summarize the most useful standard module?
>
> Best regards,
> Davy
>
I can only think of two. All others depend on the purpose of the program.
use strict;
use warnings;
--
Len
Posted Via Usenet.com Premium Usenet Newsgroup Services
----------------------------------------------------------
** SPEED ** RETENTION ** COMPLETION ** ANONYMITY **
----------------------------------------------------------
http://www.usenet.com
------------------------------
Date: 23 Aug 2006 07:52:56 -0700
From: "Larry.Martell@gmail.com" <Larry.Martell@gmail.com>
Subject: perl for windows
Message-Id: <1156344776.856367.126240@b28g2000cwb.googlegroups.com>
The activestate web site seems to be down, and has been for a couple of
days. Is there another site I can download perl for windows from?
TIA!
-larry
------------------------------
Date: Wed, 23 Aug 2006 09:40:15 -0400
From: Uri Guttman <uri@stemsystems.com>
Subject: Re: read file backwards
Message-Id: <x7pserh8ow.fsf@mail.sysarch.com>
>>>>> "CD" == Charles DeRykus <ced@blv-sam-01.ca.boeing.com> writes:
CD> kejoseph@hotmail.com wrote:
>> Hi,
>> I need to read a file in Perl backwards but -
>> I have read tips about reading the file into an array and then
>> reading
>> the array in the reverse. Now, bearing in mind the fact that the log
>> files I will be reading will be anywhere from 10-100mb, I dont think
>> this is a very good idea.
>> I have also read about using Perl modules like FileBackwards or
>> File::Tie.
>> I do not want either of the above. I need to know whether there is a
>> way to read it backwards without having to use any of the above. In
>> other words read a file backwards using "shrink-wrapped" Perl.
>>
CD> You could use File::ReadBackwards' strategy with seek/tell. You'll
CD> probably learn quite a bit more than you anticipated trying to emulate
CD> that module however :)
you can write a much simpler bastard version of my module for sure. the
basics are very easy. much of my work was optimizing its speed and
handling options and such. also there were some corner cases that needed
debugging. i bet it could be done in about 20-30 lines of code if
stripped down to its basics.
i always get pissed at perl hackers who claim they can't or won't use
modules. this is almost always an easy restriction to bypass, either by
loading modules in another place, putting the modules in with their own
modules (they do code in modules? is that a restriction too?) or even
just cutting/pasting the (pure perl only) module code into their stupid
large single script. the fact that they have access to perl but not
access to modules shows massive brane damage on someone's part (their
isp, the developer, the boss, the vp of stupidity).
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: 23 Aug 2006 10:47:44 +0200
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: Spazio utilizzato dagli utenti
Message-Id: <qu4oe25gee1m4usjcufvs093pg85638l02@4ax.com>
On 22 Aug 2006 15:04:35 -0700, alessandro.mendolia@gmail.com wrote:
>Ciao a tutti, =E8 da un po che scandaglio questo NG ma non ho trovato
>nessuno con un problema simile al mio dal quale capirci qualcosa di
>+=2E..
Sicuro che non sia it.*perl.qualchecosa? O scrivi in italiano per
simpatia?!?
>in modo da poi riesaminare il file FileList.txt ed eseguire la somma
>dei valori di ogni singola riga, e ricavare quindi lo spazio utilizzato
>da quel determinato utente...
[snip]
>L' output che mi interessa =E8 la seconda colonna che questo comando mi
>restituisce:
>find /home/Shared/* -user alessandro -ls
find /home/Shared/* -user alessandro -ls |
perl -lane '$t+=$F[1]; END { print $t }'
But I wouldn't scan /home/Shared/ repeatedly for each user, if that's
what you want to do. And I'd probably use Perl's stat(), and either
the find cmd or File::Find (or one of it's relatives) depending on how
much this is a quick one time hack as opposed to a script to be used
over and over again.
Michele
--
{$_=pack'B8'x25,unpack'A8'x32,$a^=sub{pop^pop}->(map substr
(($a||=join'',map--$|x$_,(unpack'w',unpack'u','G^<R<Y]*YB='
.'KYU;*EVH[.FHF2W+#"\Z*5TI/ER<Z`S(G.DZZ9OX0Z')=~/./g)x2,$_,
256),7,249);s/[^\w,]/ /g;$ \=/^J/?$/:"\r";print,redo}#JAPH,
------------------------------
Date: 23 Aug 2006 04:43:12 -0700
From: rider.hibiki@gmail.com
Subject: taint issues in utf8_heavy.pl
Message-Id: <1156333391.984869.122800@p79g2000cwp.googlegroups.com>
Has anyone come across taint issues in utf8_heavy.pl under perl 5.8.5
I've been getting Insecure Dependency errors in utf8_heavy.pl when it
is doing the files in unicore/gc and I can't work out where they're
coming from.
I've set some debug around the area its failing.
warn "DJR attempting to do [$file]";
use Scalar::Util;
warn "DJR file variable is tainted ?". Scalar::Util::tainted($file);
$list = do $file; # this is the original bit thats failing.
This gives me the following in my error logs.
[Wed Aug 23 12:21:08 2006] null: DJR attempting to do
[unicore/lib/gc_sc/Word.pl] at /usr/lib/perl5/5.8.5/utf8_heavy.pl line
185.
[Wed Aug 23 12:21:08 2006] null: DJR file variable is tainted ?0 at
/usr/lib/perl5/5.8.5/utf8_heavy.pl line 187.
[Wed Aug 23 12:21:08 2006] [error] [Wed Aug 23 12:21:08 2006] null:
Insecure dependency in require while running with -T switch at
/usr/lib/perl5/5.8.5/utf8_heavy.pl line 188.\n
I'm not sure how I could be getting an Insecure dependency when the
only thing being used is the $file variable and Scalar::Util shows that
variable to not be tainted.
Thanks
Dave
------------------------------
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 9638
***************************************
