[7827] in Perl-Users-Digest
Perl-Users Digest, Issue: 1452 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Thu Dec 11 02:07:23 1997
Date: Wed, 10 Dec 97 23:00:22 -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 Wed, 10 Dec 1997 Volume: 8 Number: 1452
Today's topics:
Answer... Newbie Help Installing Perl <nathan@cyberservices.com>
CGI problems.. <namaste@goodnet.com>
Re: CGI problems.. (brian d foy)
How to do @hash{"a","b"} with ref <nneul@umr.edu>
Re: How to do @hash{"a","b"} with ref (brian d foy)
Re: How to do @hash{"a","b"} with ref <ebohlman@netcom.com>
Re: how to hide .pl file <nathan@cyberservices.com>
Re: I looking for a programmer <nathan@cyberservices.com>
Re: Install Perl on Win95 <nathan@cyberservices.com>
Re: Looking to buy AUCTION script <nathan@cyberservices.com>
Memory access in win95 <kika@megsinet.net>
Re: mkdir not mking my dir <rootbeer@teleport.com>
Re: Need help stripping whitespace <rootbeer@teleport.com>
Re: Need help stripping whitespace <rootbeer@teleport.com>
Re: Need help stripping whitespace <ebohlman@netcom.com>
Net::FTP question <jim.blackwell@gsfc.nasa.gov>
Re: newbie: compact an array (Tushar Samant)
Re: newbie: compact an array <rootbeer@teleport.com>
Re: newer than new to perl <nathan@cyberservices.com>
Re: ntperl newbie <nathan@cyberservices.com>
Re: PERL CGI Parsing <rootbeer@teleport.com>
Re: PERL CGI's on NT <nathan@cyberservices.com>
Please Help - Win32::InitiateSystemShutdown <fbellomo@home.com>
please help : web personals (ton)
Review of CGI/Perl book (Hans Schrader)
Re: There's More Than One Way? (brian d foy)
Re: Tracing memory usage & related questions <kaehny@execpc.com>
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Wed, 10 Dec 1997 23:40:42 +0000
From: Nathan Stanford <nathan@cyberservices.com>
To: Pete Keefe <pkeefe@ix.netcom.com>
Subject: Answer... Newbie Help Installing Perl
Message-Id: <1A19374F611A977F.B4FE944D07E079F7.7EF802FB8F66FB3D@library-proxy.airnews.net>
If you haven't figured it out or gotten an answer email me
Nathan Stanford The Perl N.uT.
nathan_stanford@cabp.com - Work
nathan@cyberservices.com - Home
Pete Keefe wrote:
> It's really an IIS issue. You need to set registry entry to allow perl
> scripts to be
> run as a script - it is documented in the IIS manual. From memory you need
> to
> add an entry at Local Machine -> System -> CurrentControlSet -> Services ->
> W3SVC -> Parameters -> ScriptPath or something like that.
>
> Hope this helps,
> Pete Keefe
> pkeefe@NOSPAMix.netcom.com
>
> Sigmund Freud wrote in message ...
> >Hello all,
> >
> >I have been trying to install perl for some time now, and it is just not
> >working right. Lemme tell you what happens.
> >First of all, I am trying to install it on NT4.0, with 32 mb of ram. I am
> >also using IIS. Now, i downloaded the latest binary, and installed it,
> >just the way they say how to install it. Then, they say that install.bat
> >automatically installs the right registry, which it doesnt do with me, so
> >I have to do that all manually. The Data type of every new value is set
> >to reg_sz. This all goes ok, when i try to run a script from the dos
> >prompt, it all goes the right way. When I try to start a cgi script from
> >my browser (netscape or ie) it just keeps loading, and i only try to do
> >the Helloworld.pl to see if it all works. All the dirs are set the right
> >way (i think), but all that my browsers do, is keep loading, and IE gives
> >a timeout error after a while...I really need some help...
> >Thanks in advance...
> >
> >Jaron Frenk
> >
> >*** If u have a difficult task, give it to a lazy person -
> > they will find an easier way to do it ***
> >
------------------------------
Date: Wed, 10 Dec 1997 22:34:01 +0000
From: Natural Alternatives <namaste@goodnet.com>
Subject: CGI problems..
Message-Id: <348F18D9.3BD6D843@goodnet.com>
I am currently in the process of changing internet providers and
transferring my CGIs from one site to another..
No matter what I do I cant seem to get the CGIs to operate on the new
server..
I get one of 2 errors..
501 Not Implemented
We are sorry to be unable to perform the method POST to non-script at
this time or to this document.
OR
It displays the CGI instead of executing it... it displays it like a
text file ??
I have never encountered these errors before and im not sure where to
start.. All my file permissions and directory paths seem to be in
order..
old site: http://www.goodnet.com/~namaste/
new site: http://192.41.53.134/natalt/
soon to be: http://www.nat-alt.com/
Any help anyone could offer would be greatly appreciated!!!
J.Davis
------------------------------
Date: Thu, 11 Dec 1997 01:05:46 -0500
From: comdog@computerdog.com (brian d foy)
Subject: Re: CGI problems..
Message-Id: <comdog-ya02408000R1112970105460001@news.panix.com>
In article <348F18D9.3BD6D843@goodnet.com>, Natural Alternatives <namaste@goodnet.com> wrote:
>No matter what I do I cant seem to get the CGIs to operate on the new
>server..
have you tried the "Idiot's Guide to Solving Perl CGI Problems"?
>I get one of 2 errors..
>
>501 Not Implemented
>It displays the CGI instead of executing it...
sounds like you forgot to download the bit of execution.
good luck :)
--
brian d foy <comdog@computerdog.com>
NY.pm - New York Perl M((o|u)ngers|aniacs)* <URL:http://ny.pm.org/>
CGI Meta FAQ <URL:http://computerdog.com/CGI_MetaFAQ.html>
------------------------------
Date: 11 Dec 97 02:41:02 GMT
From: Nathan Neulinger <nneul@umr.edu>
Subject: How to do @hash{"a","b"} with ref
Message-Id: <348f52be.0@news.cc.umr.edu>
Given:
%hash = (
a => "fred",
b => "joe",
c => "tom",
);
$ref = \%hash;
How does one do the equivalent of:
@tmp = @hash{"a","b"};
using $ref?
@tmp = ??? ref ???;
-- Nathan
------------------------------------------------------------
Nathan Neulinger EMail: nneul@umr.edu
University of Missouri - Rolla Phone: (573) 341-4841
Computing Services Fax: (573) 341-4216
------------------------------
Date: Thu, 11 Dec 1997 00:54:46 -0500
From: comdog@computerdog.com (brian d foy)
Subject: Re: How to do @hash{"a","b"} with ref
Message-Id: <comdog-ya02408000R1112970054460001@news.panix.com>
In article <348f52be.0@news.cc.umr.edu>, Nathan Neulinger <nneul@umr.edu> wrote:
>Given:
> %hash = (
> a => "fred",
> b => "joe",
> c => "tom",
> );
> $ref = \%hash;
>
>How does one do the equivalent of:
>
> @tmp = @hash{"a","b"};
>
>using $ref?
#!/usr/bin/perl
%hash = (
a => "fred",
b => "joe",
c => "tom",
);
$ref = \%hash;
@tmp = @$ref{"a","b"};
print "@tmp\n";
__END__
fred joe
--
brian d foy <comdog@computerdog.com>
NY.pm - New York Perl M((o|u)ngers|aniacs)* <URL:http://ny.pm.org/>
CGI Meta FAQ <URL:http://computerdog.com/CGI_MetaFAQ.html>
------------------------------
Date: Thu, 11 Dec 1997 04:10:36 GMT
From: Eric Bohlman <ebohlman@netcom.com>
Subject: Re: How to do @hash{"a","b"} with ref
Message-Id: <ebohlmanEL0BLo.IuB@netcom.com>
Nathan Neulinger <nneul@umr.edu> wrote:
: Given:
: %hash = (
: a => "fred",
: b => "joe",
: c => "tom",
: );
: $ref = \%hash;
: How does one do the equivalent of:
: @tmp = @hash{"a","b"};
: using $ref?
: @tmp = ??? ref ???;
@$ {"a","b"}
------------------------------
Date: Thu, 11 Dec 1997 00:08:34 +0000
From: Nathan Stanford <nathan@cyberservices.com>
To: venkat5@hotmail.com
Subject: Re: how to hide .pl file
Message-Id: <0258CF725C5B19A7.6065CBA2B833828B.36E6A2DD23A284C4@library-proxy.airnews.net>
venkat5@hotmail.com wrote:
> I want to hide the .pl program from being read from others. Is there any
> way to do it? I am using Perl 5 under WindowsNT 4.0 Please reply me at
> venkat5@hotmail.com Regards. venkat.
>
> -------------------==== Posted via Deja News ====-----------------------
> http://www.dejanews.com/ Search, Read, Post to Usenet
If you haven't figured it out or gotten an answer email me
--
Nathan Stanford The Perl N.uT.
nathan_stanford@cabp.com - Work
nathan@cyberservices.com - Home
------------------------------
Date: Thu, 11 Dec 1997 00:10:48 +0000
From: Nathan Stanford <nathan@cyberservices.com>
To: "D. Minder" <webmaster@datacomm.ch>
Subject: Re: I looking for a programmer
Message-Id: <6EBEBF78085248DE.AF688FFBC70EEA8F.F27C5F48B4DF4177@library-proxy.airnews.net>
D. Minder wrote:
> Hi
>
> I looking for a programmer or student to realized a project (game)
> in perl?
>
> If you want earn much money for a simple game please write me for more
> information
>
> thanks
If you haven't figured it out or gotten an answer email me
I Love money :)
--
Nathan Stanford The Perl N.uT.
nathan_stanford@cabp.com - Work
nathan@cyberservices.com - Home
------------------------------
Date: Thu, 11 Dec 1997 00:16:12 +0000
From: Nathan Stanford <nathan@cyberservices.com>
To: Francesco Esposito <francesco.esposito@iol.it>
Subject: Re: Install Perl on Win95
Message-Id: <A6A8238E8ABFFF0C.0A28E83642CE1448.26E4B145F2F1FCF5@library-proxy.airnews.net>
Francesco Esposito wrote:
> Hi, I am new in CGI script and PERL and I am trying to realize
> some web pages with Forms. To try it, I need to install anyting that
> could run a CGI script on FrontPage Personal Web Server.
>
> Please, do anyone of You can help me to know the exact procedure to
> install and run so, with form that call CGI script in PERL
> (or other languages) having the FrontPage Web Server.
>
> Thank You in advance, and greeting from Italy !
If you haven't figured it out or gotten an answer email me
--
Nathan Stanford The Perl N.uT.
nathan_stanford@cabp.com - Work
nathan@cyberservices.com - Home
------------------------------
Date: Wed, 10 Dec 1997 23:58:07 +0000
From: Nathan Stanford <nathan@cyberservices.com>
To: Brett <brett@moggy.com>
Subject: Re: Looking to buy AUCTION script
Message-Id: <A26AAE0B078F8E97.B2FEEA00A41096AE.796F89195035E428@library-proxy.airnews.net>
Brett wrote:
> I am looking to purchase an online Auction script and am currently
> comparing features/prices. If you have one for sale, or know of one, could
> you please forward details or a web address to me at brett@moggy.com ??
>
> Thanks!
>
> Brett
If you haven't figured it out or gotten an answer email me
--
Nathan Stanford The Perl N.uT.
nathan_stanford@cabp.com - Work
nathan@cyberservices.com - Home
------------------------------
Date: Wed, 10 Dec 1997 00:04:56 -0600
From: Kristina Kolesnikov <kika@megsinet.net>
Subject: Memory access in win95
Message-Id: <348E3108.CCC184D9@megsinet.net>
Hi !
Is there a way to access a certain piece of global memory in win95
from within a perl script ?
Specifically, I have another win95 application (called X) written in
delphi. I want to
execute perl from within X and make X wait until perl is done. How do I
find out
when perl is done ? My idea was to communicate between X and perl
through
global memory - is this doable ? Are there any alternatives ?
Please respond directly to kika@megsinet.net
Thank you very much in advance !
Sergey
------------------------------
Date: Wed, 10 Dec 1997 21:54:43 -0800
From: Tom Phoenix <rootbeer@teleport.com>
To: Derek Balling <dballing@speedchoice.com>
Subject: Re: mkdir not mking my dir
Message-Id: <Pine.GSO.3.96.971210215409.20868D-100000@user2.teleport.com>
On Wed, 10 Dec 1997, Derek Balling wrote:
> $thedir = "/export/home/nc/NC/html/talk/boards\/$directory";
> Something to tell Perl that the "/" and the "$" are *NOT* 'together'.
What do you think would happen if they were 'together'? Slashed prices?
:-)
--
Tom Phoenix http://www.teleport.com/~rootbeer/
rootbeer@teleport.com PGP Skribu al mi per Esperanto!
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
Ask me about Perl trainings!
------------------------------
Date: Wed, 10 Dec 1997 21:53:20 -0800
From: Tom Phoenix <rootbeer@teleport.com>
To: John Carse <carse@ibm.net>
Subject: Re: Need help stripping whitespace
Message-Id: <Pine.GSO.3.96.971210214508.20868C-100000@user2.teleport.com>
On Wed, 10 Dec 1997, John Carse wrote:
> open(HTM, "testcase.htm");
Even when your script is "just an example" (and perhaps especially in that
case!) you should _always_ check the return value after opening a file.
> while (<HTM>) {
> print;
> if (/([\S+\s+]*):\/\/(\S+)\s+(\S+)"([\S+\s+]*)/i) { $left = $1; $string =
> $2 . $3; $right= $4; }
> if ($string) { print "\n$left:\/\/$string\"$right\n"; } else {print
> "\nNOTHING!\n";}
> }
It's hard to see what's happening there. Let's re-format that to make it
easier to understand.
while (<HTM>) {
print;
if (/([\S+\s+]*):\/\/(\S+)\s+(\S+)"([\S+\s+]*)/i) {
$left = $1;
$string = $2 . $3;
$right= $4;
}
if ($string) {
print "\n$left:\/\/$string\"$right\n";
} else {
print "\nNOTHING!\n";
}
}
Ah, I see it now. Did you realize that, if the pattern fails to match
after the first line, the values in $left, $string, and $right will be
left as they were from the previous match? That's probably not what you
want.
Hope this helps!
--
Tom Phoenix http://www.teleport.com/~rootbeer/
rootbeer@teleport.com PGP Skribu al mi per Esperanto!
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
Ask me about Perl trainings!
------------------------------
Date: Wed, 10 Dec 1997 22:01:27 -0800
From: Tom Phoenix <rootbeer@teleport.com>
To: John Carse <carse@ibm.net>
Subject: Re: Need help stripping whitespace
Message-Id: <Pine.GSO.3.96.971210215808.20868F-100000@user2.teleport.com>
On Wed, 10 Dec 1997, Tom Phoenix wrote:
> On Wed, 10 Dec 1997, John Carse wrote:
> > if (/([\S+\s+]*):\/\/(\S+)\s+(\S+)"([\S+\s+]*)/i) {
I should have looked more closely at that regular expression before I
failed to comment upon it. :-)
The character class [\S+\s+] matches any non-whitespace character, a plus
sign, any whitespace character, or a plus sign. In other words, it matches
any character whatsoever. Is that what you intended?
--
Tom Phoenix http://www.teleport.com/~rootbeer/
rootbeer@teleport.com PGP Skribu al mi per Esperanto!
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
Ask me about Perl trainings!
------------------------------
Date: Thu, 11 Dec 1997 03:58:41 GMT
From: Eric Bohlman <ebohlman@netcom.com>
Subject: Re: Need help stripping whitespace
Message-Id: <ebohlmanEL0B1t.IBH@netcom.com>
Tushar Samant <scribble@tekka.wwa.com> wrote:
: "Correcting bad syntax" is the job of the DWIM module. The current power
: of Perl just doesn't cut it. But to make the best of the situation --
: are all these URLs enclosed in quotation marks? Some HTML omits the
: quotes since URLs don't contain whitespace.
If it does, it's bad HTML, since unquoted attribute values have to be
name tokens, which excludes such characters as ':' and '/' as well as
whitespace.
------------------------------
Date: Wed, 10 Dec 1997 21:53:13 -0500
From: Jim Blackwell <jim.blackwell@gsfc.nasa.gov>
Subject: Net::FTP question
Message-Id: <348F5597.30691B80@gsfc.nasa.gov>
Hi,
Here's what I'd like to do. I have an option in a Web form that
executes a perl cgi.
The Perl program modifies a file, moves it to an anonymous FTP
directory.
What I'd like to have happen is that I click the button (submit) and
that action would open the download file dialog box in the browser.
I figure there's some MIME stuff to do so that the browser knows to
download rather than display the file to the screen (BTW, I've only been
successful when I've named the file with a "downloadable" extension like
.exe).
I'd like to have one click to initiate the file modification and
movement to FTP directory, and then have the Netscape dialog box open so
the user can download the file.
Can anyone help with this ?
Thanks as always
Jim Blackwell
------------------------------
Date: 10 Dec 1997 21:43:50 -0600
From: scribble@tekka.wwa.com (Tushar Samant)
Subject: Re: newbie: compact an array
Message-Id: <66nnhm$4n7@tekka.wwa.com>
xah@best.com writes:
>Suppose @a is an array of integers. I want to compact @a, so that elements
>that are 0 get deleted. How can I do this without declaring another array @b
Use @a instead:
$j=0;
foreach $i (@a) {if ($i) {$a[$j] = $i; $j++;};};
But now @a has extra elements at the end. Remove them:
$#a = $j - 1;
Now you are set.
------------------------------
Date: Wed, 10 Dec 1997 21:56:50 -0800
From: Tom Phoenix <rootbeer@teleport.com>
To: Jason Gloudon <jgloudon@bbn.subtleantispam.com>
Subject: Re: newbie: compact an array
Message-Id: <Pine.GSO.3.96.971210215502.20868E-100000@user2.teleport.com>
On Thu, 11 Dec 1997, Jason Gloudon wrote:
> Xah (xah@best.com) wrote:
> : Suppose @a is an array of integers. I want to compact @a, so that elements
> : that are 0 get deleted. How can I do this without declaring another array @b
> : such as:
>
> Something like this:
>
> for($i=0;$i<@a;$i++){
> if($a[$i] eq '0'){
> splice (@a,$i,1);
> }
> }
Something like that, yes, but perhaps not precisely that. :-)
@a = (0, 0, 0, 0, 1, 0);
Hope this helps!
--
Tom Phoenix http://www.teleport.com/~rootbeer/
rootbeer@teleport.com PGP Skribu al mi per Esperanto!
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
Ask me about Perl trainings!
------------------------------
Date: Thu, 11 Dec 1997 00:09:55 +0000
From: Nathan Stanford <nathan@cyberservices.com>
To: jennifer <tuia@msn.com>
Subject: Re: newer than new to perl
Message-Id: <077E497E10EA3786.78FD8D374065B37C.F9237F69AB409CF5@library-proxy.airnews.net>
jennifer wrote:
> I modestly approach this group to ask a most mundane,simple question and
> hopefully, over time, I'll be able to show my face here again. Here it
> goes...
> I've installed perl on my win95 system. It's in the C drive.
> I've copied the most simple "hello world" program (if you could call it
> that) using my notepad and have named it hello.pl.
> I'm at the c:\perl5 prompt in ms-dos and I try to run the program.
> C:\perl5\perl hello.pl
> A message returns that says "this program cannot be run in dos mode".
> I thought that is where you run perl from a win95 system?
If you haven't figured it out or gotten an answer email me
--
Nathan Stanford The Perl N.uT.
nathan_stanford@cabp.com - Work
nathan@cyberservices.com - Home
------------------------------
Date: Wed, 10 Dec 1997 23:55:15 +0000
From: Nathan Stanford <nathan@cyberservices.com>
To: Coke <coke@mindless.com>
Subject: Re: ntperl newbie
Message-Id: <23815CE6F03F650A.D8C40C5C9795561B.E88FDF5C70E60376@library-proxy.airnews.net>
Coke wrote:
> howdy, i'm new to perl, and am using ntperl 5.001, how do i get
> information from forms? the methods i have seen used by unix perl
> scripts dont appear to work.
>
> thankyou
If you haven't figured it out or gotten an answer email me
--
Nathan Stanford The Perl N.uT.
nathan_stanford@cabp.com - Work
nathan@cyberservices.com - Home
------------------------------
Date: Wed, 10 Dec 1997 22:09:09 -0800
From: Tom Phoenix <rootbeer@teleport.com>
To: Ruben Safir <75762.2332@CompuServe.COM>
Subject: Re: PERL CGI Parsing
Message-Id: <Pine.GSO.3.96.971210220144.20868G-100000@user2.teleport.com>
On Wed, 10 Dec 1997, Ruben Safir wrote:
> Newsgroups: comp.lang.perl.misc, comp.os.linux.networking,
> pl.comp.lang.perl, uk.comp.os.linux, alt.os.linux.slackware
I'm not sure that this has anything to do with Linux networking, or even
anything Linux-specific. And did you have a special reason for including
pl.comp.lang.perl?
[ A screenful of irrelevant stuff snipped. :-) ]
> When I get to the print DATAOUT command, I'm getting an error message in
> the Appache log as follows
>
> Undefined subroutine &main::DATAOUT called at
> /var/lib/httpd/cgi-bin/add_lable.cgi line 27
> <DATAIN> chunk1.
When you get an unfamiliar error message from Perl, you can find it in the
perldiag manpage. This one's entry says:
=item Undefined subroutine &%s called
(F) The subroutine indicated hasn't been defined, or if it was, it
has since been undefined.
I'd say that you should look at line 27 of add_lable.cgi and see why Perl
thinks you're calling a sub called DATAOUT there. Maybe you put an
ampersand before the filehandle name DATAOUT?
Hope this helps!
--
Tom Phoenix http://www.teleport.com/~rootbeer/
rootbeer@teleport.com PGP Skribu al mi per Esperanto!
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
Ask me about Perl trainings!
------------------------------
Date: Thu, 11 Dec 1997 00:09:26 +0000
From: Nathan Stanford <nathan@cyberservices.com>
To: jjunker@aig.vialink.com
Subject: Re: PERL CGI's on NT
Message-Id: <16116CBCD3DA58FB.DAD4AADD20AC37D3.680CA15519970F09@library-proxy.airnews.net>
jjunker@aig.vialink.com wrote:
> I have a Perl CGI that was written on a UNIX box and 'ported' to NT. I'm
> seeing a major difference in their behaviour.
>
> If I do an:
>
> open(HANDLE, "file.txt");
>
> on the unix box the Perl CGI script opens a text file in the current CGI
> directory.
>
> However, the same command, also run as a CGI but on an NT box, attempts to
> open that file BUT in the D:\PERL\BIN directory (where the Perl executable
> is).
>
> We have developed a temporary workaround but how can we get Perl on the
> NT box to behave correctly? Is there a patch that I'm not aware of? Is
> there an NT API that gets the current directory?
>
> Any help is apprecitated!!
>
> Jon
> jjunker@aig.vialink.com
>
> P.S. Please, CC: me as well if you would. THANKS!!
>
> -------------------==== Posted via Deja News ====-----------------------
> http://www.dejanews.com/ Search, Read, Post to Usenet
If you haven't figured it out or gotten an answer email me
--
Nathan Stanford The Perl N.uT.
nathan_stanford@cabp.com - Work
nathan@cyberservices.com - Home
------------------------------
Date: Wed, 10 Dec 1997 23:58:08 -0500
From: "Frank Bellomo" <fbellomo@home.com>
Subject: Please Help - Win32::InitiateSystemShutdown
Message-Id: <66nrrr$e1r$1@ha2.rdc1.nj.home.com>
I can make any of the Win32 methods work on my local machine.
# For example
use Win32::NetAdmin;
Win32::InitiateSystemShutdown("", "test", 60, 1, 1);
I can not make any of them work on a remote machine.
use Win32::NetAdmin
# For example
Win32::InitiateSystemShutdown("\\\\computer", "test", 60, 1, 1);
# Or
Win32::InitiateSystemShutdown("xxx.xxx.xxx.xxx", "test", 60, 1, 1);
# Or
Win32::InitiateSystemShutdown("computer.xxx.com", "test", 60, 1, 1);
# Or
Win32::InitiateSystemShutdown($computer, "test", 60, 1, 1);
and the list goes on.
I am sure I am missing something basic, because I don't believe that the all
these modules don't work. The only examples I can find are for the local
machine. I bought Learning Perl on Win32 Systems (O'Reilly) to no avail.
You think they one have one example.) I have search all the related sites
including Activestate. I have searched through hundreds of scripts.
I get a couple of different errors - The system could not find the
environment
option that was entered.
203
and
The system could not find the environment
option that was entered.
203
depending on which method I am aggravating myself with.
I beg thee, if you can just start me off in the right direction, you will
save cat that is about to be kicked. (Just kidding, I don't have a cat)
Thanks
------------------------------
Date: Thu, 11 Dec 1997 03:40:14 GMT
From: jomele@usa.net (ton)
Subject: please help : web personals
Message-Id: <348f6039.12067899@news.labyrinth.net.au>
Hello and how are you doing?
I would like to start an online dating service. Does anyone outhere
have any useful scripts. I am willing to barter advertising for these
scripts.
Please contact me at jomcoy@hotmail.com if you can help
Thanks
Joe
------------------------------
Date: Thu, 11 Dec 1997 06:45:03 GMT
From: hans.schrader@geol.uib.no (Hans Schrader)
Subject: Review of CGI/Perl book
Message-Id: <66o25o$aca$2@toralf.uib.no>
In depth review of the newest cgi-perl book:
CGI/Perl CookBook by Craig Patchett and Matthew Wright published
by Wiley is available at this location:
URL="http://hjs.geol.uib.no/SandBox/CookBook/cookbookpepper.shtml"
All programs introduced in that book can be ported to a Windows Box
(Win95 and WinNT) for reference see:
URL="http://hjs.geol.uib.no/SandBox/CookBook/ToolBox/toolbox1.shtml"
Life examples are here:
URL="http://hjs.geol.uib.no/SandBox/CookBook/index.shtml"
-Hans
Hans Schrader from Bergen in Norway "Web-Eureka"
hansPERIODschraderSPAMbigfootPERIODcom = http://hjs.geol.uib.no/
[PERIOD="."SPAM="@"]
------------------------------
Date: Thu, 11 Dec 1997 00:49:12 -0500
From: comdog@computerdog.com (brian d foy)
Subject: Re: There's More Than One Way?
Message-Id: <comdog-ya02408000R1112970049120001@news.panix.com>
In article <Pine.GSO.3.96.971210171919.6051F-100000@user2.teleport.com>, Tom Phoenix <rootbeer@teleport.com> wrote:
>On Wed, 10 Dec 1997, John Porter wrote:
>
>> Quoth Larry, "There's more than one way to do it", as we are all aware.
>>
>> This is interesting, philosophically, because it means that
>> For every problem in the universe of problems,
>> the number of solutions (in Perl) is >= 1.
>> That is, there are no problems which can not be solved in Perl.
>Others have tried to find the flaw in this logic, but they've failed.
"There's more than one way to do it" is unrelated to the problem
set. you can't automatically jump from that to "for every problem..."
then make the posited conclusion.
so far it must either be proved by exhaustion (using Perl for every
problem in the set), or disproved by a single counterexample (finding
one problem Perl can't handle). as Tom said, the latter hasn't happened.
however, this does not mean the former is automatically true.
--
brian d foy <comdog@computerdog.com>
NY.pm - New York Perl M((o|u)ngers|aniacs)* <URL:http://ny.pm.org/>
CGI Meta FAQ <URL:http://computerdog.com/CGI_MetaFAQ.html>
saw enough blind religion with java at Internet World
------------------------------
Date: Wed, 10 Dec 1997 22:38:11 -0600
From: Mark Kaehny <kaehny@execpc.com>
Subject: Re: Tracing memory usage & related questions
Message-Id: <348F6E33.DE5971D3@execpc.com>
William Warner wrote:
> >
> > Is there a way to trace memory usage inside my Perl program? Inside
> > the (Perl) modules it uses? The ideal trace would say: This reference
> > has X bytes associated with it.
> >
> > Also, is there a way to see the amount of memory which is free
> > internally but is not given back to the system?
> >
You can compile using verbose optioons for perl's malloc, you could use
external tools depending on the operating system you are running under.
> > Is it possible to kick off the garbage collector on demand?
> >
>
Sure, make sure whatever you want to collect has no outstanding
references.Perl uses reference counting not a "garbage collector" of the
search through memory at a
given time type. This means that when a "my" type variable goes out of
scope, and you didn't explicitly keep any references to it, it is
"collected".
Depending on the operating system you are using and guessing at why you are
asking,
it may not matter. Under many operating systems, when perl "frees" memory it
still
belongs to the perl process, it is not freed for systemwide use.
MRK
> --
> William Warner bill.warner@attws.com
------------------------------
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 1452
**************************************
