[13164] in Perl-Users-Digest
Perl-Users Digest, Issue: 574 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Aug 18 12:08:06 1999
Date: Wed, 18 Aug 1999 09:05:12 -0700 (PDT)
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, 18 Aug 1999 Volume: 9 Number: 574
Today's topics:
Re: *** FAQ: ANSWERS TO YOUR QUESTIONS! READ FIRST! Pos (T. Alex Beamish)
A prime numbers program. jm_the_great@my-deja.com
eliminate ',' from a data set... <p8e77@keele.ac.uk>
Re: eliminate ',' from a data set... (Greg Bacon)
Re: eliminate ',' from a data set... (J. Moreno)
Re: how can i switch to perl5 <fty@mediapulse.com>
Re: kill (0, $pid) (Anno Siegel)
Re: Not echoing passwords inputted on screen... <aqumsieh@matrox.com>
Re: Numeric Formatting (Gary O'Keefe)
Re: passing file handles to a sub <Allan@due.net>
Re: passing file handles to a sub <cmcurtin@interhack.net>
Re: Pattern matching on command line (Anno Siegel)
Re: Pattern Matching (Anno Siegel)
problem using open in a package <akelingos@petrosys-usa.com>
Re: Problems with acos?? (Anno Siegel)
Re: Problems with Permissions, need some insight <elaine@chaos.wustl.edu>
Re: Problems with Permissions, need some insight <meowing@banet.net>
Re: Spell Checker (Greg Snow)
Re: splitting on unquoted commas <simon@profero.com>
Re: Strange Error <jpeterson@office.colt.net>
Re: Strange Error <jimmy@blackhole-designs.com>
Re: Tab range extension (Gary O'Keefe)
Re: What editors are folks using for PerlScript develop <bivey@teamdev.com>
Re: What editors are folks using for PerlScript develop <gen_x_gal@hotmail.com>
Re: What editors are folks using for PerlScript develop <griffinc@ameritech.net>
Re: What editors are folks using for PerlScript develop <bivey@teamdev.com>
Digest Administrivia (Last modified: 1 Jul 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Wed, 18 Aug 1999 15:47:53 GMT
From: talexb@tabsoft.on.ca (T. Alex Beamish)
Subject: Re: *** FAQ: ANSWERS TO YOUR QUESTIONS! READ FIRST! Posted Twice Weekly ***
Message-Id: <37bad5ae.501639405@news1.on.sympatico.ca>
On Mon, 16 Aug 1999 02:00:00 GMT, gnat@frii.com wrote:
>5. Have you read the Perl FAQ? Many questions on sockets programming,
>an important and common problem with Solaris, text manipulation and
>the jargon of perl are answered in the FAQ. As well as being posted
>regularly to comp.lang.perl.misc, the FAQ is on the web at:
> http://language.perl.com/faq/
Nathan,
Many thanks for your pointers to the FAQ .. Unfortunately a lot of the
links on the page
http://language.perl.com/CPAN/doc/manual/html/pod/perlfaq.html
appear to be broken. Suggestions?
p.s. I'm looking for a lint for perl.
T. Alex Beamish, Principal -- TAB Software
Toronto, Ontario -- www.tabsoft.on.ca
------------------------------
Date: Wed, 18 Aug 1999 15:30:45 GMT
From: jm_the_great@my-deja.com
Subject: A prime numbers program.
Message-Id: <7pejj6$2sk$1@nnrp1.deja.com>
This is a little program that will figure out all the prime
numbers from $ARGV[1] to $ARGV[2]. $ARGV[0] is the filename for the
output and $ARGV[3] is if you want to see the numbers as they go by
(note: just put anything down for $ARGV[3]).
I just want to see if anybody can help me make this thing faster
(Although, it does run about 20% faster on my Linux box then my Windows
box :-). The code is here (also, if somebody wants to put some
comments in it, that would be great):
#!/usr/bin/perl
# By Justin Mitchell
# If you have any comments/suggestions e-mail
# them to me at jm_777_homeboy@yahoo.com
$n = 1;
$primes[1] = 2;
$c = 0;
@digits = ($ARGV[1]..$ARGV[2]);
foreach $number (@digits){
$pr = 0;
if (($number / 2)==(int($number / 2))){
next;
}
for ($digi = 2; ($digi**2) <= $number; $digi++){
$digi++ if (($digi / 2)==(int($digi / 2)));
if (($number / $digi)==(int($number / $digi))){
$pr = 1;
last;
}
}
if ($pr == 0){
$n++;
$primes[$n] = $number;
print "$number\n" if ($ARGV[3])
}
}
open (OUTFILE, ">$ARGV[0]");
select (OUTFILE);
print "Found $n primes";
foreach $prime (@primes){
print "$prime\n";
}
close (OUTFILE);
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: Wed, 18 Aug 1999 16:21:50 +0100
From: "Andrew Weller" <p8e77@keele.ac.uk>
Subject: eliminate ',' from a data set...
Message-Id: <7pej26$36b$1@cfs2.kis.keele.ac.uk>
Dear all,
I am reading in a data set in the form:
X Y Z,
X Y Z,
etc.....
So for example:
12.345 6.789 1.456,
Unfortunately it is also reading in the ',' (comma) in the final field -
when I perform a calculation on this Z value it screws up (obviously)!! Is
there any way to loop around and eliminate the ',' (comma) before performing
calculations??
Thanks in advance,
Andy
--
Andy Weller
e-mail: p8e77@keele.ac.uk
------------------------------
Date: 18 Aug 1999 15:53:44 GMT
From: gbacon@itsc.uah.edu (Greg Bacon)
Subject: Re: eliminate ',' from a data set...
Message-Id: <7peku8$jct$1@info2.uah.edu>
In article <7pej26$36b$1@cfs2.kis.keele.ac.uk>,
"Andrew Weller" <p8e77@keele.ac.uk> writes:
: I am reading in a data set in the form:
:
: X Y Z,
: X Y Z,
:
: Unfortunately it is also reading in the ',' (comma) in the final
: field - when I perform a calculation on this Z value it screws up
: (obviously)!! Is there any way to loop around and eliminate the ','
: (comma) before performing calculations??
while (<>) {
s/,\s*$//;
my($x,$y,$z) = split;
...;
}
Greg
--
Sam: What's new, Normie?
Norm: Terrorists, Sam. They've taken over my stomach. They're demanding beer.
------------------------------
Date: Wed, 18 Aug 1999 11:56:12 -0400
From: planb@newsreaders.com (J. Moreno)
Subject: Re: eliminate ',' from a data set...
Message-Id: <1dwqe9z.21aormcs2z0fN@roxboro0-0033.dyn.interpath.net>
Andrew Weller <p8e77@keele.ac.uk> wrote:
> Dear all,
>
> I am reading in a data set in the form:
>
> X Y Z,
> X Y Z,
> etc.....
>
> So for example:
>
> 12.345 6.789 1.456,
>
> Unfortunately it is also reading in the ',' (comma) in the final field -
> when I perform a calculation on this Z value it screws up (obviously)!! Is
> there any way to loop around and eliminate the ',' (comma) before performing
> calculations??
If that's an accurate representation of your data set then it's really
easy -- set the record separator to ",\n".
--
John Moreno
------------------------------
Date: Wed, 18 Aug 1999 11:29:36 -0400
From: Jay Flaherty <fty@mediapulse.com>
Subject: Re: how can i switch to perl5
Message-Id: <934990691.1356382259@news.mindspring.com>
On Mon, 16 Aug 1999, bishar fambrough wrote:
>hi -
>
>i'm a pretty decent perl 4 programmner, but i need to make the switch
>to perl 5 in a hurry. can anyone give me some pointers as to the
>fastest and most painless way this can be achieved? i'd love to be
>pointed to some online docs if at all possible.
I can't imagine anyone calling themselves "pretty decent" at perl without
knowing where the "online" documentation is. Did you do a search online first
or did you just decide to be lazy and shoot out a quick post.? Did you try and
run perldoc perl or man perl? Have you ever been to www.perl.com? These are
chok full of information. Try these places out and read up on Complex Data
Structures, Modules, and Object Oriented Programming. These are what really
differentiate perl4 from perl5. Also read Advanced Perl Programming and get the
book on Object Oriented Programming with Perl when it comes out (soon).
Sorry for being so harsh but it pays to do your homework before you post.
Jay
------------------------------
Date: 18 Aug 1999 15:21:28 -0000
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: kill (0, $pid)
Message-Id: <7pej1o$672$1@lublin.zrz.tu-berlin.de>
<lan_chai@my-deja.com> wrote in comp.lang.perl.misc:
>Hi everyone. I'm a newbie and I have this problem. I opened a process with
>open(PROC, "something arg|"). I time it with a while loop and if it takes
>too long, I kill it. The test to see if it's still running is by "kill (0,
>$pid)" (I read this in Perl5 Unleashed). This way of doing it doesn't seem
>to give me that the process has ended if I did not get the output of the
>process yet. Is it true that a process is not really completed if it doesn't
>have all the output read yet?
It must have been wait()ed for by the parent process. Of course,
if there is much output and the process blocks until some of it
is read, it may not even terminate. Anyway, add something like
$SIG{ CHLD} = sub { wait};
and see if it helps.
Anno
------------------------------
Date: Wed, 18 Aug 1999 10:15:25 -0400
From: Ala Qumsieh <aqumsieh@matrox.com>
Subject: Re: Not echoing passwords inputted on screen...
Message-Id: <x3yso5hkwea.fsf@tigre.matrox.com>
Manoj Shenoy <mshenoy@us.oracle.com> writes:
> I am trying to take in some input through STDIN as a password, but I
> dont want what the user types to be echoed to the screen (as with any
> standard GUI password dialog box that pops up). How can I make it such
> that the password typed comes up as generic *s instead of the actual
> text they typed? Thanks in advance...Manoj
First step: check the FAQs.
perlfaq8 has the following entry:
How do I ask the user for a password?
HTH,
Ala
------------------------------
Date: Wed, 18 Aug 1999 15:53:01 GMT
From: gary@onegoodidea.com (Gary O'Keefe)
Subject: Re: Numeric Formatting
Message-Id: <37bad098.25537534@news.hydro.co.uk>
A keyboard was whacked upside Darren Janisse's head and out came:
>Would someone be able to provide info on how to do the following:
>
>Input Day #: 3 (as example)
>
>... the output would still be 3. Is there any way to format this string to
>have a static placement of two spaces (for example, the above would output
>03 instead of 3). Any suggestions would be greatly appreciated.
Try this:
#!/usr/local/bin/perl -w
use strict;
print "Input Day #: " ; chomp ( my $dayno = <STDIN> );
printf ( "You entered : %02d\n", $dayno );
The trick is to use printf() to format the output. If you're on a unix
box then you might want to look at the formats(5) manual ('man -s 5
foramts') page to get an idea of the versatility of printf.
Gary
--
Gary O'Keefe
gary@onegoodidea.com
You know the score - my current employer has nothing to do with what I post
------------------------------
Date: Wed, 18 Aug 1999 11:14:18 -0400
From: "Allan M. Due" <Allan@due.net>
Subject: Re: passing file handles to a sub
Message-Id: <7peir1$h7j$1@nntp3.atl.mindspring.net>
Matt Curtin wrote in message ...
:Here's an example program I called /tmp/foo.pl:
:----------------------------------------------------------------------
:#!/usr/local/bin/perl -w
:use strict;
:open(FH, "</tmp/foo.pl") or die "cannot open /tmp/foo.pl: $!";
:routine(*FH);
:print "\nall done\n";
:sub routine {
: my $FH = shift;
:
: while(<FH>) {
Oops, typo. Just for posterity: FH works in this example but only
because the sub does not use a new name for the file handle. The FH
should be $FH. It is probably clearer if we use a new var name.
----------------------------------------------------------------------
#!/usr/local/bin/perl -w
use strict;
open(FH, "</tmp/foo.pl") or die "cannot open /tmp/foo.pl: $!";
routine(*FH);
print "\nall done\n";
sub routine {
my $SFH = shift;
while(<$SFH>) {print;}
}
------------
HTH
AmD
--
$email{'Allan M. Due'} = ' All@n.Due.net ';
--random quote --
If the automobile had followed the same development cycle as the
computer, a Rolls-Royce would today cost $100, get one million miles to
the gallon, and explode once a year, killing everyone inside.
- Robert X Cringely
------------------------------
Date: 18 Aug 1999 11:36:50 -0400
From: Matt Curtin <cmcurtin@interhack.net>
Subject: Re: passing file handles to a sub
Message-Id: <xlxwvutumlp.fsf@gold.cis.ohio-state.edu>
>>>>> On Wed, 18 Aug 1999 11:14:18 -0400, "Allan M. Due" <Allan@due.net> said:
Allan> The FH should be $FH. It is probably clearer if we use a new
Allan> var name.
Ack! Yes, thanks. (See if I ever post code before coffee again... :-)
--
Matt Curtin cmcurtin@interhack.net http://www.interhack.net/people/cmcurtin/
------------------------------
Date: 18 Aug 1999 15:11:35 -0000
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: Pattern matching on command line
Message-Id: <7peif7$65g$1@lublin.zrz.tu-berlin.de>
<thomasyeung@my-deja.com> wrote in comp.lang.perl.misc:
>In article <x3y3dxie0g2.fsf@tigre.matrox.com>,
> Ala Qumsieh <aqumsieh@matrox.com> wrote:
>> Ok. Good. What is your question?
>>
>
>The question is how do I do it so the it will pick up the pattern
>matching modifier like s,e,g,i,\b on the command line.
Umm... \b isn't a regex modifier. Nor is /e, this one applies only
to substitutions. /i, /m, /s and /x can be incorporated in the regex
via the (?...) mechanism. So you can either give the pattern this
way on the command line and ,in the script do something like
$string =~ m/$ARGV[ 0]/;
where $ARGV[ 0] is something like '(?i)word', or if you want to
specify the pattern the conventional way, do
my ( undef, $pat, $modif ) = split m!/!, shift;
$string =~ m/(?$modif)$pat/;
Anno
------------------------------
Date: 18 Aug 1999 15:42:35 -0000
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: Pattern Matching
Message-Id: <7pek9b$6ac$1@lublin.zrz.tu-berlin.de>
Mark Hammer <mark@leaf.ee.ufl.edu> wrote in comp.lang.perl.misc:
>Has anyone done this (made a general code):
It doesn't pay to make a general code, they're no good at it.
Anno
------------------------------
Date: Wed, 18 Aug 1999 15:20:26 GMT
From: "Alec Kelingos" <akelingos@petrosys-usa.com>
Subject: problem using open in a package
Message-Id: <01bee98d$c5dfed80$0664a8c0@psusa6.petrosys-usa.com>
When I use the open statement in a local subroutine things work fine. But
if the same routine is called from a package the file handle won't open.
This works:
#!/usr/local/bin/perl5004 -w
sub promptForFile {
my $message = shift;
my $handle = shift;
my $fname = shift;
open($handle, ">$fname") or die "ERROR: $!";
}
&promptForFile("enter file",newFile,'new_file');
print newFile "some data\n";
BUT – when the exact same subroutine is in a package things won't work.
Here's my package file
package myPackage;
sub promptForFile {
my $message = shift;
my $handle = shift;
my $fname = shift;
open($handle, ">$fname") or die "ERROR: $!";
}
1;
The following test file crashes.
#!/usr/local/bin/perl5004 -w
use myPackage;
&myPackage::promptForFile("enter file",newFile,'new_file');
print newFile "some data\n";
It gives the following error:
Filehandle main::newFile never opened at alec2.pl line 4.
Thanks in advance,
Alec
------------------------------
Date: 18 Aug 1999 15:35:25 -0000
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: Problems with acos??
Message-Id: <7pejrt$694$1@lublin.zrz.tu-berlin.de>
Andrew Weller <p8e77@keele.ac.uk> wrote in comp.lang.perl.misc:
>Dear all,
>
>I am curently writing a simple script that will work out distances and
>angles between points and either reject or keep these points based on the
>angles and distances. At present I am getting this error:
>
>Undefined subroutine &main::acos called at .....
>
>So I presume it is my use of acos. This is the context in which I am using
>it:
>
>$theta = acos ($p1/$p2);
>
>Is this right?? Any clues?
perldoc -f acos would have told you that Perl doesn't have the
acos function. All you get is atan2, which you can look up.
If you really need acos, you can get it via
acos( $x) = atan2( sqrt( 1 - $x*$x),$x);
Anno
------------------------------
Date: Wed, 18 Aug 1999 11:53:00 -0400
From: Elaine -HFB- Ashton <elaine@chaos.wustl.edu>
Subject: Re: Problems with Permissions, need some insight
Message-Id: <37BAD6B2.482D5DE0@chaos.wustl.edu>
Patrick Tully wrote:
> 1. How do I create a directory and make it write/read everyone?
> [mkdir ("directoryName", 0777); does not work]
> 2. Can I change ownership in the program, and if so how?
First, you really need to read the chown and chmod man pages so that you
understand how they both work. Then, you will need to read the umask man page.
Having done that, go get the File::chmod module.
e.
------------------------------
Date: 18 Aug 1999 09:51:51 -0400
From: meow <meowing@banet.net>
Subject: Re: Problems with Permissions, need some insight
Message-Id: <87n1vpdwnc.fsf@banet.net>
Patrick Tully <pmt@top.mitre.org> wrote:
> Hi,
> Let me just state my questions first in case you don't want to read the
> entire mesg:
> 1. How do I create a directory and make it write/read everyone?
> [mkdir ("directoryName", 0777); does not work]
Take another look at the mkdir documentation. Are you remembering to
set your umask to 0 before creating the directory? (Don't forget to
save and restore it before working on other files, or you'll have a
lousy day.)
> 2. Can I change ownership in the program, and if so how?
Generally, it will only work if you're root. perldoc -f chown
------------------------------
Date: 18 Aug 1999 15:39:09 GMT
From: snow@statsci.com (Greg Snow)
Subject: Re: Spell Checker
Message-Id: <7pek2t$6eb$1@junior.statsci.com>
In article <7pcjmq$ko3$1@nnrp1.deja.com>, <dgold1@my-deja.com> wrote:
>I need to spell check a text box control on a form. Is there a PERL
>solution avaliable that I can run on the Unix server?
There are currently 2 Perl versions of spell available through PPT
(http://language.perl.com/ppt/)
--
-------------------------------------------------------------------------------
Gregory L. Snow | Inertia makes the world go round,
(Greg) | Love makes the trip worth taking.
snow@statsci.com |
------------------------------
Date: Wed, 18 Aug 1999 16:40:34 +0100
From: Simon Wistow <simon@profero.com>
Subject: Re: splitting on unquoted commas
Message-Id: <37BAD3F2.2DBBDA19@profero.com>
> #!/usr/local/bin/perl -w
> use strict;
>
> my $from = q/john@foo.com "Smith, John", bob@bar.com "Bob Roberts"/;
>
> $from =~ s/"(\w+)[,| ]+(\w+)"/"$2 $1"/g;
>
> # Reformats "Smith, John" to be "John Smith"
>
> my @senders = split /,/, $from;
>
> foreach (@senders) {
> print "$_ \n",
> }
>
> this will split them up the way you want.
Cunning!
In the end though we ran it through Mail::Cclient.
I didn't use Mail::Address becuase it would return
john@foo.com
"Smith, John"
bob@bar.com
"Bob Roberts"
which wasn't overly useful becuase you don't know if "Smith, John" was a non
RFC822 compliant address or the 'name' of john@foo.com because it's the same
result as if I'd fed it
my $from = q/john@foo.com, "Smith, John", bob@bar.com "Bob Roberts"/
cheers for the help y'all
Simon
--
Simon Wistow Development
simon@profero.com Profero Ltd
Phone : 0171 700 9960 Fax : 0171 700 9961
------------------------------
Date: Wed, 18 Aug 1999 15:15:40 GMT
From: Jon Peterson <jpeterson@office.colt.net>
Subject: Re: Strange Error
Message-Id: <w6Au3.167$u07.1227@news.colt.net>
Jimmy Humphrey <jimmy@blackhole-designs.com> wrote:
> I'm getting the following error in my perl/cgi script in my log files.
> [Wed Aug 18 09:34:23 1999] [error] [client 24.93.92.238] Premature end
> of script
> headers: /home/sailing/public_html/cgi-bin/signup.pl
> Could anybody tell me why this might be happening. You can view my code
> at http://www.sailingpoint.com/signup.txt
Hi,
On further examination, are you sure that you wrote this code? Or are you
trying to use someone elses script. If the later, maybe you should check that
you have installed it with execute permission set on the script, and write
permission set on the directory/files that it ouputs.
If you did write the code, I would recommend checking out the CGI.pm module
from CPAN, or better still the CGI-Lite.pm module, either of which is way
more fun than decoding CGI input yourself in each script that you write.
------------------------------
Date: Wed, 18 Aug 1999 15:15:51 GMT
From: Jimmy Humphrey <jimmy@blackhole-designs.com>
Subject: Re: Strange Error
Message-Id: <37BACE13.608251DB@blackhole-designs.com>
Actually, I'm messing around with part of my script and have found out that
$date = strftime("%Y-%m-%d",
(localtime(time + 60*60*24*180))[0],
(localtime(time + 60*60*24*180))[1],
(localtime(time + 60*60*24*180))[2],
(localtime(time + 60*60*24*180))[3],
(localtime(time + 60*60*24*180))[4],
(localtime(time + 60*60*24*180))[5],
(localtime(time + 60*60*24*180))[6]);
is the problem. Also, I can't help what my browser prints off for mail, that's
just what it does for some mail users, but not others (mainly netscape people)
Jimmy
Jon Peterson wrote:
> Jimmy Humphrey <jimmy@blackhole-designs.com> wrote:
>
> > --------------8F0DB108B9977CB966D99959
> > Content-Type: text/plain; charset=us-ascii
> > Content-Transfer-Encoding: 7bit
>
> First off, you are posting this message in both ASCII (good) and HTML (bad).
> If you are using Netscape to post message make VERY SURE that you turn this
> feature off, before you annoy everyone on the whole internet. REally, I mean
> it.
>
> > Hi,
>
> > I'm getting the following error in my perl/cgi script in my log files.
>
> > [Wed Aug 18 09:34:23 1999] [error] [client 24.93.92.238] Premature end
> > of script
> > headers: /home/sailing/public_html/cgi-bin/signup.pl
>
> It's one of those 'accurate but useless' error messages beloved of almost
> every bit of software in existance, although fortunately not Perl. That is
> the first indication that Perl is not the problem here.
>
> The CGI protocol (which you are using) requires that the first output from
> you CGI program is a header that describes the rest of the output. In this
> header there must be at least one line (often it is the only line) that
> describes the type of content that you are outputing. This is normally html.
> So, you program needs to output the string 'Content-type: text/html' followed
> by two linebreaks (to show the header has ended, and the real content will
> follow).
>
> If you script omits this altogether, you have no idea what CGI is and should
> read up on it at once. If you think your script omits this header, make sure
> that your script does not give any warnings or other output when it runs.
>
> > I'm using perl 5.005_02 on SunOS 5.7. And, everything with my html form
> > is correct btw.
>
> The html form is the least of your problems.
>
> FYI, this post concerns CGI not perl. Please read all the documentation on CGI
> that you can find.
------------------------------
Date: Wed, 18 Aug 1999 16:08:14 GMT
From: gary@onegoodidea.com (Gary O'Keefe)
Subject: Re: Tab range extension
Message-Id: <37bad862.27531918@news.hydro.co.uk>
A keyboard was whacked upside Gary O'Keefe's head and out came
[a load of crap]:
>At your shell prompt type 'tabs -12'.
Wrong. Wrong. Wrong. Wrong. Wrong. Wrong. Wrong. Wrong. Wrong. Wrong.
Wrong. Wrong. Wrong. Wrong. Wrong. Wrong. Wrong. Wrong. Wrong. Wrong.
Wrong. Wrong. Wrong. Wrong. Wrong. Wrong. Wrong. Wrong. Wrong. Wrong.
This isn't right (or at least not on SunOS 5.5.1 - despite what 'man
tabs' says). Try
tabs 1,13,25,37,49,61,73
instead. This works on the basis of extending the spacing to 12
characters, starting with an initial position of 1.
Gary
--
Gary O'Keefe
gary@onegoodidea.com
You know the score - my current employer has nothing to do with what I post
------------------------------
Date: 18 Aug 1999 15:11:29 GMT
From: "William" <bivey@teamdev.com>
Subject: Re: What editors are folks using for PerlScript development?
Message-Id: <01bee98b$ab096c40$583c08cf@bill.jump.net>
Ken Snyder <ksnyde@pacbell.net> wrote in article
<IRhu3.367$06.44136@typhoon-sf.snfc21.pbi.net>...
> What editors are folks using for PerlScript development under Windows? I
> have had some success with Homesite but would like to use Visual
Interdev.
> Is there anyway to get Interdev to parse Perl? Is there a better editor
I
> should use instead?
>
> ken
I just recently discovered UltraEdit-32 and, except for some minor
quirks, it does everything pretty much the way I like it. Has an
easily editable language "personality" file for syntax highlighting.
(I came with Perl syntax included, although I had to fix a couple
of minor lapses.) It's close enough in functionality to MSVC++'s
editor (which is my "other" editor) not to confuse me - a good thing.
-Wm
------------------------------
Date: Wed, 18 Aug 1999 15:01:54 GMT
From: Gen X Gal <gen_x_gal@hotmail.com>
Subject: Re: What editors are folks using for PerlScript development?
Message-Id: <7pehsp$1ds$1@nnrp1.deja.com>
I totally agree with all the vi sentiments posted here. The great thing
about vi is that it has served me very well through several incarnations
of my career.
A few years ago, I was a Sybase database developer who wrote korn shell
scripts to do my work. I learned how to use vi then.
Then, I switched to perl/Sybase and could still use vi. You can even
use vi to edit Sybase sql commands in isql.
Nowadays, I'm a perl/cgi developer and I still use vi. I go back and
forth between Netscape/unix and IIS/NT and can use vi in both places. I
have some shareware vi editor I download onto my NT worksatation and am
so glad I got it.
Now, if I could just get MS Word to recognize vi keyboard commands, I'd
be all set...
In article <7pe3il$mgs$1@nnrp1.deja.com>,
dave4000@my-deja.com wrote:
> In article <7pe2g5$loh$1@nnrp1.deja.com>,
> jrt915@hotmail.com wrote:
> > I use VIM for just about all text editing in windows. VIM is VI,
only
> > with some extra bells and whistles - most of which I haven't
explored
> a
> > whole lot yet.
> >
> > I agree that VI is a bit tough to learn at the start, but once you
> learn
> > the keyboard shortcuts to all of its commands, you wonder what you
> ever
> > did without it.
> >
> > The web site for VIM is http://www.vim.org.
> >
> > I am currently using Winperl for Win32 (freeware)!
> > Sent via Deja.com http://www.deja.com/
> > Share what you know. Learn what you don't.
> >
>
> Sent via Deja.com http://www.deja.com/
> Share what you know. Learn what you don't.
>
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: Wed, 18 Aug 1999 10:08:02 -0500
From: Griffin Caprio <griffinc@ameritech.net>
Subject: Re: What editors are folks using for PerlScript development?
Message-Id: <37BACC52.1AB16D4D@ameritech.net>
William wrote:
>
> I just recently discovered UltraEdit-32 and, except for some minor
> quirks, it does everything pretty much the way I like it. Has an
> easily editable language "personality" file for syntax highlighting.
> (I came with Perl syntax included, although I had to fix a couple
> of minor lapses.) It's close enough in functionality to MSVC++'s
> editor (which is my "other" editor) not to confuse me - a good thing.
> -Wm
url?
--
"Six simple words: 'I'm not gay, but I'll learn'" -Homer Simpson
------------------------------
Date: 18 Aug 1999 16:01:56 GMT
From: "William" <bivey@teamdev.com>
Subject: Re: What editors are folks using for PerlScript development?
Message-Id: <01bee992$b684b500$583c08cf@bill.jump.net>
Griffin Caprio <griffinc@ameritech.net> wrote in article
<37BACC52.1AB16D4D@ameritech.net>...
> url?
> --
> "Six simple words: 'I'm not gay, but I'll learn'" -Homer Simpson
Try:
http://www.idmcomp.com/
-Wm
------------------------------
Date: 1 Jul 99 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 1 Jul 99)
Message-Id: <null>
Administrivia:
The Perl-Users Digest is a retransmission of the USENET newsgroup
comp.lang.perl.misc. For subscription or unsubscription requests, send
the single line:
subscribe perl-users
or:
unsubscribe perl-users
to almanac@ruby.oce.orst.edu.
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" from
almanac@ruby.oce.orst.edu. The real FAQ, as it appeared last in the
newsgroup, can be retrieved with the request "send perl-users FAQ" from
almanac@ruby.oce.orst.edu. 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" from
almanac@ruby.oce.orst.edu.
For other requests pertaining to the digest, send mail to
perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
sending perl questions to the -request address, I don't have time to
answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V9 Issue 574
*************************************
