[12040] in Perl-Users-Digest
Perl-Users Digest, Issue: 5641 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed May 12 14:13:20 1999
Date: Wed, 12 May 99 11:01:32 -0700
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Wed, 12 May 1999 Volume: 8 Number: 5641
Today's topics:
Re: Need a little looping help todd_b_smith@my-dejanews.com
Re: Need a little looping help todd_b_smith@my-dejanews.com
Need help to modify this form mailer cgi. <mrblue@pd.jaring.my>
no street MIME's this time <gbartels@xli.com>
perldoc question tbsmith@deltacom.net
reading a text file backwards vinh.bui@medstat.com
Re: reading a text file backwards <jshapir@uswest.com>
Registry Trawling within IIS <duncan.fullerton@saudibank.com>
Re: send a PDF file (Charles R. Thompson)
Re: sendmail misbehaving <anfi@bigfoot.com>
Re: sendmail misbehaving (Greg Bacon)
Re: sendmail misbehaving <anfi@bigfoot.com>
Re: Sorting is too slow for finding top N keys... - GOT (Marko R. Riedel)
Re: sub return undef @array ? <emschwar@rmi.net>
Re: Ten Tips toward *DIVERSITY COMPLIANCE* in Web Desig <tchrist@mox.perl.com>
Re: un esprit lisp dans un corps C (Marko R. Riedel)
Win32::ODBC and Access Date & Boolean Fields <Ripp@newsguy.com>
Re: Win32::ODBC and Access Date & Boolean Fields <hartleh1@westat.com>
Re: xterm like window/console dev environment for Windo zenin@bawdycaste.org
Re: xterm like window/console dev environment for Windo <tgray@smlny.com>
Special: Digest Administrivia (Last modified: 12 Dec 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Wed, 12 May 1999 16:39:53 GMT
From: todd_b_smith@my-dejanews.com
Subject: Re: Need a little looping help
Message-Id: <7hcaso$ck3$1@nnrp1.deja.com>
In article <m1so93jaih.fsf@halfdome.holdit.com>,
merlyn@stonehenge.com (Randal L. Schwartz) wrote:
> >>>>> "todd" == todd b smith <todd_b_smith@my-dejanews.com> writes:
>
> todd> So if anyone wants to help, I'm asking "What's wrong with
> todd> this?", not "How should I be writing this?"
>
> Well, first, "what's wrong with this" is you shouldn't be using
> 20 nested for loops.
>
> But if you insist, the biggest problem is that you need to eval
> an entire compilation unit in one stretch. If you start a for
> loop, you need to end that same for loop.
>
> Here's a nested for-loop, 5 levels, with an eval:
>
> my @vars = map "\$$_", (zz01..zz05);
> my $code = qq(print "@vars\\n";\n);
> for (reverse @vars) {
> $code = qq(for $_ (1..2) \{\n).indent($code).qq(\}\n);
> }
> print $code;
> eval $code;
> sub indent { join "", map " $_\n", split /\n/, $_[0] }
>
> Change zz05 to zz20, and it'll still work; you'll just have to wait
> longer.
Thanks. This was the first real answer I've gotten. I appreciate it.
>
> print "Just another Perl hacker,"
>
> --
> 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
>
--== Sent via Deja.com http://www.deja.com/ ==--
---Share what you know. Learn what you don't.---
------------------------------
Date: Wed, 12 May 1999 16:50:48 GMT
From: todd_b_smith@my-dejanews.com
Subject: Re: Need a little looping help
Message-Id: <7hcbh6$d5a$1@nnrp1.deja.com>
In article <1drnvdb.1epbav7ri1kr3N@[207.60.170.146]>,
rjk@linguist.dartmouth.edu (Ronald J Kimball) wrote:
> <todd_b_smith@my-dejanews.com> wrote:
>
> > So if anyone wants to help, I'm asking "What's wrong with this?",
not
> > "How should I be writing this?"
>
> Okay, here's "what's wrong with this": You can't compile and run just
> part of a Perl script!
>
> Still don't get it? What do you suppose Perl will do with the
following?
>
> #!perl
> for $a (1 .. 5) {
> for $b (1 .. 5) {
> for $c (1 .. 5) {
> __END__
I must have been having weird pre-processing day dreams about 'eval.'
my bad.
>
> --
> #!/usr/bin/sh -- chipmunk (aka Ronald J Kimball)
> perl -e'for(sort keys%main::){print if $$_ eq 1}
> ' -s -- -' Just' -' another ' -'Perl ' -'hacker
> ' http://www.tiac.net/users/chipmunk/ [rjk@linguist.dartmouth.edu]
>
--== Sent via Deja.com http://www.deja.com/ ==--
---Share what you know. Learn what you don't.---
------------------------------
Date: Thu, 13 May 1999 01:21:48 +0800
From: "Blue" <mrblue@pd.jaring.my>
Subject: Need help to modify this form mailer cgi.
Message-Id: <7hcdcf$jen$1@news5.jaring.my>
Below is a simple form mailer cgi.
It checks the required fields, validates email address and finally sends the
results to the site owner and give sender a thankyou page.
I would like to know how to modify this script so that it would also send
the sender a copy of the result (that they have submitted).
Thank you.
#!/usr/bin/perl
# Enter the location of sendmail.
$mailprogram = "/usr/lib/sendmail -t";
# Enter the fields that are required. They should each be in quotes and
# separated by a comma. If no fields are required, change the next line
# to @required = ();
@required = ('email','subject');
# Enter your e-mail address. Be sure to put a \ in front of the @.
# (user@domain.com becomes user\@domain.com)
$youremail = "yourname\@yourdomain.com";
# Put the posted data into variables
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$FORM{$name} = $value;
}
# Check for all required fields
foreach $check(@required) {
unless ($FORM{$check}) {
print "Content-type: text/html\n\n";
print "<html><head><title>Missing
Information</title></head>\n";
print "<body><h1>Missing Information</h1><br>\n";
print "I'm sorry, but it would appear that you've forgotten
to\n";
print "fill out the $check field. Please click\n";
print "back and try again.\n";
print "</body></html>\n";
exit;
}
}
# Check the senders email
if ($FORM{'email'}) {
unless ($FORM{'email'} =~ /\w+@\w+.\w+/) {
print "Content-type: text/html\n\n";
print "<html><head><title>Bad E-mail</title></head>\n";
print "<body><h1>Bad E-mail</h1><br>The e-mail address that
you've\n";
print "entered, $FORM{'email'}, is invalid. Please click
back and\n";
print "try again.\n";
exit;
}
}
open (MAIL,"|$mailprogram");
print MAIL "To: $youremail\n";
print MAIL "From: $FORM{'email'}\n";
print MAIL "Subject: $FORM{'subject'}\n";
print MAIL "Hello. The following information has been submitted:\n\n";
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
unless ($name eq "response" || $name eq "email" || $name eq
"subject")
print MAIL "$name: $value\n";
}
}
close MAIL;
if ($FORM{'response'} && $FORM{'email'}) {
open (RESPONSE, $FORM{'response'});
@response = <RESPONSE>;
close(RESPONSE);
open (MAIL,"|$mailprogram");
print MAIL "To: $FORM{'email'}\n";
print MAIL "From: $youremail\n";
print MAIL "Subject: $FORM{'subject'} -- Autoresponse\n";
foreach $line (@response) {
print MAIL "$line";
}
print MAIL "The person you are communicating with is using
Cliff's\n";
print MAIL "Form Mailer Script. If you would like to add this
script\n";
print MAIL "to your web site, you can find it and many more perl
scripts at\n";
print MAIL "http://www.shavenferret.com/scripts\n";
close MAIL;
}
print "Content-type: text/html\n\n";
print "<html><head><title>Thank you!</title></head>\n";
print "<body><h1>Thank you!</h1><br>Thanks for your input! \n";
if ($FORM{'response'} && $FORM{'email'}) {
print "You should receive an autoresponse shortly.<p>\n";
}
print "Please click back.\n";
------------------------------
Date: Wed, 12 May 1999 12:18:38 -0400
From: Greg Bartels <gbartels@xli.com>
Subject: no street MIME's this time
Message-Id: <3739A9DE.3EAC5F85@xli.com>
#!/usr/local/bin/perl -w
use strict;
{
package magic_pkg;
sub TIESCALAR
{
my ($class,$val)=@_;
my $rhash={'val'=>$val);
return bless $rhash, 'magic_pkg';
}
sub STORE
{ my($w)=@_;
$w->{'val'} = "Success. var is tied\n";}
sub FETCH
{my($w)=@_;return $w->{'val'};}
sub magic_tie
{tie $_[0], 'magic_pkg', @_[1..$#_];}
sub broken_magic_tie
{my ($temp) = @_;
tie $temp, 'magic_pkg', @_;}
}
my $my_scalar;
magic_pkg::magic_tie($my_scalar);
$my_scalar = "failed to tie\n";
print "$my_scalar\n";
###############################
ok, so this works when i use the magic_tie sub,
but not when I use the broken_magic_tie subroutine.
there is something fundamental about the @_ variable
that I do not understand. I always thought of the
@_ variable as a stack that parameters get copied into
for a procedure to be called.
why does this work:
{tie $_[0], 'magic_pkg', @_[1..$#_];}
and this doesn't???
{my ($temp) = @_;
tie $temp, 'magic_pkg', @_;}
does $_[0] somehow still point to the original variable,
rather than a copy of it? if it was a copy, then using
my $temp = shift; would be exactly the same as $_[0];
what's going on????
Greg
------------------------------
Date: Wed, 12 May 1999 17:44:25 GMT
From: tbsmith@deltacom.net
Subject: perldoc question
Message-Id: <7hcelo$fmh$1@nnrp1.deja.com>
My answer may be in the doc itself, but I wouldn't know where to start
looking. I'm wondering what the number means in the parens after a named
function in it's man page, like in this excerpt of 'fork':
-------------------------------------------------
NAME
fork - create a new process just like this one
SYNOPSIS
fork
DESCRIPTION
Does a fork(2) system call to create ...
-------------------------------------------------
It's the 'fork(2)' I'm talking about.
Thanks,
____________________
Todd Smith - japh
ITC^DeltaCom
tbsmith@deltacom.net
--== Sent via Deja.com http://www.deja.com/ ==--
---Share what you know. Learn what you don't.---
------------------------------
Date: Wed, 12 May 1999 16:25:49 GMT
From: vinh.bui@medstat.com
Subject: reading a text file backwards
Message-Id: <7hca27$bs4$1@nnrp1.deja.com>
I am using the following to read a text file from the top line down:
open (x, $file);
while ($line=<x>) {
print $line; }
close (x);
Can I read the text file from the last line up?
--== Sent via Deja.com http://www.deja.com/ ==--
---Share what you know. Learn what you don't.---
------------------------------
Date: Wed, 12 May 1999 11:17:50 -0600
From: Jim Shapiro <jshapir@uswest.com>
To: vinh.bui@medstat.com
Subject: Re: reading a text file backwards
Message-Id: <3739B7BE.54F1F1BC@uswest.com>
vinh.bui@medstat.com wrote:
> I am using the following to read a text file from the top line down:
> open (x, $file);
> while ($line=<x>) {
> print $line; }
> close (x);
>
> Can I read the text file from the last line up?
>
> --== Sent via Deja.com http://www.deja.com/ ==--
> ---Share what you know. Learn what you don't.---
If the file will fit into memory you can read it into an array and
reverse the array.
open IN, my_file or die "Cannot open \"my_file\": $!\n";
my @all_of_it = <IN>;
foreach (reverse @all_of_it) {
print;
}
--
Regards,
Jim Shapiro
------------------------------
Date: Wed, 12 May 1999 18:04:36 +0100
From: "Duncan Fullerton" <duncan.fullerton@saudibank.com>
Subject: Registry Trawling within IIS
Message-Id: <7hcc5a$hnd$1@bosanquet.saudibank.com>
Hi,
I've got a Perl script (using Win32::TieRegistry) that trawls through a
remote machines' registry to dig up OS version/SP levels etc..
The script runs fine when executed as IISMachine\Administrator from a
command prompt - I can get to any machine whose registry I need to examine.
My question? Does anyone know how I can get IIS to allow this script the
same execute privilages when executed from a Web script directory? Using the
IIS route I fail to connect to the remote registry.
The event viewer shows the access to the Perl script coming from the default
IUSR_*** account. So within MMC I've mapped the "anonymous access" for this
script file to IISMachine\Administrator - event viewer confirms the file is
being accessed now as Administrator - but still no joy. Aarrgghh!!
Microsoft haven't a clue. Any of you guys ever remotely interrogated a
registry from within a server side Perl script?
Help, as always, mucho appreciated.
Thanks,
--
Duncan Fullerton
Saudi International Bank, London SW1X 7XS
Voice: (+44) 171 259 3164
Fax: (+44) 171 259 6060
Email: Duncan.Fullerton@saudibank.com
The views stated are personal and do not necessarily reflect those of Saudi
International Bank
------------------------------
Date: Wed, 12 May 1999 17:09:01 GMT
From: design@raincloud-studios.com (Charles R. Thompson)
Subject: Re: send a PDF file
Message-Id: <MPG.11a381057e87d1939896a0@news>
[This followup was posted to comp.lang.perl.misc and a copy was sent to
the cited author.]
In article <7hbm92$mgl$1@front7.grolier.fr>, Kevin says...
> (the navigator is supposed to ask the surfer if he wants to read
> the file or save it on the disk)
You forgot one situation...
If they have the plug-in installed, it will go straight to displaying it
in the browser without prompting.
--
CT
------------------------------
Date: Wed, 12 May 1999 18:12:32 +0200
From: Andrzej Filip <anfi@bigfoot.com>
Subject: Re: sendmail misbehaving
Message-Id: <3739A870.2AB45C95@bigfoot.com>
J Webb wrote:
> I'm having problems with sendmail from a Perl script. It's not the
> implementation that's causing problems, but the fact is that some of the
> text in the message body are being missed off the end of the mail
> messages. I've tried sending the same message that results from the
> script to my local email address (one on the network running the script)
> and it works fine, but then I change it to a remote email address and I
> get this problem. What can be going wrong? If it's a server problem,
> then which end is it likely to be at and how do I find out. If it's a
> script problem (which I'm pretty sure it isn't), why does it only occur
> with remote email addresses?
Do you explicitly close pipe to sendmail ?
e.g.
open(SENDMAIL,"|....") or die;
# [...]
close(SENDMAIL);
--
Andrzej (Andrew) A. Filip
http://www,bigfoot.com/~anfi
Private: anfi@bigfoot.com Business: sales@impaq.com.pl
I NO LONGER USE anfi@polbox.com
Posting history (all addresses):
http://www.dejanews.com/profile.xp?author=Andrzej%20Filip&ST=PS
------------------------------
Date: 12 May 1999 16:34:10 GMT
From: gbacon@itsc.uah.edu (Greg Bacon)
Subject: Re: sendmail misbehaving
Message-Id: <7hcai2$m1h$1@info2.uah.edu>
In article <3739A870.2AB45C95@bigfoot.com>,
Andrzej Filip <anfi@bigfoot.com> writes:
: Do you explicitly close pipe to sendmail ?
: e.g.
:
: open(SENDMAIL,"|....") or die;
: # [...]
: close(SENDMAIL);
Why are you checking open()'s return value but not close()'s? Maybe
something like
close SENDMAIL
or warn $! ? "Error closing sendmail pipe: $!"
: "Exit status $? from sendmail";
as recommended in L<perlfunc/close>.
Greg
--
A little poison now and then: that makes for pleasant dreams. And
much poison at the end for a pleasant death.
-- Nietzsche
------------------------------
Date: Wed, 12 May 1999 18:43:28 +0200
From: Andrzej Filip <anfi@bigfoot.com>
Subject: Re: sendmail misbehaving
Message-Id: <3739AFB0.EFFB00E1@bigfoot.com>
Greg Bacon wrote:
> In article <3739A870.2AB45C95@bigfoot.com>,
> Andrzej Filip <anfi@bigfoot.com> writes:
> : Do you explicitly close pipe to sendmail ?
> : e.g.
> :
> : open(SENDMAIL,"|....") or die;
> : # [...]
> : close(SENDMAIL);
>
> Why are you checking open()'s return value but not close()'s? Maybe
> something like
>
> close SENDMAIL
> or warn $! ? "Error closing sendmail pipe: $!"
> : "Exit status $? from sendmail";
>
> as recommended in L<perlfunc/close>.
You are right, close exit value should also be tested.
The problem described seems to be caused by not flushing
pipe buffers when script terminates.
--
Andrzej (Andrew) A. Filip
http://www,bigfoot.com/~anfi
Private: anfi@bigfoot.com Business: sales@impaq.com.pl
I NO LONGER USE anfi@polbox.com
Posting history (all addresses):
http://www.dejanews.com/profile.xp?author=Andrzej%20Filip&ST=PS
------------------------------
Date: 12 May 1999 19:06:13 +0200
From: mriedel@neuearbeit.de (Marko R. Riedel)
Subject: Re: Sorting is too slow for finding top N keys... - GOT IT !
Message-Id: <lzyaiugquy.fsf@linux_sexi.neuearbeit.de>
michel.dalle@usa.net (Michel Dalle) writes:
[SNIP]
> Unfortunately, I AM interested in the keys corresponding to the highest
> values in the hash (and I'm probably not the only one in this case).
[SNIP]
I copied the keys into the qsel arg array precisely for that reason.
------------------------------
Date: 12 May 1999 10:24:45 -0600
From: Eric The Read <emschwar@rmi.net>
Subject: Re: sub return undef @array ?
Message-Id: <xkfhfpil0he.fsf@valdemar.col.hp.com>
Ala Qumsieh <aqumsieh@matrox.com> writes:
> Eric The Read <emschwar@rmi.net> writes:
> > > sub retundef
> > > {
> > > return undef ;
> > > }
> >
> > This returns an array 1 item long, whose first item is undef.
>
> No. This returns a *list* of 1 item.
Well, I'm 0 for 2 so far this week. I coulda sworn perldoc perlsub said
it was an array. Checking again, I see it doesn't. Oh well. All die.
How embarassing.
> No. The array really looks like (undef).
I thought you said it was a list. :^)
> > wanted to assign 'undef' instead. perdoc perlsub to understand why you
> > can't (at least, I don't see any way you can).
>
> Maybe something like:
>
> my @x = retundef() || ();
Well, several other people pointed out that you can just "return;" or
"return ();". Is it Friday yet?
-=Eric
------------------------------
Date: 12 May 1999 11:53:59 -0700
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: Ten Tips toward *DIVERSITY COMPLIANCE* in Web Design
Message-Id: <3739c037@cs.colorado.edu>
[courtesy cc of this posting mailed to cited]
In comp.lang.perl.misc,
design@raincloud-studios.com (Charles R. Thompson) writes:
:Consider adding ...
I did that, and the rest of your suggestions as well. Thank you
very much! You can look at the resulting document at
http://language.perl.com/misc/div-www.html
It now includes as a sample, a bit of Perl code I once wrote to
automatically fix the sizes of downloaded when they're updated.
Put something like the following, altered to your site, in the web
page, within an HTML comment:
<!--
#!/usr/bin/perl -p
BEGIN {
@ARGV = $0 unless @ARGV;
($dir) = ($ARGV[0] =~ m@(.*)/@);
chdir $dir or die "$dir: $!";
}
s{
( HREF = "(.*?)" )
(.*?)
\(\d+k\)
} {
$1 . $3 . sprintf("(%dk)", (-s $2)/1024);
}gex;
__END__
-->
Now all you have to do to run it is:
$ perl -i.orig -x /your/dir/page.html
Don't do this unless you know what you're doing, of course!
Check it out. And thanks again.
--tom
--
X-Windows: Flawed beyond belief.
--Jamie Zawinski
------------------------------
Date: 12 May 1999 18:57:12 +0200
From: mriedel@neuearbeit.de (Marko R. Riedel)
Subject: Re: un esprit lisp dans un corps C
Message-Id: <lz1zgmi5uf.fsf@linux_sexi.neuearbeit.de>
Tout a fait. Il y a quelques heures seulement que je me demandais
quelle serait la methode la plus efficace de realiser un 'apply' en
Perl. Pour que ce soit utile, ca devrait donner des bons resultats
avec des vrais operateurs comme avec des subs.
Takers, anyone?
Nous sommes bien d'accord qu'aucune solution contenant 'eval' ne sera
admise.
------------------------------
Date: 12 May 1999 08:47:19 -0700
From: Ripp <Ripp@newsguy.com>
Subject: Win32::ODBC and Access Date & Boolean Fields
Message-Id: <7hc7q7$2hu7@edrn.newsguy.com>
Using the Win32::ODBC module on an Access Database....
How does one go about (if at all) *entering* data into fields defined (in
Access) as Date/Time and Yes/No? I can read the information in the fields just
fine using a std. SELECT query, but I can't get it to INSERT data into these
fields. I've tried using the same format I'm reading for the Date fields, and
just a simple 1/0 for the Yes/No fields, but I still get the good old -3502
syntax error. Skipping these fields in an INSERT works just fine.
I'd really like to be able to keep these fields defined in this manner (in
Access) but if I have to change them to Text or Number fields I guess I'll have
to.
==========================================================
Ripp
------------------------------
Date: Wed, 12 May 1999 13:11:58 -0400
From: Henry Hartley <hartleh1@westat.com>
Subject: Re: Win32::ODBC and Access Date & Boolean Fields
Message-Id: <3739B65E.1983DA7C@westat.com>
While not strictly speaking a Perl question, I think I know the answer. If I
recall correctly, it is:
UPDATE <tablename> SET <fieldname> = 1 WHERE <whatever>;
INSERT INTO <tablename> (<fieldname>) values (1);
without any quotes around the 1. It seems kind of goofy to me since in a WHERE
clause they want you to use:
WHERE <fieldname> = Yes
but what the heck.
Henry
Ripp wrote:
> Using the Win32::ODBC module on an Access Database....
>
> How does one go about (if at all) *entering* data into fields defined (in
> Access) as Date/Time and Yes/No? I can read the information in the fields just
> fine using a std. SELECT query, but I can't get it to INSERT data into these
> fields. I've tried using the same format I'm reading for the Date fields, and
> just a simple 1/0 for the Yes/No fields, but I still get the good old -3502
> syntax error. Skipping these fields in an INSERT works just fine.
>
> I'd really like to be able to keep these fields defined in this manner (in
> Access) but if I have to change them to Text or Number fields I guess I'll have
> to.
>
> ==========================================================
> Ripp
------------------------------
Date: 12 May 1999 17:26:34 GMT
From: zenin@bawdycaste.org
Subject: Re: xterm like window/console dev environment for Windows?
Message-Id: <926530131.281519@thrush.omix.com>
Richard M. Alford <ralford@no_spam_bigfoot.com> wrote:
: Is there a viable development tool for working with Perl executables in
: windows. Using the MSDOS tool is pretty primitive for much work.
:
: Should be something like an editor and console window to run and test
: batch programs.
Cygnus GNU shell utilities for Win32. Bash, vi, et al.
--
-Zenin (zenin@archive.rhps.org)
My code is filled with comments! It's just that my comments are
written in Perl.
------------------------------
Date: Wed, 12 May 1999 13:57:48 -0400
From: "Tim Gray" <tgray@smlny.com>
Subject: Re: xterm like window/console dev environment for Windows?
Message-Id: <Ilj_2.11389$YU1.20446@newsr2.twcny.rr.com>
Since someone is bound to say it anyway...
EMACS :)
What kind of xterm functionality are you looking for that is missing in the
DOS prompt? To which MSDOS tool are you referring? If you actually are
referring to an xterm as being a terminal running X Windows rather than
/usr/bin/X11/xterm or /usr/openwin/bin/xterm then maybe you should mention
what tool you use now as to give an idea of what you consider a viable tool.
If you are looking for an editor then you might want to go to
http://www.perl.com and choose editors under perl reference and click 'go!'.
Richard M. Alford wrote in message ...
>Is there a viable development tool for working with Perl executables in
>windows. Using the MSDOS tool is pretty primitive for much work.
>
>Should be something like an editor and console window to run and test
>batch programs.
>
>Thanks,
>
>-rma
>
------------------------------
Date: 12 Dec 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 Dec 98)
Message-Id: <null>
Administrivia:
Well, after 6 months, here's the answer to the quiz: what do we do about
comp.lang.perl.moderated. Answer: nothing.
]From: Russ Allbery <rra@stanford.edu>
]Date: 21 Sep 1998 19:53:43 -0700
]Subject: comp.lang.perl.moderated available via e-mail
]
]It is possible to subscribe to comp.lang.perl.moderated as a mailing list.
]To do so, send mail to majordomo@eyrie.org with "subscribe clpm" in the
]body. Majordomo will then send you instructions on how to confirm your
]subscription. This is provided as a general service for those people who
]cannot receive the newsgroup for whatever reason or who just prefer to
]receive messages via e-mail.
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 5641
**************************************
