[7312] in Perl-Users-Digest
Perl-Users Digest, Issue: 937 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Thu Aug 28 10:07:21 1997
Date: Thu, 28 Aug 97 07:00:25 -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, 28 Aug 1997 Volume: 8 Number: 937
Today's topics:
Re: "Rename-File-Names" Script Needed, Please <tom@mitra.phys.uit.no>
Re: basic question (Bernhard Muenzer)
calling C program within perl CGI script <M.Grimshaw@music.salford.ac.uk>
Re: Convert to hex <Marc_Filthaut@HP.com>
File::Find and symbolic links (Helmut Jarausch)
Re: Find case conversion script for filenames <clark@s3i.com>
FTP with perl (Matt Weber)
Re: FTP with perl (I R A Aggie)
Re: Help on Final Exam (Perl class) (Bart Lateur)
Re: How to access 3D hash keys through reference? (Dirge )
Re: Is this a permissions problem Opening and reading a (Andrew M. Langmead)
Net::FTP error <jpb@ams.org>
Re: NT 4.0 Server ans Perl5 307 <petri.backstrom@icl.fi>
Perl Documentation in PDF Format ajones@ddsys.co.uk
Re: Perl module for mpilib <ghowland@hotlava.com>
Re: Problems with backticks (Eric Harley)
Reference problem <mortensi@idt.ntnu.no>
Re: SATAN on a linux <jason.clifford@domgen.com>
solaris 5.5.1: 'make test' FAILS <houtsma@lucent.com>
Re: solaris 5.5.1: 'make test' FAILS (Chris Nandor)
Re: solaris 5.5.1: 'make test' FAILS (Casper H.S. Dik - Network Security Engineer)
What's New in Perlland? (Andrew Henry)
Re: which way is more efficient? <delaneys@worldnet.att.net>
Re: Which Windows (95) Perl to use? (Mike Heins)
Re: Which Windows (95) Perl to use? <mjg@oms.com>
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 28 Aug 1997 10:19:52 +0200
From: Tom Grydeland <tom@mitra.phys.uit.no>
To: mark@purple.tmn.com (Mark Harrison)
Subject: Re: "Rename-File-Names" Script Needed, Please
Message-Id: <nqobu2iyb13.fsf@mitra.phys.uit.no>
[mailed and posted]
mark@purple.tmn.com (Mark Harrison) writes:
> I have:
> I want to change it to:
>
> blah.txt --> 00000001.txt
> blub.txt --> 00000002.txt
> this.txt --> 00000003.txt
> that.txt --> 00000004.txt
> etc.txt --> 00000005.txt
How do you know which files to rename, and which to avoid?
> >what number do you want to start at?
> 2409
> I'll probably be running off a Windows box... I've heard there are
> differences in the versions of perl.
No guarantees for windows, but you can try this:
$| = 42; # Unbuffer stdout
print "What number to start at? ";
chomp($number = <STDIN>);
opendir DIR, "." or die "Couldn't open .: $!\n";
while (defined($file = readdir DIR)) {
next if $file =~ /^\d+\.txt$/; # Skip already renamed files
$newfilename = sprintf "%09d.txt", $number++;
if (-e $newfilename) {
warn "$newfilename already exists!\n";
# next; (to avoid cluttering files)
}
rename $file, $newfilename
or warn "Couldn't create $newfilename: $!\n";
}
closedir DIR;
Under "normal" circumstances, I'd say
foreach $file (grep !/^\d+\.txt$/ readdir DIR) {
...
}
But if you really have thousands of files, the temp list is going to
be fairly large, and you might want to avoid that. I don't think it's
going to make much difference speedwise.
As I said, I don't know windows, but I *think* opendir/readdir/closedir
should work.
> Mark Harrison
--
//Tom Grydeland <Tom.Grydeland@phys.uit.no>
------------------------------
Date: Thu, 28 Aug 1997 10:55:45 GMT
From: mue@gsf.de (Bernhard Muenzer)
Subject: Re: basic question
Message-Id: <5u3hir$1m721@janus.gsf.de>
Liviu Chiriac <lchiriac@sarnoff.com> wrote:
>I have a cgi program written in perl, to which I pass parameters when
>calling it from an HTML page like this:
>
>"myprogram.cgi?parameter1=1+parameter2=2" ... for example.
>
>how do I run the perl script from a terminal window passing the same
>parameters?
With ksh, you would use:
% QUERY_STRING="parameter1=1+parameter2=2"
% perl -w myprogram
With other shells, you might use set, setenv, export or whatever to set
$QUERY_STRING.
If you want to make your life easier, you could allow several ways to pass
parameters to your script:
$QUERY_STRING for GET requests,
<STDIN> for PUT requests,
@ARGV for shell-level debugging.
Just in case you are not yet using a library like CGI.pm: get it from CPAN,
it is your friend.
--
int m,u,e=0;float l,_,I;main(){for(;1840-e;putchar((++e>912&&941>
e?60-m:u)["\n)ed.fsg@eum(rezneuM drahnreB"]))for(u=_=l=0;79-(m=e%
80)&&I*l+_*_<6&&20-++u;_=2*l*_+e/80*.09-1,l=I)I=l*l-_*_-2+m/27.;}
------------------------------
Date: Thu, 28 Aug 1997 12:17:03 +0100
From: Mark Grimshaw <M.Grimshaw@music.salford.ac.uk>
Subject: calling C program within perl CGI script
Message-Id: <34055E2F.9AF218@music.salford.ac.uk>
Dear all,
I'm having problems reading data returned by a C program that is called
within my perl CGI script.
I've tried using system calls, process ('filehandle' ) calls and
backticks all without success.
As a test, my C program is the standard "hello world" program (hello.c)
and when called within a perl script that is run from the command line
on my UNIX system correctly prints out "hello world". In this case, I
call the hello C program using backticks -
print `./hello`;
When I try to do the same via CGI, I get nothing.
Via CGI, using
print `date`;
works but not the print `./hello';.
Any help would be appreciated - please reply by email as well as posting
to the newsgroup.
------------------------------
Date: Thu, 28 Aug 1997 11:31:58 +0200
From: Marc Filthaut <Marc_Filthaut@HP.com>
Subject: Re: Convert to hex
Message-Id: <3405458E.1D44@HP.com>
Dave Schenet wrote:
> I'd like to get a two-digit hex value of each of the characters.
Here are two function which convert a ascii string to a hex string and
a hex string (without %) in a ascii string:
# Convert a ascii string into hex string
sub EncodeHex {
my($toencode)=@_;
$toencode =~ s/./sprintf("%lx",unpack("C",$&))/ge;
return $toencode;
}
# Convert a hex string into a ascii string
sub DecodeHex {
my($todecode)=@_;
$todecode =~ s/.{2}/pack("C", hex($&))/ge;
return $todecode;
}
--
___________________________________________________________________
Marc Filthaut Hewlett-Packard GmbH
SW Delivery Support Engineering Berliner Str. 111 _/
40880 Ratingen _/
Phone : +49-2102-90-6505 Germany _/_/_/ _/_/_/
Telnet : 705-6505 _/ _/ _/ _/
Fax : +49-2102-90-6885 _/ _/ _/_/_/
_/
eMail : Marc_Filthaut@HP.com _/
_____________________________________________________________________
------------------------------
Date: 28 Aug 1997 12:27:42 GMT
From: jarausch@numa1.igpm.rwth-aachen.de (Helmut Jarausch)
Subject: File::Find and symbolic links
Message-Id: <5u3qru$j4a$1@news.rwth-aachen.de>
Hi,
File::Find does not follow a symbolic link to a directory - at least, if the
starting 'directory' is a symbolic link.
The test
if (-d _) (Find.pm line 239)
fails (right!) if $_ is a symbolic link.
I think there is an option File::Find::follow missing which emulates
Unix find -follow .
Any comments?
--
Helmut Jarausch
Lehrstuhl f. Numerische Mathematik
Institute of Technology, RWTH Aachen
D 52056 Aachen, Germany
------------------------------
Date: 28 Aug 1997 09:02:55 -0400
From: Clark Dorman <clark@s3i.com>
Subject: Re: Find case conversion script for filenames
Message-Id: <dyb5mh340.fsf@s3i.com>
[mailed and posted]
morris@sci.hkbu.edu.hk (Morris M M Law) writes:
> I would like to have a perl script to automatically search my directory
> and convert the filename in lower case to upper case. Would anyone have
> any pointers to ?
Like this? It's pretty basic Perl 101 stuff:
#!/home/dorman/bin/perl -w
opendir( DN, '.') or die 'Cannot open directory';
while ( defined( $afile = readdir DN ) ) {
next if $afile =~ /^\.$/; # Dont bother '.'
next if $afile =~ /^\.\.$/; # Dont bother '..'
next if $afile =~ $0; # Dont rename this program!
$newname = uc $afile;
if ( !(-e $newname) ) {
rename $afile, $newname or
warn "Cannot rename ($afile) to ($newname)\n";
}
}
closedir DN;
> Thanks in advance.
No problem.
--
Clark Dorman "Evolution is cleverer than you are."
http://cns-web.bu.edu/pub/dorman/D.html -Francis Crick
------------------------------
Date: 28 Aug 1997 12:58:04 GMT
From: mweber@vt.edu (Matt Weber)
Subject: FTP with perl
Message-Id: <5u3sks$qeq$1@solaris.cc.vt.edu>
Is there an easy perl script or module for FTPing something? It needs to be
able to run on its own....log itslef in....transfer files and close the socket.
The running on its own part will be done with crontabs. Any suggestions?
M. Weber
http://weberworld.com
http://cow.dyn.ml.org/caboose/
------------------------------
Date: Thu, 28 Aug 1997 09:29:06 -0400
From: fl_aggie@hotmail.com (I R A Aggie)
Subject: Re: FTP with perl
Message-Id: <fl_aggie-ya02408000R2808970929070001@news.fsu.edu>
In article <5u3sks$qeq$1@solaris.cc.vt.edu>, mweber@vt.edu (Matt Weber) wrote:
+ The running on its own part will be done with crontabs. Any suggestions?
Net::FTP. I posted a trivial example using that module within the
last month, it should be in Dejanews.
James
--
Consulting Minister for Consultants, DNRC
Support the anti-Spam amendment <url:http://www.cauce.org/>
To cure your perl CGI problems, please look at:
<url:http://www.perl.com/perl/faq/idiots-guide.html>
------------------------------
Date: Thu, 28 Aug 1997 11:29:12 GMT
From: bart.mediamind@tornado.be (Bart Lateur)
Subject: Re: Help on Final Exam (Perl class)
Message-Id: <340a5f5c.11526835@news.tornado.be>
andrew@spyder.manor.org (Andrew Williams) wrote:
>the one realy interesting and later usefull project I had to write in the
>perl class I took was a mail filter. We had to put stuff in to filter based
>on a rules file (one that was parsed rather than written in perl), it had
>to deal with mail as it came in (as opposed to running through the existing
>inbox). We had to put in forwarding to multiple e-mail addresses, forwarding
>to multiple mail folders in both standard mail format and mh.
My vote is all for this one. Hell, I'd like to tackle this myself, and I
don't even have to take a Perl class! Write your own spam filter. Great.
HTH,
Bart.
------------------------------
Date: 28 Aug 1997 12:03:21 GMT
From: mjw101@york.ac.uk (Dirge )
Subject: Re: How to access 3D hash keys through reference?
Message-Id: <5u3pe9$qp2$1@netty.york.ac.uk>
Creeping stealthily through the corridors of comp.lang.perl.misc,
I overheard Kerr Tung say:
: Hi all,
: I build a 3D hash. $table{$user}{$cur_view}{$file} = $x; I would like to
: access all the 3 keys through dereferencing in a sub.
<snippy>
: foreach $user (sort keys %$hash_ref) { #this works
: print "user: $user\n";
: foreach $view (sort keys ???){ # how do I dereferce this one?
: print "view: $view\n";
: foreach $file (sort keys ???){ #how do I dereference this one?
: print "file: $file\n";
foreach $view (sort keys %{ $hashref->{$user} })
and
foreach $file (sort keys %{ $hashref->{$user}->{$view} })
should do it rather nicely... barring typos, of course :o)
--
Michael
"May all your dreams - bar one - be fulfilled"
A Sathuli blessing from the Drenai novels by David Gemmel.
------------------------------
Date: Thu, 28 Aug 1997 13:37:40 GMT
From: aml@world.std.com (Andrew M. Langmead)
Subject: Re: Is this a permissions problem Opening and reading a URL
Message-Id: <EFMLus.MqK@world.std.com>
Mark Worsdall <jaydee@worsdall.demon.co.uk> writes:
>People have being telling me to use the or Die stuff, no problem. But
>how would one implement that in an if condition as below?
Its not that people have a specific love of the "die" function. What
these people are stressing is that functions like open need to be
checked for their success or failure. Programmers shouldn't go blindly
assuming that every operation succeeds. You as the programmer need to
decide what error checking is important, and what steps you needs to
need to take when that error doesn't happen. Its just that in many
cases, just tacking on an "or die qq(Couldn't open file: $!\n)" is a
quick but useful form of error checking.
In your case here:
> if (open (TRACE, "$traceprog $surfer|")) {
> while (<TRACE>) {
> print MAIL;
> }
> close TRACE;
> }
You are checking the status of your open() and if it doesn't succeed,
you don't print its contents to the filehandle MAIL. A perfectly
reasonable approach. (So much so, that it is the default in perl if
you do no error checking at all. If the open fails, then TRACE is not
a valid filehandle. If you try to read on an unopen filehandle, you
get undef. If you get undef on the filehandle read, then your while
loop exits without ever executing the print function. Perl then
harmlessly closes the closed filehandle.)
Maybe in your case, you might just want to add an "else" clause that
prints in explanation on why the trace wasn't there. Or maybe you
don't care at all, in that case, don't bother checking. I'd be at
least a bit curious though. I expect my programs to either do what I
expect, or at least tell me why they can't.
--
Andrew Langmead
------------------------------
Date: Thu, 28 Aug 1997 09:49:03 -0400
From: John Ballem <jpb@ams.org>
Subject: Net::FTP error
Message-Id: <340581CF.59E2@ams.org>
Does anyone know why this error crops up now and then.
Its tough to reproduce, I'm not sure if the socket is shutting down on
the otherend or what.
Net::FTP: Unexpected EOF on command channel at
/usr/local/lib/perl5/site_perl/Net/FTP.pm line 738
-jpb
------------------------------
Date: Thu, 28 Aug 1997 09:46:48 +0300
From: Petri Backstrom <petri.backstrom@icl.fi>
Subject: Re: NT 4.0 Server ans Perl5 307
Message-Id: <34051ED8.6832@icl.fi>
Changuk Sohn wrote:
>
> Hello, People?
> I'm having problem with Perl and NT.
> Since, When I installed Perl5, my computer's CPU and MEM usage goes crazy
> (100%)
> Please help me....
Do you really, truly mean that the only thing you did was
install Perl5, and that makes your computer's CPU and memory
usage go "crazy" (whatever that means)?
Methinks that you're not telling us the whole story...
Besides installing Perl, are you trying to actually use
it for something? If so, what scripts? Do you run/test
them from the command line? Is, perhaps, a web server
involved? If so, which one?`Which processes are using
up the CPU, memory? Etc., etc.
regards,
...petri.backstrom@icl.fi
ICL Data Oy
Finland
------------------------------
Date: Thu, 28 Aug 1997 03:01:32 -0600
From: ajones@ddsys.co.uk
Subject: Perl Documentation in PDF Format
Message-Id: <872676521.30937@dejanews.com>
Hi,
I am trying desperately to get hold of Perl documentation in .pdf
format. I have tried via perl.com/cpan.... but this area seems to
no longer exist. Does anybody have any idea as to where else I might
find what I am looking for ?
Thanks In Advance
Andrew Jones
ajones@ddsys.co.uk
-------------------==== Posted via Deja News ====-----------------------
http://www.dejanews.com/ Search, Read, Post to Usenet
------------------------------
Date: Thu, 28 Aug 1997 13:56:23 +0200
From: Gary Howland <ghowland@hotlava.com>
To: Marius Kjeldahl <marius@funcom.com>
Subject: Re: Perl module for mpilib
Message-Id: <34056767.344E@hotlava.com>
Marius Kjeldahl wrote:
>
> Does anybody know if this exists? Yes, I know there is a module for
> interfacing with PGP, but I need to use public key encryption for
> encrypting arbitrary data to be put into a database and would prefer
> to do all the necessary key handling etc. myself.
Check out the library at http://www.hotlava.com/software/perl/
It includes Math::BigInteger and RSA crypto routines. I will
also be making a new PGP module availble this weekend - watch that
space!
Gary
------------------------------
Date: Wed, 27 Aug 1997 20:51:54 -0800
From: eharley@pacbell.net (Eric Harley)
Subject: Re: Problems with backticks
Message-Id: <eharley-2708972051540001@ppp-207-214-149-186.snrf01.pacbell.net>
In article <34022AF2.C36567E1@writeme.com>, ralph_janke@writeme.com wrote:
> I use perl 5.003_22 and have randomly problems with backticks.
> When I assign the output of a command in backticks to a variable,
> sometimes the variable contains the right value after the assignment,
> sometimes it is empty.
>
> A " | cat" within the backticks at the end seems to currently stablelize
> it. However, I would like to know if this is a bug, or if anybody else
> has the same problem.
>
> Ralph Janke
Maybe you should try setting flush on.
$| = 1;
at the begining of your script.
--
Eric Harley
---------------------------------------------------------------------
"Medicine will cure death and government will repeal taxes before Steve will fail." -Guy Kawasaki (Fall 1991)
------------------------------
Date: 28 Aug 1997 13:03:54 GMT
From: Morten Simonsen <mortensi@idt.ntnu.no>
Subject: Reference problem
Message-Id: <5u3svq$ht4$1@due.unit.no>
Hi
I have made this testprogram:
--------------------------------------------------
#!/usr/local/bin/perl
$string1 = 'Hi';
$string2 = \$string1;
$string3 = join(":",\$string1,$string2);
($string4,$string5) = split(/:/,$string3);
print "STRING2: $$string2 \tADDRESS: $string2\n";
print "STRING4: $$string4 \tADDRESS: $string4\n";
print "STRING5: $$string5 \tADDRESS: $string5\n";
-------------------------------------------------
Can someone explain why I get this output:
-------------------------------------------------
STRING2: Hi ADDRESS: SCALAR(0x1002c690)
STRING4: ADDRESS: SCALAR(0x1002c690)
STRING5: ADDRESS: SCALAR(0x1002c690)
-------------------------------------------------
Please don't tell me I can't put a reference into a string,
and then dereference it later....
Thanks in advance
Morten Simonsen
------------------------------
Date: Thu, 28 Aug 1997 13:47:06 +0100
From: Jason Clifford <jason.clifford@domgen.com>
To: Jim Meritt <merittj@wangfed.com>
Subject: Re: SATAN on a linux
Message-Id: <3405734A.7C0A6228@domgen.com>
Yes. I have it running on a RedHat 4.2 Linux box with Perl 5.
Seems to work a treat so long as you remember to prefix commands with
perl so it knows how to deal with them.
Jason Clifford
Genesis Internet Services Limited
Jim Meritt wrote:
>
> Anyone gotten S.A.T.A.N. (using Perl 5 or better, of course) to run on a PC
> (using linux or SCO or some such)?
--
As a service I provide analysis of viruses and poor grammar to senders
of unsolicited commercial e-mail at a rate of $500.00 per hour. Delivery
of said correspondence constitutes a request for the aforementioned
services at said price. Supply billing address.
------------------------------
Date: Thu, 28 Aug 1997 12:11:12 +0200
From: Jan Houtsma <houtsma@lucent.com>
Subject: solaris 5.5.1: 'make test' FAILS
Message-Id: <34054EBE.A37B7ADB@lucent.com>
Hello all!
I have compiled perl 5.004_03 succesfully on Solaris 5.5.1.
However when running 'make test' diverse tests fail!! Always with an
error from
the Dynaloader. I have tried to look in the Dynaloader.xs file which is
copied from
dl_dlopen.xs, but i couldn't find anything wrong there.
I would appreciate any help here!!!
make output:
=========
<snip>
pragma/warning....ok
lib/abbrev........ok
lib/anydbm........Can't load '../lib/auto/Fcntl/Fcntl.so' for module
Fcntl: ld.so.1: ./perl: fatal: relocation error: symbol not found: main:
referenced in ../lib/auto/Fcntl/Fcntl.so at ../lib/DynaLoader.pm line
155.
at ./lib/anydbm.t line 11
BEGIN failed--compilation aborted at ./lib/anydbm.t line 11.
FAILED at test 0
lib/autoloader....ok
lib/basename......ok
lib/bigint........ok
lib/bigintpm......ok
lib/checktree.....ok
lib/complex.......ok
lib/db-btree......skipping test on this platform
lib/db-hash.......skipping test on this platform
lib/db-recno......skipping test on this platform
lib/dirhand.......ok
lib/english.......ok
lib/env...........ok
lib/filecache.....ok
lib/filecopy......Can't load '../lib/auto/IO/IO.so' for module IO:
ld.so.1: ./perl: fatal: relocation error: symbol not found: main:
referenced in ../lib/auto/IO/IO.so at ../lib/DynaLoader.pm line 155.
at ../lib/IO/Handle.pm line 248
BEGIN failed--compilation aborted at ../lib/IO/Seekable.pm line 50.
BEGIN failed--compilation aborted at ../lib/IO/File.pm line 111.
FAILED at test 6
lib/filefind......ok
lib/filehand......Can't load '../lib/auto/IO/IO.so' for module IO:
ld.so.1: ./perl: fatal: relocation error: symbol not found: main:
referenced in ../lib/auto/IO/IO.so at ../lib/DynaLoader.pm line 155.
at ../lib/IO/Handle.pm line 248
BEGIN failed--compilation aborted at ../lib/IO/Seekable.pm line 50.
BEGIN failed--compilation aborted at ../lib/IO/File.pm line 111.
BEGIN failed--compilation aborted at ./lib/filehand.t line 13.
FAILED at test 0
lib/filepath......ok
lib/findbin.......ok
lib/gdbm..........skipping test on this platform
lib/getopt........ok
lib/hostname......ok
lib/io_dup........Can't load '../lib/auto/IO/IO.so' for module IO:
ld.so.1: ./perl: fatal: relocation error: symbol not found: main:
referenced in ../lib/auto/IO/IO.so at ../lib/DynaLoader.pm line 155.
at ../lib/IO/Handle.pm line 248
BEGIN failed--compilation aborted at ./lib/io_dup.t line 21.
FAILED at test 0
lib/io_pipe.......Can't load '../lib/auto/IO/IO.so' for module IO:
ld.so.1: ./perl: fatal: relocation error: symbol not found: main:
referenced in ../lib/auto/IO/IO.so at ../lib/DynaLoader.pm line 155.
at ../lib/IO/Handle.pm line 248
BEGIN failed--compilation aborted at ../lib/IO/Pipe.pm line 11.
BEGIN failed--compilation aborted at ./lib/io_pipe.t line 23.
FAILED at test 0
lib/io_sel........ok
lib/io_sock.......Can't load '../lib/auto/IO/IO.so' for module IO:
ld.so.1: ./perl: fatal: relocation error: symbol not found: main:
referenced in ../lib/auto/IO/IO.so at ../lib/DynaLoader.pm line 155.
at ../lib/IO/Handle.pm line 248
BEGIN failed--compilation aborted at ../lib/IO/Socket.pm line 112.
BEGIN failed--compilation aborted at ./lib/io_sock.t line 27.
FAILED at test 0
lib/io_taint......Can't load '../lib/auto/IO/IO.so' for module IO:
ld.so.1: ./perl: fatal: relocation error: symbol not found: main:
referenced in ../lib/auto/IO/IO.so at ../lib/DynaLoader.pm line 155.
at ../lib/IO/Handle.pm line 248
BEGIN failed--compilation aborted at ../lib/IO/Seekable.pm line 50.
BEGIN failed--compilation aborted at ../lib/IO/File.pm line 111.
BEGIN failed--compilation aborted at ./lib/io_taint.t line 24.
FAILED at test 0
lib/io_tell.......Can't load '../lib/auto/IO/IO.so' for module IO:
ld.so.1: ./perl: fatal: relocation error: symbol not found: main:
referenced in ../lib/auto/IO/IO.so at ../lib/DynaLoader.pm line 155.
<snip>
--
___ ___ ___
/ / / / / / Jan H. Houtsma - hz/hv141
/ / / / / /
/ /____/ /____/ / Tel: +31 (0) 35 687 4978
___ / _____ _____ / Fax: +31 (0) 35 687 5964/5956
/ / / / / / / / Po box 18, 1270 AA Huizen
/ /___/ / / / / / Botterstraat 45, 1271 XL Huizen
/_________/ /__/ /__/ mailto:houtsma@lucent.com
Lucent Technologies, Bell Labs Innovations / Platform-PRC / OSI-P
------------------------------
Date: Thu, 28 Aug 1997 08:33:44 -0400
From: pudge@pobox.com (Chris Nandor)
Subject: Re: solaris 5.5.1: 'make test' FAILS
Message-Id: <pudge-ya02408000R2808970833440001@news.idt.net>
In article <34054EBE.A37B7ADB@lucent.com>, Jan Houtsma <houtsma@lucent.com>
wrote:
# Hello all!
#
# I have compiled perl 5.004_03 succesfully on Solaris 5.5.1.
#
# However when running 'make test' diverse tests fail!! Always with an
# error from
# the Dynaloader. I have tried to look in the Dynaloader.xs file which is
# copied from
# dl_dlopen.xs, but i couldn't find anything wrong there.
Well, I haven't done it yet myself, but try looking in hints/solaris.sh for
stuff about dynamic loading. Run 'rm -rf config.sh && sh Configure' again
and pay close attention to the stuff on dynamic loading. Should be
something there (my Solaris 2.5.1 box is down right now so I can't look at
it ... I only have _01 on there now, anyway).
Actually, I am probably going to put _03 on there in the next day or so, so
if I find something I'll let you know.
--
Chris Nandor pudge@pobox.com http://pudge.net/
%PGPKey=('B76E72AD',[1024,'0824 090B CE73 CA10 1FF7 7F13 8180 B6B6'])
------------------------------
Date: 28 Aug 1997 13:27:32 GMT
From: Casper.Dik@Holland.Sun.Com (Casper H.S. Dik - Network Security Engineer)
Subject: Re: solaris 5.5.1: 'make test' FAILS
Message-Id: <casper.872775133@uk-usenet.uk.sun.com>
[[ Mail or post, don't do both ]]
Jan Houtsma <houtsma@lucent.com> writes:
>However when running 'make test' diverse tests fail!! Always with an
>error from
>pragma/warning....ok
>lib/abbrev........ok
>lib/anydbm........Can't load '../lib/auto/Fcntl/Fcntl.so' for module
>Fcntl: ld.so.1: ./perl: fatal: relocation error: symbol not found: main:
>referenced in ../lib/auto/Fcntl/Fcntl.so at ../lib/DynaLoader.pm line
>155.
Looks like you've build with gcc. Change you configure entries to
use "gcc -shared" when building dynamic objects, not "gcc -G".
(If you omit the shared option, teh program runtime startup gets linked
in)
Casper
--
Expressed in this posting are my opinions. They are in no way related
to opinions held by my employer, Sun Microsystems.
Statements on Sun products included here are not gospel and may
be fiction rather than truth.
------------------------------
Date: 28 Aug 1997 06:40:40 -0700
From: ahenry@rigel.cyberpass.net (Andrew Henry)
Subject: What's New in Perlland?
Message-Id: <5u3v4o$k30@rigel.cyberpass.net>
I'm looking for a source of news about Perl.
Tom Christensen used to maintain a list at
http://www.perl.com/perl/admin/whats_new.html, but this
hasn't been updated in a while and in any case,
http://www.perl.com seems to be down at the moment.
The O'Reilly WWW site mentions that Songline Studios are
going to take over the running of http://www.perl.com in
http://software.ora.com/news/press/pr8-19-97.html but
it doesn't give any details about when this is going to
happen.
I realise that in the past a lot of the information on Perl
has relied on the goodwill of people like Tom, and that
real life can take over. Personally, I would like this to
be time for The Perl Institute to help out, but
http://www.perl.org hasn't been updated since the end of
May. I do subscribe to The Perl Journal, but as a
quarterly publication, its not ideal for up-to-date news.
Are there any alternatives ?
--
Andrew Henry
ahenry@cyberpass.net
------------------------------
Date: Thu, 28 Aug 1997 08:13:23 -0400
From: "SD" <delaneys@worldnet.att.net>
Subject: Re: which way is more efficient?
Message-Id: <5u3q7l$t53@bgtnsc03.worldnet.att.net>
Thanks!
Tom Phoenix wrote ...
>> foreach $listitem (@listitem) {
>
>> while (<DB>) {
>
>The second one, in general, since it doesn't have to (uselessly) allocate
>the memory for the list of lines. The difference is especially large when
>the file is large, of course, and is negligible when the file is small -
>but it doesn't hurt to process line-by-line, whenever you can.
------------------------------
Date: 28 Aug 1997 08:30:02 GMT
From: mheins@prairienet.org (Mike Heins)
Subject: Re: Which Windows (95) Perl to use?
Message-Id: <5u3cua$eab$1@vixen.cso.uiuc.edu>
Mark J. Gardner (mjg@oms.com) wrote:
: Sources on this newsgroup and on the Web have either recommended the
: ActiveWare Perl for Win32 (available at
: "http://www.activeware.com/Download/download.htm"), or Gurusamy Sarathy's
: port (available on CPAN). I'm confused as to which I should actually
: install, and confused as to why there are two separate versions. What are
: the benefits of one over the other?
:
: I don't think this is in the FAQ, but it is a point of confusion for me,
: coming from a Unix world where there's only One True Perl. :-)
:
My opinion -- use 5.004, from Gurusamy. This IS the one true Perl -- it
is a compilation of the 5.004 source tree with very few patches.
It allowed me to port a complex application from UNIX quite easily. It simply
wasn't possible with the other from ActiveWare. It also includes many of
the best modules, installed ready to go for Windows. A real winner --
thanks to GS.
If you get the Cygnus GNU-Win toolset as well, it is as close to UNIX
as I have seen on Windows.
--
Regards,
Mike Heins
This post reflects the
opinion of my employer.
------------------------------
Date: Thu, 28 Aug 1997 08:59:00 GMT
From: "Mark J. Gardner" <mjg@oms.com>
Subject: Re: Which Windows (95) Perl to use?
Message-Id: <EFM8x3.J63@nonexistent.com>
Mike Heins wrote in article <5u3cua$eab$1@vixen.cso.uiuc.edu>...
>Mark J. Gardner (mjg@oms.com) wrote:
>: Sources on this newsgroup and on the Web have either recommended the
>: ActiveWare Perl for Win32 (available at
>: "http://www.activeware.com/Download/download.htm"), or Gurusamy Sarathy's
>: port (available on CPAN). I'm confused as to which I should actually
>: install, and confused as to why there are two separate versions. What are
>: the benefits of one over the other?
>
>My opinion -- use 5.004, from Gurusamy. This IS the one true Perl -- it
>is a compilation of the 5.004 source tree with very few patches.
>
>It allowed me to port a complex application from UNIX quite easily. It
simply
>wasn't possible with the other from ActiveWare. It also includes many of
>the best modules, installed ready to go for Windows. A real winner --
>thanks to GS.
Thanks... of course, this raises another question. Is there a list of what
modules do and don't work, especially from the standard library?
I'm assuming that "best modules" includes CGI.pm and LWP, right?
--MJG
--
Mark J. Gardner
mjg@oms.com
http://www.oms.com/mjg/
------------------------------
Date: 8 Mar 97 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 8 Mar 97)
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.
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 937
*************************************
