[6421] in Perl-Users-Digest
Perl-Users Digest, Issue: 46 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Mar 4 08:07:18 1997
Date: Tue, 4 Mar 97 05:00:36 -0800
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Tue, 4 Mar 1997 Volume: 8 Number: 46
Today's topics:
ANNOUNCE: LibA2 0.003 (read/write Apple II ProDOS disk (Christopher J. Madsen)
ANNOUNCE: Text::Vpp 0.01 Versatile text pre-processor <domi@marlis.grenoble.hp.com>
automatic testing <detman@berlin.snafu.de>
Re: Class library to make C++ more Perlish? (Foozer)
fork and alarm (Yew Yap)
Re: Graphical Perl for Win32 (Greg Hassan)
Help: An array of objects with a class (cjgraham)
Re: Help: An array of objects with a class (Honza Pazdziora)
Re: help: Server error (Jonathan Peterson)
Re: How to sort blocks in a file? (tei hou)
HTML -> FrameMaker <Jan.Baldauf@Student.fh-reutlingen.de>
Interface to BibTeX <kanschat@iwr.uni-heidelberg.de>
perl - make test <marek.grinberg@mailbox.swipnet.se>
Perl Sockets support on IRIX ? (Jonathan Peterson)
perl-5.003 configure <marek.grinberg@mailbox.swipnet.se>
Re: Public domain DES and other crypto code in Perl? (Andrew Haley)
Re: Repost: Perl/SNMP mib load problem <philipp@ntex.com>
Re: Returning a reference to a 'my' variable (Stijn van Dongen)
Semantics of hashes and NIS+ combined... what to do? <philipp@ntex.com>
Sockets and XS (Nicolas Catania)
Re: Wanted NT Perl Script <philipp@ntex.com>
Re: Where is FAQ? (John Stanley)
wild cards and models searching ? <jehan@inapg.inra.fr>
Win32::ODBC --- Oracle <gardh@norway.eu.net>
Digest Administrivia (Last modified: 8 Jan 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 4 Mar 1997 12:36:21 GMT
From: ac608@yfn.ysu.edu (Christopher J. Madsen)
Subject: ANNOUNCE: LibA2 0.003 (read/write Apple II ProDOS disk images)
Message-Id: <5fh505$t6t$1@nadine.teleport.com>
LibA2 0.003 is now available on CPAN, the Comprehensive Perl Archive Network.
You can get it from the CPAN multiplexer at
http://www.perl.com/CPAN/authors/id/CJM/LibA2-0.003.tar.gz
which will pick an FTP site near you. If that doesn't work, retrieve
the master list of CPAN sites from
ftp://ftp.funet.fi/pub/languages/perl/CPAN/CPAN
LibA2 provides both end-user utilities and library modules for
accessing files on Apple II ProDOS disk images for use with most Apple
II emulators. It also includes utilities to read AppleWorks word
processor files and Applesoft BASIC VAR files.
This is a BETA release of LibA2. There's some documentation, but it's
not complete. If you want to see the rest of the documentation, then
send email! Otherwise, I'll probably never get around to writing it.
Until then, use the source, Luke! There are still probably some bugs,
and the interfaces might still change. Use at your own risk. Keep a
recent backup handy. Wait sixty minutes before swimming.
The included utilities are:
prodos.pl version 0.010
`prodos.pl' is the main end-user utility. It provides a
Unix-style shell for accessing ProDOS volumes. This allows
you to list the contents of disk images, create
subdirectories, and copy files to & from disk images. If you
have installed the Term::ReadKey and Term::ReadLine modules,
the shell will have better editing, command & filename
completion, and a command history.
The parameters for prodos.pl are:
prodos IMAGE_FILE
pro_fmt.pl version 0.003
`pro_fmt.pl' creates blank ProDOS disk images. The images are
NOT bootable, because they lack the necessary code in the boot
blocks. You can copy blocks 0 and 1 from a bootable disk to
fix this. The parameters for pro_fmt.pl are:
pro_fmt VOLUME_NAME SIZE_IN_BLOCKS IMAGE_FILE
This is likely to change in the future.
pro_opt.pl version 0.004
`pro_opt.pl' removes unused space from ProDOS disk images. This
is most useful for reducing the size of hard disk images. It
doesn't use any form of compression; it simply moves
everything to the beginning of the disk, squashing out empty
space caused by deleting files. Be careful with this, as it's
likely to have some bugs left. The parameters for pro_opt.pl are:
pro_opt SOURCE_IMAGE_FILE DESTINATION_IMAGE_FILE
awp2txt.pl version 0.005
`awp2txt.pl' converts AppleWorks word processor files into text
files. This is a bit out of place in LibA2, because it has
nothing to do with disk images, but I included it because
users of LibA2 may find it useful. The parameters for awp2txt are:
awp2txt FILE ...
var_display.pl version 1.004
`var_display.pl' lists the contents of an Applesoft BASIC VAR file.
Currently, it can only display string variables and string arrays.
Like awp2txt, you must first extract the VAR file from the disk
image. The parameters for var_display are:
var_display FILE
For people interested in writing their own utilities in Perl, LibA2
provides Perl 5 modules that supply classes for accessing ProDOS disk
images. DOS 3.3 disks are not currently supported (except by
AppleII::Disk, which doesn't care what kind of data is on the disk).
The included modules are:
AppleII::Disk version 0.009
`AppleII::Disk' provides block-level access to disk images.
It's useful because there are two main formats for Apple disk
images: ProDOS order and DOS 3.3 order. These formats do not
refer to the operating system used on the disk, but to the
order in which the data appears. AppleII::Disk takes care of
the differences for you.
AppleII::ProDOS version 0.026
`AppleII::ProDOS' provides tools for accessing files on ProDOS
disk images. `prodos.pl' is basically just a wrapper around
AppleII::ProDOS.
LICENSE
LibA2 is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.
LibA2 is distributed in the hope that it will be useful, but
WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See
either the GNU General Public License or the Artistic License
for more details.
REQUIREMENTS
LibA2 requires Perl 5. Perl is a freely-available programming
language that runs on PCs, Macs, and almost any Unix system.
You can find out how to get Perl for your computer at
http://www.perl.com/perl/
--
Chris Madsen ac608@yfn.ysu.edu
------- http://www.geocities.com/SiliconValley/Heights/3222/ -------
------------------------------
Date: 4 Mar 1997 12:36:49 GMT
From: Dominique Dumont <domi@marlis.grenoble.hp.com>
Subject: ANNOUNCE: Text::Vpp 0.01 Versatile text pre-processor
Message-Id: <5fh511$t6u$1@nadine.teleport.com>
Hello
I've uploaded Text::Vpp to CPAN. It should propagate to your favorite
CPAN site within a few days.
Here's the README file from the distribution :
This is the README file for Text::Vpp, the Perl
versatile pre-prosessor.
This is Version 0.01. See the "Changes" file for details on
the new features and fixes in this release.
This mopule was written with perl5.003. It should work fine with perl5.001
or later (although I did not test it).
You may find this module useful if you want to pre-preprocess text.
Vpp understands if, else, elsif, endif, include and can substitute variables
in the text. (See the test files in the distribution)
See the embedded documentation in the module for more details.
Comments and suggestions are always welcome.
Note that this module is in alpha state. Its interface may change (but
I hope not).
Alpha exit criteria:
- When some peoples (well, say 10 guys) tell me that they've used it
and did not find major bug with the module or minor problems with the
interface.
Cheers
--
Dominique_Dumont@grenoble.hp.com
------------------------------
Date: Tue, 04 Mar 1997 08:06:44 +0100
From: Detlef Huettemann <detman@berlin.snafu.de>
Subject: automatic testing
Message-Id: <331BCA03.13AD@berlin.snafu.de>
Hello !
We are about to build up a testing environment and are looking for
existing test tools.
We just had started a larger perl development project, and want to
automate the testing of perl subroutines, modules and applications.
We run perl5003 on HP-UX. We are not thinking on integrating a GUI
using perlTK, but our software will heavily interact with the system
and must run over the network.
I heard about DejaGnu, and I am an experienced tcl-programmer;
However, some members of my team are perl beginners and I dont want
them to get confused by learning a different language to write
the test cases.
Anyway, since DejaGnu is a testing framework for applications,
a wrapper (or a shell) for subroutine testing and module testing
has to be set up.
If anyone has experiences on testing perl, please give me some hints.
thanx a lot ;-)
--
** Detlef Huettemann ******************************************
* phone : +49-30-611 36 07 Lausitzer Strasse 36 *
* email : detman@berlin.snafu.de 10999 Berlin *
***************************************************************
------------------------------
Date: Tue, 04 Mar 1997 10:44:05 GMT
From: jnorman@freenet.durham.org (Foozer)
Subject: Re: Class library to make C++ more Perlish?
Message-Id: <331bfa21.337662429@news.whisp.com>
On 27 Feb 1997 23:39:52 -0800, Russ Allbery <rra@cs.stanford.edu> was
splainin':
>haven't tried the new compilers. However, on the other hand, I feel like
>I should point out that you're almost stuck programming for g++ as the
>lowest common denominator these days if you want portability, since the
>language still hasn't stabilized very well.
>
Couldn't let this one pass up... :) What do you mean the
language hasn't stabilized? It has undergone 2 draft proposal updates,
1 ratified update and been in wide use for at least the past 5-8 years
in many commercial envoironments. It has all but dissolved pascals
presence in commercial envoironments(was pascal ever there?) and has
spawned all kinds of second generation assemblers. I call them that
because they do not deserve the distinction of being called standalone
compilers as they all rely on existing API's. I do, however , agree
that with these higher level , second generation 'compilers' (Java
etc) are in fact serving to increase C++'s stability in the workplace.
The question of portability is non existant as it is compiler
specific, not language specific. If, OTOH, you mean portability in the
sense of support libs or platform dependancy, STL has been ratified as
part of the standard, so that will soon change as well as you will
start to see some other new standards being drafted. So have the
iostream classes. Anything derived from these 'should' remain portable
across platforms(note 'should', hehe). Admittedly, some compilers are
slow to pick up on support for newly adopted standards. This will
become a problem as the language is definately picking up momentum,
increasing the possibility of antiquating compilers almost weekly...
:)
Regards,
***************************************************
Don't email me, I am not there... :)
Steve Tupy
------------------------------
Date: 4 Mar 1997 07:53:43 GMT
From: gohyewya@iscs.nus.sg (Yew Yap)
Subject: fork and alarm
Message-Id: <5fgke7$892@nuscc.nus.sg>
Hi thanks for reading my posting, and please kindly mail me if u are
willing to help.
Why after forking a child, alarm wont work any more?
And after forking how to let the parent exit without waiting for the child?
TIA!
--
Goh Yew Yap ~{Nbe6ZK~}
Home Page : http://www.iscs.nus.sg/~gohyewya/
E-mail : gohyewya@iscs.nus.sg, isc40330@nus.sg, gohyy@post1.com
gohyy@scicblc.nus.sg
------------------------------
Date: 4 Mar 1997 10:33:53 GMT
From: gwhassan@Coho.Stanford.EDU (Greg Hassan)
Subject: Re: Graphical Perl for Win32
Message-Id: <5fgtqh$emq@nntp.Stanford.EDU>
heyas,
I believe the perl/tk extensions work in windows.
I have only used it for unix and it works great for
little apps. Bigger apps seem to take to long to load
to be useful.
There is a perl/tk newsgroup, you should probably get the
faq from that and read up on it.
-Greg
--
=====================================
Greg Hassan
The Independent Solution
gwhassan@prodigy.net
http://www.cs.buffalo.edu/~gwhassan/
=====================================
Server Setup/Config, CGI,
Java, Database Setup/Config,
Shopping Carts, Secure Commerce,
Business Contact Managers
=====================================
------------------------------
Date: 4 Mar 1997 08:43:16 GMT
From: cjgraham@tachegroup.com (cjgraham)
Subject: Help: An array of objects with a class
Message-Id: <5fgnb4$1la@dfw-ixnews9.ix.netcom.com>
I need to declare and use an array of objects (as an attribute) within
a object. I haved looked everywhere and cannot find it anywhere.
Thanks,
Christopher Graham
cjgraham@tachegroup.com
Tache Group, Inc.
407 Par Avenue
Melbourne, FL 32901
(407) 727-7297
(407) 728-8738
------------------------------
Date: Tue, 4 Mar 1997 11:52:18 GMT
From: adelton@fi.muni.cz (Honza Pazdziora)
Subject: Re: Help: An array of objects with a class
Message-Id: <adelton.857476338@aisa.fi.muni.cz>
cjgraham@tachegroup.com (cjgraham) writes:
> I need to declare and use an array of objects (as an attribute) within
> a object. I haved looked everywhere and cannot find it anywhere.
package Krtek;
sub new
{
my $class = shift;
my $self = [ ];
bless $self, $class
}
will return reference to an array.
Is that what you need?
--
------------------------------------------------------------------------
Honza Pazdziora | adelton@fi.muni.cz | http://www.fi.muni.cz/~adelton/
I can take or leave it if I please
------------------------------------------------------------------------
------------------------------
Date: 4 Mar 1997 11:32:47 GMT
From: jon@amxdigital.com (Jonathan Peterson)
Subject: Re: help: Server error
Message-Id: <jon-0403971129190001@amx11.amxdigital.com>
In article <colvin-2702971145270001@hawaii-26.u.aloha.net>,
colvin@aloha.net (Keith Warner Colvin) wrote:
CC'd to author, too!
> Aloha from Hawai'i:
>
> I am new at this, no joke ;), I am using Macperl5:
>
> When I try to run my cgi this is what I get:
> Please contact the server administrator,
> Webmaster and inform them of the time the error occurred,
> and anything you
Says it all. Contact your sysop/ISP and ask them how you need to set up perl
CGI scripts
> How do I fix this server error and use the cgi the way I want it.
>
Unless of course you _are_ the sysop, in which case you'll need to provide
more details, or read the FAQ's for comp.infosystems.www.authoring.cgi and
comp.infosystems.www.servers.unix.
It's even possible that there is a problem in your Perl script, but since
we can't see it, it's hard to say for sure.
------------------
Opinions expressed above are not necessarily those of AMXdigital ltd.
Jonathan Peterson || jon@amxdigital.com || (+44) 0171 613 5300
"You wouldn't believe the things I've seen with your eyes."
------------------------------
Date: 4 Mar 1997 11:28:50 GMT
From: sp3102th@ex.ecip.osaka-u.ac.jp (tei hou)
Subject: Re: How to sort blocks in a file?
Message-Id: <5fh11i$poe@newsserver.ex.ecip.osaka-u.ac.jp>
In article <74m6f5.9v.ln@localhost> tadmc@flash.net (Tad McClellan) writes:
>
>If your record separators are always constant (as your sample data
>shows), then you might want to look into the $/ 'input record
>separator' special variable.
>
>The solution below assumes only that the record separator is
>three # chars at the beginning of a line:
>
>
>-------------------
>#!/usr/bin/perl -w
>
>while (<DATA>) {
> if ( /^###/ ) { # start a new record
> push(@orig, $rec) if $rec;
> $rec = $_;
> }
> else
> { $rec .= $_ }
>}
>push(@orig, $rec); # get the last record too
>
>@sorted = sort @orig;
>
>foreach (@sorted)
> {print}
>
>
>
>__DATA__
>--
> Tad McClellan SGML Consulting
> Tag And Document Consulting Perl programming
> tadmc@flash.net
It's pretty simple, i think.
THANKS TO EVERYONE who posted and e-mailed for my question.
--
Tei Hou
sp3102th <sp3102th@ex.ecip.osaka-u.ac.jp>
------------------------------
Date: Tue, 04 Mar 1997 11:37:47 +0100
From: Jan Baldauf <Jan.Baldauf@Student.fh-reutlingen.de>
Subject: HTML -> FrameMaker
Message-Id: <331BFB7B.7AE0@Student.fh-reutlingen.de>
I need a tool to convert an HTML-File to a format that can be written by
FrameMaker. If somebody knows such a tool it would be great if you post
an answer to my question or send me an email
(Jan.Baldauf@Student.fh-reutlingen.de).
Thanks for your effort,
Jan Baldauf
------------------------------
Date: Tue, 04 Mar 1997 11:31:53 +0100
From: Guido Kanschat <kanschat@iwr.uni-heidelberg.de>
Subject: Interface to BibTeX
Message-Id: <331BFA19.351F@iwr.uni-heidelberg.de>
Has anybody written an interface to read
BibTeX files into Perl?
I would be very interested in getting such a code.
Best whishes
Guido Kanschat
------------------------------
Date: Tue, 04 Mar 1997 09:13:30 +0100
From: Marek Grinberg <marek.grinberg@mailbox.swipnet.se>
Subject: perl - make test
Message-Id: <331BD9A9.1105@mailbox.swipnet.se>
Hello,
I have fetched perl-5.003 from prep.ai.mit.edu, built it using
'configure', and did 'make minitest' and 'make test'.
'make minitest' yielded no errors, while 'make test' yielded the
following output:
<snip>
op/write......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 140.
at ../lib/Fcntl.pm line 67
Begin failed--compilation aborted at ./lib/anydbm.t line 11.
FAILED on test 0
<snip>
lib/filehand...Bareword "O_RDONLY" not allowed while "strict subs" in
use at
./lib/filehand.t line 23.
Execution of ./lib/filehand.t aborted due to compilation errors.
FAILED on test 0
lib/gdbm.......ok
lib/ndbm.......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 140.
at ../lib/Fcntl.pm line 67
Begin failed--compilation aborted at ./lib/anydbm.t line 17.
FAILED on test 0
lib/odbm.......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 140.
at ../lib/Fcntl.pm line 67
Begin failed--compilation aborted at ./lib/anydbm.t line 17.
FAILED on test 0
lib/posix......Can't load '../lib/auto/POSIX/POSIX.so' for module POSIX:
ld.so.1: ./perl: fatal: relocation error: symbol not found: main:
referenced in
../lib/auto/POSIX/POSIX.so at ../lib/DynaLoader.pm line 140.
at ../lib/POSIX.pm line 184
Begin failed--compilation aborted at ./lib/posix.t line 13.
FAILED on test 0
lib/safe.......Can't load '../lib/auto/Safe/Safe.so' for module Safe:
ld.so.1: ./perl: fatal: relocation error: symbol not found: main:
referenced in
../lib/auto/Safe/Safe.so at ../lib/DynaLoader.pm line 140.
at ../lib/Safe.pm line 390
Begin failed--compilation aborted at ./lib/safe.t line 13.
FAILED on test 0
lib/sdbm.......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 140.
at ../lib/Fcntl.pm line 67
Begin failed--compilation aborted at ./lib/sdbm.t line 16.
FAILED on test 0
lib/socket.....Can't load '../lib/auto/Socket/Socket.so' for module
Socket:
ld.so.1: ./perl: fatal: relocation error: symbol not found: main:
referenced in
../lib/auto/Socket/Socket.so at ../lib/DynaLoader.pm line 140.
at ../lib/Socket.pm line 272
Begin failed--compilation aborted at ./lib/socket.t line 14.
FAILED on test 0
lib/soundex....ok
Failed 8/94 tests, 91.49% okay.
make: [test] Error 29 (ignored)
Any hints ?
--
Regards,
Marek Grinberg
|---------------------------------------|
| home: mailto:marek@mailbox.swipnet.se |
| work: mailto:magri@msc.se |
| web: http://www.msc.se |
|---------------------------------------|
------------------------------
Date: 4 Mar 1997 11:09:17 GMT
From: jon@amxdigital.com (Jonathan Peterson)
Subject: Perl Sockets support on IRIX ?
Message-Id: <jon-0403971105500001@amx11.amxdigital.com>
I've been trying to learn how to use sockets with Perl, so that I can
avoid things like:
$page = `echo 'GET /index.html HTTP/1.0' |telnet www.server.com 80`;
However, The Pink Camel sockets examples (perl 4 on IRIX 5.3) give me errors:
connect: Operation not supported on transport endpoint at server.pl line 24
The line in question is:
listen (s,5) || die "connect: $!";
What's odd is that it didn't give me errors on the socket() or bind()
functions that preceded the listen() function.
Using Thomas Boutell's PerlMud with Perl 5.002 and Irix 6.2 gives me
similar problems:
Couldn't create listener socket.
This Perl implementation probably does not support sockets.
So does Perl simply not support sockets on Irix, end of story? If so, what
OS will I be able to use sockets on? I have to confess that I did not
compile Perl myself in either case, it came from the SGI freeware CD-Rom
(along with gcc, which I can't get working either :-)
------------------
Opinions expressed above are not necessarily those of AMXdigital ltd.
Jonathan Peterson || jon@amxdigital.com || (+44) 0171 613 5300
"You wouldn't believe the things I've seen with your eyes."
------------------------------
Date: Tue, 04 Mar 1997 09:34:25 +0100
From: Marek Grinberg <marek.grinberg@mailbox.swipnet.se>
Subject: perl-5.003 configure
Message-Id: <331BDE90.63D0@mailbox.swipnet.se>
Hello,
Makefile contains info about building the following perl variants:
Debugging make perllib=libperld.a
Embedded make perllib=libperle.a
Multiplicity make perllib=libperlm.a
1. Do I need to build all these variants ?
2. What is built using 'make' only ?
--
Regards,
Marek Grinberg
|---------------------------------------|
| home: mailto:marek@mailbox.swipnet.se |
| work: mailto:magri@msc.se |
| web: http://www.msc.se |
|---------------------------------------|
------------------------------
Date: 4 Mar 1997 11:26:14 GMT
From: aph@cygnus.co.uk (Andrew Haley)
Subject: Re: Public domain DES and other crypto code in Perl?
Message-Id: <5fh0sm$lrc$2@korai.cygnus.co.uk>
Paul Rubin (phr@netcom.com) wrote:
: In article <5ff7r3$cmi$1@news.eecs.umich.edu>,
: Aviel Rubin <rubin@quip.eecs.umich.edu> wrote:
: >Is there a public domain implementation of DES, MD5 and other crypto
: >algorithms? I have seen ones that are C modules that people can link
: >into their programs. One problem with such schemes is that usually they
: >are installed in a central place by a system administrator, so the entire
: >security of the system relies on trusting that you are linking to the
: >right functions.
: >
: >We would like to be able to have a self-contained program where each
: >user has all of the code, including the crypto, locally. So, are
: >there any packages WRITTEN IN PERL for DES, etc.?
: Huh? What's wrong with the user compiling the C functions in with
: their programs? DES and other bit twiddling algorithms sound painful
: in Perl.
Not every user has a C compiler. Besides, if all you're doing is
encrypting an authenitcation ticket the user won't perceive any
difference between C and PERL. It shouldn't be hard to translate DES
from C to PERL.
Andrew.
------------------------------
Date: Mon, 03 Mar 1997 22:43:10 -0800
From: "Philip A. Prindeville" <philipp@ntex.com>
Subject: Re: Repost: Perl/SNMP mib load problem
Message-Id: <331BC47E.1AB9@ntex.com>
Jyoti Patel wrote:
>
> I posted this a week ago but did not receive any replies
> so here's another try.
>
> I am using Perl 5.003, cmu_snmp2.1.2, SNMP1.6
>
> With this setup, I am trying to write a perl script
> to load a couple of mibs and then to do sets and gets.
> I am experiencing problems in loading two mibs back to
> back. I don't know if Perl can't handle loading of multiple
> mibs or if the mib syntax is a problem.
>
> Can anyone please tell me what's going on. Does Perl require
> it's Mibs to be in one giant file?
>
> It loads one mib then I get the following error:
> -----------------------------------------------------------------
> mombasa{jyoti}100: ./test1.pl
> initializing MIB...done
> Use of uninitialized value at /usr/thirdParty/perl/lib/site_perl/SNMP.pm
> line 65.
> initializing MIB...The mib description doesn't seem to be consistent.
> Some nodes couldn't be linked under the "iso" tree.
> these nodes are left:
> <it goes on to list all the attributes defined in the mib. eg>
> ....
> NodeConfigNodeNumber ::= { NodeConfigEntry 2 } (134)
> NodeConfigDomainNumber ::= { NodeConfigEntry 1 } (134)
> NodeConfigTable ::= { node 1 } (14)
> NodeConfigEntry ::= { NodeConfigTable 1 } (1)
> ----------------------------------------------------------------
My guess is that your mibs require (import) definitions in other mibs
that you haven't included. Look at the top of your mib file and see
what modules it imports from other files, locate these files, and make
sure they are loaded up first.
-Philip
------------------------------
Date: Tue, 4 Mar 1997 11:04:08 GMT
From: stijnvd@cwi.nl (Stijn van Dongen)
Subject: Re: Returning a reference to a 'my' variable
Message-Id: <stijnvd.857473448@news.cwi.nl>
Tom Christiansen <tchrist@mox.perl.com> writes:
> [courtesy cc of this posting sent to cited author via email]
>: sub CreateList
>: {
>: my @x;
>: # ... Build up the list ...
>: return \@x;
>: }
>: $A = CreateList();
>: $B = CreateList();
>:Does this work? Are references $A and $B guaranteed to be different and
>:usable?
>Yes. You must be a C programmer. :-)
>--tom
Following up on this question:
Is there a difference in performance between doing
my $x = [];
# ..
return $x; # and
my @x;
# ..
return \@x;
?
Stijn
stijnvd@cwi.nl
------------------------------
Date: Mon, 03 Mar 1997 23:37:54 -0800
From: "Philip A. Prindeville" <philipp@ntex.com>
Subject: Semantics of hashes and NIS+ combined... what to do?
Message-Id: <331BD152.1CFE@ntex.com>
Hi.
I'm writing a tied hash module to work with the NISPlus-0.05
package for use with certain NIS+ maps like group, passwd, etc.
In some of these maps, it is possible to have multiple entries
with the same search key.
My question is how does this affect the semantics of a hashed
array? Can "keys" return the same key more than once? And
when one does a delete, which entry does it delete? The oldest?
All of them?
I'm stumped as to what The Right Thing To Do is.
Any help appreciated. Please reply directly.
-Philip
------------------------------
Date: Tue, 4 Mar 1997 08:43:43 GMT
From: niko@mururoa.hpl.hp.com (Nicolas Catania)
Subject: Sockets and XS
Message-Id: <NIKO.97Mar4084343@mururoa.hpl.hp.com>
Hi,
I started to write an XS file which includes a function that takes a
socket descriptor as first argument. I do not know what is the type of
a perl socket. It does not look like a Scalar Value. Any idea what my
function declaration should be in the XS file?
test.pl:
socket(S, $pf_inet, $sock_stream, $tcp_proto);
Rsocket4::connect(S, $serverproc);
Rsocket4.xs:
void
connect(sd,addrsv)
??? sd
SV* addrsv
CODE:
{
...
Thank you.
Nicolas Catania
------------------------------
Date: Mon, 03 Mar 1997 23:01:34 -0800
From: "Philip A. Prindeville" <philipp@ntex.com>
Subject: Re: Wanted NT Perl Script
Message-Id: <331BC8CE.7243@ntex.com>
Brian Mc Daniel wrote:
>
> I am looking for a Perl script that can check the creation dates on
> existing files in a directory to determine if they are older than 1
> week and if so to go ahead and remove them.
>
> Many Thanks
You don't need perl for that. You need the NT Res Kit (and the
Posix subdirectory).
find /somedir -mtime +7 -exec rm {} ;
-Philip
------------------------------
Date: 4 Mar 1997 07:58:18 GMT
From: stanley@skyking.OCE.ORST.EDU (John Stanley)
Subject: Re: Where is FAQ?
Message-Id: <5fgkmq$qmp@news.orst.edu>
In article <5fdmfi$598@fridge-nf0.shore.net>,
Nathan V. Patwardhan <nvp@shore.net> wrote:
>Usenet is part of the internet.
Incorrect. USENET is often transported via the Internet, but it is also
transported via other networks. USENET access does not imply Internet
access, just as USENET access does not imply that one owns an airplane or
has a FAX machine.
>Very well, then: ftp -> ftp.cdrom.com/pub/perl/CPAN/doc/FAQs/FAQ
Ftp is an Internet protocol. USENET != Internet.
Why is it such a difficult concept that you might tell someone how to
get a FAQ in the same medium that they are asking the question?
The FAQ used to be posted to this newsgroup. The last time I saw it was
early '96. Back then, it wasn't too big to be posted, and posting it
would certainly be a large part of getting people to read it before
asking questions.
Could whomever used to post it start doing it again? Please?
------------------------------
Date: Tue, 04 Mar 1997 12:05:42 +0100
From: Procaccia Jehan <jehan@inapg.inra.fr>
Subject: wild cards and models searching ?
Message-Id: <331C0205.41C6@inapg.inra.fr>
Hello
I have written a perl script to manage personal directory over the WEB.
I want users to be able to use "*" in their search.
For example "Name=gat*" .
Unfortunatly in the above example the result will list me all names
strating with "ga" and not "gat*" :-). The latest letter always disepear
in my search script.
I use cgi-lib.pl to parse the query string. Here is the code:
&ReadParse(*input); get the query string
$inname=lc($input{'name'}); get the name parameter
$inname=~ s/\*/ /; here I substitute the * caracter
open(FL,"/webroot1/httpd/cgi-bin/intra/file_annu.txt"); open the flat
text database
while (<FL>) {
($name,$prenom,$email)=split(/:/); cut fields
$namel=lc($name); lower case the search
if ($namel=~ /^$inname/ ) HERE IS THE BUGGY TEST! WHY ?
Why this test is always true even if $namel is "ga" and $inname is "gat"
?
Thanks a lot
Jehan Procaccia
jehan@inapg.inra.fr
------------------------------
Date: 4 Mar 1997 07:46:00 GMT
From: "Gard A. Haugen" <gardh@norway.eu.net>
Subject: Win32::ODBC --- Oracle
Message-Id: <01bc2870$9f07d4b0$7e0247c1@donald>
I have a problem inserting strings over 2000 characters into a long column
in Oracle.
I'm using Perl 5 whith Dave Roth's Win32::ODBC.
Have anyone solved this problem ?
Gard AH.
------------------------------
Date: 8 Jan 97 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 8 Jan 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.
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 46
************************************
