[8469] in Perl-Users-Digest
Perl-Users Digest, Issue: 2086 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Thu Mar 12 22:08:11 1998
Date: Thu, 12 Mar 98 19:00:26 -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 Thu, 12 Mar 1998 Volume: 8 Number: 2086
Today's topics:
Re: DBD/oracle, and LD_LIBRARY_PATH (John D Groenveld)
Re: Help: Getting rid of warning messages (Abigail)
How can I hide user's input in Perl script? (Username)
Re: How do i create an arbetrary length string of space <mjmeans@goodnet.com>
How to use Perl for Win95? (Maxine G.)
HTTPD::UserAdmin <mjmeans@goodnet.com>
IP address ban - can it work? <slash@slashsworld.com>
Is there a "Newsgroup" for Newbies to Perl? <stackhou@execpc.com>
Re: Is there a "Newsgroup" for Newbies to Perl? (Jim Michael)
Re: Is there a "Newsgroup" for Newbies to Perl? (Burt Lewis)
Re: Is there a "Newsgroup" for Newbies to Perl? <jdf@pobox.com>
Re: Is there a "Newsgroup" for Newbies to Perl? (Bill Goffe)
Re: MsgBox <mishra.aditya@emeryworld.com>
multiple variables to one file <jwhite@thegrid.net>
Netscape & x-mac-creator=\"426C5764\" <admin@antoine-girouard.qc.ca>
PATH_INFO&STRING_QUERY <krishnan_v@usa.net>
Perl - mySQL - Precompiler (Martin Funke)
Q: Threads (in 5.004_62) and signals <dereks@fc.hp.com>
Re: Running perl scripts in the background (Gabor)
Re: Running scripts under different user ID on UNIX <joe.tully@virgin.net>
tainted glob confusion <flavell@mail.cern.ch>
Tracking down Stray Modules and Versions? dwar@seanet.jpl.nasa.gov
Re: Weak references? (Ilya Zakharevich)
Web based File manipulation on NT?? Help? <mark@imp.net>
Where can I find a ping script written in perl <long@gb.com.cn>
Re: Where can I get the PERL for Windows NT and 95? <stackhou@execpc.com>
Re: Where can I get the PERL for Windows NT and 95? (Michael J Gebis)
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 12 Mar 1998 17:21:25 -0500
From: groenvel@cse.psu.edu (John D Groenveld)
Subject: Re: DBD/oracle, and LD_LIBRARY_PATH
Message-Id: <6e9n55$4qt$1@tholian.cse.psu.edu>
In article <EpMAvq.3KJ@ig.co.uk>, Jacqui Caren <Jacqui.Caren@ig.co.uk> wrote:
>Bad idea - some stuff such as SQL*Net uses path info ORACLE_BASE/HOME and
>you can get unpredictable results.
The best solution in the unix environment is to setup ORACLE_BASE with
the same auto_home map on the clients as the server.
Ie: /home/server/oracle
Oracle has a bulletin for changing ORACLE_HOME.
John
groenveld@acm.org
------------------------------
Date: 12 Mar 1998 23:02:17 GMT
From: abigail@fnx.com (Abigail)
Subject: Re: Help: Getting rid of warning messages
Message-Id: <6e9php$hfe$1@client3.news.psi.net>
Adam Reeves (areeves@us.ibm.com) wrote on 1654 September 1993 in
<URL: news:350838AB.12DECFDB@us.ibm.com>:
++ Could someone please tell me how to get rid of these warning messages
++ the right way?
++
++ Name "Q::description" used only once: possible typo at mytest.cgi line
++ 96 (#1)
++ (W) Typographical errors often show up as unique variable
++ names. If you
++ had a good reason for having a unique name, then just mention
++ it
++ again somehow to supress the message (the use vars pragma is
++ provided for just this purpose).
++
++ Isn't $Q::description fully qualified? Maybe I just don't understand
++ what is going on here.
Well, yes, $Q::description is fully qualified. But where in the
above description of the warning does it say anything about
fully qualified names?
It says 'Name "Q::description" used only once'. And it's only
used once in your program.
Abigail
--
perl -wle 'print "Prime" if (1 x shift) !~ /^1?$|^(11+?)\1+$/'
------------------------------
Date: 12 Mar 1998 22:10:39 GMT
From: username@qualcomm.com (Username)
Subject: How can I hide user's input in Perl script?
Message-Id: <6e9mgv$5ep$1@thefuture.qualcomm.com>
I'm a relative newcomer to Perl, but I've tried to find this in the FAQ and
manuals, with no luck. This script will run on NT workstations, using Perl
4.0.1.8. I need to use 'base' perl, with no add-in modules.
I've written a Perl script (not for web/cgi) which needs to ask the user for a
password. I would like to avoid displaying their password on the screen as
they type it. Replacing the characters with asterisks would be ideal, but
blanking it out would be fine, too.
This looks to be a simple task, but I can't figure it out. I've experimented
with 'getc' but can't get it to do what I want.
Thanks,
Jim
------------------------------
Date: Thu, 12 Mar 1998 14:55:48 -0700
From: "Mark J. Means" <mjmeans@goodnet.com>
Subject: Re: How do i create an arbetrary length string of spaces?
Message-Id: <350859E4.189B64FA@goodnet.com>
Thank you for the reply. I knew there had to be a way simpler than $x =
sprintf("%{$y}s", ""); (or something like that).
Mark Means
Geert Roovers wrote:
> >
> > ie. $x contains a number. I need to set $y to $x spaces.
> >
> > If $x = 5, then $y gets set to " ".
>
> $y = " " x $x;
>
> (yes, that really works)
>
> HTH Geert
------------------------------
Date: Fri, 13 Mar 98 00:13:55 GMT
From: *nospam*mg*nospam*@*nospam*pcg*nospam.net (Maxine G.)
Subject: How to use Perl for Win95?
Message-Id: <6e9toj$ih4@examiner.concentric.net>
I think I'm missing a very basic concept:
I've downloaded and installed the Activestate Win32 version of Perl and
PerlScript on my Win95 machine. Now what do I do? If I double-click on any of
the three .exe files in the bin directory, a dos window opens briefly and then
closes.
So, what do I need to do to create and run perl scripts in this environment? I
couldn't find anything about this in the documentation, but perhaps I wasn't
looking in the right place.It seems like such an obvious question, so I assume
that the answer must be obvious too.
tia!
*********************************************************
return address changed to prevent spamming
Remove "NOSPAM" in the return address
Maxine Gerber
PCG Systems
*********************************************************
------------------------------
Date: Thu, 12 Mar 1998 15:05:00 -0700
From: "Mark J. Means" <mjmeans@goodnet.com>
Subject: HTTPD::UserAdmin
Message-Id: <35085C0C.2A5A2D7C@goodnet.com>
I need to write a small script to add user names to the user password
file for .htaccess. The problem is that I can't find the library. I am
using Perl for Win 32 on Win 95. I have tried ActiveWare Perl build 315
and Core Perl 5.00402. The perlfaq9 states I should be able to:
use HTTPD::UserAdmin
But when I run it, I get:
Can't locate HTTPD/UserAdmin.pm in @INC at test.pl line 2.
BEGIN failed--compilation aborted at test.pl line 2.
Where is this module? I cannot find it in LWP or anywhere in the
versions of perl I have (identified above).
------------------------------
Date: Thu, 12 Mar 1998 17:30:32 -0500
From: Slash <slash@slashsworld.com>
Subject: IP address ban - can it work?
Message-Id: <35086208.483FAEC5@slashsworld.com>
I am wondering if it's possible to ban an IP mask using perl.
What I am looking to do is possibly have a script executed on my main
page <-exec cgi="myscript.pl"> that will scan the user's IP address, and
if they are from let's say 199.176.169.(port) it will give them an
access denied message.
Can this be done? I know there are system variables that show like the
user's browser, and IP, but can one be used specificly with the IP
variable to detect if they are from any of their hosts using a mask? If
anyone knows, or could take a second to give me some code I would
appreciate it.
Thanks.
Slash
--
_________.__ .__
/ _____/| | _____ _____| |__
\_____ \ | | \__ \ / ___/ | \
/ \| |__/ __ \_\___ \| Y \
/_______ /|____(____ /____ >___| /
\/ \/ \/ \/
>--+---+---+---+---+---+---+---+---+--<
slash@slashsworld.com
http://www.slashsworld.com/
ICQ#: 2546177
>--+---+---+---+---+---+---+---+---+--<
------------------------------
Date: Thu, 12 Mar 1998 17:12:36 -0600
From: Mark Stackhouse <stackhou@execpc.com>
Subject: Is there a "Newsgroup" for Newbies to Perl?
Message-Id: <6e9qcv$rb1@newsops.execpc.com>
I've only been playing with Perl for about a week now but
I'm amazed by it's power and versatility! Using this
"Newsgroup" (as the book 'Learning Perl' suggests) seems to
offend some of you "old timers". Sorry... but we
have no place else to go! If someone would start a group
for "Newbies", I'd unsubscribe from this one in a minute.
Don't you Pros know that suggesting we look in this perldoc
or that perldoc doesn't really help someone who can't
understand the docs because we don't know enough about the
language yet? Most of the online docs I've read just add
more to the confusion! These are fine for someone who
already knows the language and just needs a refresher
but for someone just learning... they suck.
We need a good list of tutorials, our own Newsgroup, some
good books, and a few mentors who don't mind answering (and
explaining) our "Newbie" questions. Then we get out of your
bandwidth.
--
Mark Stackhouse
***********************************************************************
homepage: http://www.execpc.com/~stackhou
"The best things in life aren't things."
--Art Buchwald
***********************************************************************
------------------------------
Date: Fri, 13 Mar 1998 00:56:30 GMT
From: genepool@netcom.com (Jim Michael)
Subject: Re: Is there a "Newsgroup" for Newbies to Perl?
Message-Id: <genepoolEpqFy6.8vH@netcom.com>
Mark Stackhouse (stackhou@execpc.com) wrote:
: We need a good list of tutorials, our own Newsgroup, some
: good books, and a few mentors who don't mind answering (and
: explaining) our "Newbie" questions. Then we get out of your
: bandwidth.
There is a reorg of this ng hierarchy underway at this moment. You may
make your case on news.groups. Any arguments made in c.l.p.m do not
apply.
Cheers,
Jim
------------------------------
Date: 13 Mar 1998 01:39:55 GMT
From: burt@ici.net (Burt Lewis)
Subject: Re: Is there a "Newsgroup" for Newbies to Perl?
Message-Id: <6ea2pb$q2i$1@bashir.ici.net>
No there isn't but wish there was.
Another Frustrated Perl Newbie
In article <6e9qcv$rb1@newsops.execpc.com>, stackhou@execpc.com says...
>
>I've only been playing with Perl for about a week now but
>I'm amazed by it's power and versatility! Using this
>"Newsgroup" (as the book 'Learning Perl' suggests) seems to
>offend some of you "old timers". Sorry... but we
>have no place else to go! If someone would start a group
>for "Newbies", I'd unsubscribe from this one in a minute.
>
>Don't you Pros know that suggesting we look in this perldoc
>or that perldoc doesn't really help someone who can't
>understand the docs because we don't know enough about the
>language yet? Most of the online docs I've read just add
>more to the confusion! These are fine for someone who
>already knows the language and just needs a refresher
>but for someone just learning... they suck.
>
>We need a good list of tutorials, our own Newsgroup, some
>good books, and a few mentors who don't mind answering (and
>explaining) our "Newbie" questions. Then we get out of your
>bandwidth.
>
>--
>Mark Stackhouse
>
>***********************************************************************
>
>homepage: http://www.execpc.com/~stackhou
>
>"The best things in life aren't things."
>--Art Buchwald
>
>***********************************************************************
>
>
>
------------------------------
Date: 12 Mar 1998 21:32:50 -0500
From: Jonathan Feinberg <jdf@pobox.com>
Subject: Re: Is there a "Newsgroup" for Newbies to Perl?
Message-Id: <lnufialp.fsf@news.concentric.net>
Mark Stackhouse <stackhou@execpc.com> writes:
> Don't you Pros know that suggesting we look in this perldoc
> or that perldoc doesn't really help someone who can't
> understand the docs because we don't know enough about the
> language yet?
> We need a good list of tutorials, our own Newsgroup, some
> good books, and a few mentors who don't mind answering (and
> explaining) our "Newbie" questions. Then we get out of your
> bandwidth.
So those are your terms, huh? Well, I'd suggest a jaunt over to
http://www.perl.com
where you'll see pointers to various resources, many of which are
suitable for those just starting out. But by far the best thing to do
is to buy the book, _Learning Perl_, and to read it, slowly, from
cover to cover, doing all of the exercises. As you learn about
various builtins (for example, "sort," and "print") you might want to
consult perlfunc to learn their precise parameters and output in
different contexts. This will get you in the habit of using the docs,
and will provide a context for what seems confusing to you now.
Now, nobody here minds answering questions. But if a question is
already answered in the documentation that accompanies perl, or --
worse yet -- is in one of the FAQs, then people get impatient. If you
don't understand the *answer* that's in the documentation; if you need
*clarification* on a technical point; if you need *further examples*
of a usage, then by all means, post here. But make sure you say "I've
consulted perlfaq6 concerning multiline matches, and I still don't get
the difference between /m and /s," or whatever, so we'll know 1) that
you've at least tried to figure it out for yourself and 2) exactly
where your confusion lies.
Capice?
--
Jonathan Feinberg jdf@pobox.com Sunny Brooklyn, NY
------------------------------
Date: 13 Mar 1998 02:45:32 GMT
From: bgoffe@cook.cba.usm.edu (Bill Goffe)
Subject: Re: Is there a "Newsgroup" for Newbies to Perl?
Message-Id: <6ea6kc$b2n$1@thorn.cc.usm.edu>
Mark Stackhouse (stackhou@execpc.com) wrote:
: I've only been playing with Perl for about a week now but
: I'm amazed by it's power and versatility! Using this
: "Newsgroup" (as the book 'Learning Perl' suggests) seems to
: offend some of you "old timers". Sorry... but we
: have no place else to go! If someone would start a group
: for "Newbies", I'd unsubscribe from this one in a minute.
comp.lang.perl.newbie? comp.lang.perl.intro? While probably too hard to
do, maybe a true split of comp.lang.perl.misc into comp.lang.perl.intro
and comp.lang.perl.intermediate?
Along with current email that new posters receive (to point out the
newsgroups), it would seem to be a good idea...
.---. Bill Goffe Bill.Goffe@usm.edu
( | Dept. of Econ. and International Business office: (601) 266-4484
)__*| University of Southern Mississippi fax: (601) 266-4920
(_| Southern Station, Box 5072
Hattiesburg, MS 39406-5072
------------------------------
Date: Thu, 12 Mar 1998 12:46:20 -0800
From: "Mishra, Aditya" <mishra.aditya@emeryworld.com>
Subject: Re: MsgBox
Message-Id: <6e9fd3$cc6@news.cnf.com>
I think you mean to say that since you have the libwin32 bundle for perl
installed on your windows box , MsgBox should come with this bundle.
As far as I know this is not possible unless of course you install perl/tk
and roll your own MsgBox module (if you don't want to the DIalog module
which comeswith pTk)
Adi
------------------------------
Date: Thu, 12 Mar 1998 13:56:55 -0600
From: Justin <jwhite@thegrid.net>
Subject: multiple variables to one file
Message-Id: <35083E06.3605F21A@thegrid.net>
Hi,
I have a script (written in perl) that, when submitted, writes data to a
file on a UNIX BSDI Apache web server. The fields are:
field 1<input name=field1 value=$var1>
field 2<input name=field2 value=$var2>
field 3<input name=field3 value=$var3>
I want to save the data to the same file in the format of:
$var1__$var2=$var3
I parse the form input fields so that I have the variables in the format
of $FORM{'field'}. The way I tell it to print to a file is as follows:
open (FILE,"file") || die "$!";
print FILE "$FORM{'field1'}__$FORM{'field2'}=$FORM{'field3'}\n";
# The "__" and "=" signs are delimiters
close (FILE);
The problem is how the browser sends the data to the server. My file
looks like this:
$var1
$var1
$var1=$var2
$var2
$var2...and so on.
Any help would be much appreciated.
Thanks
Justin
------------------------------
Date: Thu, 12 Mar 1998 18:14:30 -0500
From: Administrator <admin@antoine-girouard.qc.ca>
Subject: Netscape & x-mac-creator=\"426C5764\"
Message-Id: <35086C51.B34@antoine-girouard.qc.ca>
x-mac-type=\"54455854\";
x-mac-creator=\"426C5764\"
I use UNIX sendmail to attach and send an html file. I receive it with
eudora on a macintosh. The corresponding file icon is not a netscape
icon. (In teh case above - some form of Claris software) I need to know
what codes correspond to an html file that will open netscape
automatically when I double double click on the file.
------------------------------
Date: Fri, 13 Mar 1998 13:08:02 +1000
From: Krishnan Venkatesan <krishnan_v@usa.net>
Subject: PATH_INFO&STRING_QUERY
Message-Id: <3508A312.5A01312@usa.net>
Dear perl programmer
i am using env variables PATH_INFO & QUERY_STRING to send information
pass info to a cgi.
The problem i have is that if PATH_INFO contain question marks '?'
incorrect info
is send in the QUERY_STRING and PATH_INFO data has chopped off at the
question.
Is there an escape character like '\' that can be used in front of the
'?' .
Thanks
Krishnan
------------------------------
Date: Thu, 12 Mar 1998 23:02:46 GMT
From: maf@nordrhein.net (Martin Funke)
Subject: Perl - mySQL - Precompiler
Message-Id: <3508684e.793398@news.nacamar.de>
A simple question:
I red about that Perl-script which include SQL-commandos have to be
pre-compiled before they will run. Is that right? Or is there another
trick behind?
Martin.
Martin.Funke@gmx.net
------------------------------
Date: Thu, 12 Mar 1998 12:12:21 -0700
From: Derek Sherlock <dereks@fc.hp.com>
Subject: Q: Threads (in 5.004_62) and signals
Message-Id: <35083395.1B82@fc.hp.com>
Hi all,
I hope I've found the right forum for asking this question. If not,
someone please refer me. Thanks.
My question: Nowhere in the perl builtins, CPAN modules, or Threads
entensions can I find a way of doing something like sigwait(3).
I want to write signal handlers that can participate in thread-safe
manipulation of global data. In other words, I want to do
asynchronous-signal-UNsafe stuff when I receive an asynchronous signal.
The traditional pthready way of doing this is to dedicate one (or more)
threads to just waiting for asynchronous signals with sigwait(3), and
not using traditional handlers at all.
Perhaps someone knows of a module that provides an interface to
sigwait(3)? Or a workaround that does not depend upon sigwait? Or of
any intentions to incorporate a sigwait function in some future perl?
Any information would be greatly appreciated.
Thanks,
Derek.
--
___ __ /___ ___ Derek Sherlock
| / /_ _ \ | Fort Collins Systems Lab (FSL)
| / / // / \ | 3404 E. Harmony
| \ / //_/ / | Fort Collins CO 80525
|___\_ /____/___|
/ Direct: 970-898-7582
H E W L E T T Fax: 970-898-7388
P A C K A R D Email: dereks@fc.hp.com
------------------------------
Date: 13 Mar 1998 00:07:23 GMT
From: gabor@vmunix.com (Gabor)
Subject: Re: Running perl scripts in the background
Message-Id: <slrn6ggus5.cup.gabor@vnode.vmunix.com>
In comp.lang.perl.misc, Paul Wilson <prw@god.I.hate.spam.vanitydomain.net> wrote :
# This may sound like a stupid question, but how do I get a perl script
# to run itself in the background on a UNIX (BSD) system? I've tried all
# kinds of fork stuff but the script just hangs on and never dumps me
# back to the UNIX prompt unless I hit ^Z bg.
#
# Paul.
# prw at vanitydomain dot net
# (yes, this is my real address)
use POSIX();
$pid = fork;
die "fork : $!" undless defined $pid;
exit if $pid > 0; # exit parent
POSIX::setsid(); # in child
------------------------------
Date: Thu, 12 Mar 1998 22:58:05 +0000
From: Joe Tully <joe.tully@virgin.net>
To: sneaker@earthling.net
Subject: Re: Running scripts under different user ID on UNIX
Message-Id: <3508687C.59A14A2D@virgin.net>
Hi Sneex,
Thanks for your reply.
The scripts I'm trying to set up do run via CGI, but my initial
problem was trying to get an interface running via a UNIX
command line (I'm providing both command line and WEB access
to the database).
However, I managed to solve this problem in the end.
The perl help suggests using a C program to execute the main
perl script. However, just doing this with the effective user
ID of the program changed doesn't work. The perl interpreter
detects that the effective user ID doesn't match the real
user ID and switches on the checks for data tainting.
What you have to do is get your C program to set the real
user ID to be the same as the effective user ID (It's one
of the unix "setid" functions - I can't remember the name
off the top of my head), prior to executing the perl script.
This way the perl interpreter doesn't sniff out the fact
you've changed the user ID and so doesn't check for data
tainting.
I realise that this overrides the security which perl is
sensibly trying to impose. However the database I am
creating can only be accessed internally within an
intranet, so I don't think I have to be too concerned
with malicious hackers. Besides this, I do have some
extra security precautions which makes sure that only
programs in particular paths and with particular
ownerships may be run. However, I would never risk
any of this if it were exposed via the world wide web.
No doubt it would be a hackers delight!
Regards,
Joe Tully
Sneex wrote:
>
> Mailed and Posted:
>
> The only way I have been able to
> successfuly make it work (as a CGI)
> create a secure ID which owns the web server
> and everyone runs it that way; or if it isn't a CGI,
> create a secure group which all potential users
> are a part of and run it that way; but 'suid' on Perl
> is not a good thing - stickyness should and can be
> avoided.
>
> My 2 cents worth,
> Sneex :-)
>
> Joe Tully wrote:
>
> > I've written a UNIX database program using a number of Perl
> > scripts.
> >
> > I now want to set up the database securely. My intention was
> > to have the database directory owned by a specific user and then
> > set the sticky bit on the top level Perl script so that it runs
> > under that users ID.
> >
> > However, on trying to do this I am getting problems relating to
> > data tainting. I looked at the "perlsec" part of the manual and
> > this suggested writing a C "wrapper" program (running under the
> > user ID) to call the perl. I tried this, but I get the same problem.
> >
> > Help! Does anyone have any idea on how to get around this problem?
> >
> > Thanks,
> >
> > Joe Tully
------------------------------
Date: Thu, 12 Mar 1998 23:23:01 +0100
From: "Alan J. Flavell" <flavell@mail.cern.ch>
Subject: tainted glob confusion
Message-Id: <Pine.A41.3.95a.980312231812.72894A-100000@rsplus09.cern.ch>
I'm trying to use glob while I've got -T on, and I keep getting:
Insecure dependency in glob while running with -T switch
Following the usual recipe for un-tainting things, I tried laundering
the argument with a regexp and then using $1 as the argument of the
glob, but the error message still triggers.
What am I missing here, please? I've reviewed the PERLSEC and
suchlike but I'm still adrift.
------------------------------
Date: Thu, 12 Mar 1998 20:01:17 -0600
From: dwar@seanet.jpl.nasa.gov
Subject: Tracking down Stray Modules and Versions?
Message-Id: <6ea3v0$dap$1@nnrp1.dejanews.com>
Folks,
Being a Perl fan for quite some time, and sadly enough, the only person
in this department who regularly uses Perl, I found myself volunteering to
clean up a local network that has several different versions of Perl
scattered among three different OS versions and mountpoints as well.
I've checked the FAQ, the Perl Module FAQ and searched the Deja News
archive with no luck, thus I'm going to plunge in and ask my question:
Is there a perl utility script that will search a specified file tree
and report on the versions, not just locations, of Perl that it finds, as
well as the modules that are installed under those respective versions?
I vaguely remember seeing when I last installed a module that the well,
auto-installer updates a table of modules within the Perl hierarchy. I
just can't simply find that table by casually glancing through the
directories; will you also please point me towards where I can find more
information on this as well?
I'd like to have a clean system like the rest of you but I do not want
to just blindly erase things until I know what I have and where it was. :)
David
dwar@seanet.jpl.nasa.gov
The Traditional Disclaimer disavowing JPL applies here as well.
p.s. The most recent version of Perl that I have, that I know of is 5.003
so if there is a script available but it requires 5.004, I would also
greatly appreciate any suggestions on how to hack it to run under 3 long
enough to track down what perls I have installed before upgrading and then
later tracking down the modules.
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/ Now offering spam-free web-based newsreading
------------------------------
Date: 12 Mar 1998 22:52:44 GMT
From: ilya@math.ohio-state.edu (Ilya Zakharevich)
Subject: Re: Weak references?
Message-Id: <6e9ovs$bm8$1@mathserv.mps.ohio-state.edu>
[A complimentary Cc of this posting was sent to Jean-Louis Leroy
<jll@skynet.be>],
who wrote in article <VA.0000007a.013c4843@jll>:
> Hello,
>
> I'm working on a persistence layer. Given the ID of an object, I need
> to find out whether it is already present in memory. This is to
> ensure object unicity:
>
> $id = read_id($storage);
> return $objects{$id} if exists $objects{$id};
> $obj = instantiate($class);
> read_data($obj, $storage);
> $objects{$id} = $obj;
>
> If I use a global hash, however, the object will never be freed,
> because its reference count will always be at least 1 (the reference
> from the hash). Weak references would do fine, alas Perl doesn't have
> them.
>
> So what's the solution?
>
> I've thought of maintaining my own refcount inside in the object, and
> returning a tied scalar that would manage my refcount.
>
> I also considered converting references into strings and storing *that*
> in the hash (it would contains pairs like 23 => 'SCALAR(0x123456)').
> This would not prevent freeing the object, but is there a way to
> convert the string back to a reference?
>
> Or does anybody have another hack (using typeglobs or whatever) or
> solution?
I sent a patch to p5p some time ago. It should cover your situation
perfectly. Look for soft references.
Ilya
------------------------------
Date: Thu, 12 Mar 1998 20:15:00 -0500
From: "Mark Polakow" <mark@imp.net>
Subject: Web based File manipulation on NT?? Help?
Message-Id: <6ea19u$m7r$1@viper.america.net>
This is a multi-part message in MIME format.
------=_NextPart_000_0019_01BD4DF3.88D209A0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
I am not a programmer but have had success manipulating some scripts to =
work on NT with IIS4 -
I want to be able to do file exchange functions through the web on NT =
IIS4. I have got a file upload module working smoothly but I want to be =
able to delete files and directories as well. None of the scripts Ive =
see so far can do this on NT. Can someone point me in the right =
direction?? Thanks very much in advance.
------=_NextPart_000_0019_01BD4DF3.88D209A0
Content-Type: text/html;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD W3 HTML//EN">
<HTML>
<HEAD>
<META content=3Dtext/html;charset=3Diso-8859-1 =
http-equiv=3DContent-Type>
<META content=3D'"MSHTML 4.72.2106.6"' name=3DGENERATOR>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV>
<DIV><FONT color=3D#000000 size=3D2>I am not a programmer but have had =
success=20
manipulating some scripts to work on NT with IIS4 -</FONT></DIV>
<DIV><FONT color=3D#000000 size=3D2>I want to be able to do file =
exchange functions=20
through the web on NT IIS4. I have got a file upload module working =
smoothly but=20
I want to be able to delete files and directories as well. None of the =
scripts=20
Ive see so far can do this on NT. Can someone point me in the right=20
direction?? Thanks very much in =
advance.</FONT></DIV></DIV></BODY></HTML>
------=_NextPart_000_0019_01BD4DF3.88D209A0--
------------------------------
Date: Fri, 13 Mar 1998 10:21:11 +0800
From: Long Xue <long@gb.com.cn>
Subject: Where can I find a ping script written in perl
Message-Id: <35089816.39AFEA7B@gb.com.cn>
--------------B9D7E4FF2DBB96F4E6B873E4
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
I'm trying to write a script to ping some sites( IP addresses of these
sites taken from a data file). Now I use "system" function to do it. It
just like this:
system("ping $ip");
I know this is not a good method. Then I use Net::Ping package provided
by perl. But it works quite slowly.
Can someone give me some advice how to do it,or tell me where can I find
a free ping script written in perl?
Thank you in advance.
long xue
long@gb.com.cn
JiTong Communication Co.,LTd.
--------------B9D7E4FF2DBB96F4E6B873E4
Content-Type: text/html; charset=us-ascii
Content-Transfer-Encoding: 7bit
<HTML>
I'm trying to write a script to ping some sites( IP addresses of these
sites taken from a data file). Now I use "system" function to do it. It
just like this:
<BR> system("ping $ip");
<P>I know this is not a good method. Then I use Net::Ping package provided
by perl. But it works quite slowly.
<P>Can someone give me some advice how to do it,or tell me where can I
find a free ping script written in perl?
<P>Thank you in advance.
<P>long xue
<BR>long@gb.com.cn
<PRE>JiTong Communication Co.,LTd.
</PRE>
</HTML>
--------------B9D7E4FF2DBB96F4E6B873E4--
------------------------------
Date: Thu, 12 Mar 1998 16:54:11 -0600
From: Mark Stackhouse <stackhou@execpc.com>
Subject: Re: Where can I get the PERL for Windows NT and 95?
Message-Id: <6e9paf$rb1@newsops.execpc.com>
Husky wrote:
> If I want to test my perl scripts in IIS on NT or PWS on Win95.
> Where can I get the perl software for these OS?
> Thanks...
I just can't believe how "snobbish" some of these "so called"
experts can be! I've only been using Perl for a week
so I'm a looong way from being experienced... but... I can help you
find the code you need. Go to:
http://www.perl.com/latest.html
You should find everything you need. Cheers!
--
Mark Stackhouse
***********************************************************************
homepage: http://www.execpc.com/~stackhou
"The best things in life aren't things."
--Art Buchwald
***********************************************************************
------------------------------
Date: 12 Mar 1998 23:39:46 GMT
From: gebis@albrecht.ecn.purdue.edu (Michael J Gebis)
Subject: Re: Where can I get the PERL for Windows NT and 95?
Message-Id: <6e9ro2$hf5@mozo.cc.purdue.edu>
Mark Stackhouse <stackhou@execpc.com> writes:
}Husky wrote:
}> If I want to test my perl scripts in IIS on NT or PWS on Win95.
}> Where can I get the perl software for these OS?
}> Thanks...
} I just can't believe how "snobbish" some of these "so called"
}experts can be! I've only been using Perl for a week
}so I'm a looong way from being experienced... but... I can help you
}find the code you need. Go to:
} http://www.perl.com/latest.html
Your essay topic is: "How someone could search the net and NOT find
the answer to this question, and yet still know enough about the net
to post this question to USENET."
You may choose the topic "How experts spend many hundreds of hours on
web-sites, software, and documentation become bitter when those
resources are ignored." for reduced credit.
You have 90 minutes. Begin now.
--
Mike Gebis gebis@ecn.purdue.edu mgebis@eternal.net
------------------------------
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 2086
**************************************
