[19466] in Perl-Users-Digest
Perl-Users Digest, Issue: 1661 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Thu Aug 30 18:10:34 2001
Date: Thu, 30 Aug 2001 15:10:15 -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: <999209415-v10-i1661@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Thu, 30 Aug 2001 Volume: 10 Number: 1661
Today's topics:
Re: Godzilla Stomps Code Red <bcaligari@fireforged.com>
Re: Godzilla Stomps Code Red <godzilla@stomp.stomp.tokyo>
Re: Godzilla Stomps Code Red <djberge@uswest.com>
Re: Godzilla Stomps Code Red <godzilla@stomp.stomp.tokyo>
Re: HELP ME: I want to know if with Perl i can use the <mjcarman@home.com>
help understanding this snippet <tomcat@visi.com>
Re: help understanding this snippet (John J. Trammell)
Help with script <Nigel_member@newsguy.com>
Re: Help, MIME-Lite Error using send_by_smtp method! (KrazyKat)
Re: Is element in array <joe+usenet@sunstarsys.com>
Re: Is element in array <comdog@panix.com>
Re: Net::FTP question <samneric@tigerriverOMIT-THIS.com>
Re: paginate search results with DBI (Abigail)
Passing arbitray data between ro co-operating per scrip (Stan Brown)
Re: PerlFS again? (Abigail)
Re: regexp question with no answer yet (Chris Fedde)
Re: Script not reading templates - why?? (Malcolm Dew-Jones)
Re: Script not reading templates - why?? <gnarinn@hotmail.com>
Re: Script not reading templates - why?? <gbirchley@hotmail.com>
Re: Sort output and find last. (Chris Fedde)
unable to install AdminMisc Module <weirich@netzpartner.de>
Unix Account Information <akirby@wharton.upenn.edu>
Re: use() versus import() changing semantics? <tinamue@zedat.fu-berlin.de>
Re: Valid IP address format (Tad McClellan)
Re: Valid IP address format (Randal L. Schwartz)
Re: Weird @INC if run from web (Abigail)
Re: Why do tabs eliminate the rest of the line? (Sara)
Re: Why do tabs eliminate the rest of the line? <godzilla@stomp.stomp.tokyo>
Re: Why do tabs eliminate the rest of the line? (Sara)
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Thu, 30 Aug 2001 17:43:48 -0000
From: "Brendon Caligari" <bcaligari@fireforged.com>
Subject: Re: Godzilla Stomps Code Red
Message-Id: <9mltk20iq0@enews3.newsguy.com>
"Godzilla!" <godzilla@stomp.stomp.tokyo> wrote in message
news:3B8E7354.7ECCFB6A@stomp.stomp.tokyo...
> David Coppit wrote:
>
> > Michel Dalle wrote:
>
> > > Godzilla! wrote:
>
> (snipped)
>
> > > I'm sure I've seen an almost identical script on the Web,
> > > with the same twisted logic...
<snip snip snip oops>
> A little thump with my little finger and, you come running,
> drooling, slobbering and spewing your usual mule manure
> proclaiming yourself to be six different people, all of
> whom, quite coincidently, elect to write negative responses
> to any given article of mine.
>
> You should, in good taste, change your name to Mark, Frank.
>
>
> Kiralynne Schilitubi
> Choctaw Nation
How do you manage to find the time to write all this stuff?
B
------------------------------
Date: Thu, 30 Aug 2001 11:24:05 -0700
From: "Godzilla!" <godzilla@stomp.stomp.tokyo>
Subject: Re: Godzilla Stomps Code Red
Message-Id: <3B8E84C5.1A14A0A3@stomp.stomp.tokyo>
Brendon Caligari wrote:
> Godzilla! wrote:
> > David Coppit wrote:
> > > Michel Dalle wrote:
> > > > Godzilla! wrote:
(snipped)
> How do you manage to find the time to write all this stuff?
I am female. I do not type with my thumbs.
Godzilla!
--
08:29:18 08/30/2001 - RESTRICTED FILE REDIRECT:
- DNS: localhost - IPA: 127.0.0.1
- System: Mozilla/GODZILLA! GO GO GODZILLA!
- Redirect URL: /ad/N339.osdn.com/B42061.2;abr=!ie4;abr=!ie5;sz=468x60;ord=999185347999185347
- Referral: http://freshmeat.net/projects/coderedwarn/
------------------------------
Date: Thu, 30 Aug 2001 14:34:42 -0500
From: Mr Sunblade <djberge@uswest.com>
Subject: Re: Godzilla Stomps Code Red
Message-Id: <3B8E9552.B06F792E@uswest.com>
Brendon Caligari wrote:
<snip>
> >
> >
> > Kiralynne Schilitubi
> > Choctaw Nation
>
> How do you manage to find the time to write all this stuff?
>
> B
Hmm...perhaps now is a good time for a re-post
A new version of the (in)famous Blue Oyster Cult song:
"With a purposeful grimace and a terrible sound
she drags fragile coder egos down
Helpless newbies on the gravy-train
Scream bug-eyed as she looks in on them
Takes their code and tears it to shreds
As she wades through lines and lines of pitiful dretch
* chorus *
Oh, no, they say she's got to go, Go! Go! Godzilla!
Oh, no, there goes another ego! Go! Go! Godzilla!
Larry shows again and again
How Perl points out the folly of men..."
Those who don't know the song can get an idea of the sound here:
http://www.geocities.com/SunsetStrip/Palladium/1718/blueoyst.html
Now be quiet as I turn "The Humpty Dance" into a song about Ruby.
Regards,
Mr. Sunblade
--
"Evil will always triumph because Good is *dumb*."
-- Dark Helmet, 'Spaceballs: The Movie'
------------------------------
Date: Thu, 30 Aug 2001 13:32:49 -0700
From: "Godzilla!" <godzilla@stomp.stomp.tokyo>
Subject: Re: Godzilla Stomps Code Red
Message-Id: <3B8EA2F1.355E6B@stomp.stomp.tokyo>
Mr Sunblade wrote:
(attributes not correctly cited by Sunblade)
> Brendon Caligari wrote:
> <snip>
> > Godzilla! > Kiralynne Schilitubi
> > Godzilla! > Choctaw Nation
> Caligari > How do you manage to find the time to write all this stuff?
> > > Godzilla! > I am female. I do not type with my thumbs.
> Hmm...perhaps now is a good time for a re-post
>
> A new version of the (in)famous Blue Oyster Cult song:
>
> "With a purposeful grimace and a terrible sound
> she drags fragile coder egos down
> Helpless newbies on the gravy-train
> Scream bug-eyed as she looks in on them
> Takes their code and tears it to shreds
> As she wades through lines and lines of pitiful dretch
> * chorus *
> Oh, no, they say she's got to go, Go! Go! Godzilla!
> Oh, no, there goes another ego! Go! Go! Godzilla!
> Larry shows again and again
> How Perl points out the folly of men..."
> Those who don't know the song can get an idea of the sound here:
> http://www.geocities.com/SunsetStrip/Palladium/1718/blueoyst.html
> Now be quiet as I turn "The Humpty Dance" into a song about Ruby.
I would rather listen to The Hokey Pokey performed by Jimi Hendrix.
Godzilla! Queen Of Rockacia.
--
http://la.znet.com/~callgirl/videgodz.html
http://la.znet.com/~callgirl/android/cowboy.cgi
------------------------------
Date: Thu, 30 Aug 2001 12:32:47 -0500
From: Michael Carman <mjcarman@home.com>
Subject: Re: HELP ME: I want to know if with Perl i can use the most popular scientific functions
Message-Id: <3B8E78BF.81F3DC1B@home.com>
xesquiogx wrote:
>
> I´m very interested in know is Perl let me use the scientific
> funciton like sin, cos, sqrt, Statisticals functions.
Sure. Some are builtins (including sin, cos, and sqrt). See the perlfunc
manpage for a full list. Look for the "Numeric functions" section.
Statistical functions are not part of Perl itself, but are available via
modules. Statistics::Descriptive provides the basics.
-mjc
------------------------------
Date: Thu, 30 Aug 2001 16:01:17 -0500
From: uNcONvEntiOnaL <tomcat@visi.com>
Subject: help understanding this snippet
Message-Id: <3B8EA99D.1B57A19C@visi.com>
$oldline = substr($line,86,721);
@nbrs = reverse(($oldline =~ m".(1,12)"sg));
for (x$=0;$x < 24; $x++) {
$newline = sprintf ("%s\t%09d",newline$,int(pop(@nbrs)));
}
I think this used to read in whole numbers, now it needs to read in
decimals to
two places.
Thanks
Tom
------------------------------
Date: 30 Aug 2001 21:22:31 GMT
From: trammell@haqq.hypersloth.invalid (John J. Trammell)
Subject: Re: help understanding this snippet
Message-Id: <slrn9otqq7.8mm.trammell@haqq.hypersloth.net>
On Thu, 30 Aug 2001 16:01:17 -0500, uNcONvEntiOnaL <tomcat@visi.com> wrote:
> $oldline = substr($line,86,721);
> @nbrs = reverse(($oldline =~ m".(1,12)"sg));
> for (x$=0;$x < 24; $x++) {
> $newline = sprintf ("%s\t%09d",newline$,int(pop(@nbrs)));
> }
[ ~ ] perl -e 'for (x$=0;$x < 24; $x++) { }'
Number found where operator expected at -e line 1, near "$=0"
(Missing operator before 0?)
Can't call method "x" without a package or object reference at -e line 1.
[ ~ ]
--
Rule #0: Spam is theft.
------------------------------
Date: 30 Aug 2001 12:30:08 -0700
From: Nigel Heinsius <Nigel_member@newsguy.com>
Subject: Help with script
Message-Id: <9mm4800bk4@drn.newsguy.com>
I need help writing a script that will do the following:
I have a framed web page. In one frame I want a button that will activate a CGI
script that saves a filled out form in the other frame as a text file on the web
server which can be emailed to any email address.
Possible to do this? Hope so...
Thanks in advance.
Nigel
------------------------------
Date: 30 Aug 2001 12:40:46 -0700
From: stuartlemmen@hotmail.com (KrazyKat)
Subject: Re: Help, MIME-Lite Error using send_by_smtp method!
Message-Id: <95e8c608.0108301140.3df58f69@posting.google.com>
stuartlemmen@hotmail.com (KrazyKat) wrote in message news:<95e8c608.0108231016.770fefa8@posting.google.com>...
> I'm trying to use the MIME-Lite package to send emails with
> attachments from a Win NT 4 workstation. I have the latest version
> installed using ActiveState ppm. The attachments seem to work now that
> I am using the "send_by_smtp()" method and the mail goes to the person
> in the 'To' field but it does *not* also go to the person in the 'Cc'
> field *and* I am forever getting this error message:
>
> "The system cannot find the path specified."
>
> When I tried to debug the code(below) to find what was generating this
> error, I realized it was showing up "randomly" while debugging. Then I
> realized it was an error apparently generated by another process(?),
> in other words, the error always appeared after a certain amount of
> time while debugging which makes it very hard to track down. Does
> anyone have any ideas?? Here is my code:
>
> #!perl -w
> use strict;
> use MIME::Lite;
> my $msg;
> $msg = MIME::Lite->new(
> From => 'me@myhost.com',
> To => 'me@anotherhost.com',
> Cc => 'me@yetanotherhost.com',
> Subject => 'Testing MIME-Lite with attachments',
> Type => 'TEXT',
> Data => "Here is a little image for you!"
> );
> $msg->attach(
> Type => 'image/gif',
> Path => 'd:/Images/TestImage.jpg',
> Filename => 'AlternateName.jpg'
> );
> $msg->send_by_smtp('mysmtp.host.com', Timeout => 60);
> exit 1;
>
> THANKS!!
>
> -Krazy Richard
I have since solved this problem(it was posted before but was not
listed under the subject I thought it would be) so here is the
solution for others edification:
To get around this (sometimes fatal) error, simply include
the 'Hello' argument in the call to send_by_smtp() (see the MIME::Lite
docs for the proper syntax). Note: the hostname that the 'Hello' field
refers to can be found using the Sys::Hostname package to avoid having
to supply (a generic/dummy) one yourself.
You can also look here:
<a href="http://groups.google.com/groups?hl=en&safe=off&th=6dde1ca51a007ad0,2&seekm=3a95d614.524144494f47414741%40radiogaga.harz.de#p">Fix</a>
-Krazy
------------------------------
Date: 30 Aug 2001 15:00:30 -0400
From: Joe Schaefer <joe+usenet@sunstarsys.com>
Subject: Re: Is element in array
Message-Id: <m3y9o1l6ep.fsf@mumonkan.sunstarsys.com>
"Michael D. Kirkpatrick" <wizard@psychodad.com> writes:
> You must be slipping...
You mean, I can go lower?
> Why end it with a comma and not the period. You need to change
> "hacker," to "hacker."
>
Or perl to Perl? Hey man, it's just a sig :)
Joe Schaefer
--
%ENV=(); $A="\rr jpeurls ht\ba \rcankotehe"x666;END{ system
"$^X -wT $0 $^S";print"r\n"}sub foo{$_=pop||exit;/$_/;print
eval 'BEGIN{$^H='. ($^H+=666) .'}$_[-(()=$A=~//g)+$[]';}@_=
reverse$A=~/./g;&foo while$ARGV[0]=~//g;#evil mess for *nix
------------------------------
Date: Thu, 30 Aug 2001 17:14:17 -0400
From: brian d foy <comdog@panix.com>
Subject: Re: Is element in array
Message-Id: <comdog-B78786.17141730082001@news.panix.com>
In article <3B8E5EED.C9632CD7@psychodad.com>, "Michael D. Kirkpatrick"
<wizard@psychodad.com> wrote:
> Joe Schaefer wrote:
> > perl -wle '$,=" ";{ my @x; sub x{if(@_){push @x,@_; return sub{push @x,@_; @x}}
> > sub{push @x,@_; @x}}
> > } print x ("Just")->("another"), x -> ("perl" , "hacker,")'
> You must be slipping... Why end it with a comma and not the period. You need to
> change "hacker," to "hacker."
JAPHs properly end with a comma. the "hacker," form is correct.
--
brian d foy <comdog@panix.com> - Perl services for hire
CGI Meta FAQ - http://www.perl.org/CGI_MetaFAQ.html
Troubleshooting CGI scripts - http://www.perl.org/troubleshooting_CGI.html
------------------------------
Date: Thu, 30 Aug 2001 16:20:34 -0400
From: Samneric <samneric@tigerriverOMIT-THIS.com>
Subject: Re: Net::FTP question
Message-Id: <MPG.15f86a1e387ad2d89896a3@news.onemain.com>
David Krainess wrote:
> I run this on NT using the latest Activestate.
[snip]
> The problem. The transfered file is corrupted on the NT box. If I use
> another FTP client (such as WS-FTP), the file is fine. The problem is with
> the Net::FTP I believe.
Nope, it's with the script.
> $ftp->binary();
> $ftp->login("xxxx","xxxx");
You're telling the server to set binary mode before you log-in.
Log-in is step one for any connected server, and WS-FTP complies.
------------------------------
Date: 30 Aug 2001 21:08:41 GMT
From: abigail@foad.org (Abigail)
Subject: Re: paginate search results with DBI
Message-Id: <slrn9otaqq.v0p.abigail@alexandra.xs4all.nl>
mbower (mbower@ibuk.bankgesellschaft.de) wrote on MMCMXX September
MCMXCIII in <URL:news:3b8cf1a0.1729342343@news>:
[ Article humanized. Humans read top to bottom ]
~~ >What I want to do is pull 50 results at a time and process them. Can
~~ >anyone give me any pointers?
~~
~~ I'm doing the exact same thing using Perl to read Sybase tables.
~~ seems to me you have 2 choices ......
~~ 1. Read every row and discard the ones you don't want. The response
~~ is suprisingly ok, even for tables with up to 10,000 rows.
~~ 2. Write a stored proc which only returns the rows you want. I'm in
~~ the process on writing one..email me for details
But the OP isn't saying there are rows he doesn't want.
The solution is surprisingly easy. Rows are fetched from a database
one by one. Use a counter. Fetch rows, one by one. Store them in a
buffer. For each row, add one to the counter. If the counter hits 50,
or if there are no more rows, process the rows. Clear the buffer.
Reset the counter. Repeat as long as there are rows to fetch.
Abigail
--
perl -e '* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / /
% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % %;
BEGIN {% % = ($ _ = " " => print "Just Another Perl Hacker\n")}'
------------------------------
Date: 30 Aug 2001 16:53:13 -0400
From: stanb@panix.com (Stan Brown)
Subject: Passing arbitray data between ro co-operating per scripts via a pipe
Message-Id: <9mm93p$864$1@panix2.panix.com>
I have an application where I need to pass arbitray data (happens to be
rows retrieved from a db table) between two co-operating perl scripts via a
pipe. The data will be retrived as collumns and rows using DBI, and I want
to put it back together as collumn/row data sets on the recieving end. Data
may be arbitray text strings, mixed with numbers, and dates.
Is there a standard way of doing this inperl?
------------------------------
Date: 30 Aug 2001 20:53:51 GMT
From: abigail@foad.org (Abigail)
Subject: Re: PerlFS again?
Message-Id: <slrn9ot9v0.v0p.abigail@alexandra.xs4all.nl>
Brian Wallis (Brian.Wallis@ot.com.au) wrote on MMCMXXI September MCMXCIII
in <URL:news:stkzo8iuk31.fsf@ganesh2.mel.ot>:
-- abigail@foad.org (Abigail) writes:
-- > PerlFS was a nice idea, but it wasn't patented. Applesoft saw
-- > the potential and quickly filed for a patent. After they got it,
-- > they succesfully sued the original developers and closed down the
-- > website. Which also explains the looping mail.
--
-- How come I cannot find any other references to this travesty? Are you
-- sure the patent didn't pre-date the perlfs implementation. I didn't
-- thnik you could get a patent on something that is already in the
-- public domain (such as an open source implementation)
--
-- Seems very odd that you can get a patent on something someone else has
-- already published.
If Amazon can get a patent on "one-click" shopping, why are you surprised
someone got a patent on PerlFS?
Abigail
--
perl -we '$| = 1; $_ = "Just another Perl Hacker\n"; print
substr $_ => 0, 1 => "" while $_ && sleep 1 => 1'
------------------------------
Date: Thu, 30 Aug 2001 19:17:49 GMT
From: cfedde@fedde.littleton.co.us (Chris Fedde)
Subject: Re: regexp question with no answer yet
Message-Id: <xjwj7.834$V3.223228928@news.frii.net>
In article <998080524.199263@zver>, Albretch <lbrtchx@hotmail.com> wrote:
>... Cartesian products of string sets ...
>
> Thanks! This is within my line of thought, but I thought that was simply a
>method call something like (Java syntax)
>
> String[] azPlnExps = getPlainExpressions(azRegExp);
>
> I am amazed that apparently nobody stumbled on thsi problem before, since
>to me it should be a natural issue for regexps.
>
> By the way, I studied Physics/Math in the TU Dresdens
>
If you have seen any relational database theory or if you have studied
combinatorics you would realize that the set of all strings that match an
arbitrary regular expression is not small.
Consider a simple RE, all strings of any length that start with 'a' ('a.*')
Without external constraints this RE will generate an infinite set.
Now consider another RE, all strings that end in 'b' ('.*b'). This is
another infinite set. Next consider the alternation of these two RE.
(a.*)|(.*b)
It's easy to check if a given string is a member of the set, but it
quite impossible to generate all the members of the set on a finite
computer.
--
This space intentionally left blank
------------------------------
Date: 30 Aug 2001 11:51:11 -0800
From: yf110@vtn1.victoria.tc.ca (Malcolm Dew-Jones)
Subject: Re: Script not reading templates - why??
Message-Id: <3b8e8b1f@news.victoria.tc.ca>
Gifford Birchley (gbirchley@hotmail.com) wrote:
: I have a Perl application from Network Solutions - ISP Tools v1.3 - which
: reads in a set of templates and returns formatted web pages to STDOUT. The
: templates are supposed to be editable to customise the HTML output. Problem
: is, the script seems to be reading in the templates first time it runs, and
: then ignoring them from then on. I can edit, move or delete the templates -
: no change! Even rebooting - no change!! I am running RH Linux 7.1,
: Apache1.3, Perl 5. Anyone give me a clue as to what's happening?
I am totally guessing, but perhaps they are compiled the first time into
"temporary" files.
You may need to find those files and delete them by hand every time you
edit the template.
--
Want to access the command line of your CGI account? Need to debug your
installed CGI scripts? Transfer and edit files right from your browser?
What you need is "ispy.cgi" - visit http://nisoftware.com/ispy.cgi
------------------------------
Date: Thu, 30 Aug 2001 19:27:13 +0000
From: gnari <gnarinn@hotmail.com>
Subject: Re: Script not reading templates - why??
Message-Id: <999199633.506199898198247.gnarinn@hotmail.com>
In article <tsoj7.5160$wX5.780202@news6-win.server.ntlworld.com>,
Gifford Birchley <gbirchley@hotmail.com> wrote:
>I have a Perl application from Network Solutions - ISP Tools v1.3 - which
>reads in a set of templates and returns formatted web pages to STDOUT. The
>templates are supposed to be editable to customise the HTML output. Problem
>is, the script seems to be reading in the templates first time it runs, and
>then ignoring them from then on. I can edit, move or delete the templates -
>no change! Even rebooting - no change!! I am running RH Linux 7.1,
>Apache1.3, Perl 5. Anyone give me a clue as to what's happening?
how could we know, without some specifics.
maybe you have to do a make install or something after changing
the templates.
does this app have a Makefile ? how did you install it?
gnari
------------------------------
Date: Thu, 30 Aug 2001 21:00:10 +0100
From: "Gifford Birchley" <gbirchley@hotmail.com>
Subject: Re: Script not reading templates - why??
Message-Id: <mXwj7.11389$Nb2.2046913@news2-win.server.ntlworld.com>
Thanks - I wondered about that. I'll see what clue I can find in the code.
"Malcolm Dew-Jones" <yf110@vtn1.victoria.tc.ca> wrote in message
news:3b8e8b1f@news.victoria.tc.ca...
> Gifford Birchley (gbirchley@hotmail.com) wrote:
> : I have a Perl application from Network Solutions - ISP Tools v1.3 -
which
> : reads in a set of templates and returns formatted web pages to STDOUT.
The
> : templates are supposed to be editable to customise the HTML output.
Problem
> : is, the script seems to be reading in the templates first time it runs,
and
> : then ignoring them from then on. I can edit, move or delete the
templates -
> : no change! Even rebooting - no change!! I am running RH Linux 7.1,
> : Apache1.3, Perl 5. Anyone give me a clue as to what's happening?
>
> I am totally guessing, but perhaps they are compiled the first time into
> "temporary" files.
>
> You may need to find those files and delete them by hand every time you
> edit the template.
>
>
> --
> Want to access the command line of your CGI account? Need to debug your
> installed CGI scripts? Transfer and edit files right from your browser?
>
> What you need is "ispy.cgi" - visit http://nisoftware.com/ispy.cgi
------------------------------
Date: Thu, 30 Aug 2001 20:45:59 GMT
From: cfedde@fedde.littleton.co.us (Chris Fedde)
Subject: Re: Sort output and find last.
Message-Id: <bCxj7.839$V3.348551680@news.frii.net>
In article <9mlptl$agjk$1@news.swt.edu>, Joe Meyer <joe.meyer@swt.edu> wrote:
>I am a beginner in Perl programming. I am looking for a way to sort a
>dataset on a Perl variable, so multiple responses to an internet survey are
>grouped together. Then, I want to pick up the last non-missing response to
>each question for each respondent. I think I know how to sort the data, but
>I am not sure how to pick up the last non-missing value of each variable
>after the sort is done.
>
>Regards,
>Joe Meyer
>
Your description of the problem is not at all clear to me. Maybe you can
post a small sample of the data you want to manipulate and perhaps some
things that you've tried and maybe describe how they went wrong.
Good Luck
--
This space intentionally left blank
------------------------------
Date: 30 Aug 2001 20:54:43 +0200
From: Klaus Peter Weirich <weirich@netzpartner.de>
Subject: unable to install AdminMisc Module
Message-Id: <3b8e8bf3$1@netnews.web.de>
Hi Newsgroup,
I'm an absolute Beginner an forced to use the win32::adminmisc module. I've
installed ActiveState WIN32 Perl Version 509 and downloaded the module from CPAN
(I think Version 971022). I've followed the instructions from readme-file:
I N S T A L L A T I O N:
------------------------
If you are using the ActiveState Win32 Perl...
1) Copy AdminMisc.pm to the <perldir>\lib\win32 directory.
2) Create a <perldir>\lib\auto\win32\adminmisc directory.
3) Rename AdminMisc310.pll to AdminMisc.pll and copy it to
the <perldir>\lib\auto\win32\adminmisc directory.
*IF you are using a build of Perl that is not compliant with the
build of adminmisc that comes with this archive then you need to
download a compatible version. See "Parse Exception Error" below.
4) You are all ready to use the module. Look at the test.pl script
for an examples.
But all I receive is the following message:
Can't locate loadable object for module Win32::AdminMisc in @INC (@INC
contains:
E:\Perl\lib E:\Perl\site\lib .) at netadmin.pl line 1
BEGIN failed--compilation aborted at netadmin.pl line 1.
Why?
Can you please help me?
Thank You
--
__________________________________________________________
News suchen, lesen, schreiben mit http://newsgroups.web.de
------------------------------
Date: Thu, 30 Aug 2001 14:11:22 -0400
From: "Adam Kirby" <akirby@wharton.upenn.edu>
Subject: Unix Account Information
Message-Id: <9mlvj3$65q$1@netnews.upenn.edu>
Hello All,
Before writing my own, I wonder if anyone has come across something that
performs a similar function. Basically, I would like to have a program
listening on a Unix port that can be supplied authentication information and
a user id, and would return a variety of information like quota status,
whether they have a .forward file, home directory location, etc. Granted
this is simliar to a finger daemon, but I haven't found any finger daemons
as featured as this. Is anyone doing this or have you come across a program
which does?
Thanks!
Adam Kirby
------------------------------
Date: 30 Aug 2001 19:20:37 GMT
From: Tina Mueller <tinamue@zedat.fu-berlin.de>
Subject: Re: use() versus import() changing semantics?
Message-Id: <9mm3m5$2tuq3$1@fu-berlin.de>
Tassilo von Parseval <Tassilo.Parseval@post.rwth-aachen.de> wrote:
> Tina Mueller wrote:
>> this is from the docs:
>> | NOTE: The prototype on find_uris() is already getting annoying to me.
>> | I might remove it in a future version.
>>
>> so... maybe tassilo should check the version before calling
>> the method. or just require a version > 0.11 for his program/module.
> Hmmh....I am sure all would break if I required a version > 0.11 since
> there is none. ;-)
eh... I meant equal or higher, of course =)
tina
--
http://www.tinita.de \ enter__| |__the___ _ _ ___
tina's moviedatabase \ / _` / _ \/ _ \ '_(_-< of
search & add comments \ \ _,_\ __/\ __/_| /__/ perception
--- Warning: content of homepage hopelessly out-dated ---
------------------------------
Date: Thu, 30 Aug 2001 13:25:44 -0400
From: tadmc@augustmail.com (Tad McClellan)
Subject: Re: Valid IP address format
Message-Id: <slrn9ostoo.83i.tadmc@tadmc26.august.net>
John J. Trammell <trammell@haqq.hypersloth.invalid> wrote:
>On 30 Aug 2001 15:33:52 GMT, Eric Bohlman <ebohlman@omsdev.com> wrote:
>> John J. Trammell <trammell@haqq.hypersloth.invalid> wrote:
>>
>> [quoting .sig]
>>
>> > Only a very small fraction of our DNA does anything; the rest is all
>> > comments and ifdefs.
>>
>> Actually, a whole bunch of it is cargo cult code; certain sequences of DNA
>> are more easily copied by DNA polymerase and its related enzymes than
>> others, and therefore they tend to accumulate regardless of any function
>> they might have. Thus you wind up with the biochemical equivalent of /s
>> modifiers on dot-free regexps, quotes around variable names, etc.
>
>Sweet Jesus, I bet God doesn't use strict either.
Of course he/she doesn't. "use strict" is for pointing out when we
are doing something that we (probably) don't know that we are doing.
God is infallible and so has no need for such a crutch.
>You know, that explains a lot.
Yes, that everybody except God needs strictures. heh.
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: 30 Aug 2001 12:58:41 -0700
From: merlyn@stonehenge.com (Randal L. Schwartz)
Subject: Re: Valid IP address format
Message-Id: <m13d69mia6.fsf@halfdome.holdit.com>
>>>>> "John" == John J Trammell <trammell@haqq.hypersloth.invalid> writes:
John> Sweet Jesus, I bet God doesn't use strict either.
Can God create a restriction so powerful that s/he cannot overcome it? :)
Followups set to comp.lang.perl.religion...
print "Just another Perl hacker,"
--
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
<merlyn@stonehenge.com> <URL:http://www.stonehenge.com/merlyn/>
Perl/Unix/security consulting, Technical writing, Comedy, etc. etc.
See PerlTraining.Stonehenge.com for onsite and open-enrollment Perl training!
------------------------------
Date: 30 Aug 2001 21:15:37 GMT
From: abigail@foad.org (Abigail)
Subject: Re: Weird @INC if run from web
Message-Id: <slrn9otb7q.v0p.abigail@alexandra.xs4all.nl>
Batara Kesuma (bkesuma@yahoo.com) wrote on MMCMXXI September MCMXCIII in
<URL:news:8a89aec5.0108300200.209ec718@posting.google.com>:
!!
!! But if I go to: http://localhost/mixed/apply.cgi, 500 server error
!! comes out, and the error log in my apache error log is:
!!
!! Can't locate cookie.pl in @INC (@INC contains: /var/www/html/mixed
!! /usr/lib/perl5/5.6.1/i386-linux /usr/lib/perl5/5.6.1
!! /usr/lib/perl5/site_perl/5.6.1/i386-linux
!! /usr/lib/perl5/site_perl/5.6.1
!! /usr/lib/perl5/site_perl/5.6.0/i386-linux
!! /usr/lib/perl5/site_perl/5.6.0 /usr/lib/perl5/site_perl .) at
!! /var/www/html/mixed/apply.cgi line 5.
!! [Thu Aug 30 18:57:09 2001] [error] [client 192.168.0.77] Premature end
!! of script headers: /var/www/html/mixed/apply.cgi
!!
!! What happened? Please help. Thank you very much.
Let me guess, there's no cookie.pl in either of the mentioned directories?
Perhaps you want to use an appropriate 'use lib' statement.
Abigail
--
package Just_another_Perl_Hacker; sub print {($_=$_[0])=~ s/_/ /g;
print } sub __PACKAGE__ { &
print ( __PACKAGE__)} &
__PACKAGE__
( )
------------------------------
Date: 30 Aug 2001 13:28:33 -0700
From: genericax@hotmail.com (Sara)
Subject: Re: Why do tabs eliminate the rest of the line?
Message-Id: <776e0325.0108301228.31c36cfd@posting.google.com>
"Godzilla!" <godzilla@stomp.stomp.tokyo> wrote in message news:<3B8E5308.AA5BC88F@stomp.stomp.tokyo>...
> Homer J Simpson wrote:
>
> > Sara wrote:
>
> (snipped)
>
> > > my $beginc="
> > > *
> > > * JOB#$newjob $today
> > > * $newjob ITEM: $l{LA} PRICE: $l USD
> > > ";
>
> > > where TABS are inserted before $today and ITEM. When this prints I end
> > > up with:
>
> > > *
> > > * JOB#30339
> > > * B3459
>
> > > So it appears that everything after the inserted TAB characters is
> > > erased. Why? By the way this WAS working on another system, and when
> > > we moved to this system (both v 5.6) it stopped working.
>
>
> > It looks more like the values $newjob and $today are empty,
>
> With all variables and the hash reference not initialized / undefined,
> this would still print:
>
> *
> * JOB#
> * ITEM: PRICE: USD
>
>
> Godzilla!
Yes, the constants would still print so that isn't the problem. This
thing is in the middle of a huge script. I'm trying to work out a
small example to post here.
Thanks..
------------------------------
Date: Thu, 30 Aug 2001 13:45:28 -0700
From: "Godzilla!" <godzilla@stomp.stomp.tokyo>
Subject: Re: Why do tabs eliminate the rest of the line?
Message-Id: <3B8EA5E8.3C3B7CD0@stomp.stomp.tokyo>
Sara wrote:
> Godzilla! wrote:
> > Homer J Simpson wrote:
> > > Sara wrote:
(snipped)
> > With all variables and the hash reference not initialized / undefined,
> > this would still print:
> > *
> > * JOB#
> > * ITEM: PRICE: USD
> Yes, the constants would still print so that isn't the problem. This
> thing is in the middle of a huge script. I'm trying to work out a
> small example to post here.
Clearly you have a non-fatal code error at your print stage.
Turn on warnings. This will most likely tell you what is wrong.
My experience is, this type of error, is almost always a small
syntax problem, hiding under your nose. Often, this occurs in
conjunction with an attempt to modify a read only variable or
rogue syntax accessing the last element of an array, without
using a standard [-1] syntax.
I will try to remember and replicate these odd circumstances.
Godzilla!
------------------------------
Date: 30 Aug 2001 13:50:39 -0700
From: genericax@hotmail.com (Sara)
Subject: Re: Why do tabs eliminate the rest of the line?
Message-Id: <776e0325.0108301250.6fba55c5@posting.google.com>
"Godzilla!" <godzilla@stomp.stomp.tokyo> wrote in message news:<3B8E5308.AA5BC88F@stomp.stomp.tokyo>...
> Homer J Simpson wrote:
>
> > Sara wrote:
>
> (snipped)
>
> > > my $beginc="
> > > *
> > > * JOB#$newjob $today
> > > * $newjob ITEM: $l{LA} PRICE: $l USD
> > > ";
>
> > > where TABS are inserted before $today and ITEM. When this prints I end
> > > up with:
>
> > > *
> > > * JOB#30339
> > > * B3459
>
> > > So it appears that everything after the inserted TAB characters is
> > > erased. Why? By the way this WAS working on another system, and when
> > > we moved to this system (both v 5.6) it stopped working.
>
>
> > It looks more like the values $newjob and $today are empty,
>
> With all variables and the hash reference not initialized / undefined,
> this would still print:
>
> *
> * JOB#
> * ITEM: PRICE: USD
>
>
> Godzilla!
OK, I'm not sure if thie helps, but here are the last portion of the
buffer contents I'm printing to a flatfile, as shown in the debugger:
\cJ*******************************************************************\cJ*\cJ*
TEST PROGRAM VERSION: 1\cI\cIVERSION: 1.0A.1\cJ* CREATED
evrything after the \cI chars vanishes in the flatfile.
HOWEVER... Now I'm runing the same code and everything is FINE again..
GRRRRRRRR What is going on?? Is it possible that TAB lengths could be
changing somehow or becoming undefined so that sometimes this works
and other times not?
Thank-You.
------------------------------
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 1661
***************************************
