[10134] in Perl-Users-Digest
Perl-Users Digest, Issue: 3727 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Sep 16 11:08:19 1998
Date: Wed, 16 Sep 98 08:00:20 -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 Wed, 16 Sep 1998 Volume: 8 Number: 3727
Today's topics:
Re: Creating users under Win32 <rlaflamm@sscinc.com>
editing a database textfile <webmaster@e-mouse.nl>
Re: editing a database textfile <tom@smart.ruhr.de>
Error in making perl5.004 khai@expert-market.com
Re: Get words out of a string. dave@mag-sol.com
Re: getting number of elements in multiple dimensions droby@copyright.com
Re: how safe is xor encryption ? <jim.michael@gecm.com>
Re: how safe is xor encryption ? <bbense+comp.lang.perl.misc.Sep.16.98@telemark.stanford.edu>
HTTPS cgi problem <rarab@sympatico.ca>
Is there any FAQ? <elchmann@hotmail.com>
noch was <peterv@mpc186.mpibpc.gwdg.de>
Re: noch was <peterv@mpc186.mpibpc.gwdg.de>
Re: NT Login Script via PERL? (RonBo)
Open directory in perl <andy@here.ml.org>
Re: Open directory in perl <Tony.Curtis+usenet@vcpc.univie.ac.at>
Re: Perl & Java - differences and uses (yclept Keshlam)
Re: Perl and the GD-Library <internet@reimer.ch>
Re: Searching a File for String <finortis@intrex.net>
Re: Transposing an array (Mick Farmer)
Re: Transposing an array <uri@sysarch.com>
trouble installing perl5 on aix kstinson@my-dejanews.com
Using the MIME::base64 module <tor@kmd.dk>
Re: Using the MIME::base64 module <Tony.Curtis+usenet@vcpc.univie.ac.at>
Re: Warning - completely non-PERL content - was Re: Sho (Mark-Jason Dominus)
Re: While loop with regex as condition? (Tad McClellan)
Re: Who posts original posts on CLPM? (Andrew M. Langmead)
Special: Digest Administrivia (Last modified: 12 Mar 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Wed, 16 Sep 1998 09:48:44 -0400
From: "bob laflamme" <rlaflamm@sscinc.com>
Subject: Re: Creating users under Win32
Message-Id: <6tofk6$7gj$1@client3.news.psi.net>
Elaine -HappyFunBall- Ashton wrote in message
<35FEDE27.622A9D71@bbnplanet.com>...
>bob laflamme wrote:
>
>> I have a script which does some basic administration tasks under NT.
>> The problem I'm up aginst right now is how to fill in all the fields when
I
>> create a new user. I'm able to get everything except the 'User Profile
Path'
>> set. So far I have been unable to locate a function the let me set it
>> (AdminMisc or NetAdmin).
>
>This really isn't a Perl question. Why not try 'net user /?'. This will
>list all of the options with the 'net user' command which includes
>/PROFILEPATH I believe.
>Enjoy.
>
It looked like a good way at first, but having programatic control over the
process would be nicer. Using this would require batch files, etc.. much
harder to verify things....
thanks
bob
------------------------------
Date: Wed, 16 Sep 1998 12:47:42 +0200
From: "J. Strijb" <webmaster@e-mouse.nl>
Subject: editing a database textfile
Message-Id: <35FF974E.6320F4D4@e-mouse.nl>
Hi,
i want to know how to search trough a pipeline delimited database text
file,
and edit the value's i find.
example:
when the following line's are in the file "pizza.txt" .
pizza|mushrooms|5,50
pizza|cheese|6,50
and i want to change the mushroom in to peppers how do i do that.
Thanks in advance,
Jeroen Strijb
------------------------------
Date: 16 Sep 1998 13:54:53 +0200
From: Thomas Neumann <tom@smart.ruhr.de>
Subject: Re: editing a database textfile
Message-Id: <87pvcwqnle.fsf@smart.ruhr.de>
"J. Strijb" <webmaster@e-mouse.nl> writes:
> i want to know how to search trough a pipeline delimited database text
> file,
> and edit the value's i find.
> example:
>
> when the following line's are in the file "pizza.txt" .
>
> pizza|mushrooms|5,50
> pizza|cheese|6,50
>
> and i want to change the mushroom in to peppers how do i do that.
Regardless of the contents of the other fields?
sed -e 's/mushrooms/peppers/g' pizza.txt > pizza.txt.new
or, using perl instead of sed
perl -spi.bak -e 's/mushrooms/peppers/g' pizza.txt
-t
------------------------------
Date: Wed, 16 Sep 1998 12:19:34 GMT
From: khai@expert-market.com
Subject: Error in making perl5.004
Message-Id: <6toacm$p0r$1@nnrp1.dejanews.com>
Hello everyone, i'm having a problem w/ perl5.004 when i tried "make". it
gave me this error message: i386ld fatal: Symbol referencing errors. No
output written to libperl.a *** Error code 13 (bu21) and i think it has to do
with dynamic loader. we need dynamic loader on our server in order to
install DBI, DBD. anyway, when i tried "make clean," i got error messages
like this: Making DynaLoader (clean) ext/util/make_ext: ../../miniperl: not
found Warning: No Makefile! don't know how to make clean (bu42).
Making Fcntl (clean)
ext/util/make_ext: ../../miniperl: not found
Warning: No Makefile!
don't know how to make clean (bu42).
Making IO (clean)
ext/util/make_ext: ../../miniperl: not found
Warning: No Makefile!
don't know how to make clean (bu42).
Making Opcode (clean)
ext/util/make_ext: ../../miniperl: not found
Warning: No Makefile!
don't know how to make clean (bu42).
and so on...
anyhow, I NEED YOUR HELP! does anyone have a clue on what's going on? please
email me at khai@my-dejanews.com.
i'm greatly appreciated.
thanks
kh
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/rg_mkgrp.xp Create Your Own Free Member Forum
------------------------------
Date: Wed, 16 Sep 1998 11:05:35 GMT
From: dave@mag-sol.com
To: bill@highwater.co.uk
Subject: Re: Get words out of a string.
Message-Id: <6to61u$l76$1@nnrp1.dejanews.com>
[Copy of Usenet posting emailed to sited author]
In article <35FF77E8.697F704C@highwater.co.uk>,
Billy Bagshaw <bill@highwater.co.uk> wrote:
> Hi,
> All I want is a list of words that, in the original string, were
> seperated my any number of tabs or white space.
>
> @words = split("fred\t \tjohn \t Jane",?????);
For details of how to use split try 'perldoc perlfunc' or 'perldoc -f split'
or whatever passes for the Perl documentation on your system. You'll find
that you have the parameters to split the wrong way round.
The first parameter is a regular expression to split the string on. Your
split criteria seems to be a random assortment of spaces and tabs. To build a
regular expression to match this, try looking in 'perldoc perlre'.
Big Hints:
\s will match one whitespace character.
+ will match one or more of the preceding expression.
hth,
Dave...
--
dave@mag-sol.com
London Perl M[ou]ngers: <http://www.mag-sol.com/London.pm/>
Give a progammer the answer to a FAQ and they can hack for a day.
Show them how to read the manual and they can hack for life.
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/rg_mkgrp.xp Create Your Own Free Member Forum
------------------------------
Date: Wed, 16 Sep 1998 14:21:07 GMT
From: droby@copyright.com
Subject: Re: getting number of elements in multiple dimensions
Message-Id: <6tohgi$vk7$1@nnrp1.dejanews.com>
In article <6tmce3$v2b$4@strato.ultra.net>,
sowmaster@juicepigs.com (Bob Trieger) wrote:
>
> Both original posters may be in the same class and you just did their
> homework for them.
>
I wonder if the instructor reads this group. I certainly would if I were
teaching the class.
--
Don Roby <droby@copyright.com>
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/rg_mkgrp.xp Create Your Own Free Member Forum
------------------------------
Date: Wed, 16 Sep 1998 08:46:38 -0400
From: Jim Michael <jim.michael@gecm.com>
Subject: Re: how safe is xor encryption ?
Message-Id: <35FFB32E.6F33@gecm.com>
Mark-Jason Dominus wrote:
>
> >say, a cracker has somehow reached to the database, full of credit card
> >numbers encrypted in that manner.
>
> 1. If the cracker knows any one entire credit card number, perhaps
> because they inserted it themselves, they can easily figure out
> what your secret pad is, and decrypt all the other numbers.
It was proposed that each CC# would be encrypted using a different key
supplied by the CC owner (CC owner will supply a phrase, credit card
security code (CCSC): $enc = $cc ^ $ccsc;), so deciphering one would not
supply the key to the others. However, CC#s have a common beginning
number sequence which identifies the CC type (MC, Visa, etc.), do they
not? By xor'ing these beginning sequences you may be able to guess the
ending sequence in many cases (people tend to use common words or
phrases for passwords) or greatly reduce the search space.
> 2. A cracker who has gotten into the database has probably also gotten
> into your source code.
Or your keys.
Cheers,
Jim
------------------------------
Date: 16 Sep 1998 14:06:47 GMT
From: <bbense+comp.lang.perl.misc.Sep.16.98@telemark.stanford.edu> ;
Subject: Re: how safe is xor encryption ?
Message-Id: <6togln$820$1@nntp.Stanford.EDU>
In article <35ff839e.21743886@news.interport.net>,
Allan Peda <allan@interport.net> wrote:
>As a first guess... look into calling crypt() on a key generated by a
>call to rand(). Save the encrypted key in another database, perhaps
>on another machine? There is also a module called Crypt.
>
>In any event it's a heck of a lot better than XOR
- - Actually xor is perfect security if it's used correctly.
Unfortunately it's almost impossible to get a sufficiently
random set of key data and it's horrible security if used
incorrectly. In this case it almost makes sense, the problem
is with usablity.
- - The programmer is terribly naive about users if he thinks
that asking them for a string the length of their CC # + expiration
data is a workable solution. How are they going to remember it?
If he stores the key on the machine the encryption is useless.
- - The best reference on actually using encryption is
"Applied Cryptography", by Bruce Schneier
- - If the key and the encrypted data exist on the same machine
you don't gain any security from hackers. What you do gain is
a reduction in the internal "temptation" factor, sysadmins can't
inadvertantly see personal data. It requires that they demonstrate
intent to aquire the data.
- - Booker C. Bense
Version: 2.6.2
iQCVAwUBNf/F9AD83u1ILnWNAQE3CwQA13j5OOlYmNj2kd01UR8ujlP5xw24z2JC
iLD8UYdJWd8CTalbPS53we7YRea2Ou/mOumNblSHXqlb5y59bGiUDMV8spR9+pZ/
oA1Z+EYgkyQKOLw7qbeSPyuXi7TaNbSlK42n+DlyPvmFo6yXGNzrGO+WgL+Rjwyz
DXhpNmw79vM=
=hBT5
-----END PGP SIGNATURE-----
------------------------------
Date: Wed, 16 Sep 1998 13:08:02 GMT
From: "R. Arab" <rarab@sympatico.ca>
Subject: HTTPS cgi problem
Message-Id: <35FFB739.604806EB@sympatico.ca>
Hello there,
I have installed the libwww-perl-5.36 module for Perl, however I can not
do https CGI requests.
Running this script:
###########################################################
#!/usr/local/bin/perl
use LWP::UserAgent;
$ua = new LWP::UserAgent;
my $req = new HTTP::Request 'POST','https://localhost';
$req->content_type('application/x-www-form-urlencoded');
$req->content('match=www&errors=0');
my $res = $ua->request($req);
print $res->as_string;
exit;
###########################################################
Gives me the following error:
501 (Not Implemented) Protocol scheme 'https' is not supported
If anyone has the experience in doing https-CGI from perl I would
appreciate your help in this area.
Thanks.
Regards,
Ryan
------------------------------
Date: Wed, 16 Sep 1998 15:44:47 +0200
From: "Hansi Hinterseer" <elchmann@hotmail.com>
Subject: Is there any FAQ?
Message-Id: <6tofch$d28$1@scesie13.sie.siemens.at>
Hi!
I wondered if there is a FAQ about Perl or the NGs. Is there? Or any
recommended tutorials?
Thanks, Hansi
------------------------------
Date: Wed, 16 Sep 1998 13:27:05 +0200
From: Peter Verveer <peterv@mpc186.mpibpc.gwdg.de>
To: "Schmidt-Nagel, Marion" <MSchmidt-Nagel@TuevNord.de>
Subject: noch was
Message-Id: <35FFA089.9F4F150C@mpc186.mpibpc.gwdg.de>
Hi Marion,
Bin noch was vergessen: Morgen (Donnerstag) bin ich nicht da, also kein
Email. Muss morgen nach Basel f|r ein gesprdch. Geht um ein Antrag das
ich gemacht habe f|r Geld von die Europdische Union. (Damit ich spdter
in London auch was zu essen habe...) Schreibe dir Freitag wie das war.
Pieter.
--
Peter Verveer
Max Planck Institute for Biophysical Chemistry
Department of Molecular Biology
Am Fassberg 11
D-37077 Goettingen, Germany
phone: 0551-201-1389
fax: 0551-201-1467
email: peterv@mpc186.mpibpc.gwdg.de
------------------------------
Date: Wed, 16 Sep 1998 13:36:20 +0200
From: Peter Verveer <peterv@mpc186.mpibpc.gwdg.de>
Subject: Re: noch was
Message-Id: <35FFA2B4.858C3B8@mpc186.mpibpc.gwdg.de>
Peter Verveer wrote:
>
> Hi Marion,
>
> Bin noch was vergessen: Morgen (Donnerstag) bin ich nicht da, also kein
> Email. Muss morgen nach Basel f|r ein gesprdch. Geht um ein Antrag das
> ich gemacht habe f|r Geld von die Europdische Union. (Damit ich spdter
> in London auch was zu essen habe...) Schreibe dir Freitag wie das war.
Sorry about that. This message was not supposed to go to this group...
--
Peter Verveer
Max Planck Institute for Biophysical Chemistry
Department of Molecular Biology
Am Fassberg 11
D-37077 Goettingen, Germany
phone: 0551-201-1389
fax: 0551-201-1467
email: peterv@mpc186.mpibpc.gwdg.de
------------------------------
Date: Wed, 16 Sep 1998 13:01:45 GMT
From: snorjb@wnt.sas.com (RonBo)
Subject: Re: NT Login Script via PERL?
Message-Id: <3602b25f.84267828@newshost.unx.sas.com>
I agree with Jamie - here is what I'm doing with my NT Login Script
using ActiveState PERL.
I'm very intereseted in using PERL for my NT login script, and my 5000
clients DO NOT have PERL installed on their PCs. I have a mixture of
NT Workstation and WIN95 clients. The challenge I'm working out now
is how to have the clients execute this PERL script at login time.
The NETLOGON share is a default share that lives on each Domain
Controller. (Under NT, the DCs authenticate each user during their
login attempt). This NETLOGON share is replicated between all Domain
Controllers and houses the logins script (and supporting files). This
way, any client can hit any DC for authentication purposes.
I've compiled my LOGIN.PL into LOGIN.EXE using PERL2EXE by Mercury
Systems (www.demobuilder.com). During compilation, it binds in all
*.PM and *.DLL needed, and produces one big fat *.EXE. The one gotcha
introduced with PERL2EXE ver 3.01, it requires that PERLCRTL.DLL be in
your path; for some reason it wont bind this one DLL into the EXE.
So, I had to put this single DLL, along with the compiled EXE onto the
NETLOGON share of my Domain Controllers.
One of the central things I'm doing during login is extracting
specific delimited values from the User Comment field. I use:
Win32::NetAdmin::UserGetAttributes($DCserver,$u,$password,$passwordAge,
$privilege,$homeDir,$comment,$flags,$scriptPath) || warn();
I then chop us $comment using this subroutine:
$EMPID=chop_comment("<",">");
$DEPT=chop_comment("(",")");
$ROOMNO=chop_comment("{","}");
sub chop_comment
{
my $a = shift;
my $b = shift;
my $c ;
my $start;
my $end;
my $length;
$start = index($comment,$a);
$end = index($comment,$b);
$length = ($end - $start) -1;
if ( $length != 0 )
{
$c = substr( $comment, $start+1, $length );
return $c;
} elsif ( $length = 0 )
{
$c = "not found";
return $c;
}
}
The last hurdle I'm working through is incompatibility of various
WIN32::MODULES with my WIN95 clients. For instance, the NetAdmin
used above doenst work under WIN95, and I'm looking for an
alterantive.
If anyone else is working on NT Login Scripts with ActiveState PERL,
I'd love to discuss ideas and strategies.
Ronnie Bouchon
snorjb@wnt.sas.com
On Wed, 16 Sep 1998 09:07:53 +1000, Jaime Metcher
<metcher@spider.herston.uq.edu.au> wrote:
>Bill 'Sneex' Jones wrote:
>>
><snip>
>> PS - What I do know about security tells I wouldn't mess with
>> re-writing the NT Log-in functions with Perl, it isn't safe.
>
>No messing with log-in functions was implied. NT either logs you in or
>not as it desires. As the price for getting NT to log you in, your
>workstation has to promise to run any program the server tells it to,
>just this once (per logon). This is the logon script - a priceless
>opportunity for the sysadm to take control! And what better language to
>do it in than Perl?
>
>--
>Jaime Metcher
------------------------------
Date: Wed, 16 Sep 1998 10:40:38 -0400
From: cedilnik andrej <andy@here.ml.org>
Subject: Open directory in perl
Message-Id: <35FFCDE5.F9C20D3E@here.ml.org>
Hi!
I have directory full of .dat files. Now I would like to open each file
and check first line to see if it match and what it is.
How do I open directory?
Please make CC to andy@here.ml.org
Andy
------------------------------
Date: 16 Sep 1998 16:44:04 +0200
From: Tony Curtis <Tony.Curtis+usenet@vcpc.univie.ac.at>
Subject: Re: Open directory in perl
Message-Id: <83lnnkyv63.fsf@vcpc.univie.ac.at>
Re: Open directory in perl, cedilnik <andy@here.ml.org>
said:
cedilnik> Hi! I have directory full of .dat files. Now I
cedilnik> would like to open each file and check first line
cedilnik> to see if it match and what it is.
cedilnik> How do I open directory?
^^^^^^^^
perldoc perlfaq
perldoc perltoc
perldoc -f opendir
--
Tony Curtis, Systems Manager, VCPC, | Tel +43 1 310 93 96 - 12; Fax - 13
Liechtensteinstrasse 22, A-1090 Wien, | <URI:http://www.vcpc.univie.ac.at/>
"You see? You see? Your stupid minds! | private email:
Stupid! Stupid!" ~ Eros, Plan9 fOS.| <URI:mailto:tony_curtis32@hotmail.com>
------------------------------
Date: Wed, 16 Sep 1998 09:26:14 -0400
From: "Joseph Kesselman (yclept Keshlam)" <keshlam@alum.mit.edu>
Subject: Re: Perl & Java - differences and uses
Message-Id: <35FFBC76.D3F6DB2F@alum.mit.edu>
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".
C is an excellent language for the tasks that it's an excellent
language for, an adequate language for many other tasks,
tolerable for just about anything, and can produce tight code.
As such, it's something of a swiss-army-knife language; you may
want it in your toolkit even if it isn't your first choice. C
will handle some things that would otherwise force you into
assembler, for example.
But no language is perfect even for a single task, never mind all
tasks. When comparing languges, you MUST do so in the context of
particular solution domains. Hammers don't work well on screws, and
screwdrivers don't drive nails very well.
I program in REXX, Java, C, ECMAscript, XSL, and anything else
that will get the job done. They're _all_ good for some things,
less good for others.
Java's a good language for its target domains. So is Perl.
Use the language (a) that you have available, (b) that is a good
match for the way you want to approach the problem, and (c) that
offers the robustness-versus-flexibility tradeoff you're comfortable
with.
-----------------------------------------------------------------
Joe Kesselman ("Keshlam"), http://www.lovesong.com/people/keshlam
October 3rd: NEW YORK CITY LABOR CHORUS w/ special guest PETER YARROW
performing at Walkabout Clearwater, http://www.lovesong.com/walkabout
------------------------------
Date: Wed, 16 Sep 1998 13:04:27 +0200
From: Patrick Stalder <internet@reimer.ch>
Subject: Re: Perl and the GD-Library
Message-Id: <35FF9B3B.3D825F@reimer.ch>
Hi,
The close application window comes 3 times before the program ends. Here
is the error message in the detail window from windows.
PERL4 verursachte einen Fehler durch eine ung|ltige Seite
in Modul GD.DLL bei 014f:00b48892.
Register:
EAX=000000de CS=014f EIP=00b48892 EFLGS=00010206
EBX=000000de SS=0157 ESP=0072f588 EBP=0072f69c
ECX=00000004 DS=0157 ESI=00b55438 FS=3a27
EDX=00000000 ES=0157 EDI=00b65438 GS=3a16
Bytes bei CS:EIP:
89 11 83 07 04 3b 1c 9e 8b 1c 9e 3b 1d 30 54 b5
Stapelwerte:
0000001a 0000000c 007ba7ac 0000002e 0072f5c8 00b47745 007a0000 0000002e
0000004d 0072f5cc 00b46d7e 007a0000 0000002e 0000004c 0000004b 007a0000
Maybe this helps.
Bye
Patrick
------------------------------
Date: Wed, 16 Sep 1998 08:37:00 -0700
From: "finortis" <finortis@intrex.net>
Subject: Re: Searching a File for String
Message-Id: <6tobbm$sp1$1@supernews.com>
Gees guys,
It's not that hard to do....And some of you shouldn't have such attitudes
about helping out others, even if they ask pretty basic questions....Here
you go.
my $filename = "actual file name";
open (HANDLE,"$filename") || die "can't open $filename\n";
my @FILE = <HANDLE>;
my $line = "";
my $searchString = "whatever";
my $secSearch = "";
my @toRight = ();
foreach $line (@FILE) {
my @searchNum = ($line =~ m/$searchString/g;)
foreach $secSearch (@searchNum) {
$line =~ m/$searchString (\S+)/g;)
push (@toRight,$1);
}
}
I gotta run...I haven't tested this, but I think this should work. I'll run
it later, and post any changes if needed.
Finortis
------------------------------
Date: Wed, 16 Sep 1998 11:26:16 GMT
From: mick@picus.dcs.bbk.ac.uk (Mick Farmer)
Subject: Re: Transposing an array
Message-Id: <EzDJrs.1sB@mail2.ccs.bbk.ac.uk>
Dear Gary(?),
Here's something that works for your first problem.
use strict;
my @old = ([1, 2, 3],
[4, 5, 6]);
my @new;
push @new, [map { shift @$_ } @old]
while @{$old[0]};
foreach (@new) {
print "@$_\n";
}
You can easily adapt this approach for your second problem.
Regards,
Mick
------------------------------
Date: 16 Sep 1998 10:37:15 -0400
From: Uri Guttman <uri@sysarch.com>
Subject: Re: Transposing an array
Message-Id: <x7hfy8xgx0.fsf@sysarch.com>
>>>>> "MF" == Mick Farmer <mick@picus.dcs.bbk.ac.uk> writes:
MF> my @old = ([1, 2, 3],
MF> [4, 5, 6]);
MF> my @new;
MF> push @new, [map { shift @$_ } @old]
MF> while @{$old[0]};
i hope you realize that this is destructive on @old. the other solutions
were not. it can make a big difference!
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: Wed, 16 Sep 1998 13:50:58 GMT
From: kstinson@my-dejanews.com
Subject: trouble installing perl5 on aix
Message-Id: <6tofo2$tsr$1@nnrp1.dejanews.com>
I am trying to install perl5.004_04 on an AIX machine. I run the Configure
script and let it assign the defaults for everything. The when I run make it
works for a while then I end up with the following output.
<OUTPUT STARTS HERE>
Writing Makefile for DynaLoader
mkdir ../../lib/auto/DynaLoader
The Unsupported function umask function is unimplemented at
../../lib/ExtUtils/Install.pm line 247.
make: 1254-004 The error code from the last command is 2.
Stop.
make: 1254-004 The error code from the last command is 2.
Stop.
<OUTPUT END HERE>
Does anyone know what might be the problem here?
thanks,
Kevin
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/rg_mkgrp.xp Create Your Own Free Member Forum
------------------------------
Date: Wed, 16 Sep 1998 16:12:21 +0200
From: "Torfinn Keringen" <tor@kmd.dk>
Subject: Using the MIME::base64 module
Message-Id: <6toh21$okk$1@news1.tele.dk>
Hy
When I want to decode a message that is base64 encoded, I want to decode
just the part that is encoded not the header.
How can I position me to where the header ends and the mime encodeing
starts.
Torfinn --> tor@kmd.dk
----------------------------------------------------------------------------
----
use MIME::base64 ();
while (<>) {
print Mime::Base64::decode($_);
}
------------------------------
Date: 16 Sep 1998 16:22:21 +0200
From: Tony Curtis <Tony.Curtis+usenet@vcpc.univie.ac.at>
Subject: Re: Using the MIME::base64 module
Message-Id: <83n280yw6a.fsf@vcpc.univie.ac.at>
Re: Using the MIME::base64 module, Torfinn <tor@kmd.dk>
said:
Torfinn> Hy When I want to decode a message that is base64
Torfinn> encoded, I want to decode just the part that is
Torfinn> encoded not the header. How can I position me to
Torfinn> where the header ends and the mime encodeing
Torfinn> starts.
Torfinn> ---- use MIME::base64 (); while (<>) { print
Torfinn> Mime::Base64::decode($_); }
use Mail::Internet;
then extract the Mail::Header and/or the body (reference).
Then you can decode the body.
hth
tony
--
Tony Curtis, Systems Manager, VCPC, | Tel +43 1 310 93 96 - 12; Fax - 13
Liechtensteinstrasse 22, A-1090 Wien, | <URI:http://www.vcpc.univie.ac.at/>
"You see? You see? Your stupid minds! | private email:
Stupid! Stupid!" ~ Eros, Plan9 fOS.| <URI:mailto:tony_curtis32@hotmail.com>
------------------------------
Date: 16 Sep 1998 09:39:10 -0400
From: mjd@op.net (Mark-Jason Dominus)
Subject: Re: Warning - completely non-PERL content - was Re: Shopping Cart Systems
Message-Id: <6tof1u$3cj$1@monet.op.net>
In article <6tntj2$pt8$1@ezekiel.eunet.ie>,
Gary Mc Closkey <duff@duffduff.com> wrote:
>Jesuits can't be women?
Last I heard, the Catholics were firmly committed to a no-women policy
for priests in general, not just jesuits.
If it bugs you, complain to the Pope.
------------------------------
Date: Wed, 16 Sep 1998 08:52:41 -0500
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: While loop with regex as condition?
Message-Id: <9rfot6.uf1.ln@metronet.com>
Matt Hughes (mhughe@acs.ucalgary.ca) wrote:
: Can you use a regular expression as the condition for a while loop?
Yes.
: Code Snip:
: while (/((\S+)\((\S+)\))/) {
^^^
This might match a lot of characters. Consider:
$_ = '<A HREF="my.cgi?manpage=STRSTR§ion=3">STRSTR(3)</A>';
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Your s/// below puts substrings like the above into $_,
which will match on the next loop iteration.
You should use s///g so that the pattern match will retain state
and not start over at the beginning of the string each time it
attempts a match.
: $str = $1;
: $page = $2;
: $sec = $3;
: $page =~ s/\S\010//g;
: $sec =~ s/\S\010//g;
: s/\Q$str/<A
: HREF="$script\?manpage=$page§ion=$sec">$page($sec)<\/A>/g;
^ ^
^ ^
Those are not needed.
I increase my worry-factor when I see such things in OPC (Other
People's Code). If the author really knew what they were doing,
those wouldn't have been in there.
When my worry-factor passes my worry-threshold, I give up using
the OPC and code it up myself ;-)
: }
: This snippet is from a man page to HTML converter on a linux box.
: The input is formatted by nroff, and most of the script converts it to
: html. This looks for words that are imediatly followed by parentesis
: with a number
It does indeed match what you described, but it also matches
a whole bunch of stuff that you didn't describe.
I'd tighten it up, and replace the whole while() loop with:
s!([\w\010]+)\((\d+)\)!
$page = $1;
$sec = $2;
$page =~ s/\S\010//g;;
$sec =~ s/\S\010//g;;
qq[<A HREF="$script?manpage=$page§ion=$sec">$page($sec)</A>]
!ge;
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: Wed, 16 Sep 1998 14:36:19 GMT
From: aml@world.std.com (Andrew M. Langmead)
Subject: Re: Who posts original posts on CLPM?
Message-Id: <EzDsKJ.6yK@world.std.com>
gebis@fee.ecn.purdue.edu (Michael J Gebis) writes:
>I like the fact that my news agent is listed as "NN Version."
>I'm disappointed by the fact that I'm apparently the only one using
>"NN Version." I'm just old-school, I guess.
But not all installations of "nn" add the "X-Newsreader" header. (I
don't know whether it is the default or not, but it doesn't show up in
my posts.)
If it makes you feel better, assume that all of the newsreaders in the
"unknown" catagory must have been "nn".
--
Andrew Langmead
------------------------------
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 3727
**************************************
