[17793] in Perl-Users-Digest
Perl-Users Digest, Issue: 5213 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Thu Dec 28 14:10:31 2000
Date: Thu, 28 Dec 2000 11:10:14 -0800 (PST)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Message-Id: <978030614-v9-i5213@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Thu, 28 Dec 2000 Volume: 9 Number: 5213
Today's topics:
Re: Open a big text file ( large than 200MB ) (Abigail)
Re: Open a big text file ( large than 200MB ) (Tad McClellan)
Re: Open a big text file ( large than 200MB ) (Anno Siegel)
Re: Piping output from one script into another (Abigail)
Re: Piping output from one script into another (Tad McClellan)
printing results from dbi script to html page <ronald.e.buchanan@irs.gov>
Re: printing results from dbi script to html page <admin@j-enterprises.com>
Re: problem opening database (Richard Zilavec)
Re: Problem with urlencoding <Peter.Dintelmann@dresdner-bank.com>
Re: regex question: putting back references in another (Abigail)
Re: Saving uploaded files w/CGI.pm -- Linux works great (David Efflandt)
socks5 with Socket lib without libsocks5.conf? kendelbanks@my-deja.com
Stock Quote Script <cdrossen@cdrmarketing.com>
Re: Stock Quote Script egwong@netcom.com
Re: Syntax for "eq" and "||" <nospam@nospam.com>
Testing if something exists deep within a structure erictwx@my-deja.com
Re: Testing if something exists deep within a structure nobull@mail.com
Re: Upload multi files with same source (David Efflandt)
Re: want to fetch html files without LWP <bruce@trendstat.nojunkplease.com>
Re: want to fetch html files without LWP nobull@mail.com
Re: want to fetch html files without LWP (Tad McClellan)
Win NT service <Peter.Ruester@t-online.de>
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 28 Dec 2000 15:13:40 GMT
From: abigail@foad.org (Abigail)
Subject: Re: Open a big text file ( large than 200MB )
Message-Id: <slrn94mm54.j0r.abigail@tsathoggua.rlyeh.net>
Tad McClellan (tadmc@metronet.com) wrote on MMDCLXXV September MCMXCIII
in <URL:news:slrn94jqvo.e1u.tadmc@magna.metronet.com>:
&&
&& You should use UPPERCASE filehandles. Your Perl program will stop
&& working when you upgrade to a perl that has defined a fic() function.
Actually, if you want to protect yourself against that, you'd need to
use mixed case. Recent Perls introduced UPPERCASE keywords like INIT
and CHECK.
Abigail
--
package Just_another_Perl_Hacker; sub print {($_=$_[0])=~ s/_/ /g;
print } sub __PACKAGE__ { &
print ( __PACKAGE__)} &
__PACKAGE__
( )
------------------------------
Date: Thu, 28 Dec 2000 08:18:39 -0500
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: Open a big text file ( large than 200MB )
Message-Id: <slrn94mfdf.fpk.tadmc@magna.metronet.com>
ghorghor@my-deja.com <ghorghor@my-deja.com> wrote:
>sorry but in my code there is a $compteur
^^^^^^^
I assume that "your code" compiles?
If so, then "your code" is not what is included below!
We cannot troubleshoot code that we cannot see.
You should enable warnings before posting again too.
>and when $compteur==1500 i exit
>so i can t eat all my memory :)
Why bother with an extra variable to maintain? All it is doing
is counting the number of elements in an array. You don't need
to maintain a count, you can just use the name of the array
in scalar context to find out how many there are.
>here is the code -----------------------------------------
^^^^^^^^
The code below cannot possibly be eating memory, because it
never gets a chance to execute...
>while(<fic>)
while(<FIC>)
> if((@coupe[0]>=$debut)&&(@coupe[0]<=$fin))
That line generates 2 warning messages.
> if((@coupe[2]=~ /$admin/i)&&
>(@coupe[4] =~
> {
Syntax error.
After you fix that, this line will generate 2 warning messages.
> if(@coupe[2]=~ /$admin/i)
That line generates a warning message.
> if(@coupe[4]=~ /$victime/i)
That line generates a warning message.
> if($compteur==1500)
if ( @tab == 1500 )
Space characters are not a scarse resource, feel free to use as
many as you like to make your code easier to read and understand.
> close(fic);
That line generates a warning message.
--
Tad McClellan SGML consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: 28 Dec 2000 18:29:04 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: Open a big text file ( large than 200MB )
Message-Id: <92g0pg$q98$1@mamenchi.zrz.TU-Berlin.DE>
Abigail <abigail@foad.org> wrote in comp.lang.perl.misc:
>Tad McClellan (tadmc@metronet.com) wrote on MMDCLXXV September MCMXCIII
>in <URL:news:slrn94jqvo.e1u.tadmc@magna.metronet.com>:
>&&
>&& You should use UPPERCASE filehandles. Your Perl program will stop
>&& working when you upgrade to a perl that has defined a fic() function.
>
>
>Actually, if you want to protect yourself against that, you'd need to
>use mixed case. Recent Perls introduced UPPERCASE keywords like INIT
>and CHECK.
Looking at the way the documentation talks about "the INIT sub", I'd
rather call these pre-defined identifiers instead of keywords.
However, this being Perl, the distinction is murky. It turns out
to be a syntax error if you try to call one of these like a sub:
"INIT()", and even "AUTOLOAD()" crash instead giving a runtime
error. I guess that does make them keywords. On the other hand,
AUTOLOAD at least is a method, hence a sub, hence an identifier.
Oh, and all of these work fine as a filehande. It's a mess, but
then that's one more trait Perl has in common with natural languages.
Anno
------------------------------
Date: 28 Dec 2000 15:36:04 GMT
From: abigail@foad.org (Abigail)
Subject: Re: Piping output from one script into another
Message-Id: <slrn94mnf4.j0r.abigail@tsathoggua.rlyeh.net>
Arcana (emerald-arcana@home.com) wrote on MMDCLXXVI September MCMXCIII in
<URL:news:qsy26.30103$59.9269492@news3.rdc1.on.home.com>:
`` Hi,
``
`` I have a Perl script that prints stuff to the screen using "print". (It
`` prints a variable-length record to the screen). The script is called
`` "psheet.pl" and it accepts 1 argument, a filename.
``
`` I want to be able to pipe this output into the arguments of another Perl
`` script (so that the record from Script 1 becomes the arguments for Script
`` 2). This script is called "pdata.pl" and is supposed to accept the record
`` as an argument.
``
`` I'm running a GNU-Linux system with Bash 2.03.19, and I have tried the
`` following:
``
`` 1) ./psheet.pl p-sheet.txt | ./pdata.pl
`` (Arguments aren't recognized)
`` 2) ./psheet.pl p-sheet.txt > data
`` ./pdata.pl < data
``
`` I've also tried a code change so that there would be a return inside the
`` main block, but Perl doesn't like that either. :|
``
`` I've tried modifing the code in Script 2 (./pdata.pl) so that it reads from
`` STDIN rather than arguments and it works fine like that if I use
`` while (<STDIN>)
``
`` Maybe I'm going about this the wrong way? Comments and suggestions would
`` be appreciated! Thank you very much for your time.
That has nothing to do with Perl, but it's a matter of the shell.
./pdata.pl `./psheet.pl p-sheet.txt`
ought to work.
Abigail
--
perl -wle 'print "Prime" if (1 x shift) !~ /^1?$|^(11+?)\1+$/'
------------------------------
Date: Thu, 28 Dec 2000 09:09:26 -0500
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: Piping output from one script into another
Message-Id: <slrn94micm.fpk.tadmc@magna.metronet.com>
Arcana <emerald-arcana@home.com> wrote:
>
>I have a Perl script that prints stuff to the screen using "print".
So its output goes to STDOUT then.
>I want to be able to pipe this output into the arguments
Your root problem is that you don't know what "pipe" means,
it would appear.
Your problem, as stated, does not involve piping at all, because
pipes are about I/O, not about arguments.
prog1 | prog2
means "connect the STDOUT from prog1 to STDIN for prog2".
It appears below, that you do not like that for some (unstated) reason,
so pipes aren't the way to go.
>I'm running a GNU-Linux system
[ snip off-topic "How to use a program's output as another program's
argument" stuff, other followups have already answered that.
]
>I've tried modifing the code in Script 2 (./pdata.pl) so that it reads from
>STDIN rather than arguments and it works fine like that if I use
> while (<STDIN>)
That is how you would do it with "pipe"ing.
Is there some reason why you don't like that approach?
--
Tad McClellan SGML consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: Thu, 28 Dec 2000 15:30:04 -0000
From: REBUCH00 <ronald.e.buchanan@irs.gov>
Subject: printing results from dbi script to html page
Message-Id: <t4mn3smn92uocd@corp.supernews.com>
I'm running Activestate's Perl and Apache on a WinNT4 workstattion and
have created a perl script that queries a MS ACCESS database through a
DSN and will return results when ran from a command line with no errors
noted. All I get when trying to print the results to a html page is a
blank page. There's no entry in the Apache error log it. I'm not sure if
I need to be working with an additional module like CGI? Here's my code,
any suggestions would be really appreciated...
#!D:/PERL/BIN/PERL
print "Content-type: text/html","\n\n";
use DBI;
#open connection to Access database
$dbh = DBI->connect('dbi:ODBC:top21','');
#prepare and execute SQL statement
$sqlstatement="SELECT problem FROM TICKET_CODING WHERE problem LIKE '%
CONNECT%'";
$sth = $dbh->prepare($sqlstatement);
$sth->execute ||
die "Could not execute SQL statement ... maybe invalid?";
#output database results
while (@row=$sth->fetchrow_array)
{ print "@row\n" }
--
Posted via CNET Help.com
http://www.help.com/
------------------------------
Date: Thu, 28 Dec 2000 18:53:03 GMT
From: GooglePlexed <admin@j-enterprises.com>
Subject: Re: printing results from dbi script to html page
Message-Id: <92g26c$ns2$1@nnrp1.deja.com>
Did you try this before sending your output:
print "Content-type:text/html\n\n";
?
--
j-enterprises.com...
custom software solutions for the enterprise
Sent via Deja.com
http://www.deja.com/
------------------------------
Date: Thu, 28 Dec 2000 15:04:50 GMT
From: rzilavec@tcn.net (Richard Zilavec)
Subject: Re: problem opening database
Message-Id: <3a4b5585.506052264@news.tcn.net>
On Wed, 27 Dec 2000 19:24:53 -0500, "Dan O'Connor" <djo22@cornell.edu>
wrote:
>
>$DBFILE_NAME = "\contest\accounts.db";
$DBFILE_NAME = q{\contest\accounts.db};
The q{} works as a single quote so \c and \a are no longer special..
perldoc -f q
perldoc perlop
--
Richard Zilavec
rzilavec@tcn.net
------------------------------
Date: Fri, 22 Dec 2000 16:04:03 +0100
From: "Dr. Peter Dintelmann" <Peter.Dintelmann@dresdner-bank.com>
Subject: Re: Problem with urlencoding
Message-Id: <91vqjh$1c37@intranews.bank.dresdner.net>
Hi,
"Ab Abson" <menno@streuper.nl> wrote in message
news:3a43691f$0$2965@reader3...
> Does anybody knows where I can find a good script that will encode a URL
for
> me.
there is a URI::Escape module providing a function for
this.
Here is a quick "hack". Be careful! I did not test this
code; I just wrote it down...
sub encode { $_[0] =~ s/(\W)/'%'.uc sprintf'%02x',ord$1/eg, $_[0]; }
Regards,
Peter Dintelmann
------------------------------
Date: 28 Dec 2000 15:23:54 GMT
From: abigail@foad.org (Abigail)
Subject: Re: regex question: putting back references in another variable
Message-Id: <slrn94mmoa.j0r.abigail@tsathoggua.rlyeh.net>
Michael Stearns (michael@datahost.com) wrote on MMDCLXXV September
MCMXCIII in <URL:news:5sc26.729$e6.445781@news.uswest.net>:
@@ Say I have the following:
@@
@@ $text= "foobar";
@@ $find = "(foo)(bar)";
@@ $replace="$2$1";
@@
@@ I want to have a regular expression that will allow me to end up with $text
@@ set to "barfoo". I was hoping I could do something like the following:
@@
@@ $text=~s^$find^$replace^s;
@@
@@ However, when I do this, $replace is interpreted literally as "$2$1" and
@@ that is what I end up with.
I would have expected that $replace was empty, as $1 and $2 aren't set
when $replace is defined.
@@ Is there a way, in the above scenario to have the $1 and $2 evaluated as
@@ backreferences instead of as literal text?
Yes. With the use of double eval:
my $text = "foobar";
my $find = "(foo)(bar)";
my $replace = '$1$2';
$text =~ s/$find/qq'"$replace"'/ee;
Abigail
--
perl -weprint\<\<EOT\; -eJust -eanother -ePerl -eHacker -eEOT
------------------------------
Date: Thu, 28 Dec 2000 14:16:12 +0000 (UTC)
From: efflandt@xnet.com (David Efflandt)
Subject: Re: Saving uploaded files w/CGI.pm -- Linux works great, Windows makes it look like crap!
Message-Id: <slrn94mipu.quo.efflandt@efflandt.xnet.com>
On Thu, 28 Dec 2000, Micah K Yoder
<micah@absolutely.geeks4christ.noorgspam!> wrote:
>
>I'm processing a JPG image upload using CGI.pm. Running on my Linux
>server at home, the image after uploading looks great. Running on the
>client's ISP's @!%$#@% NT Server, the image colors are all distorted and
>some of the image data appears to be missing. Here's the relevant code:
>
> # and the pic
> my $filename = $query->param("pic_$MLS");
> if ($filename) {
> my $picno = GetNumPics($MLS) + 1;
> open (OUTPICFILE,">$photodir/$MLS-$picno.jpg");
> open (INPICFILE, "<$filename");
If "pic_$MLS" is your file upload field then $filename is a filename AND
filehandle to it. So open(IMPICFILE...) is unnecessary and probably what
is screwing you up. I don't have a Win box with Perl to test this on, but
maybe you need to binmode $filename and read from $filename as a
filehandle (read $filename instead of INPICFILE and dump all other
statements about INPICFILE).
> binmode OUTPICFILE;
> binmode INPICFILE;
> my ($bytesread, $buffer);
> while ($bytesread=read(INPICFILE,$buffer,1024)) {
> print OUTPICFILE $buffer;
> }
> close OUTPICFILE;
> close INPICFILE;
> }
>
>Any idea of what would be causing that and how to fix it? Thanks!
--
David Efflandt efflandt@xnet.com http://www.de-srv.com/
http://www.autox.chicago.il.us/ http://www.berniesfloral.net/
http://cgi-help.virtualave.net/ http://hammer.prohosting.com/~cgi-wiz/
------------------------------
Date: Thu, 28 Dec 2000 18:18:45 GMT
From: kendelbanks@my-deja.com
Subject: socks5 with Socket lib without libsocks5.conf?
Message-Id: <92g05v$luv$1@nnrp1.deja.com>
I'm trying to add SOCKS proxy functionality to my program without having
to effectively rewrite it. All the client/sever communication is done
with the Socket library. I've found that if you have a host specified in
/etc/libsocks5.cof, the Socket library will automatically use that socks
server. Quite easy, no changes nessesary. However, I'd like the user to
be able to define a socks host for the program to use that is different
from the one in /etc/libsocks5.cof or even if the person does not have
that file. What environment variable would this be and how could I have
the user define it, say as an argument?
Sent via Deja.com
http://www.deja.com/
------------------------------
Date: Thu, 28 Dec 2000 16:12:20 GMT
From: "C. David Rossen" <cdrossen@cdrmarketing.com>
Subject: Stock Quote Script
Message-Id: <EDJ26.198886$U46.6118415@news1.sttls1.wa.home.com>
I need to find a script that will retrieve a stock quote automatically when
the html page opens. In other words, I do not want one that the user has to
submit anything but one that displays the quote when the page is opened.
Thanks for any help.
David
------------------------------
Date: Thu, 28 Dec 2000 17:28:37 GMT
From: egwong@netcom.com
Subject: Re: Stock Quote Script
Message-Id: <9LK26.26348$bw.1744557@news.flash.net>
Have you searched CPAN?
http://search.cpan.org/search?mode=module&query=quote
C. David Rossen <cdrossen@cdrmarketing.com> wrote:
> I need to find a script that will retrieve a stock quote automatically when
> the html page opens. In other words, I do not want one that the user has to
> submit anything but one that displays the quote when the page is opened.
> Thanks for any help.
> David
------------------------------
Date: 28 Dec 2000 17:16:00 GMT
From: The WebDragon <nospam@nospam.com>
Subject: Re: Syntax for "eq" and "||"
Message-Id: <92fsgg$1oq$1@216.155.32.209>
In article <3a486ebf.56fd$233@news.op.net>, mjd@plover.com (Mark-Jason
Dominus) wrote:
| In article <G65M60.E3L@presby.edu>, Jon Bell <jtbell@presby.edu> wrote:
| >As in most programming languages the comparision operators like 'eq' are
| >all "binary" operators that require two operands. Evaluating them gives
| >Boolean (logical) results that you can in turn combine with the Boolean
| >operators such as '&&' and '||'.
|
| If Damian's Quantum Superpositions thing goes into Perl 6, you'll be
| able to write
|
| if ($in{'Contact_Country'} eq any("Australia","Canada","UK"))
| {
| ...
| }
indeed.. looks *quite* nice, but I've run into a few things in 5.004
(MacPerl) that I've mailed him about and hope to see an update for
soonish. (failing some test cases, etc)
Definitely a useful concept, though. :)
--
send mail to mactech (at) webdragon (dot) net instead of the above address.
this is to prevent spamming. e-mail reply-to's have been altered
to prevent scan software from extracting my address for the purpose
of spamming me, which I hate with a passion bordering on obsession.
------------------------------
Date: Thu, 28 Dec 2000 15:33:03 GMT
From: erictwx@my-deja.com
Subject: Testing if something exists deep within a structure
Message-Id: <92fmff$dls$1@nnrp1.deja.com>
Hi all. I could use some help.
Say I have a structure that looks like this:
my @array = ({name => "Eric", job => {title =>"Programmer", language =>
"Perl"}},
{name => "John", job => {title => "Graphic Designer"}});
Now, I want to test if $array[3]->{job}->{language} exists.
BUT I do not want to create $array[3]->{job} in the process like this
would:
if (exists ($array[3]->{job}->{language})
I know I can do
if (defined ($array[3]) && exists ($array[3]->{job}) && exists
($array[3]->{job}->{language})
But this gets very ugly with deep structures.
The perldoc mentions this surprise autovivification and says it may be
fixed in a later release, but that doesnt help me now.
Any ideas? Thank you.
-E
Sent via Deja.com
http://www.deja.com/
------------------------------
Date: 28 Dec 2000 17:56:58 +0000
From: nobull@mail.com
Subject: Re: Testing if something exists deep within a structure
Message-Id: <u9ae9g77kl.fsf@wcl-l.bham.ac.uk>
erictwx@my-deja.com writes:
> if (defined ($array[3]) && exists ($array[3]->{job}) && exists
> ($array[3]->{job}->{language})
>
>
> But this gets very ugly with deep structures.
>
> The perldoc mentions this surprise autovivification and says it may be
> fixed in a later release, but that doesnt help me now.
> Any ideas?
Off the top of my head (untested):
sub exists_no_surprise_autovivification {
my $ref = shift;
# This follows the "easier to seek forgiveness than ask permission"
# school of programming i.e. if uses eval{} rather than complicated
# code involving ref()
while (1) {
return '' unless defined $ref;
my $subscript = shift;
return eval { exists $ref->{$subscript} } unless @_;
$ref = eval { $ref->{$subscript} } || eval { $ref->[$subscript] };
}
}
if ( exists_no_surprise_autovivification \@array, 3, 'job', 'language')
--
\\ ( )
. _\\__[oo
.__/ \\ /\@
. l___\\
# ll l\\
###LL LL\\
------------------------------
Date: Thu, 28 Dec 2000 14:53:02 +0000 (UTC)
From: efflandt@xnet.com (David Efflandt)
Subject: Re: Upload multi files with same source
Message-Id: <slrn94mkv1.quo.efflandt@efflandt.xnet.com>
On Thu, 28 Dec 2000, martinnitram@my-deja.com <martinnitram@my-deja.com> wrote:
>
> I used CGI.pm to handle upload file. Everything work fine at first,
>even upload two files in a single form; but if user input same image
>src in both fields (say, both input c:\image.gif), i found that only
>the first one can upload successfully, while another one is zero in
>file size.
>
> I tried use both open(FILEHANDLER) and FILE::COPY to save the file
>(and tried both ASCII and Binary file), same error occoured. Anyone had
>idea in that?
Since CGI.pm stores the file as a tmp file with the name of the uploaded
file, the second instance of that same file likely overwrites the first
instance. When you read the first instance you reach eof, and that is
that. There is no longer anything to read for the second tmp file with
the same exact name.
Maybe you should make a list of uploaded filenames in your script (just
for that submit) and if you can grep the next filename from that list,
skip it. Why would you want to save the same exact file again anyway?
For example assuming you have a loop to process the files, and the param
for the upload field assigned to $thisfile, something like this would skip
$thisfile if it was already in @filelist, or add it to the list if not
(the \Q\E are so dots in $thisfile are not interpretted as "any" char).
next if grep /^\Q$thisfile\E$/, @filelist;
push @filelist, scalar $thisfile;
--
David Efflandt efflandt@xnet.com http://www.de-srv.com/
http://www.autox.chicago.il.us/ http://www.berniesfloral.net/
http://cgi-help.virtualave.net/ http://hammer.prohosting.com/~cgi-wiz/
------------------------------
Date: Thu, 28 Dec 2000 07:39:14 -0700
From: Bruce K <bruce@trendstat.nojunkplease.com>
Subject: Re: want to fetch html files without LWP
Message-Id: <3A4B5092.2C14BE73@trendstat.nojunkplease.com>
Colin Watson wrote:
>
> hongdou@my-deja.com wrote:
> >I wnat to fetch html file from other sites,
> >but I can't use LWP in my website,
>
> Can't you install it in some private directory, if your sysadmin won't
> install it for you? If you must do it manually, read on.
<snip>
Colin,
Newby question here, but how do I install a module like LWP "in some
private directory"? Pointers to FAQ, etc welcome!
--
Bruce K
(Please post reply to newsgroup and
please fix return address if responding directly via e-mail)
------------------------------
Date: 28 Dec 2000 17:56:03 +0000
From: nobull@mail.com
Subject: Re: want to fetch html files without LWP
Message-Id: <u9d7ec77m4.fsf@wcl-l.bham.ac.uk>
Bruce K <bruce@trendstat.nojunkplease.com> writes:
> Newby question here, but how do I install a module like LWP "in some
> private directory"? Pointers to FAQ, etc welcome!
The whole point of a FAQ is that you read it _before_ you post - thus
removing the need to post questions that are freqently asked such as
"How do I keep my own module/library directory?".
It defeats the purpose of having a FAQ if you post the question anyhow
and say "(where) does this appear in the FAQ?"
It also defeats the purpose of having a FAQ if it is so hard to find that
"Where's the FAQ?" becomes a legitmate question.
The Perl FAQ is _not_ hard to find.
Did you look at the documentation that comes with Perl?
Did you look at recent postings in this newsgroup with the word "FAQ"
in the title?
Did you take a look arround the obvious websites (www.perl.org and
www.perl.com)?
Did you type "Perl FAQ" into Yahoo or some other web serch engine?
Don't bother answering, we know you did none of these or else you
wouldn't be asking.
--
\\ ( )
. _\\__[oo
.__/ \\ /\@
. l___\\
# ll l\\
###LL LL\\
------------------------------
Date: Thu, 28 Dec 2000 11:04:06 -0500
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: want to fetch html files without LWP
Message-Id: <slrn94mp3m.g8c.tadmc@magna.metronet.com>
Bruce K <bruce@trendstat.nojunkplease.com> wrote:
>how do I install a module
^^^^^^
>Pointers to FAQ, etc welcome!
perldoc -q module
"How do I keep my own module/library directory?"
--
Tad McClellan SGML consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: Thu, 28 Dec 2000 17:34:29 +0100
From: Peter Ruester <Peter.Ruester@t-online.de>
Subject: Win NT service
Message-Id: <3A4B6B95.7347DF95@t-online.de>
Hi, iīm new in perl, and i would like to write a script that give me the
current state of an NT - Service.
I find the funktion GetStatus(hostName, serviceName, status) but i
canīt use it because i donīt
understand the using of the status variable
any suggestions are welcome
thanks
peter
------------------------------
Date: 16 Sep 99 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 16 Sep 99)
Message-Id: <null>
Administrivia:
The Perl-Users Digest is a retransmission of the USENET newsgroup
comp.lang.perl.misc. For subscription or unsubscription requests, send
the single line:
subscribe perl-users
or:
unsubscribe perl-users
to almanac@ruby.oce.orst.edu.
| NOTE: The mail to news gateway, and thus the ability to submit articles
| through this service to the newsgroup, has been removed. I do not have
| time to individually vet each article to make sure that someone isn't
| abusing the service, and I no longer have any desire to waste my time
| dealing with the campus admins when some fool complains to them about an
| article that has come through the gateway instead of complaining
| to the source.
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
To request back copies (available for a week or so), send your request
to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
where x is the volume number and y is the issue number.
For other requests pertaining to the digest, send mail to
perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
sending perl questions to the -request address, I don't have time to
answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V9 Issue 5213
**************************************
