[17193] in Perl-Users-Digest
Perl-Users Digest, Issue: 4605 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Oct 13 11:05:36 2000
Date: Fri, 13 Oct 2000 08:05:16 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Message-Id: <971449516-v9-i4605@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Fri, 13 Oct 2000 Volume: 9 Number: 4605
Today's topics:
Re: [ Wildly OT ] Re: Japanese Girl Has PERL Request. (Eric Bohlman)
Re: [ Wildly OT ] Re: Japanese Girl Has PERL Request. (NP)
Re: [ Wildly OT ] Re: Japanese Girl Has PERL Request. (Keith Calvert Ivey)
Re: about sendmail (Grant Edwards)
Re: Calculating in Perl. <paul@pco.iis.nsk.su>
Re: cgi with perl on Apache-1.3.12-Linux-6.2 - beginner <kellikellin@netscape.net>
Cookieless operation yossariancomputing@my-deja.com
Re: Data Strings <anders@wall.alweb.dk>
Re: Data Strings (Rafael Garcia-Suarez)
execute in the background in Windows <john@imining.com.tw>
Re: Finding Perl Modules installed on server <randy@theoryx5.uwinnipeg.ca>
Finding the current directory in WINDOWs OS <wartski@pliantsystems.com>
Re: Finding the current directory in WINDOWs OS (Gwyn Judd)
getlogin in Windows <john@imining.com.tw>
Re: Giant Array Delay (beginner) (Gwyn Judd)
Help! hewuma@yahoo.com
How to extract a patteren from a text file? qureshii@my-deja.com
Re: How to get params after use Mod? (Anno Siegel)
Re: How to get params after use Mod? <kistler@gmx.net>
html syntax check <stefan.schubert@epark.de>
Re: html syntax check <kistler@gmx.net>
Re: html syntax check <ubl@schaffhausen.de>
Increment reference count (av_store)? <eric.kort@vai.org>
Re: ip under win9x/2k from the commandline? <henryhartley@westat.com>
Re: ip under win9x/2k from the commandline? <zakazan@gmx.de>
Re: ip under win9x/2k from the commandline? <zakazan@gmx.de>
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 13 Oct 2000 10:52:09 GMT
From: ebohlman@omsdev.com (Eric Bohlman)
Subject: Re: [ Wildly OT ] Re: Japanese Girl Has PERL Request.
Message-Id: <8s6pgp$i53$2@news.enteract.com>
Jeff Zucker <jeff@vpservices.com> wrote:
> I was making a reference about the time a few years back when the ACLU
> defended the right of the Ku Klux Klan (a group of racist *#*holes) to
> march in Skokie, Il. It wasn't a funny event. I know people who
> supported ACLU and others who went to Skokie to heckle the Klan and some
> who did both. (no smilie)
Actually, it was the American Nazi Party.
------------------------------
Date: Fri, 13 Oct 2000 14:05:52 GMT
From: nvp@spamnothanks.speakeasy.org (NP)
Subject: Re: [ Wildly OT ] Re: Japanese Girl Has PERL Request.
Message-Id: <4FEF5.42601$bI6.1445027@news1.giganews.com>
ebohlman@omsdev.com wrote:
:
: Actually, it was the American Nazi Party.
With Godwin at the helm? :-)
--
Nate II
------------------------------
Date: Fri, 13 Oct 2000 14:00:20 GMT
From: kcivey@cpcug.org (Keith Calvert Ivey)
Subject: Re: [ Wildly OT ] Re: Japanese Girl Has PERL Request.
Message-Id: <39e71507.41153295@news.newsguy.com>
ebohlman@omsdev.com (Eric Bohlman) wrote:
>Jeff Zucker <jeff@vpservices.com> wrote:
>> I was making a reference about the time a few years back when the ACLU
>> defended the right of the Ku Klux Klan (a group of racist *#*holes) to
>> march in Skokie, Il. It wasn't a funny event. I know people who
>> supported ACLU and others who went to Skokie to heckle the Klan and some
>> who did both. (no smilie)
>
>Actually, it was the American Nazi Party.
And I'm not sure whether 1977 counts as "a few years back".
I guess it depends on how old one is.
--
Keith C. Ivey <kcivey@cpcug.org>
Washington, DC
------------------------------
Date: Fri, 13 Oct 2000 14:59:23 GMT
From: ge@nowhere.none (Grant Edwards)
Subject: Re: about sendmail
Message-Id: <frFF5.694$FU3.145149@ptah.visi.com>
In article <8s61gv$747$1@provolone.cs.utexas.edu>, Logan Shaw wrote:
>Furthermore, as far as I know, there is no URL type that refers
>to othre attachments within a MIME message. If there were, one
>could send an e-mail with images attached that were referred to
>by an HTML file that was also attached, which would be very
>close to sending a web page by e-mail.
I've seen exactly that done. I don't believe it's a standard
URL format, and I don't know how many MUAs impliment such a
scheme, but some do.
--
Grant Edwards grante Yow! Why is everything
at made of Lycra Spandex?
visi.com
------------------------------
Date: Fri, 13 Oct 2000 21:47:51 +0600
From: "Paul Dortman" <paul@pco.iis.nsk.su>
Subject: Re: Calculating in Perl.
Message-Id: <8s77g7$1i57$1@news.itfs.nsk.su>
Thank you very much for help,
You really saved me a lot of time.
I think I know what should I do now,
Thank you
Paul
------------------------------
Date: Fri, 13 Oct 2000 09:51:38 -0500
From: kelli norman <kellikellin@netscape.net>
Subject: Re: cgi with perl on Apache-1.3.12-Linux-6.2 - beginner
Message-Id: <39E7217A.C451897D@netscape.net>
abevec@my-deja.com wrote:
>
> In article <8s4tmr$qke$1@nnrp1.deja.com>,
> abevec@my-deja.com wrote:
> > I created a cgi Perl script in my cgi-bin directory that is suppose to
> > get executed on an "get" html command. But the Appache server comes
> > back with an error. I'm the server administrator. All the
> > files/directories are mode 755 protected. Any ideas how to correct
> this
> > problem.
> > . thanks -abevec
> >
> > Apache Error Reponse:
> >
> > "Internal Server Error
> >
> > The server encountered an internal error or misconfiguration and was
> > unable to complete your request.
> >
> > Please contact the server administrator, root@localhost and inform
> them
> > of the time the error occurred, and
> > anything you might have done that may have caused the error.
> >
> > More information about this error may be available in the server error
> > log."
> >
> > Sent via Deja.com http://www.deja.com/
> > Before you buy.
> >
>
> Additional info from my error log:
>
> [Thu Oct 12 10:59:22 2000] [error] (8)Exec format error: exec of
> /home/httpd/cgi-bin/guestbook1.pl failed
> [Thu Oct 12 10:59:22 2000] [error] [client 128.63.62.181] Premature end
> of script headers: /home/httpd/cgi-bin/guestbook1.pl
>
> and here is the code guestbook1.pl:
>
> #!/usr/bin/perl
> $temp=$ENV{'QUERY_STRING'};
> @pairs=split(/&/,$temp);
> foreach $item(@pairs) {
> ($key,$content)=split (/=/,$item,2);
> $content=~tr/+/ /;
> $content=~ s/%(..)/pack("c",hex($1))/ge;
> $fields{$key}=$content;
> }
> print "Content-type: text/html\n\n";
> print "<body bgcolor=\"#FFFFFF\">\n";
> print "<h2>$fields{'name'}</h2>\n";
> print "<pre>$fields{'comment'}</pre>\n";
>
> Sent via Deja.com http://www.deja.com/
> Before you buy.
i tried your script on my server and it works... well, the '.pl'
extension tells my browser to just display the resulting text file in
the browser, not to actually execute it. for grins, try changing your
file's extension to '.cgi' and see if that works. if not, good luck :)
kelli
------------------------------
Date: Fri, 13 Oct 2000 14:47:59 GMT
From: yossariancomputing@my-deja.com
Subject: Cookieless operation
Message-Id: <8s77au$lpo$1@nnrp1.deja.com>
Hi,
I want to maintain state within a web application without using
cookies, as personally I detest the things, and besides, I don't want
to worry if a user hates them too and thus can't use my application
because they've turned them off.
So somehow I suppose I need to use a manually created sessionid of some
sort.
I'm using perl 5.006 (with libwww-perl), apache, mysql on a FreeBSD
machine.
Any tips?
Rgds,
Steve H
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Fri, 13 Oct 2000 12:24:41 +0200
From: Anders Lund <anders@wall.alweb.dk>
Subject: Re: Data Strings
Message-Id: <yqBF5.393$Tq1.25168@news010.worldonline.dk>
Stuart Maclean wrote:
> I need some way to replace the blank spaces within a string with the value
> %20.
>
You mean that you want to URI escape a string.
The CGI provides the methods escape STRING and unescape STRING for that, I
think they are in some other net rellated modules as well.
[anders@pluto anders]$ perl -MCGI -e '$_ = CGI::escape("this is a string");
print "$_\n"'
this%20is%20a%20string
anders@pluto anders]$
Other chars that could interfer with a URI gets escaped too:
[anders@pluto anders]$ perl -MCGI -e '$_ = CGI::escape("funny? theese:? & %
gets escaped too"); print "$_\n"'
funny%3F%20theese%3A%3F%20%26%20%25%20gets%20escaped%20too
[anders@pluto anders]$
Back again:
[anders@pluto anders]$ perl -MCGI -e '$_ =
CGI::unescape("funny%3F%20theese%3A%3F%20%26%20%25%20gets%20escaped%20too");
print "$_\n"'
funny? theese:? & % gets escaped too
[anders@pluto anders]$
-anders
--
[ the word wall - and the trailing dot - in my email address
is my _fire_wall - protecting me from the criminals abusing usenet]
------------------------------
Date: Fri, 13 Oct 2000 11:34:04 GMT
From: rgarciasuarez@free.fr (Rafael Garcia-Suarez)
Subject: Re: Data Strings
Message-Id: <slrn8udt6g.4ml.rgarciasuarez@rafael.kazibao.net>
Anders Lund wrote in comp.lang.perl.misc:
>Stuart Maclean wrote:
>
>> I need some way to replace the blank spaces within a string with the value
>> %20.
>>
>
>You mean that you want to URI escape a string.
>
>The CGI provides the methods escape STRING and unescape STRING for that, I
>think they are in some other net rellated modules as well.
Yes : URI::Escape.
--
# Rafael Garcia-Suarez / http://rgarciasuarez.free.fr/
------------------------------
Date: Fri, 13 Oct 2000 19:01:22 +0800
From: "John" <john@imining.com.tw>
Subject: execute in the background in Windows
Message-Id: <8s6q9s$q16@netnews.hinet.net>
Hello:
How to let perl program started from Windows(95/98/NT/2000) command line to
return immediatly and keep running in the background?
John Hsieh
john@imining.com.tw
------------------------------
Date: 13 Oct 2000 13:09:17 GMT
From: Randy Kobes <randy@theoryx5.uwinnipeg.ca>
Subject: Re: Finding Perl Modules installed on server
Message-Id: <8s71ht$7h2$1@canopus.cc.umanitoba.ca>
In comp.lang.perl.misc, Jody Fedor <Jodyman@usa.net> wrote:
> I don't have telnet access to my unix server. If I did, I could run
> the following:
> find `perl -e 'print "@INC"'` -name '*.pm' -print
> and receive a list of installed modules. How can I do it from within
> a perl script?
Check out the documentation for the CPAN.pm module
(which should be available on your system) - the section
on the Programmer's Interface describes how to use it in
a script. See in particular the example on listing modules
on your system that have no VERSION number.
best regards,
randy kobes
------------------------------
Date: Fri, 13 Oct 2000 07:30:22 -0400
From: Mark Wartski <wartski@pliantsystems.com>
Subject: Finding the current directory in WINDOWs OS
Message-Id: <39E6F24E.D0507149@pliantsystems.com>
This is a multi-part message in MIME format.
--------------FE260FC47057F26600FF127B
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
I am trying to find out what the current directory is when running in
MSWIN OS.
I get some success by using a command $pwd = 'cd'; However, this does
not work all the time.
Is there some simple perl command to obtain this? I haven't found it
in all the directory commands.
Thanks, Mark
--------------FE260FC47057F26600FF127B
Content-Type: text/x-vcard; charset=us-ascii;
name="wartski.vcf"
Content-Transfer-Encoding: 7bit
Content-Description: Card for Mark Wartski
Content-Disposition: attachment;
filename="wartski.vcf"
begin:vcard
n:Wartski;Mark
x-mozilla-html:TRUE
org:Pliant Systems Inc.
adr:;;;;;;
version:2.1
email;internet:wartski@pliantsystems.com
title:Principal Engineer
x-mozilla-cpt:;0
fn:Mark Wartski
end:vcard
--------------FE260FC47057F26600FF127B--
------------------------------
Date: Fri, 13 Oct 2000 12:42:57 GMT
From: tjla@guvfybir.qlaqaf.bet (Gwyn Judd)
Subject: Re: Finding the current directory in WINDOWs OS
Message-Id: <slrn8ue0qd.jlo.tjla@thislove.dyndns.org>
I was shocked! How could Mark Wartski <wartski@pliantsystems.com>
say such a terrible thing:
>This is a multi-part message in MIME format.
Please don't do that. This is a text only newsgroup, thanks.
>I am trying to find out what the current directory is when running in
>MSWIN OS.
>
>I get some success by using a command $pwd = 'cd'; However, this does
>not work all the time.
>Is there some simple perl command to obtain this? I haven't found it
>in all the directory commands.
Check out the Cwd.pm module. You'd do something like:
#!/usr/bin/perl -w
use strict;
use Cwd;
my $cwd = cwd;
Hope that helps. The documentation is in 'perldoc Cwd'
--
Gwyn Judd (print `echo 'tjla@guvfybir.qlaqaf.bet' | rot13`)
It may be that our role on this planet is not to worship God, but to
create him.
-Arthur C. Clarke (contributed by Chris Johnston)
------------------------------
Date: Fri, 13 Oct 2000 17:58:01 +0800
From: "John" <john@imining.com.tw>
Subject: getlogin in Windows
Message-Id: <8s6mj4$kcb@netnews.hinet.net>
Hello:
I have written a program by Perl.
This program will be called by login script located on Windows PDC.
I use getlogin to get login username in this program.
It works well when I use Winnt40 as login client.
But when I use Win98 as login client, it didn't work.
Why?
I have to get login username in login time.
Who can tell me how?
John Hsieh
john@imining.com.tw
------------------------------
Date: Fri, 13 Oct 2000 13:34:06 GMT
From: tjla@guvfybir.qlaqaf.bet (Gwyn Judd)
Subject: Re: Giant Array Delay (beginner)
Message-Id: <slrn8ue3q8.jlo.tjla@thislove.dyndns.org>
I was shocked! How could peliknish@my-deja.com <peliknish@my-deja.com>
say such a terrible thing:
>howdy,
>Just starting to learn perl/cgi.
>
>Got a script working (by Matt Wright) that picks random strings from a
>list of strings in a text file delimited by whatever.
Here's a hint. Don't use any script by Matt Wright. Ever. Ever. Ever.
Everytime I see some excrescence by this person it makes me want to be
physically ill. I have no idea why his script is not working, possibly
(since it loads the whole file into memory at once) it has simply run
out of memory. Anyway try this version instead, unlike his, it will
require a version of perl starting with the digit '5'. It also supports
multiple files, uses less memory and is possibly faster. It also works
for me :)
#!/usr/bin/perl -w
use strict;
use CGI qw(:standard);
use CGI::Carp qw(fatalsToBrowser);
# change this to the name of the directory
# and the name of the files in that directory that
# you are getting the lines from
@ARGV = map { '/usr/share/games/fortunes/' . $_ }
qw(education cookie computers wisdom work);
# change this to whatever the delimiter is supposed to be
$/ = "\n%\n";
my $line;
# see "perldoc -q 'random line'"
rand ($.) < 1 && ($line = $_) while (<>);
chomp $line;
print header,
start_html('Fortune Cookies'),
h1('A New Fortune Cookie'),
pre,
$line,
end_html;
--
Gwyn Judd (print `echo 'tjla@guvfybir.qlaqaf.bet' | rot13`)
Blinding speed can compensate for a lot of deficiencies.
-David Nichols
------------------------------
Date: Fri, 13 Oct 2000 11:01:39 GMT
From: hewuma@yahoo.com
Subject: Help!
Message-Id: <8s6q2g$b8o$1@nnrp1.deja.com>
I have a problem with perl and want your great help!
#!/usr/bin/perl
use CGI qw(:all);
print "Content-type: text/html\n\n";
require ("library2.pl");
while($counter_total<=100000)
{
$counter_total++;
print "$counter_total\<br>";
}
A small perl script is above.
When I run this program through browzer, the last print results go out
the monitor's screen. Is it possible to keep the last
print results within the screen and let us know the
progress of calculation.
Thanks in advance!
Hewu Ma
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Fri, 13 Oct 2000 12:03:46 GMT
From: qureshii@my-deja.com
Subject: How to extract a patteren from a text file?
Message-Id: <8s6tn0$dqk$1@nnrp1.deja.com>
Hi I am a new perl student and what I need to do it to write a script
which takes in a C++ file and print out all the files listed only in
#include<iostream.h>
#include<hello.c>
i.e the out put should be
iostream.h
hello.c
so far when I am trying to extract it
what i get as a result of $1 is
hello.c
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: 13 Oct 2000 11:32:40 -0000
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: How to get params after use Mod?
Message-Id: <8s6rso$q5u$1@lublin.zrz.tu-berlin.de>
Mark-Jason Dominus <mjd@plover.com> wrote in comp.lang.perl.misc:
>
>In article <39E4E557.A2A0D2CC@gmx.net>, Per Kistler <kistler@gmx.net> wrote:
>>How can one get the parameters (a,b,c) after a "use Module qw(a b c )"
>>from within a package?
>
>They get passed to the Module::import function, if there is one.
>
>You may want to take a look at the Very Very Short Tutorialabout
>Modules, which is at
>
> http://www.plover.com/~mjd/perl/Hello/
>
>It has a small example of a module that demonstrates the answer to
>this very question.
It does?
[anno4000@lublin mod_tut]$ find . -type f -exec grep import {} /dev/null \;
[anno4000@lublin mod_tut]$
Hmmm...
Per's question is one that I have asked myself occasionally too.
The primary purpose of the use-parameters (for want of a better term)
is to tell an exporting module what to export (in this particular
invocation) to the user's name space. For this purpose it is quite
adequate to hand the parameters over to import(), which is called after
everything else is said an done.
But sometimes a module-builder would like to parameterize other aspects
of an implementation, where the actual parameters are given at use()
time. A simple example would be a vector/matrix implementation where
the user can say in how many dimensions they'd like to work. In a case
like this, you want access to the dimension parameter throughout the
source, even at compile time. It can become pretty awkward to postpone
everything until import() is called.
One way to overcome this problem is to use an intermediate module
whose purpose is to set up an array of use parameters and then call
the real thing, like this:
The main program:
#!/usr/bin/perl
use strict;
use warnings;
use Lib qw( a b c);
my $obj = new Lib;
$obj->meth;
This calls Lib.pm, which contains an import() function and not much else:
package Lib;
use strict;
use warnings;
our @use_param;
sub import {
my $class = shift;
@use_param = @_;
require RealLib;
}
1;
After Lib.pm has been compiled, import() is automatically called. It
require()s RealLib.pm (use() would be too early), which may contain:
use strict;
use warnings;
our @use_param;
print "RealLib called with use-parameters ", join( ', ', @use_param), "\n";
sub new {
my $class = shift;
bless {}, $class;
}
sub meth {
print "meth called, use parameters are @use_param\n";
}
1;
Now we can access @use_param freely at any point in the source, as
in the definition of meth(), which is the purpose of the exercise.
Note that RealLib.pm doesn't start with a package statement, so
"package Lib" from Lib.pm stays in effect, and everything is compiled
into the package the user expects after "use Lib".
I believe that currently this is about the simplest way to make
the "use parameters" accessible to a source.
Anno
------------------------------
Date: Fri, 13 Oct 2000 15:39:47 +0200
From: Per Kistler <kistler@gmx.net>
To: Anno Siegel <anno4000@lublin.zrz.tu-berlin.de>
Subject: Re: How to get params after use Mod?
Message-Id: <39E710A3.5D92D66@gmx.net>
Hi Anno
Thanks for your sugestion.
Mark-Jasons url does not give it, true, but if one wgets his entire perl
tree,
than rgrep finds 61 files with "import" in it. At least, his Hello
example could be undestood symbolicaly as some kind of welcome, still
better than
the usual "this is no perl question":-)
Per.
------------------------------
Date: Fri, 13 Oct 2000 15:12:19 +0200
From: Stefan Schubert <stefan.schubert@epark.de>
Subject: html syntax check
Message-Id: <39E70A33.CF2A6E1D@epark.de>
Hi there,
does perl have an html-syntax checker and if so how do I aply it?
Cheers,
Stefan
--
Dipl. Inform. ePark services GmbH
Stefan Schubert Phone: +49 [0] 221 3585 211
Software Engineer Fax..: +49 [0] 221 3585 299
------------------------------------------------------------------
Yahoo messenger ID: bluewhale_de | PGP Key available on request
My photo gallery: http://community.webshots.com/user/bluewhale_de
------------------------------------------------------------------
------------------------------
Date: Fri, 13 Oct 2000 16:25:15 +0200
From: Per Kistler <kistler@gmx.net>
To: Stefan Schubert <stefan.schubert@epark.de>
Subject: Re: html syntax check
Message-Id: <39E71B4B.79098D78@gmx.net>
Stefan Schubert wrote:
>
> does perl have an html-syntax checker and if so how do I aply it?
use HTML::QuickCheck ();
$html = <<EOF;
<html>
<head></head>
<body></body>
</html>
EOF
HTML::QuickCheck::OK($html) ||
die "Bad HTML: $HTML::QuickCheck::Error";
print "ok\n";
Per.
------------------------------
Date: Fri, 13 Oct 2000 16:12:57 +0200
From: Malte Ubl <ubl@schaffhausen.de>
Subject: Re: html syntax check
Message-Id: <39E71869.D492E108@schaffhausen.de>
Dies ist eine mehrteilige Nachricht im MIME-Format.
--------------BA22EC952B20036CFC039B20
Content-Type: text/plain; charset=us-ascii; x-mac-type="54455854"; x-mac-creator="4D4F5353"
Content-Transfer-Encoding: 7bit
Stefan Schubert schrieb:
> Hi there,
>
> does perl have an html-syntax checker and if so how do I aply it?
Hi,
why not use the syntax-checker at w3.org? Otherwise check CPAN.
malte
--------------BA22EC952B20036CFC039B20
Content-Type: text/x-vcard; charset=us-ascii;
name="ubl.vcf"
Content-Transfer-Encoding: 7bit
Content-Description: Visitenkarte fŸr Malte Ubl
Content-Disposition: attachment;
filename="ubl.vcf"
begin:vcard
n:Ubl;Malte
tel;cell:+49 173 9237521
tel;fax:+49 4121 472938
tel;home:+49 4121 438297
tel;work:+49 4121 472964
x-mozilla-html:FALSE
url:http://www.schaffhausen.de
org:Schaffhausen | Interactive
adr:;;Daimlerstrasse 17;Elmshorn;;25337;Germany
version:2.1
email;internet:ubl@schaffhausen.de
title:Developer for web-based applications
x-mozilla-cpt:;1
fn:Malte Ubl
end:vcard
--------------BA22EC952B20036CFC039B20--
------------------------------
Date: Fri, 13 Oct 2000 09:11:43 -0400
From: "Eric" <eric.kort@vai.org>
Subject: Increment reference count (av_store)?
Message-Id: <8s71hs$1o2r$1@msunews.cl.msu.edu>
Perlguts states in the API section for av_store that "the caller is
responsible for suitably incrementing the reference count of val before the
call and decrementing it if the function returned NULL"
(the av_store syntax is av_store (AV* ar, I32 key, SV* val) )
Two questions:
1)Why do I need to increment the reference count of val when I am simply
updating the value of an already existing array element (created using
av_extend)?
2) How do I increment the reference count of val?
Thanks,
Eric
------------------------------
Date: Fri, 13 Oct 2000 09:22:14 -0400
From: Henry Hartley <henryhartley@westat.com>
Subject: Re: ip under win9x/2k from the commandline?
Message-Id: <39E70C86.9090704@westat.com>
jason wrote:
> Steven M. O'Neill wrote ..
>
>> Werner, Wolfgang <zakazan@gmx.de> wrote:
>>
>>> jason wrote:
>>>
>>>
>>>> Werner, Wolfgang wrote ..
>>>>
>>>>> how can i find ount my ip using the windows commandline and perl?
>>>>
>>>> perl -MSocket -e"print inet_ntoa inet_aton $ENV{COMPUTERNAME}"
>>>
>>> hi jason,
>>> nope, seems not to work on my machine.
>>> any idea?
>>> thakns for your time anyway :)
>>
>> perl -e "system (ipconfig)"
>
>
> are you sure that's available on Win9x ? .. I thought it was only on NT
Right. On Win95 use:
perl -e "system (winipcfg)"
--
Henry Hartley
------------------------------
Date: Fri, 13 Oct 2000 16:40:54 +0200
From: "Werner, Wolfgang" <zakazan@gmx.de>
Subject: Re: ip under win9x/2k from the commandline?
Message-Id: <39E71EF6.464784A6@gmx.de>
1. well, i was trying to avoid the use of win-functions. thats what is was
all about.
thanks anyway
2. its ipconfig on NT an winipcfg on win9x
Henry Hartley wrote:
> jason wrote:
>
> > Steven M. O'Neill wrote ..
> >
> >> Werner, Wolfgang <zakazan@gmx.de> wrote:
> >>
> >>> jason wrote:
> >>>
> >>>
> >>>> Werner, Wolfgang wrote ..
> >>>>
> >>>>> how can i find ount my ip using the windows commandline and perl?
> >>>>
> >>>> perl -MSocket -e"print inet_ntoa inet_aton $ENV{COMPUTERNAME}"
> >>>
> >>> hi jason,
> >>> nope, seems not to work on my machine.
> >>> any idea?
> >>> thakns for your time anyway :)
> >>
> >> perl -e "system (ipconfig)"
> >
> >
> > are you sure that's available on Win9x ? .. I thought it was only on NT
>
> Right. On Win95 use:
> perl -e "system (winipcfg)"
>
> --
> Henry Hartley
------------------------------
Date: Fri, 13 Oct 2000 16:43:01 +0200
From: "Werner, Wolfgang" <zakazan@gmx.de>
Subject: Re: ip under win9x/2k from the commandline?
Message-Id: <39E71F75.D38FEAE4@gmx.de>
shame on me!!!!
:(
jason wrote:
> Larry Rosler wrote ..
> >[Rearranged for logical flow, and signature clipped, in accordance with
> >the conventions of this and most other newsgroups.]
> >
> >In article <39E587FE.A4682572@gmx.de> on Thu, 12 Oct 2000 11:44:30
> >+0200, Werner, Wolfgang <zakazan@gmx.de> says...
> >> jason wrote:
> >>
> >> > Werner, Wolfgang wrote ..
> >> > >how can i find ount my ip using the windows commandline and perl?
> >> >
> >> > perl -MSocket -e"print inet_ntoa inet_aton $ENV{COMPUTERNAME}"
> >> >
> >> hi jason,
> >> nope, seems not to work on my machine.
> >> any idea?
> >> thakns for your time anyway :)
> >
> >perlfaq9: "How do I find out my hostname/domainname/IP address?"
>
> excellent
>
> to Wolfgang - the problem was probably that Win9x doesn't have the
> COMPUTERNAME env var defined .. which Larry's pointer will help you
> solve (and in a platform independent way)
>
> --
> jason -- elephant@squirrelgroup.com --
------------------------------
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 4605
**************************************
