[29750] in Perl-Users-Digest
Perl-Users Digest, Issue: 994 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Oct 31 21:09:42 2007
Date: Wed, 31 Oct 2007 18:09: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, 31 Oct 2007 Volume: 11 Number: 994
Today's topics:
Re: !Help: can't get into perl -MCPAN -e shell <smallpond@juno.com>
Re: !Help: can't get into perl -MCPAN -e shell <mmccaws@comcast.net>
Re: !Help: can't get into perl -MCPAN -e shell <elvis-85473@notatla.org.uk>
Re: !Help: can't get into perl -MCPAN -e shell <mmccaws@comcast.net>
Re: !Help: can't get into perl -MCPAN -e shell <elvis-85473@notatla.org.uk>
Re: !Help: can't get into perl -MCPAN -e shell <mmccaws@comcast.net>
Re: configurable variables in own file? <rvtol+news@isolution.nl>
Get length of returned array without storing? <geocoo@gmail.com>
Re: Get length of returned array without storing? <No_4@dsl.pipex.com>
Re: How to convert timestamp to epoch? <jl_post@hotmail.com>
Re: How to convert timestamp to epoch? <jl_post@hotmail.com>
Re: Printing to a Windows printer. <LWATCDR@gmail.com>
using cpu and ram of a group of boxes to do work with p <gavcomedy@gmail.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Wed, 31 Oct 2007 13:34:40 -0700
From: smallpond <smallpond@juno.com>
Subject: Re: !Help: can't get into perl -MCPAN -e shell
Message-Id: <1193862880.246245.35010@o3g2000hsb.googlegroups.com>
On Oct 31, 11:47 am, mmccaws2 <mmcc...@comcast.net> wrote:
> I try to login in at command line. It gives me the output below. It
> then kicks me out of the perl shell. What do I need to do to be able
> to use it?
>
> Mike
>
> Here is the error message:
>
> Can't load '/opt/perl/lib/5.8.3/IA64.ARCHREV_0-thread-multi/auto/IO/
> IO.so' for module IO: Exec format error at /opt/perl/lib/5.8.3/
> IA64.ARCHREV_0-thread-multi/XSLoader.pm line 68.
> at /opt/perl/lib/5.8.3/IA64.ARCHREV_0-thread-multi/IO.pm line 11
> Compilation failed in require at /opt/perl/lib/5.8.3/IA64.ARCHREV_0-
> thread-multi/IO/Handle.pm line 260.
> BEGIN failed--compilation aborted at /opt/perl/lib/5.8.3/
> IA64.ARCHREV_0-thread-multi/IO/Handle.pm line 260.
> Compilation failed in require at /opt/perl/lib/5.8.3/IA64.ARCHREV_0-
> thread-multi/IO/Seekable.pm line 101.
> BEGIN failed--compilation aborted at /opt/perl/lib/5.8.3/
> IA64.ARCHREV_0-thread-multi/IO/Seekable.pm line 101.
> Compilation failed in require at /opt/perl/lib/5.8.3/IA64.ARCHREV_0-
> thread-multi/IO/File.pm line 117.
> BEGIN failed--compilation aborted at /opt/perl/lib/5.8.3/
> IA64.ARCHREV_0-thread-multi/IO/File.pm line 117.
> Compilation failed in require at /opt/perl/lib/5.8.3/FileHandle.pm
> line 9.
> Compilation failed in require at /opt/perl/lib/5.8.3/CPAN.pm line 26.
> BEGIN failed--compilation aborted at /opt/perl/lib/5.8.3/CPAN.pm line
> 26.
> Compilation failed in require.
> BEGIN failed--compilation aborted.
Exec format error means the file will not run on your machine.
Either
it is corrupted or (more likely) built for the wrong architecture.
Are you on an Itanium system? Try the command:
file /opt/perl/lib/5.8.3/IA64.ARCHREV_0-thread-multi/auto/IO/IO.so
------------------------------
Date: Wed, 31 Oct 2007 13:52:04 -0700
From: mmccaws2 <mmccaws@comcast.net>
Subject: Re: !Help: can't get into perl -MCPAN -e shell
Message-Id: <1193863924.027570.254590@v23g2000prn.googlegroups.com>
On Oct 31, 1:34 pm, smallpond <smallp...@juno.com> wrote:
> On Oct 31, 11:47 am, mmccaws2 <mmcc...@comcast.net> wrote:
>
>
>
> > I try to login in at command line. It gives me the output below. It
> > then kicks me out of the perl shell. What do I need to do to be able
> > to use it?
>
> > Mike
>
> > Here is the error message:
>
> > Can't load '/opt/perl/lib/5.8.3/IA64.ARCHREV_0-thread-multi/auto/IO/
> > IO.so' for module IO: Exec format error at /opt/perl/lib/5.8.3/
> > IA64.ARCHREV_0-thread-multi/XSLoader.pm line 68.
> > at /opt/perl/lib/5.8.3/IA64.ARCHREV_0-thread-multi/IO.pm line 11
> > Compilation failed in require at /opt/perl/lib/5.8.3/IA64.ARCHREV_0-
> > thread-multi/IO/Handle.pm line 260.
> > BEGIN failed--compilation aborted at /opt/perl/lib/5.8.3/
> > IA64.ARCHREV_0-thread-multi/IO/Handle.pm line 260.
> > Compilation failed in require at /opt/perl/lib/5.8.3/IA64.ARCHREV_0-
> > thread-multi/IO/Seekable.pm line 101.
> > BEGIN failed--compilation aborted at /opt/perl/lib/5.8.3/
> > IA64.ARCHREV_0-thread-multi/IO/Seekable.pm line 101.
> > Compilation failed in require at /opt/perl/lib/5.8.3/IA64.ARCHREV_0-
> > thread-multi/IO/File.pm line 117.
> > BEGIN failed--compilation aborted at /opt/perl/lib/5.8.3/
> > IA64.ARCHREV_0-thread-multi/IO/File.pm line 117.
> > Compilation failed in require at /opt/perl/lib/5.8.3/FileHandle.pm
> > line 9.
> > Compilation failed in require at /opt/perl/lib/5.8.3/CPAN.pm line 26.
> > BEGIN failed--compilation aborted at /opt/perl/lib/5.8.3/CPAN.pm line
> > 26.
> > Compilation failed in require.
> > BEGIN failed--compilation aborted.
>
> Exec format error means the file will not run on your machine.
> Either
> it is corrupted or (more likely) built for the wrong architecture.
> Are you on an Itanium system? Try the command:
>
> file /opt/perl/lib/5.8.3/IA64.ARCHREV_0-thread-multi/auto/IO/IO.so
here is the output
$ file /opt/perl/lib/5.8.3/IA64.ARCHREV_0-thread-multi/auto/IO/IO.so
/opt/perl/lib/5.8.3/IA64.ARCHREV_0-thread-multi/auto/IO/IO.so: ELF-32
shared object file - IA64
what does this do?
------------------------------
Date: 31 Oct 2007 22:29:23 GMT
From: all mail refused <elvis-85473@notatla.org.uk>
Subject: Re: !Help: can't get into perl -MCPAN -e shell
Message-Id: <slrnfii09l.p0f.elvis-85473@notatla.org.uk>
On 2007-10-31, mmccaws2 <mmccaws@comcast.net> wrote:
> $ file /opt/perl/lib/5.8.3/IA64.ARCHREV_0-thread-multi/auto/IO/IO.so
> /opt/perl/lib/5.8.3/IA64.ARCHREV_0-thread-multi/auto/IO/IO.so: ELF-32
> shared object file - IA64
>
> what does this do?
It describes the file to you.
What do you get from these commands? (Intended to describe
an executable we know you can run, together with some details
of your machine.)
file `which file`
arch
uname -a
--
Elvis Notargiacomo master AT barefaced DOT cheek
http://www.notatla.org.uk/goen/
------------------------------
Date: Wed, 31 Oct 2007 16:20:57 -0700
From: mmccaws2 <mmccaws@comcast.net>
Subject: Re: !Help: can't get into perl -MCPAN -e shell
Message-Id: <1193872857.079702.216830@v23g2000prn.googlegroups.com>
On Oct 31, 3:29 pm, all mail refused <elvis-85...@notatla.org.uk>
wrote:
> On 2007-10-31, mmccaws2 <mmcc...@comcast.net> wrote:
>
> > $ file /opt/perl/lib/5.8.3/IA64.ARCHREV_0-thread-multi/auto/IO/IO.so
> > /opt/perl/lib/5.8.3/IA64.ARCHREV_0-thread-multi/auto/IO/IO.so: ELF-32
> > shared object file - IA64
>
> > what does this do?
>
> It describes the file to you.
>
> What do you get from these commands? (Intended to describe
> an executable we know you can run, together with some details
> of your machine.)
> file `which file`
> arch
> uname -a
>
> --
> Elvis Notargiacomo master AT barefaced DOT cheekhttp://www.notatla.org.uk/goen/
Which arch are you referring to? Would it be an arch file only within
perl directories.
the rest is below
BTW I really appreciate your help too.
Mike
$ file /usr/contrib/bin/traceroute
/usr/contrib/bin/traceroute: ELF-32 executable object file - IA64
$ arch /usr/contrib/bin/traceroute
ksh: arch: not found
$ which arch
no arch in /usr/bin /usr/ccs/bin /usr/contrib/bin /usr/contrib/Q4/bin /
opt/perl/bin /opt/ipf/bin /opt/hparray/bin /opt/nettladm/bin /opt/fcms/
bin /usr/bin/X11 /opt/sec_mgmt/bastille/bin /opt/dsau/bin /opt/dsau/
sbin /opt/resmon/bin /opt/gnome/bin /usr/contrib/kwdb/bin /opt/wbem/
bin /opt/wbem/sbin /opt/mozilla /opt/graphics/common/bin /opt/sec_mgmt/
spc/bin /opt/ssh/bin /opt/hpsmh/bin /opt/upgrade/bin /opt/gwlm/bin /
usr/contrib/bin/X11 /opt/networker/bin .
$ uname /usr/contrib/bin/traceroute
HP-UX
$ file /opt/perl/lib/5.8.3/IA64.ARCHREV_0-thread-multi/auto/IO/IO.so
/opt/perl/lib/5.8.3/IA64.ARCHREV_0-thread-multi/auto/IO/IO.so: ELF-32
shared object file - IA64
$ uname -a /opt/perl/lib/5.8.3/IA64.ARCHREV_0-thread-multi/auto/IO/
IO.so
HP-UX snoopy B.11.23 U ia64 0605108897 unlimited-user license
------------------------------
Date: 31 Oct 2007 23:56:36 GMT
From: all mail refused <elvis-85473@notatla.org.uk>
Subject: Re: !Help: can't get into perl -MCPAN -e shell
Message-Id: <slrnfii5aa.pqh.elvis-85473@notatla.org.uk>
On 2007-10-31, mmccaws2 <mmccaws@comcast.net> wrote:
> Which arch are you referring to? Would it be an arch file only within
> perl directories.
You don't seem to have "arch" on HP-UX; what does "model" say?
> $ file /usr/contrib/bin/traceroute
> /usr/contrib/bin/traceroute: ELF-32 executable object file - IA64
> $ uname /usr/contrib/bin/traceroute
> HP-UX
Use "uname" or "uname -a" - no point calling "uname" on "traceroute"
(or even "traceroute" on "uname").
> $ file /opt/perl/lib/5.8.3/IA64.ARCHREV_0-thread-multi/auto/IO/IO.so
> /opt/perl/lib/5.8.3/IA64.ARCHREV_0-thread-multi/auto/IO/IO.so: ELF-32
> shared object file - IA64
> $ uname -a /opt/perl/lib/5.8.3/IA64.ARCHREV_0-thread-multi/auto/IO/
> IO.so
> HP-UX snoopy B.11.23 U ia64 0605108897 unlimited-user license
That looks like useful info anyway.
Have you got "tusc" installed?
--
Elvis Notargiacomo master AT barefaced DOT cheek
http://www.notatla.org.uk/goen/
------------------------------
Date: Wed, 31 Oct 2007 17:27:55 -0700
From: mmccaws2 <mmccaws@comcast.net>
Subject: Re: !Help: can't get into perl -MCPAN -e shell
Message-Id: <1193876875.055950.56080@t8g2000prg.googlegroups.com>
On Oct 31, 4:56 pm, all mail refused <elvis-85...@notatla.org.uk>
wrote:
> On 2007-10-31, mmccaws2 <mmcc...@comcast.net> wrote:
>
> > Which arch are you referring to? Would it be an arch file only within
> > perl directories.
>
> You don't seem to have "arch" on HP-UX; what does "model" say?
>
> > $ file /usr/contrib/bin/traceroute
> > /usr/contrib/bin/traceroute: ELF-32 executable object file - IA64
> > $ uname /usr/contrib/bin/traceroute
> > HP-UX
>
> Use "uname" or "uname -a" - no point calling "uname" on "traceroute"
> (or even "traceroute" on "uname").
>
> > $ file /opt/perl/lib/5.8.3/IA64.ARCHREV_0-thread-multi/auto/IO/IO.so
> > /opt/perl/lib/5.8.3/IA64.ARCHREV_0-thread-multi/auto/IO/IO.so: ELF-32
> > shared object file - IA64
> > $ uname -a /opt/perl/lib/5.8.3/IA64.ARCHREV_0-thread-multi/auto/IO/
> > IO.so
> > HP-UX snoopy B.11.23 U ia64 0605108897 unlimited-user license
>
> That looks like useful info anyway.
>
> Have you got "tusc" installed?
>
> --
> Elvis Notargiacomo master AT barefaced DOT cheekhttp://www.notatla.org.uk/goen/
There is no 'tusc', here's model output
ia64 hp server rx1620
------------------------------
Date: Wed, 31 Oct 2007 20:25:49 +0100
From: "Dr.Ruud" <rvtol+news@isolution.nl>
Subject: Re: configurable variables in own file?
Message-Id: <fgaolg.1n0.1@news.isolution.nl>
Ted Zlatanov schreef:
> if ($path eq '' || $path eq '/')
> {
> $path = '/index.html';
> }
>
> $file = sprintf('%s/%s', $to, $path);
$file =~ s#/(?=/)##g;
--
Affijn, Ruud
"Gewoon is een tijger."
------------------------------
Date: Thu, 01 Nov 2007 00:36:28 -0000
From: boole <geocoo@gmail.com>
Subject: Get length of returned array without storing?
Message-Id: <1193877388.840351.10950@y42g2000hsy.googlegroups.com>
This function supposedly returns an array:
[quote http://perl-win32-gui.sourceforge.net/cgi-bin/docs.cgi?doc=listbox#getselitems]
GetSelItems()
Returns an array containing the zero-based indexes of the selected
items in a multiple selection Listbox.
[/quote]
I want to get the length of that array without storing the result in
an array variable.
This is what I found:
scalar($win->lbMacros1->GetSelItems()); # returns the last VALUE (yes,
VALUE) of the array, not the length like with normal arrays.
@array = $win->lbMacros1->GetSelItems();
scalar(@array); # returns
the length of the array
I want the value of the second method, without storing the array
first.
I've tried alot including {}, [], () and eval(), but I can't figure
this one out.
Please help when you have time.
------------------------------
Date: Thu, 01 Nov 2007 00:57:15 +0000
From: Big and Blue <No_4@dsl.pipex.com>
Subject: Re: Get length of returned array without storing?
Message-Id: <zdednT-P69LqubTanZ2dnUVZ8vydnZ2d@pipex.net>
boole wrote:
>
> I want to get the length of that array without storing the result in
> an array variable.
my $len = (func_call());
--
Just because I've written it doesn't mean that
either you or I have to believe it.
------------------------------
Date: Wed, 31 Oct 2007 11:10:42 -0700
From: "jl_post@hotmail.com" <jl_post@hotmail.com>
Subject: Re: How to convert timestamp to epoch?
Message-Id: <1193854242.276312.119190@o80g2000hse.googlegroups.com>
On Oct 30, 1:47 pm, Paul Lalli <mri...@gmail.com> wrote:
>
> #!/usr/bin/perl
> use strict;
> use warnings;
> use Date::Parse 'str2time';
> my $date = "22-OCT-07 06.16.44.160000 PM";
> $date =~ s/\./:/ for 1..2;
> my $epoch = str2time($date);
> print "Epoch: $epoch\n";
> __END__
The Date::Parse module looks great, but I can't seem to find it in
my ActiveState distribution of Perl, nor am I successful in installing
it with the command "ppm install Date-Parse".
Is there any one out there who is running ActiveState Perl and has
it, or am I the only one who's missing the Date::Parse module? In
case anyone wonders, my "perl -v" output is:
This is perl, v5.8.8 built for MSWin32-x86-multi-thread
(with 33 registered patches, see perl -V for more detail)
Copyright 1987-2006, Larry Wall
Binary build 819 [267479] provided by ActiveState http://www.ActiveState.com
Built Aug 29 2006 12:42:41
Thanks.
------------------------------
Date: Wed, 31 Oct 2007 14:03:41 -0700
From: "jl_post@hotmail.com" <jl_post@hotmail.com>
Subject: Re: How to convert timestamp to epoch?
Message-Id: <1193864621.295686.220360@o38g2000hse.googlegroups.com>
On Oct 31, 12:10 pm, "jl_p...@hotmail.com" <jl_p...@hotmail.com>
wrote:
>
> The Date::Parse module looks great, but I can't seem to find it in
> my ActiveState distribution of Perl, nor am I successful in installing
> it with the command "ppm install Date-Parse".
Update: I was able to install the Date::Parse module for
ActiveState Perl with the "cpan -i Date::Parse" command. It required
the "nmake.exe" executable (and possibly others as well) to be in my
%PATH%, though.
------------------------------
Date: Wed, 31 Oct 2007 12:31:50 -0700
From: David <LWATCDR@gmail.com>
Subject: Re: Printing to a Windows printer.
Message-Id: <1193859110.749265.127110@57g2000hsv.googlegroups.com>
On Oct 31, 1:36 pm, w.c.hum...@arcor.de wrote:
> On Oct 31, 5:48 pm, "A. Sinan Unur" <1...@llenroc.ude.invalid> wrote:
>
>
>
> > So, do you have a specific question?
>
> > Sinan
>
> I agree that David has not phrased his problem too exactly, but it's
> not really hard to figure out: The (dead) link he's talking about
> points to a compiled ppd-package. By guiding him to the "source
> installation"-section you silently assumne that everyone has VC++
> installed -- which is not the case. ActiveState does not offer a
> compiled package and packages compiled with gcc etc. often do not
> cooperate well with ActiveState Perl.
>
> Hint for David: go tohttp://cpan.uwinnipeg.ca/dist/Win32-Printer.
> They list additional win32 repositories -- including one for
> Win32::Printer
>
> Wolfram
Thanks I should have mentioned that I didn't have VCC installed.
Thanks for the link to the other repositories.
------------------------------
Date: Wed, 31 Oct 2007 17:28:41 -0700
From: gavino <gavcomedy@gmail.com>
Subject: using cpu and ram of a group of boxes to do work with perl, mix os and hardwarer
Message-Id: <1193876921.384333.218410@i38g2000prf.googlegroups.com>
I saw pvm, does it work?
anyone using it?
------------------------------
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 V11 Issue 994
**************************************
