[24802] in Perl-Users-Digest
Perl-Users Digest, Issue: 6955 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Sep 3 11:09:23 2004
Date: Fri, 3 Sep 2004 08:05:06 -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 Fri, 3 Sep 2004 Volume: 10 Number: 6955
Today's topics:
Re: C<sub'a>? <pinyaj@rpi.edu>
Re: Data Structures in PERL ctcgag@hotmail.com
Handling and recursing subdirectories (Kloudnyne)
Re: Handling and recursing subdirectories <mritty@gmail.com>
Re: Handling and recursing subdirectories <mritty@gmail.com>
Re: Handling and recursing subdirectories (Anno Siegel)
Re: How do you lock a file BEFORE changes are made? (J. Romano)
Open3 with nonblocking reads (R.Schuller)
Re: share winlyrics to wmp SMI in perl (lechee)
Re: share winlyrics to wmp SMI in perl (Anno Siegel)
Re: Simple question <dwall@fastmail.fm>
Re: Split by length <bowsayge@nomail.afraid.org>
Re: Split by length (Anno Siegel)
Re: travesty.pl (was: YOU ALL SUCK!) (J. Romano)
Unitialized variables (Brad)
Re: Xah Lee's Unixism <roo@try-removing-this.darkboong.demon.co.uk>
Re: Xah Lee's Unixism <ville@spammers.com>
Re: Xah Lee's Unixism <cbbrowne@acm.org>
Re: Xah Lee's Unixism 510046470588-0001@t-online.de
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Fri, 3 Sep 2004 09:32:18 -0400
From: Jeff 'japhy' Pinyan <pinyaj@rpi.edu>
Subject: Re: C<sub'a>?
Message-Id: <Pine.SGI.3.96.1040903093141.565820A-100000@vcmr-64.server.rpi.edu>
On Fri, 3 Sep 2004, Michele Dondi wrote:
>On Thu, 2 Sep 2004 13:47:15 -0400, Jeff 'japhy' Pinyan
><pinyaj@rpi.edu> wrote:
>
>>>It defaulted to using the "main" package.
>>
>>What is baffling her, Tad, is that
>
><OT>
>If "her" is referred to the OP, i.e. me, then it should be a "him"[*].
></OT>
Sorry, Michele. Honest mistake. I'll be more careful next time.
--
Jeff "japhy" Pinyan % How can we ever be the sold short or
RPI Acacia Brother #734 % the cheated, we who for every service
Senior Dean, Fall 2004 % have long ago been overpaid?
RPI Corporation Secretary %
http://japhy.perlmonk.org/ % -- Meister Eckhart
------------------------------
Date: 03 Sep 2004 14:25:13 GMT
From: ctcgag@hotmail.com
Subject: Re: Data Structures in PERL
Message-Id: <20040903102513.313$oV@newsreader.com>
"Roman Rodriguez" <romanr@cablespeed.com> wrote:
> Can you use PERL to create data structures such as linked list?
Yes, you can. But you rarely will want or need to.
> if so,
> is there maybe a link where this can be studied?
What is your goal? If you want to learn about linked lists, then
it probably isn't so relevant what language you use, so I'd just take
whatever language the tutorial you find happens to use. If your goal
is to learn perl, I'd choose something other than linked lists as the foil
for doing so. That said,
perldoc -q linked
should be enough to start you off exploring linked lists in Perl.
Xho
--
-------------------- http://NewsReader.Com/ --------------------
Usenet Newsgroup Service $9.95/Month 30GB
------------------------------
Date: 3 Sep 2004 06:09:18 -0700
From: obvious_pseudonym@hotmail.com (Kloudnyne)
Subject: Handling and recursing subdirectories
Message-Id: <503acee3.0409030509.1fe9e384@posting.google.com>
I'm a newcomer to Perl, and am currently attempting to teach myself
Perl through using it, but I have currently come across an issue I
can't seem to see any way around.
I am trying to write a Perl script that will go through a series of
directories and their subdirectories, removing javascript, images,
bots, etc from HTML files in order to provide a text-reader friendly
version of each page. The actual conversion of any given file has been
taken care of, thanks to code heavily borrowed from an existing
script, but I can't seem to work out how I can get it to recurse
through the various subdirs.
The snippet of code I've thrown together for it so far is:
***
sub reading {
do {
opendir (CURRENTFOLDER, $htmdir) || die 'Ay Seņor! Los bandidos have
raided that directory!'
while defined($filename = readdir(FOLDER)) = True {
$nesting = directorycheck(); #nesting tells me how deep we are into
subdirectories. a zero value is at the root of the process. only
really intended as a flag for testing
#dircheck checks to see if our victim this cycle is a
subdirectory. If it is, (I hope) we'll launch in to a nested subcycle.
}
closedir(CURRENTFOLDER); # with a little luck, re-opening the
previous folder will have the pointer still at the last position
checked, or else we have uber-recursives
chop ($htmdir); #prepping the string to ensure that the trailing char
is NOT a / (not that it should be anyway)
do {
}
until (chop($htmdir) ne '/');
# now that we've gone back to (and removed) the / nearest to the end
of the handle, we've effectively gone back to the parent directory
$nesting -- ;
}
until $htmdir = $htmroot;
}
sub directorycheck {
if (-d $filename) {
dircheck = $nesting + 1 ;
$htmdir = $filename .=$htmdir;
chdir ($htmdir);
} else {
$txtdir = $htmdir; # sets $txtdir to mirror $htmdir, but in the
/txt/ directory, where we want our output to be.
$txtdir =~s/htdocs/txt/; #(hopefully) changes the file path for
output to the /txt/ equivalent of the current /htdocs/ folder
parsetxt(); # only parses if we've hit a file, rather than a subdir.
}
}
***
where "parsetxt" is the subroutine that handles the actual conversion.
However, I can't even get this to compile, let alone run it to see if
it just dies or recurses away to infinity, or whatever.
The script is intended to run on a linux box acting as a webserver,
but for purposes of writing/testing I'm using ActivePerl 5.8 on a
win2k machine.
My question, after all this explanation, is this: Am I barking up the
wrong tree here, or am I just missing one little thing that will make
all this work? If anyone else has a piece of code that will fulfil my
requirements and make my life easier, you will have my undying
gratitude, because at this point I'm seriously starting to reconsider
scripting and just perform the conversions manually.
Thanks for your time.
PS: I apologise for the hideous formatting. It's actually quite
legible on a full-width screen, and I didn't want to disturb the text
for fear of accidentally altering the code.
------------------------------
Date: Fri, 03 Sep 2004 13:33:53 GMT
From: "Paul Lalli" <mritty@gmail.com>
Subject: Re: Handling and recursing subdirectories
Message-Id: <5p_Zc.1934$rL5.1727@trndny09>
"Kloudnyne" <obvious_pseudonym@hotmail.com> wrote in message
news:503acee3.0409030509.1fe9e384@posting.google.com...
> I am trying to write a Perl script that will go through a series of
> directories and their subdirectories, removing javascript, images,
> bots, etc from HTML files in order to provide a text-reader friendly
> version of each page. The actual conversion of any given file has been
> taken care of, thanks to code heavily borrowed from an existing
> script, but I can't seem to work out how I can get it to recurse
> through the various subdirs.
>
> The snippet of code I've thrown together for it so far is:
<snip attempt at manual directory recursion>
> My question, after all this explanation, is this: Am I barking up the
> wrong tree here, or am I just missing one little thing that will make
> all this work? If anyone else has a piece of code that will fulfil my
> requirements and make my life easier, you will have my undying
> gratitude, because at this point I'm seriously starting to reconsider
> scripting and just perform the conversions manually.
The standard (that is, included with your Perl distibution) module
File::Find is what you want to use to recurse through directories. Read
about it by typing the command
perldoc File::Find
at your shell prompt. The CPAN modules File::Finder and
File::Find::Rule also exist if you prefer an alternate syntax.
In the more general case, whenever you find yourself trying to do
something in Perl that has most likely done before (surely you don't
think you're the only one who's ever needed to recurse through a
directory structure, do you?), you should always check to see if a
module exists which already does it. Modules are stored and shared on
the CPAN, which you can search at http://search.cpan.org
Give File::Find a shot, and if you have problems with it, feel free to
ask for help.
Paul Lalli
------------------------------
Date: Fri, 03 Sep 2004 13:33:53 GMT
From: "Paul Lalli" <mritty@gmail.com>
Subject: Re: Handling and recursing subdirectories
Message-Id: <5p_Zc.1935$rL5.353@trndny09>
"Kloudnyne" <obvious_pseudonym@hotmail.com> wrote in message
news:503acee3.0409030509.1fe9e384@posting.google.com...
> I am trying to write a Perl script that will go through a series of
> directories and their subdirectories, removing javascript, images,
> bots, etc from HTML files in order to provide a text-reader friendly
> version of each page. The actual conversion of any given file has been
> taken care of, thanks to code heavily borrowed from an existing
> script, but I can't seem to work out how I can get it to recurse
> through the various subdirs.
>
> The snippet of code I've thrown together for it so far is:
<snip attempt at manual directory recursion>
> My question, after all this explanation, is this: Am I barking up the
> wrong tree here, or am I just missing one little thing that will make
> all this work? If anyone else has a piece of code that will fulfil my
> requirements and make my life easier, you will have my undying
> gratitude, because at this point I'm seriously starting to reconsider
> scripting and just perform the conversions manually.
The standard (that is, included with your Perl distibution) module
File::Find is what you want to use to recurse through directories. Read
about it by typing the command
perldoc File::Find
at your shell prompt. The CPAN modules File::Finder and
File::Find::Rule also exist if you prefer an alternate syntax.
In the more general case, whenever you find yourself trying to do
something in Perl that has most likely done before (surely you don't
think you're the only one who's ever needed to recurse through a
directory structure, do you?), you should always check to see if a
module exists which already does it. Modules are stored and shared on
the CPAN, which you can search at http://search.cpan.org
Give File::Find a shot, and if you have problems with it, feel free to
ask for help.
Paul Lalli
------------------------------
Date: 3 Sep 2004 14:41:21 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: Handling and recursing subdirectories
Message-Id: <ch9vqh$t64$3@mamenchi.zrz.TU-Berlin.DE>
Kloudnyne <obvious_pseudonym@hotmail.com> wrote in comp.lang.perl.misc:
[...]
> script, but I can't seem to work out how I can get it to recurse
> through the various subdirs.
You want File::Find (a standard module).
[code snipped]
> PS: I apologise for the hideous formatting. It's actually quite
> legible on a full-width screen, and I didn't want to disturb the text
> for fear of accidentally altering the code.
...so you left the formatting to Usenet, which really messed it up.
Anno
------------------------------
Date: 3 Sep 2004 07:52:22 -0700
From: jl_post@hotmail.com (J. Romano)
Subject: Re: How do you lock a file BEFORE changes are made?
Message-Id: <b893f5d4.0409030652.17738491@posting.google.com>
tiltonj@erols.com (Jay Tilton) wrote in message news:<412fdce7.447163607@news.erols.com>...
> jl_post@hotmail.com (J. Romano) wrote:
> :
> : Not only is this approach unfavorable because it uses extra lines of
> : code that seem unnecessary, but according to "perldoc -f truncate",
> : calling truncate() "produces a fatal error if truncate isn't
> : implemented on your system," which makes me think that it's not all
> : that portable.
>
> How much portability do you really need? Is it worth jumping through hoops
> to make your program accommodate every platform that can run Perl?
I would just like to know if there is an easy way to lock a file
before it gets truncated. If there isn't, then apparently flock()
isn't meant to be used with an open() statement that uses ">" (or
"+>"). This surprises me a little, because nowhere in "perldoc -f
flock" does it say this. As a result, anyone who doesn't realize this
will get a nasty surprise when they try flock()ing a file they
open()ed with ">".
As for jumping through hoops, I just want to know how it's done,
especially if there is an easier and better way to do it. I've only
had this situation come up once, and I took the approach I stated in
an earlier post (that is, open()ing with "+<", seek()ing to the start
of the file, and then truncate()ing the file) and it worked great at
the time.
But should I have to do the same thing in the future, should I
stick to the same method, or is there a better way to do this that I'm
just not aware of yet?
I tend to avoid lock-files because, when removed, they can cause
race conditions. I think I can avoid a race condition if I just
create a zero-length lock-file whose sole purpose is to be locked by
any process wishing to edit another file. This lock-file would never
be deleted, because if it was, the possibility exists that it might be
removed while another process had it locked (which is not a good
thing). And if I used this approach, I would have to have this
lock-file hang around for good since it would never be deleted.
Like I said, I just want to know how to lock a file for writing
before it gets truncated for the next time I have to do it. I could
stick with the approach I've used before, and if for some reason it's
not portable enough to be used on the platform I will be using at the
time, I can try the lock-file approach. (And if that doesn't work, I
don't know what I'll do...)
-- Jean-Luc
------------------------------
Date: 3 Sep 2004 06:51:18 -0700
From: ralf-schuller@web.de (R.Schuller)
Subject: Open3 with nonblocking reads
Message-Id: <96583d6d.0409030551.4dea5b7d@posting.google.com>
I'm currently trying to execute a script within a script,
writing the STDOUT and STDERR in the same logfile, every
single line should contain if it's STDOUT [S] or STDERR [E],
but i need also the actual timestamp when the STDERRs and
STDOuts were passed to the logfile. Later on, i can sort
the logfile chronological and see exactly when the script
began to run wild. I dont want to wait until the inner script
has ended, if possible I need live feedback from the script
to handle with STDOUT and STDERR and have an actual timestamp
(else all timestamps would be the same which is not my intention).
My Problem now is with my old code i could distinguish STDOUT and
STDERR quite well, but timestamp is the same, in the following code
i tried to prevent blocking by using a solution described in
perl-cookbook. As it is now I dont even get more then the first
line of STDERR at all into the logfile.
Is there a solution to write STDOUT and STDERR including actual time
and status if STDERR or STDOUT into a file while the inner script
is running? e.g. it would take 4hours to execute inner script and
i need STDOUT and STDERR while runningtime of this script. And to
make it more complicated... the inner script should not be changed!
It must be a code that can execute any old scripts that produce
STDOUT and STDERR.
Bye
Ralf
code itself:
#!/usr/bin/perl
use strict;
use diagnostics;
use warnings;
use English;
use IPC::Open3;
my $actualtime;
my $output;
my $rin;
my $nfound;
my $rout;
my $cmd=shift;
open (LOGFILE, ">>logfile") or die "Couldn't open logfile : $!\n";
my $pid = open3(*HIS_IN, *HIS_OUT, *HIS_ERR, $cmd) or die "Couldn't
open $cmd : $!\n";
close (HIS_IN);
###Perl-Cookbook, Chapter 07/14
###Reading from many filehandles without blocking
$rin = '';
#repeat next line for all filehandles to poll
vec($rin, fileno(HIS_OUT), 1) = 1;
vec($rin, fileno(HIS_ERR), 1) = 1;
$nfound = select($rout=$rin, undef, undef, undef);
if ($nfound) {
# input waiting on one or more of those 2 filehandles
if (vec($rout,fileno(HIS_OUT),1)) {
$output= <HIS_OUT>;
$actualtime=time;
print LOGFILE "$actualtime [S] $output";
}
if (vec($rout,fileno(HIS_ERR),1)) {
$output= <HIS_ERR>;
$actualtime=time;
print LOGFILE "$actualtime [E] $output";
}
}
close (LOGFILE);
------------------------------
Date: 3 Sep 2004 06:47:30 -0700
From: lecheel@yahoo.com (lechee)
Subject: Re: share winlyrics to wmp SMI in perl
Message-Id: <3f98c481.0409030547.590f7b17@posting.google.com>
anno4000@lublin.zrz.tu-berlin.de (Anno Siegel) wrote in message news:<ch45dj$7dn$1@mamenchi.zrz.TU-Berlin.DE>...
> lechee <lecheel@yahoo.com> wrote in comp.lang.perl.misc:
> > #!/usr/bin/perl
>
> [150 lines of undocumented code of dubious quality snipped]
>
> The place to share Perl code is the CPAN, not Usenet.
>
> Anno
why I can not share the perl in usenet, google can search anything we
want, I like google with usenet
------------------------------
Date: 3 Sep 2004 14:18:52 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: share winlyrics to wmp SMI in perl
Message-Id: <ch9ugc$t64$1@mamenchi.zrz.TU-Berlin.DE>
lechee <lecheel@yahoo.com> wrote in comp.lang.perl.misc:
> anno4000@lublin.zrz.tu-berlin.de (Anno Siegel) wrote in message
> news:<ch45dj$7dn$1@mamenchi.zrz.TU-Berlin.DE>...
> > lechee <lecheel@yahoo.com> wrote in comp.lang.perl.misc:
> > > #!/usr/bin/perl
> >
> > [150 lines of undocumented code of dubious quality snipped]
> >
> > The place to share Perl code is the CPAN, not Usenet.
> >
> > Anno
>
> why I can not share the perl in usenet, google can search anything we
> want, I like google with usenet
Usenet is a discussion forum. The fact that google has chosen to
archive it doesn't make it an archive itself.
Anno
------------------------------
Date: Fri, 03 Sep 2004 13:56:14 -0000
From: "David K. Wall" <dwall@fastmail.fm>
Subject: Re: Simple question
Message-Id: <Xns9559651668139dkwwashere@216.168.3.30>
Tad McClellan <tadmc@augustmail.com> wrote in message
<news:slrncjfuie.e25.tadmc@magna.augustmail.com>:
> PF <pauldfisk@hotmail.com> wrote:
>
>> I have a request to modify the perl script
>
>> I have never programmed PERL and haven't
>> a clue.
>
> Step 1) Learn some Perl
>
> Step 2) modify the Perl program
>
> Post here if you get stuck on Step 2, or
>
> Step 1) contact the original author of the program for support
Not likely to be helpful. It's Matt Wright's formmail.pl.
Confirmed by checking
http://www.scriptarchive.com/download.cgi?s=formmail&c=txt&f=FormMail%2Epl
------------------------------
Date: Fri, 03 Sep 2004 13:56:13 GMT
From: bowsayge <bowsayge@nomail.afraid.org>
Subject: Re: Split by length
Message-Id: <pan.2004.09.03.09.39.22.614253.686@nomail.afraid.org>
Papago said to us:
> Is there a single Perl command that will split a string into an array by
> number of characters? For example, if I had the string:
>
> $string = "monkey";
>
> I could specify a lenght, such as 2, and it would put every pair of 2
> characters into an array that looks something like this:
>
> $array[0] = "mo";
> $array[1] = "nk";
> $array[3] = "ey";
>
> Is that possible?
Try this:
my $string = 'monkey';
my $length = 2;
my @array = $string =~ m/.{$length}/g;
print "@array\n";
--
my (@str) = split //,'rJpu iltesbthe.e n arewno';
my (@ndx, @arr) = qw(15 0 13 1 12 22 16 3 14 2 21 8 9
19 24 10 17 6 4 5 11 23 20 18 7);
@arr[ @ndx ] = @str; print @arr, "\n";
------------------------------
Date: 3 Sep 2004 14:28:05 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: Split by length
Message-Id: <ch9v1l$t64$2@mamenchi.zrz.TU-Berlin.DE>
bowsayge <bowsayge@nomail.afraid.org> wrote in comp.lang.perl.misc:
> Papago said to us:
>
> > Is there a single Perl command that will split a string into an array by
> > number of characters? For example, if I had the string:
> >
> > $string = "monkey";
> >
> > I could specify a lenght, such as 2, and it would put every pair of 2
> > characters into an array that looks something like this:
> >
> > $array[0] = "mo";
> > $array[1] = "nk";
> > $array[3] = "ey";
> >
> > Is that possible?
>
> Try this:
>
> my $string = 'monkey';
> my $length = 2;
> my @array = $string =~ m/.{$length}/g;
> print "@array\n";
That will ignore a possible remainder of fewer than $length characters
if the string length isn't divisible by $length. This may be the desired
behavior, the OP didn't say. In case it isn't, using m/.{1,$length}/g
will always catch the last piece, even if it's shorter than $length.
Anno
------------------------------
Date: 3 Sep 2004 07:26:26 -0700
From: jl_post@hotmail.com (J. Romano)
Subject: Re: travesty.pl (was: YOU ALL SUCK!)
Message-Id: <b893f5d4.0409030626.18d0335@posting.google.com>
jl_post@hotmail.com (J. Romano) wrote in message news:<b893f5d4.0409021952.1afa1178@posting.google.com>...
>
> $lookup{"$tokens[$i-2] $tokens[$i-1]"}->{$tokens[$i]}++;
> if (exists $lookup{"$usedWords[-2] $usedWords[-1]"})
>
> Note: You can change both occurrences of "x 2" to "x 3" (and
> change the counter in the "for" loop to start at 3) if you want to
> build the lookup hash based on the last three words instead of just
> the last two.
Whoops... I forgot to add that you also have to change all
occurences of:
"$tokens[$i-2] $tokens[$i-1]"
and
"$usedWords[-2] $usedWords[-1]"
to:
"$tokens[$i-3] $tokens[$i-2] $tokens[$i-1]"
and
"$usedWords[-3] $usedWords[-2] $usedWords[-1]"
in order to build the lookup hash based on the last three words.
Also, if you want to make the script a little more memory
efficient, you can add the line:
shift @usedWords; # the first word will no longer be used
right after (or right before) the following lines:
# Record $word for the next time through the loop:
push @usedWords, $word;
But adding that line won't change the output at all. It should just
make the program use less memory.
-- J.
------------------------------
Date: 3 Sep 2004 08:01:16 -0700
From: brad@van-orden.org (Brad)
Subject: Unitialized variables
Message-Id: <e32c2b09.0409030701.13a2ed3e@posting.google.com>
Does anyone know a good test for an unitialzed variable? I tried
"! defined $var", but that doesn't seem to work. I've also tried
'$var eq ""' and that doesn't work either. Any suggestions would be
greatly appreciated!
------------------------------
Date: Fri, 03 Sep 2004 14:31:13 +0100
From: Rupert Pigott <roo@try-removing-this.darkboong.demon.co.uk>
Subject: Re: Xah Lee's Unixism
Message-Id: <1094218274.956034@teapot.planet.gong>
Espen Vestre wrote:
> jmfbahciv@aol.com writes:
>
>
>>V3? I thought V4 was their last good one before they started to
>>put apps into execmode.
>
>
> 3.51 was the last good one.
Amen to that. 4.0 introduced lots of New! Features!
------------------------------
Date: 03 Sep 2004 16:37:29 +0300
From: Ville Vainio <ville@spammers.com>
Subject: Re: Xah Lee's Unixism
Message-Id: <du7n007wk12.fsf@mozart.cc.tut.fi>
>>>>> "John" == John Thingstad <john.thingstad@chello.no> writes:
John> lol.. oops. No Pauling was a nobel prize winning chemist.
Speaking of which, why are we still waiting for Linus Torvalds' Nobel
prize? I'm sure there are tons of less significant
inventions/achievements that have won the prize.
On related note, this thread is way off topic for most involved
newsgroups, and doesn't show any signs of ending either (and yes, I
wasn't helping ;-).
--
Ville Vainio http://tinyurl.com/2prnb
------------------------------
Date: 3 Sep 2004 13:41:48 GMT
From: Christopher Browne <cbbrowne@acm.org>
Subject: Re: Xah Lee's Unixism
Message-Id: <2prakrFoba1kU1@uni-berlin.de>
After a long battle with technology, Andre Majorel <amajorel@teezer.fr>, an earthling, wrote:
> On 2004-09-02, John Thingstad <john.thingstad@chello.no> wrote:
>
>> The fact that the NT kernel is not entirely stable yet really
>> shouldn't supprise anyone. Afterall Unix has messed with it's
>> kernel for 30 years.
>
> I feel compelled to point out that Linux achieved considerably
> better stability after just a few years.
Perhaps, but Linus and crew didn't have to start from not knowing what
Unix "ought" to look like, and had the perspective of being able to
look back at 20-odd years of the things that went well and badly with
Unix.
--
select 'cbbrowne' || '@' || 'acm.org';
http://www3.sympatico.ca/cbbrowne/nonrdbms.html
If at first you don't succeed, try duct tape. If duct tape doesn't
work, give up.
------------------------------
Date: 01 Sep 2004 21:17:11 +0200
From: 510046470588-0001@t-online.de
Subject: Re: Xah Lee's Unixism
Message-Id: <87eklldcjs.fsf@debian.i-did-not-set--mail-host-address--so-shoot-me>
red floyd <no.spam@here.dude> writes:
> CBFalconer wrote:
>
> > Dump Notepad and get Textpad. www.textpad.com. First class.
> >
>
> Let the editor flame wars begin!
>
> Get gvim! www.vim.org
none of those can hold the dimmest candle to the GNU Emacs.
Klaus Schilling
------------------------------
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 6955
***************************************
