[19539] in Perl-Users-Digest
Perl-Users Digest, Issue: 1734 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Sep 12 00:05:36 2001
Date: Tue, 11 Sep 2001 21:05:06 -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: <1000267506-v10-i1734@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Tue, 11 Sep 2001 Volume: 10 Number: 1734
Today's topics:
Re: DBI error in Apache setting <iltzu@sci.invalid>
Re: Fixing jeopardy quotes (was Re: how to get the leng <goldbb2@earthlink.net>
Re: help with this script-database column names (gnarasi)
Re: Help: TiedHash.pm module in @INC not being recogniz <mel2000@hotmaildot.com>
Re: Help: TiedHash.pm module in @INC not being recogniz <goldbb2@earthlink.net>
Re: How do you use <> and @ARGV with 4nt? <bart.lateur@skynet.be>
Re: Inter-Process Communication <bart.lateur@skynet.be>
Re: Laugh: BT webspace CGI conditions <Dave.Stafford@globis.net>
Re: Parsing problem (Please HELP ) <goldbb2@earthlink.net>
Re: Perl objects problems <iltzu@sci.invalid>
Re: Perl Version <iltzu@sci.invalid>
Re: Problem with parsing more than one line ( Please HE <bart.lateur@skynet.be>
problems getting info from Oracle database table (Ponzie B. Pogie)
process stopping --> start script <luke@chipcity.com.au>
Re: Sharing memory <goldbb2@earthlink.net>
Re: to get the process ID of a running process (Damian James)
Re: Where Can I Find the path to the desktop on Win9X/2 <matthew.garrish@sympatico.ca>
win32-adminmisc.ppd <lhswartw@ichips.intel.com>
Re: win32-adminmisc.ppd <bart.lateur@skynet.be>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 11 Sep 2001 22:35:39 GMT
From: Ilmari Karonen <iltzu@sci.invalid>
Subject: Re: DBI error in Apache setting
Message-Id: <1000247146.3753@itz.pp.sci.fi>
In article <0oSl7.12781$151.1064469@bgtnsc05-news.ops.worldnet.att.net>, Tom Hoffmann wrote:
>On Thursday 06 September 2001 14:53, Jiqun Wang wrote:
>
>> When I input "PerlModule DBI" in httpd.conf file of Apache.
>
>And why are you trying to put this in your httpd.conf file? It is *not*
>an Apache directive. It is no wonder Apache chokes on it.
Did you actually read the original post, including the error message.
Apache is obviously *not* choking on it. Rather, DBI does get loaded,
but fails when trying to clean up before exit.
Frankly, I have no idea why it should fail like that. The first thing
I'd try, if I was in the OP's situation, whould be to edit the END block
in DBI.pm, replacing
defined &DBI::trace_msg
with
DBI->can('trace_msg')
However, I suspect that this won't fix the real problem, even if it does
hide the symptoms (which it might or might not do). The code obviously
does work in ordinary situations, and it would seem that the trace_msg
method should in fact be there when the code is called in this case. So
there might well be some more fundamental breakage involved.
If someone else knows the real cause, please ignore this.
--
Ilmari Karonen -- http://www.sci.fi/~iltzu/
"Get real! This is a discussion group, not a helpdesk. You post something,
we discuss its implications. If the discussion happens to answer a question
you've asked, that's incidental." -- nobull in comp.lang.perl.misc
------------------------------
Date: Tue, 11 Sep 2001 23:39:41 -0400
From: Benjamin Goldberg <goldbb2@earthlink.net>
Subject: Re: Fixing jeopardy quotes (was Re: how to get the length of string)
Message-Id: <3B9ED8FD.D406E16C@earthlink.net>
Admin UsePad wrote:
> "Tintin" <tintin@snowy.calculus> schreef in bericht
> news:zpmn7.41$rP5.530580@news.interact.net.au...
> >
> > "Admin UsePad" <spam@funnybytes.com> wrote in message
> > news:9njid7$95$1@news.hccnet.nl...
> > > It worked!
> > >
> > > How do I get rid of this jeopardy quoted text? I'm using Outlook
> >
> > See that mouse you're using? If you're right handed, it will be on
> > the right. If you are left handed it will be on the left. In
> > Windoze, you have an amazingly inovative feature known as "scroll
> > bars". This incredible feature allows you to scroll the text up or
> > down. In your case, you can scroll it down to insert your reply in
> > the appropriate spot. Another inovative Micro$oft feature was to
> > include a cut/delete function. This simple, but remarkably handy
> > function allows you to remove parts of the text (such as signatures)
> > that aren't relevant to the reply.
> >
> > When you've mastered these functions, you can obtain guru status by
> > doing everything *without* a mouse. Of course, this complicated and
> > dangerous operation should *not* be performed by beginners. It
> > takes many, many years of experience to ride in the fast lane.
>
> Let's go and fuck yourself,... you were a newbe too in the past.
> Besides that,.. I'm dutch so I don't understand every english word.
> If you people are talking about 'jeopardy ' I could think of an sweet
> candy bar or something like that.
Jeopardy is a game show where the answers are given first, and the
contestants guess the questions. However, where the word comes from
doesn't matter... you've been given enough explanations that unless
you're a total moron, you would know that it means you posted with your
response written above the message you're responding to.
> Don't speak to other people without any respect.
If you want respect, earn it. An inability to comprehend and follow
etiquette decreases our respect for you.
> Sweet greets,... and a whole lot of 'candy-bar-quoted-text' below,..
> only for you.
If your message was only for him, then you shouldn't act like an asshole
and post it to a public forum.
--
"I think not," said Descartes, and promptly disappeared.
------------------------------
Date: 11 Sep 2001 19:53:12 -0700
From: gnarasi@hotmail.com (gnarasi)
Subject: Re: help with this script-database column names
Message-Id: <138ef576.0109111853.35100e8b@posting.google.com>
gnarasi@hotmail.com (gnarasi) wrote in message news:<138ef576.0109041409.61ace24@posting.google.com>...
> Please help out with this script. It works fine , all columns are
> printed, but not the column names(headers). How are the column names
> retrieved and printed? I am learning this and any help is welcome.
> Thanks
>
> ++++++++++
> #!/usr/bin/perl
> print "Content-type: text/html\n\n";
> use DBI;
> use CGI;
>
> { $dbh = DBI->connect("dbi:mysql:gldb", 'root', '' ,
> { RaiseError => 1 });
>
> $sth = $dbh->prepare("SELECT * FROM cia");
>
> $sth->execute();
>
> @dbRows = $sth->fetchall_arrayref();
> {
> print qq!
> <HTML>
> <HEAD>
> <TITLE>SQL Statement
> Results</TITLE>
> </HEAD>
> <BODY BGCOLOR = "#FFFFFF"
> TEXT = "#000000">
> <CENTER>
> <TABLE BORDER = "1">!;
>
> foreach $rowReference (@dbRows)
> {
> foreach $columnReference
> (@$rowReference)
> {
> print qq!<TR>!;
> foreach $column
> (@$columnReference)
> {
> print qq!<TD>
> $column
> </TD>\n!;
> }
> print qq!</TR>!;
> }
> }
> print qq!
>
> </TABLE>
> </CENTER>
> </BODY>
> </HTML>!;
> exit;
>
> }
> }
############
The following works. Thanks.
#!/usr/bin/perl
print "Content-type: text/html\n\n";
use DBI;
use CGI;
{ $dbh = DBI->connect("dbi:mysql:gldb", 'root', '' ,
{ RaiseError => 1 });
$sth = $dbh->prepare("SELECT * FROM cia");
$sth->execute();
my $cols=$sth->{NUM_OF_FIELDS};
my $fname=$sth->{NAME};
@dbRows = $sth->fetchall_arrayref();
{
print qq!
<HTML>
<HEAD>
<TITLE>SQL Statement
Results</TITLE>
</HEAD>
<BODY BGCOLOR = "#FFFFFF"
TEXT = "#000000">
<CENTER>
<TABLE BORDER = "1">!;
print qq!<tr>!;
for($i=0;$i<$cols;$i++) {
my $fname=$sth->{NAME}->[$i];
print qq!<td align=middle valign=top
bgcolor=\"#FFFFCC\"><b>$fname</b></TD>\n!;
}
print qq!</TR>\n!;
foreach $rowReference (@dbRows)
{
foreach $columnReference
(@$rowReference)
{
print qq!<TR>!;
foreach $column
(@$columnReference)
{
print qq!<TD>
$column
</TD>\n!;
}
print qq!</TR>!;
}
}
print qq!
</TABLE>
</CENTER>
</BODY>
</HTML>!;
exit;
}
}
------------------------------
Date: Tue, 11 Sep 2001 18:24:00 -0700
From: "M.L." <mel2000@hotmaildot.com>
Subject: Re: Help: TiedHash.pm module in @INC not being recognized
Message-Id: <9nmdj2$8jocc$1@ID-19545.news.dfncis.de>
> >My program can't find the AnyData::Storage::TiedHash module no matter how
I
> >point to it.
> >
> >I tried pointing to it using the following methods according to PerlFAQ
8:
> >
> >use lib '/u/s/sample/public_html/cgi-bin/lib/AnyData';
> >use lib '/u/s/sample/public_html/cgi-bin/lib/AnyData/Storage';
> >use AnyData;
> > and
> >use FindBin;
> >use lib "$FindBin::Bin/lib/AnyData";
> >use lib "$FindBin::Bin/lib/AnyData/Storage";
> >use AnyData;
>
> you probably mean
> use lib '/u/s/sample/public_html/cgi-bin/lib';
> use AnyData;
> or
> use FindBin;
> use lib "$FindBin::Bin/lib";
> use AnyData;
>
I mentioned in a previous post that I had previously tried that
recommendation. The only difference was that it was AnyData.pm that couldn't
be found instead of TiedHash.pm.
However, when I deleted *use AnyData* and replaced it with *use Text::CSV*
(my program will need both modules) I didn't get an @INC location error. So
I'm beginning to believe that there might be a problem with AnyData.pm. I've
never had the problem with any other module.
use FindBin;
use lib "$FindBin::Bin/lib";
use CGI qw(:standard);
use CGI::Carp qw(fatalsToBrowser);
use Fcntl qw(:flock);
use Text::CSV;
# use AnyData;
where AnyData.pm is located in the
/u/s/sample/public_html/cgi-bin/lib/AnyData directory and CSV.pm is located
in the /u/s/sample/public_html/cgi-bin/lib/Text directory.
------------------------------
Date: Tue, 11 Sep 2001 23:33:41 -0400
From: Benjamin Goldberg <goldbb2@earthlink.net>
Subject: Re: Help: TiedHash.pm module in @INC not being recognized
Message-Id: <3B9ED795.AA548FDA@earthlink.net>
M.L. wrote:
[snip]
> > you probably mean
> > use lib '/u/s/sample/public_html/cgi-bin/lib';
> > use AnyData;
> > or
> > use FindBin;
> > use lib "$FindBin::Bin/lib";
> > use AnyData;
> >
> I mentioned in a previous post that I had previously tried that
> recommendation. The only difference was that it was AnyData.pm that
> couldn't be found instead of TiedHash.pm.
>
> However, when I deleted *use AnyData* and replaced it with *use
> Text::CSV* (my program will need both modules) I didn't get an @INC
> location error. So I'm beginning to believe that there might be a
> problem with AnyData.pm. I've never had the problem with any other
> module.
>
> use FindBin;
> use lib "$FindBin::Bin/lib";
>
> use CGI qw(:standard);
> use CGI::Carp qw(fatalsToBrowser);
> use Fcntl qw(:flock);
> use Text::CSV;
> # use AnyData;
>
> where AnyData.pm is located in the
> /u/s/sample/public_html/cgi-bin/lib/AnyData directory and CSV.pm is
> located in the /u/s/sample/public_html/cgi-bin/lib/Text directory.
The way to solve the problem is to think of :: in a module name as a /
So Text::CSV is in /u/s/sample/public_html/cgi-bin/lib/, since
"Text::CSV" becomes "Text/CSV.pm", so ..../lib/Text/CSV.pm is found.
But AnyData becomes AnyData.pm [no ::, so no /], and to find *that*, it
needs to look in the directory that AnyData.pm is in.
This means that AnyData.pm should be in ....lib/ not in ....lib/AnyData/
cd /u/s/sample/public_html/cgi-bin/lib/
mv ./AnyData/* ./
rmdir ./AnyData/
--
"I think not," said Descartes, and promptly disappeared.
------------------------------
Date: Tue, 11 Sep 2001 22:14:19 GMT
From: Bart Lateur <bart.lateur@skynet.be>
Subject: Re: How do you use <> and @ARGV with 4nt?
Message-Id: <153tptg3r8ca0soblnfa67lhgc8pontu19@4ax.com>
Adi Inbar wrote:
>my @input = <>;
>
>produced this error:
>
> Can't open %*: Invalid argument at E:\Data Files\Perl\ex6-3.pl line 6.
Try globbing first.
--
Bart.
------------------------------
Date: Wed, 12 Sep 2001 00:47:29 GMT
From: Bart Lateur <bart.lateur@skynet.be>
Subject: Re: Inter-Process Communication
Message-Id: <7nbtpt0ls6jk59lr4pk8lnju52na29rc1m@4ax.com>
Thomas Bätzler wrote:
>Alternatively, check out a book like W. Richard Stevens' "Unix Network
>Programming Vol. 2: Interprocess Communications" that teaches you
>about the other methods to implement client/server architectures. Most
>of the stuff he discusses should be implementable with Perl, too.
Lincoln Stein's book "Network Programming with Perl" is another option.
I really love this book. It simply tackles everything! Many people here
would consider most of its content off topic for this newsgroup... ;-)
<http://www.modperl.com/perl_networking/>
--
Bart.
------------------------------
Date: Tue, 11 Sep 2001 22:07:20 GMT
From: "Dave Stafford" <Dave.Stafford@globis.net>
Subject: Re: Laugh: BT webspace CGI conditions
Message-Id: <sWvn7.963$DJ3.95792@nlnews00.chello.com>
"Stuart Moore" <stumo@bigfoot.com> wrote in
> * CGIs must only access/modify data in your own web space. Any attempt to
access
> information outside this file space will be prevented via the custom CGI
> service.
> - these would imply that I can use perl to open files. Which is nice of
them.
> But then:
>
> * Do not use "exec", "fork", "open", "pipe", "system", "backticks" or
"eval".
> /\ !!!
They are obviously rather confused, and knowing BT this is hardly suprising.
So the simple answer is ignore the "do not use" malarky, and open/close
files to your heart's content.
Dave
------------------------------
Date: Tue, 11 Sep 2001 23:54:17 -0400
From: Benjamin Goldberg <goldbb2@earthlink.net>
Subject: Re: Parsing problem (Please HELP )
Message-Id: <3B9EDC69.FB44BBCC@earthlink.net>
Laird wrote:
>
> Hi everybody,
>
> I changed the file in order to be more explicit.
> This is what it looks like.
>
> ---
> # name-1
> service numberone COMMENTS
>
> # name-2
> service numbertwo COMMENTS
>
> # name-3
> service numberthree
>
> # name-4 name-5 COMMENTS
> service numberfour
> service numberfive
>
> # name-other COMMENTS
> service numberother
>
> ---
>
> I'm trying to put numberone after name-1
> numbertwo after name-2
> numberthree after name-3
> numberfour after name-4
> numberfive after name-5
> numberother after name-other
my @names;
while( <DATA> ) {
if( /^#/ ) {
@names = /\b(name-\S+)/g;
} else if( my ($service) = /^\S+\s+(\S+)/ ) {
foreach my $name ( @names ) {
print "name = $name\n";
print "service = $service\n";
}
}
}
--
"I think not," said Descartes, and promptly disappeared.
------------------------------
Date: 11 Sep 2001 23:58:46 GMT
From: Ilmari Karonen <iltzu@sci.invalid>
Subject: Re: Perl objects problems
Message-Id: <1000251847.5284@itz.pp.sci.fi>
In article <3B9BDEC7.2050609@post.rwth-aachen.de>, Tassilo von Parseval wrote:
>
>Well, what happens if you try it? I don't see any reason why it should
>not work. You should be able to create a few hundred consecutive
>subclasses without any problems. If not, check your design again. ;-)
Actually, you can only create 100 nested subclasses. If you make more
than that, perl may assume it has found an inheritance loop if you try
to call a method defined in the base class via the innermost subclass.
Note that this behavior, which is arguably an obscure bug, may be hard
to duplicate, as calling the same method via one of the intermediate
subclasses can create a cached copy of the method in that subclass.
Sorry. Just picking obscure nits here...
--
Ilmari Karonen -- http://www.sci.fi/~iltzu/
"Get real! This is a discussion group, not a helpdesk. You post something,
we discuss its implications. If the discussion happens to answer a question
you've asked, that's incidental." -- nobull in comp.lang.perl.misc
------------------------------
Date: 11 Sep 2001 23:17:28 GMT
From: Ilmari Karonen <iltzu@sci.invalid>
Subject: Re: Perl Version
Message-Id: <1000249546.4569@itz.pp.sci.fi>
In article <3B9CF893.940C47AC@vnet.ibm.com>, George C. Demetros wrote:
>
>The real reason why I need to determine the version of perl is I need
>to know within a C++ program the current version of /bin/perl. I'd
>rather not start a separate process (unix platform) by doing a perl -v.
If you're planning to run perl later in the program anyway, doing a
"perl -v" isn't going to slow things down much. Sure, it'll have to
load the perl executable, but you'll get the lost time back as soon as
you need to run perl again, as most likely the executable will still be
in memory.
>So I figure if I can read a file within my program that would be fairly
>fast.
The OS can load executables really fast, probably faster than your
program can. It can also keep loaded executables in memory, so that
they don't need to be reloaded. On modern Unix systems, the fork()
overhead is also reduced to minimum.
--
Ilmari Karonen -- http://www.sci.fi/~iltzu/
"Get real! This is a discussion group, not a helpdesk. You post something,
we discuss its implications. If the discussion happens to answer a question
you've asked, that's incidental." -- nobull in comp.lang.perl.misc
------------------------------
Date: Tue, 11 Sep 2001 22:13:27 GMT
From: Bart Lateur <bart.lateur@skynet.be>
Subject: Re: Problem with parsing more than one line ( Please HELP )
Message-Id: <v03tpt46cktclar4vr08ikqcfsnkdrdskh@4ax.com>
Randal L. Schwartz wrote:
>That is, on the line
>
> # name-d name-e comments
>
>how do you know "comments" is a comment? Is there a pattern that
>matches the name but not the comments?
Well, it's followed by two "service" lines... Thus: two names.
BTW Wouldn't this be a nice exercise for Parse::RecDescent? Eh, no...
the description I just gave makes this a non-contextfree grammar.
--
Bart.
------------------------------
Date: 11 Sep 2001 16:54:34 -0700
From: ponzie_b_pogie@hotmail.com (Ponzie B. Pogie)
Subject: problems getting info from Oracle database table
Message-Id: <cf0dac6.0109111554.166108ed@posting.google.com>
In the following code, I have no problem connecting to a Oracle
database on NT. (I'm using Solaris). The table is not empty, but I get
a zero printed, followed by "Sorry, no matches." Hopefully someone can
help me with this. Thanks in advance.
PBP
#!/usr/local/bin/perl
use warnings;
use strict;
use DBI;
use diagnotics;
my $dbh = DBI->connect("databasename","username","password","Oracle")
or die "Couldn't connect: $DBI::errstr\n";
my $sql = q{SELECT * FROM tm_user};
my $sth = $dbh->prepare($sql)
|| die "Prepare failed: $DBI::errstr\n";
$sth->execute() ||
die "Couldn't execute query: $DBI::errstr\n";
my $matches=$sth->rows();
print "$matches\n";
unless ($matches) {
print "Sorry, no matches\n";
} else {
print "matches found:\n";
while (my @row = $sth ->fetchrow_arrayref()) {
print "@row\n";
}
}
$sth->finish;
$dbh->disconnect;
------------------------------
Date: Wed, 12 Sep 2001 11:34:16 +0930
From: Luke Vanderfluit <luke@chipcity.com.au>
Subject: process stopping --> start script
Message-Id: <3B9EC29F.397E2C20@chipcity.com.au>
Hi,
Thanks again to the respondents so far.
I'll try to explain the problem a bit better.
I have a network. When I connect the gateway computer (linux) through a
modem to the net, I want to start squid, a firewall script, and samba as
well.
This I do through the following in a script:
--------------------
#!/usr/bin/perl
#grab the output of 'ps aux' containing "smb"
$var=`ps aux | grep smb`;
#if $var contains 'smbd' then samba is running
#then no need to start it again
#same goes for firewall script and squid
#just run internet connection program 'wvdial'
#and 'keepLinkUp' script.
if($var =~ /smbd/)
{
system("wvdial &");
system("sleep 1m");
system("keepLinkUp > /dev/null &");
}
#if $var doesn't contain 'smbd' then run everything
#including the internet connection program wvdial
#and the 'keepLinkUp' script that sends
#out a packet every 10 minutes to keep the link up
else
{
system("squid &");
system("/etc/rc.d/rc.firewall");
system("/etc/rc.d/init.d/smb start");
system("wvdial &");
system("sleep 1m");
system("keepLinkUp > /dev/null &");
}
---------------------------
But now!
I want to know when wvdial exits or terminates in whatever way, so I can
kill the keepLinkUp script.
I think I need the exit of 'wvdial' to trigger a script that gets the
PID of 'keepLinkUp' and kills it.
Has anyone got an idea?
L.
Lo que ves es lo que obtienes
Luke Vanderfluit
[if no image, click here]
Phone 61 8 8556 6112
Aldinga Beach, South Australia
------------------------------
Date: Tue, 11 Sep 2001 23:23:36 -0400
From: Benjamin Goldberg <goldbb2@earthlink.net>
Subject: Re: Sharing memory
Message-Id: <3B9ED538.C0590244@earthlink.net>
Andrew Paul Gorton wrote:
>
> Hi,
>
> I have a script that forks children. The child pids are then used to
> exec other scripts which individually run in continually while loop.
> There is about seven of these.
>
> I have tried using pipes to communicate bi-directional but it is
> getting to complicated with the synchronization etc. Is there a
> simple way to share information with the parent and the children and
> if so how, I am getting desperate. I need the parent to be able to
> send configuration data and the child to process information and
> reply. Can a parent share its global varaibles with a child? The
> solution needs to be simple as I am new to perl, but effective.
Using pipes is one solution of many -- if you would describe your
problem in a bit more detail, and give some perl code which you think
should work, then we can be of a bit more help.
--
"I think not," said Descartes, and promptly disappeared.
------------------------------
Date: 11 Sep 2001 22:45:20 GMT
From: damian@qimr.edu.au (Damian James)
Subject: Re: to get the process ID of a running process
Message-Id: <slrn9pt4s9.22t.damian@puma.qimr.edu.au>
Luke Vanderfluit chose Wed, 12 Sep 2001 05:27:39 +0930 to say this:
>...
>$PID = open(KEEP, "keepLinkUp > /dev/null &|");
>
>But when I do a 'ps auxw' and look at the actual ID, it is $PID + 1,
>why is this?
>
You are starting a shell to interpret the contents of the string that is
the second argument to open(). The shell starts the 'keepLinkUp' in the
background then exits. The PID is that of the shell, not 'keepLinkUp'.
I don't understand why you are trying to read (via the pipe) from a process
whose stdout is already redirected to /dev/null. You might be interested to
look at 'Safe pipe opens' in perlipc for another way to do the above.
HTH
Cheers,
Damian
--
@:=grep!(m!$/|#!..$|),split//,<DATA>;@;=0..$#:;while($:=@;){$;=rand
$:--,@;[$;,$:]=@;[$:,$;]while$:;push@|,shift@;if$;[0]==@|;select$,,
$,,$,,1/80;print qq x\bxx((@;+@|)*$|++),@:[@|,@;],!@;&&$/} __END__
Just another Perl Hacker, ### rev 3.3 -- stupidectomy performed :-)
------------------------------
Date: Tue, 11 Sep 2001 23:49:50 -0400
From: "Matt Garrish" <matthew.garrish@sympatico.ca>
Subject: Re: Where Can I Find the path to the desktop on Win9X/2K and NT?
Message-Id: <IYAn7.28721$%N2.1329907@news20.bellglobal.com>
"Admin T." <perlquestion@hotmail.com> wrote in message
news:c58c442c.0109102253.13af1d4@posting.google.com...
> I never thought something so simple be so hard. Is there a ENV.
> variable that I can access in Perl that contains the path to the
> desktop? Is there any where I can find the path to the desktop?
>
> Thankful for any help;
> -A
You can normally find it in the \windows or \winnt directory (it's hidden,
but there).
Matt
------------------------------
Date: Tue, 11 Sep 2001 15:37:57 -0700
From: "Swanthog" <lhswartw@ichips.intel.com>
Subject: win32-adminmisc.ppd
Message-Id: <9nm3o3$2p5@news.or.intel.com>
Hi,
Where does one obtain the win32-adminmisc package for perl 5.6? I'm running
activestate's perl version 5.6 build 623. It doesn't seem to be included in
this release.
Thank you,
Larry S.
------------------------------
Date: Wed, 12 Sep 2001 00:37:29 GMT
From: Bart Lateur <bart.lateur@skynet.be>
Subject: Re: win32-adminmisc.ppd
Message-Id: <vhbtptsh0o0ksb227unrfil5a8a4402bko@4ax.com>
Swanthog wrote:
>Where does one obtain the win32-adminmisc package for perl 5.6? I'm running
>activestate's perl version 5.6 build 623. It doesn't seem to be included in
>this release.
http://www.activestate.com/PPMpackages/5.6/Win32-AdminMisc.ppd
--
Bart.
------------------------------
Date: 6 Apr 2001 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 6 Apr 01)
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.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 V10 Issue 1734
***************************************
