[10767] in Perl-Users-Digest
Perl-Users Digest, Issue: 4368 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sun Dec 6 15:07:18 1998
Date: Sun, 6 Dec 98 12:00:24 -0800
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Sun, 6 Dec 1998 Volume: 8 Number: 4368
Today's topics:
Re: "Double" variable interpolation? (Ilya Zakharevich)
Re: "Double" variable interpolation? (Ilya Zakharevich)
Re: Animals and Perl (was Re: newbie file open question <merlyn@stonehenge.com>
Re: Beginner Book? mellowmark@my-dejanews.com
can't use Expect.pm <avitala@macs.biu.ac.il>
Re: CGI Redirection <merlyn@stonehenge.com>
Re: CGI Redirection <flavell@mail.cern.ch>
flock in FileHandle.pm? <bg@jojo.in-berlin.de>
help, what's wrong with this very simple prog? sebasti@aol.com
Multiple matches on one string <gewing@wharton.upenn.edu>
Re: Multiple matches on one string (Tad McClellan)
Re: newbie question searching string with =~ (David Alan Black)
newbie; How do I... <shagi@globalserve.net>
Re: newbie; How do I... (Nicholas Pappas)
NT... outlook express lock the file and doesn't unlock. <listone@ccsnet.co.kr>
Perl and Mac Characters <sramchar@centernet.ca>
perl and mac characters <sramchar@centernet.ca>
Re: perl and mac characters <flavell@mail.cern.ch>
Re: Perlshop Customization Questions ptimmins@netserv.unmc.edu
split questions <dat96gln@student3.lu.se>
Re: split questions <gellyfish@btinternet.com>
system() hangs server on win95? need to spawn process? <dtbaker-@busprod.com>
Re: Tool to reverse engineer perl code <microgold@pipeline.com>
Wanted: Win32 GetGroups function <pkeefe@ix.netcom.com>
Re: what sendmail under NT <gellyfish@btinternet.com>
Special: Digest Administrivia (Last modified: 12 Mar 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 6 Dec 1998 19:23:10 GMT
From: ilya@math.ohio-state.edu (Ilya Zakharevich)
Subject: Re: "Double" variable interpolation?
Message-Id: <74eliu$c7q$1@mathserv.mps.ohio-state.edu>
[A complimentary Cc of this posting was sent to Michael R Weholt
<awnbreel@panix.com>],
who wrote in article <74dq70$ts_004@mrw.panix.com>:
> $key = join '', 'q', $i;
Extraneous join() considered harmful. Use `.', or "q$i" - they you do
not need a tmp var at all.
Ilya
------------------------------
Date: 6 Dec 1998 19:24:49 GMT
From: ilya@math.ohio-state.edu (Ilya Zakharevich)
Subject: Re: "Double" variable interpolation?
Message-Id: <74elm1$cb3$1@mathserv.mps.ohio-state.edu>
[A complimentary Cc of this posting was sent to Jonathan Stowe
<gellyfish@btinternet.com>],
who wrote in article <74dqm7$bd$1@gellyfish.btinternet.com>:
> You dont need all of that extra quoting and string catenation - if it makes
> you happier to have quotes around the key of the hash then you can use
> generalized quoting thus:
>
> $question = qq|$in{"q$i"}|;
What's the added value over
$question = $in{"q$i"};
?!
Ilya
------------------------------
Date: Sun, 06 Dec 1998 14:49:22 GMT
From: Randal Schwartz <merlyn@stonehenge.com>
Subject: Re: Animals and Perl (was Re: newbie file open question)
Message-Id: <8chfv972cb.fsf@gadget.cscaper.com>
>>>>> "Fluffy" == Fluffy <gerglery@usa.net> writes:
Fluffy> Jonathan Stowe <gellyfish@btinternet.com> wrote:
>> This gives rise to another thought regarding an earlier thread -
>> would a dog walking on the keyboard produce better Perl than a cat ?
Fluffy> Ha! Dogs can't program for beans.
On the Internet, no one knows that you're a programmer.
:-)
--
Name: Randal L. Schwartz / Stonehenge Consulting Services (503)777-0095
Keywords: Perl training, UNIX[tm] consulting, video production, skiing, flying
Email: <merlyn@stonehenge.com> Snail: (Call) PGP-Key: (finger merlyn@teleport.com)
Web: <A HREF="http://www.stonehenge.com/merlyn/">My Home Page!</A>
Quote: "I'm telling you, if I could have five lines in my .sig, I would!" -- me
------------------------------
Date: Sun, 06 Dec 1998 14:59:29 GMT
From: mellowmark@my-dejanews.com
Subject: Re: Beginner Book?
Message-Id: <74e64h$fg5$1@nnrp1.dejanews.com>
In article <72qh3l$gc1$1@nnrp1.dejanews.com>,
paulwade@my-dejanews.com wrote:
> In article <3650788e.14819289@news.newsguy.com>,
> jeff.kennedy@natdecsys.com (Jeff Kennedy) wrote:
> > I need a book geared to an ABSOLUTE BEGINNER! No perl experience, no
> > programming experience, no real shell scripting experience.
> >
> > What would I be looking for? Not something that assumes I know
> > anything!
> >
>
> Probably something like "Perl 5 for Dummies" by Paul E. Hoffman. There are
> reviews and comments as well as a table of contents for this book at:
> http://www.amazon.com/exec/obidos/ASIN/0764500449/bibs/
>
> Alternatively, something like "Programming Perl" by Larry Wall, may also be
> good. I suggest you compare the reviews and comments of these 2 books and that
> may help you to decide. For reviews of the Larry Wall book , the page is:
> http://www.amazon.com/exec/obidos/ASIN/1565921496/bibs/
>
> Hope this helps you,
>
> Paul.
Depends if you like the particular 'style' of the for dummies books. Not
eveybody does, although some people love them! (I however, am not a fan)
The Larry Wall book is good though.
Mark.
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Sun, 6 Dec 1998 18:21:17 +0200
From: "avshalom avital" <avitala@macs.biu.ac.il>
Subject: can't use Expect.pm
Message-Id: <74eb03$khk$1@news.ibm.net.il>
hi all,
I downloaded the Expect module and installed it.
after running anything with:
use Expect;
it required Tty.pm and Pty.pm (what are those?) so I downloaded and
installed them too.
I verified that all three 'Expect.pm', 'Tty.pm', and 'Pty.pm' are alive and
breathing at @INC/IO
(@INC being one of the paths in there).
now I'm getting:
"can't locate lodable object for module IO::Tty in @INC"
so thats it, I'm out of ideas.
is there a complete Expect module out there? (that is, something you unzip,
install and run, and it *runs*).
I'd be very greatful for any help.
also, if by any chance someone has that has used Expect can donate a working
example script I'd be very thankfull.
thanx, avshi.
------------------------------
Date: Sun, 06 Dec 1998 14:51:04 GMT
From: Randal Schwartz <merlyn@stonehenge.com>
Subject: Re: CGI Redirection
Message-Id: <8cemqd729h.fsf@gadget.cscaper.com>
>>>>> "Aslan00001" == Aslan00001 <aslan00001@aol.comCUTTHIS> writes:
Aslan00001> Your best bet to do this.. is to just simply use html...
Aslan00001> ie:
Aslan00001> <meta http-equiv="Refresh" content="4; url=http://www.ramapo.edu">
Aslan00001> where 4 is the time till redirect and you place in the appropriate web page to
Aslan00001> contact.
You've got a typo there. You spelled "worst" as "b e s t". Better
fix your spell checker.
There are many ways to solve this... client-pull is the *least*
satisfactory, and should be used only as a last resort.
But that's an issue for the c.i.w.a.* groups, not here.
--
Name: Randal L. Schwartz / Stonehenge Consulting Services (503)777-0095
Keywords: Perl training, UNIX[tm] consulting, video production, skiing, flying
Email: <merlyn@stonehenge.com> Snail: (Call) PGP-Key: (finger merlyn@teleport.com)
Web: <A HREF="http://www.stonehenge.com/merlyn/">My Home Page!</A>
Quote: "I'm telling you, if I could have five lines in my .sig, I would!" -- me
------------------------------
Date: Sun, 6 Dec 1998 16:28:03 +0100
From: "Alan J. Flavell" <flavell@mail.cern.ch>
Subject: Re: CGI Redirection
Message-Id: <Pine.HPP.3.95a.981206161306.26554E-100000@hpplus01.cern.ch>
On 6 Dec 1998, Aslan00001 wrote:
> Your best bet to do this.. is to just simply use html...
> ie:
> <meta http-equiv="Refresh" content="4; url=http://www.ramapo.edu">
I suppose there is some natural law that explains why there's a
semi-infinite supply of informants who have to lever this non-solution
into every conceivable problem, even in a case like this where the
questioner seemingly wanted the proper answer (although they would have
done better to ask the comp.infosystems.www.authoring.cgi group, if they
hadn't managed to find the answer already from its FAQ-like resources).
> If you wish to do this in cgi.. using perl.. simple dump and empty page to the
> screen with the redirct time set to 0.
Two quick and easy steps to confusion:
1. Create yourself an unnecessary problem (in this case, an unnecessary
empty HTML page that you didn't need)
2. Find a vendor-defined "solution" to the problem that wasn't
there until you created it.
(I'm glad to see that the informant then quoted what appeared to be the
entire original article, complete with sig: the almost infallible usenet
bogosity marker. So, fortunately, most usenauts will know not to take
you seriously; but it's a pity about newcomers who might get misled).
I see that better answers have already been provided, even though it's
off topic for this group. Also, one can look under "Location" in the
CGI spec at http://hoohoo.ncsa.uiuc.edu/cgi/out.html
--
After all, the domain of errors is unbounded, and we know
the universe quite efficiently produces better idiots;) - :ar
------------------------------
Date: Sun, 06 Dec 1998 12:32:10 +0100
From: Bernhard Graf <bg@jojo.in-berlin.de>
Subject: flock in FileHandle.pm?
Message-Id: <366A6B3A.99016998@jojo.in-berlin.de>
How do I use flock together with FileHandle.pm?
E.g. $fh->flock(1) does not work.
Ciao
--
Bernhard Graf <bg@jojo.in-berlin.de>
------------------------------
Date: Sun, 06 Dec 1998 19:35:59 GMT
From: sebasti@aol.com
Subject: help, what's wrong with this very simple prog?
Message-Id: <74emav$saq$1@nnrp1.dejanews.com>
hi,
i'm brand new to this lang. I'm trying to write a simple prog to open an
ascii file, read from it and write it to the screen. The code is listed
below. When I attempt to run from MS-DOS prompt, it continues to flag a
syntax error line 13, near "}" I'm on Win-95 OS using Perl distribution
which I retrieved from the www.perl.com site. The Perl version is 5.004_02
thanks in advance,
JS...
#
# Filename: PROG1.PL
# Description: This perl program opens the file CSES.DMP which it assumes
# exists in the current directory. Reads from the file and
# write's its output to STDOUT.
# open the file
open (INFILE,"CSES.DMP") or die "Can't open CSES.DMP file. Error code: $!\n"
while ($inline = <INFILE>)
{
print $inline;
}
close INFILE;
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Sun, 06 Dec 1998 10:24:15 -0500
From: Greg Ewing <gewing@wharton.upenn.edu>
Subject: Multiple matches on one string
Message-Id: <366AA19E.CCC3AAC6@wharton.upenn.edu>
I'm sure I've seen this posted before but it isn't in the FAQ so I'm
sorry to have to ask it again.
I am reading in input from a file and want to be able to match more then
one section per line. Is there a way to do that or do I have to edit my
input file to wrap the text? Here is the script I have so far, like I
said it only matches once in $_ before moving on.
while (<IN>)
{
if (/morphindex/)
{
$loc_b = index("$_", "lookup") + 7;
$loc_e = index("$_", "display") - 1;
$length = $loc_e - $loc_b;
print "$loc_b - $length\n";
print OUT substr($_, $loc_b, $length);
print OUT "\n";
}
}
--
----
Greg Ewing
gewing@sas.upenn.edu
------------------------------
Date: Sun, 6 Dec 1998 12:04:01 -0600
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: Multiple matches on one string
Message-Id: <huge47.atf.ln@metronet.com>
Greg Ewing (gewing@wharton.upenn.edu) wrote:
: I'm sure I've seen this posted before
You can look up past postings at a Usenet archive such as:
http://wwww.dejanews.com
: but it isn't in the FAQ so I'm
But it *is* in the description of the operator that you are
using.
There are many other docs that came with your perl distribution
in addition to the FAQs.
: sorry to have to ask it again.
You didn't *have* to ask it again.
: if (/morphindex/)
The 'perlop' man page describes Perl's operators, including
the one that you are using there.
You should *first* (even before the FAQs) read the docs
relevant to the part of perl that you are using:
---------------------------------
=item m/PATTERN/cgimosx
=item /PATTERN/cgimosx
Searches a string for a pattern match, and in scalar context returns
true (1) or false (''). If no string is specified via the C<=~> or
C<!~> operator, the $_ string is searched. (The string specified with
C<=~> need not be an lvalue--it may be the result of an expression
evaluation, but remember the C<=~> binds rather tightly.) See also
L<perlre>.
See L<perllocale> for discussion of additional considerations that apply
when C<use locale> is in effect.
Options are:
c Do not reset search position on a failed match when /g is in effect.
g Match globally, i.e., find all occurrences.
---------------------------------
And there you go.
Using the docs already installed on your hard
disk would have gotten you the answer in about 30 seconds.
How many seconds did you wait to get this reply?
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: 6 Dec 1998 10:17:50 -0500
From: dblack@pilot.njin.net (David Alan Black)
Subject: Re: newbie question searching string with =~
Message-Id: <74e76u$c01$1@pilot.njin.net>
Hello -
Brent Michalski <perlguy@technologist.com> writes:
>I'd do this a little different. Try this:
>#get search term
>print "Enter search term: ";
>$FindThis = <STDIN>;
>chomp $FindThis;
>#read line by line through logfile for search term
> foreach (@fileinput) {
> print "$fileinput[$i]\n" if(/$FindThis/i);
> }
I think you mean:
print if /$FindThis/i;
since you're using $_ as the loop variable, and since the logfile's
lines will presumably already end with \n. (The [$i] is a holdover
from the code you were rewriting :-)
Another possibility, rather than the foreach loop:
print grep /$FindThis/i, @fileinput;
David Black
dblack@pilot.njin.net
------------------------------
Date: Sun, 6 Dec 1998 12:01:15 -0500
From: "new guy" <shagi@globalserve.net>
Subject: newbie; How do I...
Message-Id: <74edqn$im9$1@whisper.globalserve.net>
How do I make a cgi-bin Dir..?
I understand that (so far) I make it by
typing "mkdir cgi-bin" right?
while in my www Dir.. BUT what's my www Dir..?
Where do I "make" the cgi-dir?
thanks, Steve
------------------------------
Date: Sun, 06 Dec 1998 18:27:06 GMT
From: nick@rightstep.org (Nicholas Pappas)
Subject: Re: newbie; How do I...
Message-Id: <366acc16.15763899@news.enterzone.net>
This all depends on the server that you are on. Some servers
have a specific spot for scripts, some servers allow you to have them
anywhere you want.
The 'www' directory you are asking about is the directory in
which all your webfiles are located. Your cgi-bin will probobly go
under there (but, again, it depends on the server you are on).
I would write your server administrator and ask him. They are
the only ones that can tell you (for sure) exactly how to set things
up.
Nick
On Sun, 6 Dec 1998 12:01:15 -0500, "new guy" <shagi@globalserve.net>
wrote:
>How do I make a cgi-bin Dir..?
>I understand that (so far) I make it by
>typing "mkdir cgi-bin" right?
>
>while in my www Dir.. BUT what's my www Dir..?
>Where do I "make" the cgi-dir?
>
>thanks, Steve
>
>
------------------------------
Date: Sun, 6 Dec 1998 22:59:47 +0900
From: "J.Leigh" <listone@ccsnet.co.kr>
Subject: NT... outlook express lock the file and doesn't unlock..
Message-Id: <75wa2.970$3n3.1600@news.bora.net>
I tried to make the program to send mail without using external mailer
program.
I used the module and tested like this..
---------------- test program -------------------
#!/perl
use SendMail;
$sm = new SendMail("mail.test.com");
$sm->setDebug($sm->ON);
$sm->From("Name <test@test.com>");
$sm->Subject("test");
$sm->To("Name <test\@test.com>");
$sm->setMailBody("test data^z");
if ($sm->sendMail() != 0) {
print $sm->{'error'}."\n";
exit -1;
}
print "Done\n\n";
exit 0;
------------------------------------------------------
when I read the message using netscape I don't have any problem.
But when I use the outlook express mail reader, system(NT Server) lock my
mail
folder - I could see the $Lockfile in my mail folder, and doesn't unlock my
mail folder.
So, I have to reboot and disconnect my lines to unlock and ask my supervisor
to clean my
mail folder.
Is anybody who solve my problem???
------------------------------
Date: Sun, 06 Dec 1998 12:25:38 -0800
From: Steve Nite <sramchar@centernet.ca>
Subject: Perl and Mac Characters
Message-Id: <366AE842.5E06@centernet.ca>
Whenever I try to use a mac to run a cgi script to produce an html
document, the mac produces special characters that look like an
apostrophy(') on the mac but a question mark(?) on a pc.
How can I translate that character so that it is constantly an
apostrophy, which is what it should be.
------------------------------
Date: Sun, 06 Dec 1998 12:59:30 -0800
From: Steve Nite <sramchar@centernet.ca>
Subject: perl and mac characters
Message-Id: <366AF032.808@centernet.ca>
Whenever I use a mac to produce an html docoment, characters are
produced to look like an apostrophy('), but look like a question mark(?)
on the pc. How can I use perl to translate the characters to look
consistantly like an apostrophy(').
------------------------------
Date: Sun, 6 Dec 1998 20:09:08 +0100
From: "Alan J. Flavell" <flavell@mail.cern.ch>
Subject: Re: perl and mac characters
Message-Id: <Pine.HPP.3.95a.981206193203.26554H-100000@hpplus01.cern.ch>
On Sun, 6 Dec 1998, Steve Nite wrote: (twice)
> Whenever I use a mac to produce an html docoment, characters are
> produced to look like an apostrophy('), but look like a question mark(?)
> on the pc.
It sounds as if you are producing one of the Mac's "clever" quotes, in
its own native coding. Are you sure that this is what you want?
> How can I use perl to translate the characters to look
> consistantly like an apostrophy(').
It isn't what it _looks_ like that matters, it's what it really _is_, in
terms of its character code, and if you want a us-ascii apostrophe, then
that's what you want. Even the Mac and the PC agree over that.
I think we need to know just what it is you're aiming to achieve,
or whether you've just stumbled into an (un)friendly editor that is
bludgeoning your input from standard ASCII into not very standard
want-to-be-clever single-quotes.
Please don't pay too much attention to the following musings. In the
8-bit character codings (e.g iso-8859-*) that are used on the WWW, these
clever-quote characters don't exist. Microsoft use undefined HTML
constructions to represent them; standard HTML (per RFC2070 and HTML4.0)
has bona fide ways of representing them, but the mass-market browsers
were slow to implement that, as usual. So I suspect that your best
option for now is to go back to the plain ASCII characters that
everyone can agree on.
Musings start...
The MacPerlFAQ (copy at your nearest CPAN) has a short section on
character coding issues. Hmmm, I seem to be on a different waveband
than whoever wrote this:
Portability of code (from platform to platform, and on the Macintosh
from font to font) would be compromised, if the extended characters
were used within the \w, \W matches. A set of characters may be
constructed on an ad hoc basis by encoding the characters as their hex
values e.g. \xa9.
That seems quite illogical to me. If your perl source is encoded in the
native character set of the platform on which it's running, and
processing data from that same platform, then writing \xa9 is
counterproductive, since it means different things depending on which
platform you're currently running on. You should be writing the native
character, whatever it is, and taking care to map the character coding
of your perl script when you transfer it to a different platform.
In reality, you'd not only be transferring the Perl source code between
platforms, you'd likely be using it to process data from other
platforms. So, in general one needs a more versatile mechanism than
_either_ of the obvious strategems of coding the native characters or
coding their supposed hex values. The MIME charset comes into this,
of course, and that's where you'd want to avoid reinventing the wheel
by using an appropriate module.
Thinks: it would be a good exercise to run Perl on an EBCDIC-based
platform.
--
After all, the domain of errors is unbounded, and we know
the universe quite efficiently produces better idiots;) - :ar
------------------------------
Date: Sun, 06 Dec 1998 19:19:42 GMT
From: ptimmins@netserv.unmc.edu
Subject: Re: Perlshop Customization Questions
Message-Id: <74elcd$re9$1@nnrp1.dejanews.com>
In article <74d9t8$pvp$1@nnrp1.dejanews.com>,
lsmhqhc@hotmail.com wrote:
> Hi folks,
>
> I would like to know if and how I can make the following changes to Perlshop
> (shopping cart):
>
> 1. Flat shipping rate for orders under $200 and free shipping for orders over
> $200.
>
> 2. Adding a "Back to Homepage" button to the order confirmation page. It's a
> dead end, the user can't do anything from there.
[snip]
I don't know for sure ... maybe ... but your computer could blow up if you
do something wrong. Personally, I don't think it's worth the risk.
Patrick Timmins
$monger{Omaha}[0]
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Sun, 06 Dec 1998 14:56:58 +0100
From: Gunnar Lindholm <dat96gln@student3.lu.se>
Subject: split questions
Message-Id: <366A8D2A.4C02@student3.lu.se>
Hello.
I wish to split a string $line into some interesting parts,
the parts that I wish to save can be described by
the regular expression RE1
shoud this then be done by
@useful=split(/[^(RE1)]/,$line)
or is there another way?
Gunnar.
By the way:
Is there a language like perl+pascal ?
I like perl, but I would like to have some elements from pascal...
------------------------------
Date: 6 Dec 1998 14:58:27 -0000
From: Jonathan Stowe <gellyfish@btinternet.com>
Subject: Re: split questions
Message-Id: <74e62j$qg$1@gellyfish.btinternet.com>
On Sun, 06 Dec 1998 14:56:58 +0100 Gunnar Lindholm <dat96gln@student3.lu.se> wrote:
> Hello.
> I wish to split a string $line into some interesting parts,
> the parts that I wish to save can be described by
> the regular expression RE1
> shoud this then be done by
>
> @useful=split(/[^(RE1)]/,$line)
>
if you want to save those items that are matched but not delimited by RE1
you probably would be better off with something like:
$line = "feeghyyfieyygjfoh7775fum";
@useful = ($line =~ /f\w{2}/g);
print join "\n",@useful;
which will produce
fee
fie
foh
fum
Your approach of splitting on anything that does not match your pattern
could conceivably work if one could frame a regex that could describe that -
one of the form in your example will not work because the [] square brackets
are a character class and therefore stands for a class of individual
characters - the round brackets here have no special meaning.
/J\
--
Jonathan Stowe <jns@btinternet.com>
Some of your questions answered:
<URL:http://www.btinternet.com/~gellyfish/resources/wwwfaq.htm>
Hastings: <URL:http://www.newhoo.com/Regional/UK/England/East_Sussex/Hastings>
------------------------------
Date: Sun, 06 Dec 1998 08:34:27 -0600
From: Dan Baker <dtbaker-@busprod.com>
Subject: system() hangs server on win95? need to spawn process?
Message-Id: <366A95F3.DB7372BE@busprod.com>
I'm working on a little script that will be called from a HTML page with
either GET or POST, passed a filename, and will open up the file in
notepad.exe in win32 (windows95).
The problem I'm having is that the script opens up the file in notepad,
but then times-out on my local server. I'm guessing that the system()
call doesn't spawn a new process, so the perl script waits for the
notepad to close, which times out the server if it is open for more than
2 seconds.
what is the solution?
I found reference to a win32 extension in the Oreilly "learning perl on
win32" and it includes a function called Spawn that looks like it might
do the job, but I thought I'd ask the group. Also, I looked for the
win32.pm in my installation without success.... is this something
separate I need to download from CPAN? Seems like it should be included
in the win32 download of perl....
--
Thanx, Dan
# If you would like to reply-to directly, remove the - from my username
* no spam please... regulated by US Code Title 47, Sec.227(a)(2)(B) *
------------------------------
Date: Sun, 6 Dec 1998 11:43:39 -0500
From: "Michael Gold" <microgold@pipeline.com>
Subject: Re: Tool to reverse engineer perl code
Message-Id: <74edlt$u7p$1@camel21.mindspring.com>
drkeith@bway.net wrote in message <749b1s$km9$1@nnrp1.dejanews.com>...
>I was just searching for the same thing -- a tool for analyzing perl
>application -- required files, sub-routines & data members, inputs,
outputs,
>etc & generating HTML documentation a la javadoc. Anything exist already?
>I've seen debuggers, but I'm wanting to document working apps.
>
>Thanks,
>
>David Keith
>
>In article <744g8p$7e7$1@bcarh8ab.ca.nortel.com>,
> "Steve Walsh" <swalsh@americasm01.nt.com> wrote:
>> Has anyone on this list come across a reverse engineering tool that will
>> take perl code as input and generate data diagrams, process diagrams
>> (flowcharts), etc. I know that there are lots of software tools available
>> that do this for Java, C++, etc but I would like to find one that I can
use
>> with perl or is customizable to allow me to add perl in as a supported
>> language. If you know of such a tool please email with details. Thank
you.
>>
>> Steve Walsh
>> swalsh@americasm01.nt.com
>>
>>
>
It should be possible to use WithClass 98 to do this. WithClass is a UML
design
tool with a VBA scripting language built in that has support for reverse
engineering
in any language and also the ability to automate the drawing of diagrams.
If you
send us a sample of the type of code you want reversed we would be excited
to
try to write an automation script that would allow the drawing of a diagram
from
Perl. (object, state, activity). We will then post the script here. If
you'd like to try
it yourself you can download a trial version of the product at
http://www.microgold.com
Look for the vba version.
-Mike Gold
MicroGOLD Software
Developer
>-----------== Posted via Deja News, The Discussion Network ==----------
>http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Sun, 6 Dec 1998 11:29:39 -0500
From: "Pete Keefe" <pkeefe@ix.netcom.com>
Subject: Wanted: Win32 GetGroups function
Message-Id: <74ebb4$r8c@dfw-ixnews9.ix.netcom.com>
Neither Win32::NetAdmin or Win32::AdminMisc have a function for list the
groups that have been setup in an NT domain or on a local machine. Can
someone tell me if this is possible to do and if so point me in the right
direction?
Thanks
Pete Keefe
mailto:pkeefe@ix.netcom.com
------------------------------
Date: 6 Dec 1998 13:59:50 -0000
From: Jonathan Stowe <gellyfish@btinternet.com>
Subject: Re: what sendmail under NT
Message-Id: <74e2km$l9$1@gellyfish.btinternet.com>
On Sun, 6 Dec 1998 07:54:23 -0500 marshman <nospamm@deleteme> wrote:
> I'm curious,
> I am from the Unix world trying to find NT info.
> What are most Perl professionals using for 'sendmail' under the NT
> environment?
>
There are a variety of options - some of which are outlined in perlfaq9
There are ports of sendmail for NT (one which is free is available from
microsofts FTP site).
There is also 'blat' which is a command line mailer for Win32 - I have used
it occasionally.
I have knocked together a <hiss> Java mailer that could be made to have
a similar interface as sendmail when used as a mailer in another program.
I tend to use Net::SMTP and the Mail::* modules as described in the FAQ - but
this does rather rely on having a reliable SMTP MTA (such as sendmail)
vailable on your network. This issue does seem to cause a little excitement
around here from time to time so you might want to search DejaNews to get
some background here.
You may want to ask this question in a newsgroup that is specifically about
mail if you want to get a broader view on this though.
/J\
--
Jonathan Stowe <jns@btinternet.com>
Some of your questions answered:
<URL:http://www.btinternet.com/~gellyfish/resources/wwwfaq.htm>
Hastings: <URL:http://www.newhoo.com/Regional/UK/England/East_Sussex/Hastings>
------------------------------
Date: 12 Jul 98 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Special: Digest Administrivia (Last modified: 12 Mar 98)
Message-Id: <null>
Administrivia:
Special notice: in a few days, the new group comp.lang.perl.moderated
should be formed. I would rather not support two different groups, and I
know of no other plans to create a digested moderated group. This leaves
me with two options: 1) keep on with this group 2) change to the
moderated one.
If you have opinions on this, send them to
perl-users-request@ruby.oce.orst.edu.
The Perl-Users Digest is a retransmission of the USENET newsgroup
comp.lang.perl.misc. For subscription or unsubscription requests, send
the single line:
subscribe perl-users
or:
unsubscribe perl-users
to almanac@ruby.oce.orst.edu.
To submit articles to comp.lang.perl.misc (and this Digest), send your
article to perl-users@ruby.oce.orst.edu.
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
To request back copies (available for a week or so), send your request
to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
where x is the volume number and y is the issue number.
The Meta-FAQ, an article containing information about the FAQ, is
available by requesting "send perl-users meta-faq". The real FAQ, as it
appeared last in the newsgroup, can be retrieved with the request "send
perl-users FAQ". Due to their sizes, neither the Meta-FAQ nor the FAQ
are included in the digest.
The "mini-FAQ", which is an updated version of the Meta-FAQ, is
available by requesting "send perl-users mini-faq". It appears twice
weekly in the group, but is not distributed in the digest.
For other requests pertaining to the digest, send mail to
perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
sending perl questions to the -request address, I don't have time to
answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V8 Issue 4368
**************************************
