[25058] in Perl-Users-Digest
Perl-Users Digest, Issue: 7308 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Oct 26 06:05:50 2004
Date: Tue, 26 Oct 2004 03:05:08 -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 Tue, 26 Oct 2004 Volume: 10 Number: 7308
Today's topics:
Re: @ARGV not working <do-not-use@invalid.net>
Change default @INC without recompiling? <newspost@coppit.org>
Re: Change default @INC without recompiling? (Anno Siegel)
Re: Convert excel formula to perl <usa1@llenroc.ude.invalid>
Re: Detecting a Process using Perl Win32 (Bryan Williams)
Re: FAQ 4.56: What happens if I add or remove keys from (Peter J. Acklam)
FAQ 5.11: How can I output my numbers with commas added <comdog@panix.com>
FAQ 7.28: How can I use a variable as a variable name? <comdog@panix.com>
Re: Fast random string generation <tassilo.von.parseval@rwth-aachen.de>
Re: Fast random string generation <bik.mido@tiscalinet.it>
Re: Fast random string generation <bart.lateur@pandora.be>
Re: Hard regexp problem <nobull@mail.com>
Re: list vs array <do-not-use@invalid.net>
Re: MAIL recommendation <bik.mido@tiscalinet.it>
Re: MAIL recommendation <phaylon@dunkelheit.at>
Re: open-perl-ide qustion (Bryan Williams)
Re: open-perl-ide qustion <bart.lateur@pandora.be>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 26 Oct 2004 10:48:13 +0200
From: Arndt Jonasson <do-not-use@invalid.net>
Subject: Re: @ARGV not working
Message-Id: <yzdmzy950he.fsf@invalid.net>
ray.fernandez@barcap.com (Ray) writes:
> For some reason, @argv doesn't work on my machine, but when I run the
> script on a coworker's machine (which has the same NT build as I do it
> works).
>
> Example:
>
> When I type at the command line: perl test.pl foo
> I don't get any output. No error messages, nothing. When I run the
> script on another machine it works as expected. Here's the code
> snippet I'm using:
>
>
> print @INC;
> print @ARGV;
>
>
> The first print statement works as expected, but the @ARGV doesn't.
>
> Any ideas?
I get the bad behaviour on Solaris (Perl 5.005) as well.
I suggest outputting a "\n" as well:
print @INC;
print @ARGV;
print "\n";
I don't know why this should behave differently on two machines of the
same kind, but maybe there are timing considerations (speculating wildly).
(So why does @INC get printed? Maybe because it's much longer than @ARGV.)
------------------------------
Date: 26 Oct 2004 02:01:49 EDT
From: David Coppit <newspost@coppit.org>
Subject: Change default @INC without recompiling?
Message-Id: <Pine.BSF.4.61.0410231216470.37639@www.provisio.net>
Is there any way to change the default @INC for all users, without
recompiling?
The problem I have is that on OS X, user installed modules go into
/Library, while the default Perl modules are in /System. However, the
default @INC for Apple's build of perl puts /Library *after* /System:
$ perl -e 'print "@INC"'
/sw/lib/perl5 /sw/lib/perl5 \
/System/Library/Perl/5.8.1/darwin-thread-multi-2level \
/System/Library/Perl/5.8.1 /Library/Perl/5.8.1/darwin-thread-multi-2level \
/Library/Perl/5.8.1 /Library/Perl \
/Network/Library/Perl/5.8.1/darwin-thread-multi-2level \
/Network/Library/Perl/5.8.1 /Network/Library/Perl .
As a result, when I upgraded Data::Dumper (which is included in the normal
Perl distribution), none of my scripts could see the upgrade.
$ locate Dumper.pm
/Library/Perl/5.8.1/darwin-thread-multi-2level/Data/Dumper.pm
/System/Library/Perl/5.8.1/darwin-thread-multi-2level/Data/Dumper.pm
For now I've deleted the one in /System, but I think better solution would
be to put /Library in front of /System in @INC. Is there some easy way to
do this (perhaps a setting in Config.pm)? I'd rather not recompile Perl if
I don't have to.
Thanks all,
David
------------------------------
Date: 26 Oct 2004 08:06:44 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: Change default @INC without recompiling?
Message-Id: <cll0ik$r5g$1@mamenchi.zrz.TU-Berlin.DE>
David Coppit <newspost@coppit.org> wrote in comp.lang.perl.misc:
> Is there any way to change the default @INC for all users, without
> recompiling?
>
> The problem I have is that on OS X, user installed modules go into
> /Library, while the default Perl modules are in /System. However, the
> default @INC for Apple's build of perl puts /Library *after* /System:
>
> $ perl -e 'print "@INC"'
> /sw/lib/perl5 /sw/lib/perl5 \
> /System/Library/Perl/5.8.1/darwin-thread-multi-2level \
> /System/Library/Perl/5.8.1
> /Library/Perl/5.8.1/darwin-thread-multi-2level \
> /Library/Perl/5.8.1 /Library/Perl \
> /Network/Library/Perl/5.8.1/darwin-thread-multi-2level \
> /Network/Library/Perl/5.8.1 /Network/Library/Perl .
>
> As a result, when I upgraded Data::Dumper (which is included in the normal
> Perl distribution), none of my scripts could see the upgrade.
>
> $ locate Dumper.pm
> /Library/Perl/5.8.1/darwin-thread-multi-2level/Data/Dumper.pm
> /System/Library/Perl/5.8.1/darwin-thread-multi-2level/Data/Dumper.pm
>
> For now I've deleted the one in /System, but I think better solution would
> be to put /Library in front of /System in @INC. Is there some easy way to
> do this (perhaps a setting in Config.pm)? I'd rather not recompile Perl if
> I don't have to.
If you can arrange for all users to have "/Library" in their
PERL5LIB environment variable, that should fix it.
Anno
------------------------------
Date: 26 Oct 2004 01:46:29 GMT
From: "A. Sinan Unur" <usa1@llenroc.ude.invalid>
Subject: Re: Convert excel formula to perl
Message-Id: <Xns958DDD807306Dasu1cornelledu@132.236.56.8>
"A. Sinan Unur" <usa1@llenroc.ude.invalid> wrote in
news:Xns958DC66FCFE22asu1cornelledu@132.236.56.8:
> Just 'cause I had a tough day and need to relax, I am going to
> try to write something which I think corresponds to what you are
> after.
OK, it definitely is a bad sign when I start having online conversations by
myself, but the following is a little better (had food in the mean time,
brain works slightly better now). One should probably run this code in
Safe:
http://search.cpan.org/~nwclark/perl-5.8.5/ext/Opcode/Safe.pm
#! perl
$| = 1;
use strict;
use warnings;
my %vars;
for(
print '> ';
my $input = <STDIN>;
print '> ')
{
$input =~ s/^\s*//;
$input =~ s/\s*$//;
$input =~ s/[\{\$\%\@\}]//g;
next if $input eq '';
last if $input =~ /^quit/i;
if($input =~ /^show/i) {
show(\%vars);
} elsif(defined (my $value = eval_formula($input, \%vars))) {
print "$value\n";
} else {
print "Error in formula\n";
}
}
sub show {
my ($vars) = @_;
for my $var (sort {$a cmp $b} keys %$vars) {
print "\t$var = $vars->{$var}\n";
}
}
sub eval_formula {
no warnings 'uninitialized';
my ($input, $var) = reverse split '=', $_[0];
if(defined $var) {
($var) = ($var =~/([A-Za-z]{1,2}[0-9]{1,5})/);
}
my $value = do {
$input =~ s{([A-Za-z]{1,2}[0-9]{1,5})}/$_[1]->{$1}/ge;
eval $input;
};
return unless defined $value;
$_[1]->{$var} = $value if defined $var;
return $value;
};
__END__
Sinan.
------------------------------
Date: 25 Oct 2004 22:51:45 -0700
From: bitbucketz2002@yahoo.com (Bryan Williams)
Subject: Re: Detecting a Process using Perl Win32
Message-Id: <38a10436.0410252151.6f7094a3@posting.google.com>
Tom Tingdale <tom.tingdale@sbcglobal.net> wrote in message news:<cntqn0ljli76jgit7sel1hjk9om7e6co4m@4ax.com>...
> I have a perl program that launchs every minutes using a Windows Task
> Scheduler to process some files. If the Perl program is still running,
> I don't want to run it again until the previous Perl application has
> finished. It is possible to detect whether or not my Perl application
> is already running?
sub runUpdate{
my $pi = Win32::Process::Info->new();
my $Updates = 0;
foreach $proc ($pi->GetProcInfo())
{
foreach ($proc)
{
if ($proc->{Name} eq "update.exe")
{
#Count the number of running instances
$Updates++
}
}
}
# if no running update.exe found start it otherwise exit
if ($Updates <= 1)
{
doit();
}
else
{
warn "An instance of the Updater is running, exiting now.";
exit;
}
}
------------------------------
Date: Tue, 26 Oct 2004 08:19:37 +0200
From: pjacklam@online.no (Peter J. Acklam)
Subject: Re: FAQ 4.56: What happens if I add or remove keys from a hash while iterating over it?
Message-Id: <ekjmhuh2.fsf@online.no>
brian d foy <comdog@panix.com> wrote:
> Peter J. Acklam <pjacklam@online.no> wrote:
>
> > It says "you can delete from it" as if *any* deletion is OK,
> > which is not true. Those who are most likely to look up in
> > the FAQ are the inexperienced which might interpret the
> > statement incorrectly.
>
> ah, I see. I'll look into it.
>
> In general, you have to point at specifically what you think is
> wrong so I can fix the right thing. :)
You're absolutely right. Sorry. It won't happen again. :-)
Peter
--
#!/local/bin/perl5 -wp -*- mode: cperl; coding: iso-8859-1; -*-
# matlab comment stripper (strips comments from Matlab m-files)
s/^((?:(?:[])}\w.]'+|[^'%])+|'[^'\n]*(?:''[^'\n]*)*')*).*/$1/x;
------------------------------
Date: Tue, 26 Oct 2004 04:03:02 +0000 (UTC)
From: PerlFAQ Server <comdog@panix.com>
Subject: FAQ 5.11: How can I output my numbers with commas added?
Message-Id: <clki9m$7fd$1@reader1.panix.com>
This message is one of several periodic postings to comp.lang.perl.misc
intended to make it easier for perl programmers to find answers to
common questions. The core of this message represents an excerpt
from the documentation provided with Perl.
--------------------------------------------------------------------
5.11: How can I output my numbers with commas added?
This subroutine will add commas to your number:
sub commify {
local $_ = shift;
1 while s/^([-+]?\d+)(\d{3})/$1,$2/;
return $_;
}
This regex from Benjamin Goldberg will add commas to numbers:
s/(^[-+]?\d+?(?=(?>(?:\d{3})+)(?!\d))|\G\d{3}(?=\d))/$1,/g;
It is easier to see with comments:
s/(
^[-+]? # beginning of number.
\d{1,3}? # first digits before first comma
(?= # followed by, (but not included in the match) :
(?>(?:\d{3})+) # some positive multiple of three digits.
(?!\d) # an *exact* multiple, not x * 3 + 1 or whatever.
)
| # or:
\G\d{3} # after the last group, get three digits
(?=\d) # but they have to have more digits after them.
)/$1,/xg;
--------------------------------------------------------------------
Documents such as this have been called "Answers to Frequently
Asked Questions" or FAQ for short. They represent an important
part of the Usenet tradition. They serve to reduce the volume of
redundant traffic on a news group by providing quality answers to
questions that keep coming up.
If you are some how irritated by seeing these postings you are free
to ignore them or add the sender to your killfile. If you find
errors or other problems with these postings please send corrections
or comments to the posting email address or to the maintainers as
directed in the perlfaq manual page.
Note that the FAQ text posted by this server may have been modified
from that distributed in the stable Perl release. It may have been
edited to reflect the additions, changes and corrections provided
by respondents, reviewers, and critics to previous postings of
these FAQ. Complete text of these FAQ are available on request.
The perlfaq manual page contains the following copyright notice.
AUTHOR AND COPYRIGHT
Copyright (c) 1997-2002 Tom Christiansen and Nathan
Torkington, and other contributors as noted. All rights
reserved.
This posting is provided in the hope that it will be useful but
does not represent a commitment or contract of any kind on the part
of the contributers, authors or their agents.
------------------------------
Date: Tue, 26 Oct 2004 10:03:01 +0000 (UTC)
From: PerlFAQ Server <comdog@panix.com>
Subject: FAQ 7.28: How can I use a variable as a variable name?
Message-Id: <cll7cl$cjn$1@reader1.panix.com>
This message is one of several periodic postings to comp.lang.perl.misc
intended to make it easier for perl programmers to find answers to
common questions. The core of this message represents an excerpt
from the documentation provided with Perl.
--------------------------------------------------------------------
7.28: How can I use a variable as a variable name?
Beginners often think they want to have a variable contain the name of a
variable.
$fred = 23;
$varname = "fred";
++$$varname; # $fred now 24
This works *sometimes*, but it is a very bad idea for two reasons.
The first reason is that this technique *only works on global
variables*. That means that if $fred is a lexical variable created with
my() in the above example, the code wouldn't work at all: you'd
accidentally access the global and skip right over the private lexical
altogether. Global variables are bad because they can easily collide
accidentally and in general make for non-scalable and confusing code.
Symbolic references are forbidden under the "use strict" pragma. They
are not true references and consequently are not reference counted or
garbage collected.
The other reason why using a variable to hold the name of another
variable is a bad idea is that the question often stems from a lack of
understanding of Perl data structures, particularly hashes. By using
symbolic references, you are just using the package's symbol-table hash
(like %main::) instead of a user-defined hash. The solution is to use
your own hash or a real reference instead.
$USER_VARS{"fred"} = 23;
$varname = "fred";
$USER_VARS{$varname}++; # not $$varname++
There we're using the %USER_VARS hash instead of symbolic references.
Sometimes this comes up in reading strings from the user with variable
references and wanting to expand them to the values of your perl
program's variables. This is also a bad idea because it conflates the
program-addressable namespace and the user-addressable one. Instead of
reading a string and expanding it to the actual contents of your
program's own variables:
$str = 'this has a $fred and $barney in it';
$str =~ s/(\$\w+)/$1/eeg; # need double eval
it would be better to keep a hash around like %USER_VARS and have
variable references actually refer to entries in that hash:
$str =~ s/\$(\w+)/$USER_VARS{$1}/g; # no /e here at all
That's faster, cleaner, and safer than the previous approach. Of course,
you don't need to use a dollar sign. You could use your own scheme to
make it less confusing, like bracketed percent symbols, etc.
$str = 'this has a %fred% and %barney% in it';
$str =~ s/%(\w+)%/$USER_VARS{$1}/g; # no /e here at all
Another reason that folks sometimes think they want a variable to
contain the name of a variable is because they don't know how to build
proper data structures using hashes. For example, let's say they wanted
two hashes in their program: %fred and %barney, and that they wanted to
use another scalar variable to refer to those by name.
$name = "fred";
$$name{WIFE} = "wilma"; # set %fred
$name = "barney";
$$name{WIFE} = "betty"; # set %barney
This is still a symbolic reference, and is still saddled with the
problems enumerated above. It would be far better to write:
$folks{"fred"}{WIFE} = "wilma";
$folks{"barney"}{WIFE} = "betty";
And just use a multilevel hash to start with.
The only times that you absolutely *must* use symbolic references are
when you really must refer to the symbol table. This may be because it's
something that can't take a real reference to, such as a format name.
Doing so may also be important for method calls, since these always go
through the symbol table for resolution.
In those cases, you would turn off "strict 'refs'" temporarily so you
can play around with the symbol table. For example:
@colors = qw(red blue green yellow orange purple violet);
for my $name (@colors) {
no strict 'refs'; # renege for the block
*$name = sub { "<FONT COLOR='$name'>@_</FONT>" };
}
All those functions (red(), blue(), green(), etc.) appear to be
separate, but the real code in the closure actually was compiled only
once.
So, sometimes you might want to use symbolic references to directly
manipulate the symbol table. This doesn't matter for formats, handles,
and subroutines, because they are always global--you can't use my() on
them. For scalars, arrays, and hashes, though--and usually for
subroutines-- you probably only want to use hard references.
--------------------------------------------------------------------
Documents such as this have been called "Answers to Frequently
Asked Questions" or FAQ for short. They represent an important
part of the Usenet tradition. They serve to reduce the volume of
redundant traffic on a news group by providing quality answers to
questions that keep coming up.
If you are some how irritated by seeing these postings you are free
to ignore them or add the sender to your killfile. If you find
errors or other problems with these postings please send corrections
or comments to the posting email address or to the maintainers as
directed in the perlfaq manual page.
Note that the FAQ text posted by this server may have been modified
from that distributed in the stable Perl release. It may have been
edited to reflect the additions, changes and corrections provided
by respondents, reviewers, and critics to previous postings of
these FAQ. Complete text of these FAQ are available on request.
The perlfaq manual page contains the following copyright notice.
AUTHOR AND COPYRIGHT
Copyright (c) 1997-2002 Tom Christiansen and Nathan
Torkington, and other contributors as noted. All rights
reserved.
This posting is provided in the hope that it will be useful but
does not represent a commitment or contract of any kind on the part
of the contributers, authors or their agents.
------------------------------
Date: Tue, 26 Oct 2004 06:27:33 +0200
From: "Tassilo v. Parseval" <tassilo.von.parseval@rwth-aachen.de>
Subject: Re: Fast random string generation
Message-Id: <slrncnrkhl.rs.tassilo.von.parseval@localhost.localdomain>
Also sprach Michele Dondi:
> On Mon, 25 Oct 2004 16:36:17 +0200, Michele Dondi
> [*] Apart the naive assumption that ~0 will yield (2**32-1), which in
> fact does (here, now!) - but of course it is not reliable in terms of
> portability...
It's a pretty safe assumption, though, that nowadays integers are at
least 32 bits wide. So you will have to guard against 64-bit machines.
You can force 32 bits by doing C<~0 & Oxffffffff>.
Tassilo
--
$_=q#",}])!JAPH!qq(tsuJ[{@"tnirp}3..0}_$;//::niam/s~=)]3[))_$-3(rellac(=_$({
pam{rekcahbus})(rekcah{lrePbus})(lreP{rehtonabus})!JAPH!qq(rehtona{tsuJbus#;
$_=reverse,s+(?<=sub).+q#q!'"qq.\t$&."'!#+sexisexiixesixeseg;y~\n~~dddd;eval
------------------------------
Date: Tue, 26 Oct 2004 08:42:41 +0200
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: Fast random string generation
Message-Id: <qhrrn0dcrgjaga3i65r52dilbsv7ak3641@4ax.com>
On Mon, 25 Oct 2004 15:02:17 GMT, Bart Lateur <bart.lateur@pandora.be>
wrote:
>> pack 'L*', map rand ~0, 1..5_000;
>> }
>
>I don't think you'll ever see "\xFF\xFF\xFF\xFF" there. Better add 1 to
>it.
Obviously! As I wrote, I was really in a big hurry, so I just put down
what seemed to me the fastest way (in terms of keystrokes/thinkering)
to do it.
Michele
--
{$_=pack'B8'x25,unpack'A8'x32,$a^=sub{pop^pop}->(map substr
(($a||=join'',map--$|x$_,(unpack'w',unpack'u','G^<R<Y]*YB='
.'KYU;*EVH[.FHF2W+#"\Z*5TI/ER<Z`S(G.DZZ9OX0Z')=~/./g)x2,$_,
256),7,249);s/[^\w,]/ /g;$ \=/^J/?$/:"\r";print,redo}#JAPH,
------------------------------
Date: Tue, 26 Oct 2004 09:55:40 GMT
From: Bart Lateur <bart.lateur@pandora.be>
Subject: Re: Fast random string generation
Message-Id: <sh7sn0ttk7dt69kesbqmrrbs3qjvbi2dh5@4ax.com>
Michele Dondi wrote:
>OK, I'm back again and now I have some more time. I done some *quick*
>tests on 'Pack2' and[*] it *seems* to work as expected. At least, I
>can't see any big misbehaviour...
I can think of a caveat: I seem to recall that at least some random
generators only had 24 significant bits. Now if you plan on using 32, it
won't be completely random. Instead, I expect the lowest byte to always
be the same, or at least, close to the same few values. (taking odd
rounding into account)
--
Bart.
------------------------------
Date: Tue, 26 Oct 2004 08:59:07 +0100
From: Brian McCauley <nobull@mail.com>
Subject: Re: Hard regexp problem
Message-Id: <clkvrl$gg9$1@sun3.bham.ac.uk>
Abigail wrote:
> Brian McCauley (nobull@mail.com) wrote on MMMMLXXI September MCMXCIII in
> <URL:news:cld243$b09$1@slavica.ukpost.com>:
> //
> // Abigail wrote:
> // > /^(?:(?!xyz).)*$/
> //
> // Er no,
>
> No? You mean, any of my regexen are wrong?
For certain values of 'wrong' :-)
> Could you give an example of a
> string were it gives the wrong result?
No. But not giving the right result is not the only way to be wrong.
Your solution is more complex than necessary both from a human and a
computational point of view.
use Benchmark;
my $s ='dshidahsidahsdias' x 1000;
timethese 1000 => {
Abigail => sub { $s =~ /^(?:(?!xyz).)*$/ },
Usual => sub { $s =~ /^(?!.*xyz).*$/ },
};
__END__
Benchmark: timing 1000 iterations of Abigail, Usual...
Abigail: 4 wallclock secs ( 3.85 usr + 0.00 sys = 3.85 CPU) @
259.74/s (n=1000)
Usual: 1 wallclock secs ( 0.60 usr + 0.00 sys = 0.60 CPU) @
1666.67/s (n=1000)
> // /^(?!.*xyz).*$/
>
> A trailing .*, always very useful in a regexp.
Given that the problem specification required the regex start with ^ and
end with $ the trailing .* seemed the best way way to fulfil this
requirement.
> The disadvantage of '/^(?!.*xyz).*$/' is that it isn't easy to use it as
> part of a larger expression - for instance if only part of your string
> should not contain "xyz". My expression OTOH can easily be taken and
> put in a larger expression.
This is completely true. And had the ability to be included in a larger
expression been part of the requirement then your solution would
probably have been the best one. Except of course if the ability to
be included in a larger expression _had_ been part of the requirement
then the problem specifiaction would have had to said what was to be
done with xyz that crossed the endpoint of the matched substring.
Depending on what was desired in that situation your solution may not
have met the requirement.
------------------------------
Date: 26 Oct 2004 10:29:44 +0200
From: Arndt Jonasson <do-not-use@invalid.net>
Subject: Re: list vs array
Message-Id: <yzdr7nl51c7.fsf@invalid.net>
Ben Morrow <usenet@morrow.me.uk> writes:
> Quoth Arndt Jonasson <do-not-use@invalid.net>:
> >
> > The perldoc says (among other things):
> >
> > "and you foreach() across a list."
> >
> > Would it be reasonable to also say that you foreach() across an array,
> > since what you do to $_ while looping affects the argument to foreach?
>
> Hmmm... good question :)
>
> I'm going to answer 'no', at the risk of being confusing. You iterate
> over a list of aliases into the original array. You may think this is
> equivalent, but consider
>
> for my $i (sort @a) {
> ...
> }
>
> : here you are sorting that list of aliases and then iterating over the
> sorted list, but they are *still aliases*. You can modify the original
> array through them.
This seems useful, but surprised me. The doc for 'sort' merely says
"sorts the LIST and returns the sorted list value." How does it follow
that the returned list value consists of the same objects (if "object" is
the right word - "references" or "values" don't seem to fit)?
Knowing this, I would (at least sometimes) like my own list functions
to behave the same way:
sub exch (@) {
($_[1], $_[0]);
}
my @a = (6,5);
for (sort @a) {
$_ = $_*$_;
}
print "a = @a\n";
@a = (6,5);
for (exch @a) {
$_ = $_*$_;
}
print "a = @a\n";
This produces
a = 36 25
a = 6 5
How do I write the function 'exch' to behave as 'sort' does, i.e. return
a list value containing aliases to the input list values?
------------------------------
Date: Tue, 26 Oct 2004 08:42:42 +0200
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: MAIL recommendation
Message-Id: <m01rn01iqi2oil2bl9cuipic6dnbtjmcbf@4ax.com>
On Mon, 25 Oct 2004 14:48:30 -0400, "daniel kaplan"
<nospam@nospam.com> wrote:
>the FAQ always have to have the final word on all? i seriously have a hard
>time understanding this group.
I think this is seriuously reciprocal!
Michele
--
{$_=pack'B8'x25,unpack'A8'x32,$a^=sub{pop^pop}->(map substr
(($a||=join'',map--$|x$_,(unpack'w',unpack'u','G^<R<Y]*YB='
.'KYU;*EVH[.FHF2W+#"\Z*5TI/ER<Z`S(G.DZZ9OX0Z')=~/./g)x2,$_,
256),7,249);s/[^\w,]/ /g;$ \=/^J/?$/:"\r";print,redo}#JAPH,
------------------------------
Date: Tue, 26 Oct 2004 11:12:34 +0200
From: Robert Sedlacek <phaylon@dunkelheit.at>
Subject: Re: MAIL recommendation
Message-Id: <pan.2004.10.26.09.12.34.324504@dunkelheit.at>
Ron Parker wrote:
> Wouldn't it be easier and just as effective to unsubscribe?
I want to read this group, it seems to me he doesn't, so: No.
g,
Robert
--
http://www.dunkelheit.at/
thou shallst fear...
------------------------------
Date: 25 Oct 2004 22:48:35 -0700
From: bitbucketz2002@yahoo.com (Bryan Williams)
Subject: Re: open-perl-ide qustion
Message-Id: <38a10436.0410252148.1853137@posting.google.com>
"daniel kaplan" <nospam@nospam.com> wrote in message news:<1098715641.574393@nntp.acecape.com>...
> >>every option under the sun and always come back to Open-Perl-IDE or vi.
>
> vi? is this another one i can try?
>
> thanks ahead
vi (vim - linux) unix based text editor, not an IDE
BCW
------------------------------
Date: Tue, 26 Oct 2004 10:04:48 GMT
From: Bart Lateur <bart.lateur@pandora.be>
Subject: Re: open-perl-ide qustion
Message-Id: <n78sn05u4aq5l6qt241fg4rneb2qkb5lbo@4ax.com>
daniel kaplan wrote:
>vi? is this another one i can try?
?!?!?
Is it possible? Can one still find a programmer who doesn't know (about)
vi? Or emacs?
I like neither, but at least I've heard about them, even tried them.
--
Bart.
------------------------------
Date: 6 Apr 2001 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 6 Apr 01)
Message-Id: <null>
Administrivia:
#The Perl-Users Digest is a retransmission of the USENET newsgroup
#comp.lang.perl.misc. For subscription or unsubscription requests, send
#the single line:
#
# subscribe perl-users
#or:
# unsubscribe perl-users
#
#to almanac@ruby.oce.orst.edu.
NOTE: due to the current flood of worm email banging on ruby, the smtp
server on ruby has been shut off until further notice.
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 7308
***************************************
