[19118] in Perl-Users-Digest
Perl-Users Digest, Issue: 1313 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Jul 16 18:05:56 2001
Date: Mon, 16 Jul 2001 15:05:15 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Message-Id: <995321114-v10-i1313@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Mon, 16 Jul 2001 Volume: 10 Number: 1313
Today's topics:
Re: Advanced Sorting <ren@tivoli.com>
Re: Advice REQ for newbie <bloke6789@hotmail.com>
Re: arrays, textfiles & creating directories <gilc@pobox.com>
Re: arrays, textfiles & creating directories <krahnj@acm.org>
big versions problem from a newbie (Matt)
Re: Checking for changed or missing links in perl <tore@extend.no>
extracting a range of lines from a text file <Patrick_member@newsguy.com>
Re: extracting a range of lines from a text file (Mike Erickson)
Re: extracting a range of lines from a text file (Jay Tilton)
Re: extracting a range of lines from a text file (Tad McClellan)
FAQ: Where can I get Perl macros for vi? <faq@denver.pm.org>
Gather system statistics (cpu, disk, memory utilization (Brian Bouchard)
Re: Hard DBI question <jeff@vpservices.com>
Re: How to run Perl on MS-DOS (Tim Hammerquist)
Re: Including flock in code while developing in Windows <newspost@coppit.org>
Re: Including flock in code while developing in Windows <bart.lateur@skynet.be>
Re: Need assistance with a RE <gnarinn@hotmail.com>
Re: Need assistance with a RE <krahnj@acm.org>
New posters to comp.lang.perl.misc <gbacon@cs.uah.edu>
Re: please help urgent <iham@internode.net>
Re: problem with @INC (Andy Dougherty)
Replacing Data <blnukem@hotmail.com>
Re: Replacing Data <krahnj@acm.org>
Re: sortlen -- filter to sort text by line length <ren@tivoli.com>
Statistics for comp.lang.perl.misc <gbacon@cs.uah.edu>
Re: Using a variable in a regular expression <bpellin@ntsource.com>
Re: versions (Matt)
Re: warn() does not use a localized STDERR filehandle, <ren@tivoli.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 16 Jul 2001 15:09:41 -0500
From: Ren Maddox <ren@tivoli.com>
Subject: Re: Advanced Sorting
Message-Id: <m3d770tz3u.fsf@dhcp9-161.support.tivoli.com>
On Thu, 12 Jul 2001, wyzelli@yahoo.com wrote:
> You missed my point, (OK, I probably didn't quite word it right), I
> am not concerned here with what is happening so much as that it is
> not 'obvious' from the documentation how to get to this point.
OK, I'm jumping in late here, but I'd like to understand where exactly
the confusion lies. The question at hand is how to garner from the
documentation that you can populate an anonymous hash with map like:
print keys %{{ map { $_ => length $_ } qw/one two three four five/ }};
That map generates a list is documented.
That { LIST } generates an anonymous hash reference is documented.
That %{ HASHREF } dereferences is documented.
Putting those three together gives the result.
As for being obvious... well it's obvious one you understand all of
the components, but there isn't a single piece of documentation that
takes you through all of the steps.
--
Ren Maddox
ren@tivoli.com
------------------------------
Date: Mon, 16 Jul 2001 19:49:02 +0100
From: "Pete" <bloke6789@hotmail.com>
Subject: Re: Advice REQ for newbie
Message-Id: <vLG47.38494$WS4.6005383@news6-win.server.ntlworld.com>
"Tad McClellan" <tadmc@augustmail.com> wrote in message
news:slrn9l5uqe.5ld.tadmc@tadmc26.august.net...
>
> [ Please do not send stealth Cc's. It makes people angry. ]
>
Thanks for your forbearance. I obviously can't cut the mustard at this
group - I can't even work out how to get to the FAQs, I only seem to get
news in Outlook Expres, not in the browser. As for stealth, I wouldn't know
it if it crept up on me!
I can write a java program to do what I want, I just thought perl would be a
better choice. I'll keep at it.
Thanks
Pete
>
> Pete <bloke6789@hotmail.com> wrote:
> >> Yes. I advise that you post a short and complete program that we
> >> can run that illustrates your problem when asking questions.
> >
> >Tad,
>
>
> If you are going to comment on one of my postings, then your
> References: header should have the message ID of my message.
> It does not. Please don't break stuff like that.
>
> Please followup correctly or I may not see your responses.
> Your article hit 3 of my scorefile rules, so your posts are
> mostly invisible to me.
>
> Followups with a correct References header are scored high
> enough to override the normal negative score that your
> articles get.
>
>
> >Maybe I should have stuck at "hello world". That was my complete script!
> >
> >> How do you know that the substitution does not take place?
> >
> >Because my file remains unchanged.
>
>
> Then you do _not_ know that the substitution failed, since your
> program does not make any output at all.
>
>
> >> I do not see your second piece of code making any output at all.
> >
> >It didn't, I kinda thought it would just change the existing file.
> ^^^^^^
>
> You kinda thought incorrectly then.
>
>
> >> Here is a short and complete program that you can run:
>
> [snip code]
>
> >Thanks, I'll try it and I'll learn from it.
>
>
> You could learn even more by checking the Perl FAQ *before*
> posting to the Perl newsgroup:
>
> perldoc -q change
>
> "How do I change one line in a file/delete a line in a
> file/insert a line in the middle of a file/append to the
> beginning of a file?"
>
>
> See also the -i command line switch if you want to do in-place edits:
>
> perldoc perlrun
>
>
> --
> Tad McClellan SGML consulting
> tadmc@augustmail.com Perl programming
> Fort Worth, Texas
------------------------------
Date: Mon, 16 Jul 2001 18:32:40 GMT
From: gil cohen <gilc@pobox.com>
Subject: Re: arrays, textfiles & creating directories
Message-Id: <cmc6lt8cbgh679ir8ah239kv320nj6102k@4ax.com>
I bet it has something to do with \r\n being at the end of everyline.
Use chomp.
# fixed up version of your program
##############
Begin Code ###
##############
open(LISTTXT, 'C:\projlist.txt');
@list = <LISTTXT>;
chomp @list;
for( $i=0; $i<=5; $i +=1)
{
mkdir (join("C:\\PROJECTS\\", $list[$i]));
}
close(LISTTXT);
##############
End Code #####
##############
On 16 Jul 2001 10:33:02 -0700, cchambli@lycos.com (Casey Chambliss)
wrote:
>Ok, I have a text file (projlist.txt) with each line that has the name
>of a project (proj1, proj2, proj3, ect.)
>
>I have put the text file into an array. How can I then use that array
>to create a directory for each project? Let me show you what I've
>tried... but I don't know why it isn't working...
>
>##############
>Begin Code ###
>##############
>
>open(LISTTXT, 'C:\projlist.txt');
>@list = <LISTTXT>;
>
>for( $i=0; $i<=5; $i +=1)
>{
>mkdir (join("C:\\PROJECTS\\", $list[$i]));
>}
>
>close(LISTTXT);
>##############
>End Code #####
>##############
>
>Why dosen't this work? The syntax for the directories is
>acceptable... no problems there. If I do this with a manually created
>array by:
>
>@list = ('proj1', 'proj2', 'proj3');
>
>it will work just fine... but it won't when reading the array from a
>txt file.
>
>What do I need to do?
------------------------------
Date: Mon, 16 Jul 2001 21:10:10 GMT
From: "John W. Krahn" <krahnj@acm.org>
Subject: Re: arrays, textfiles & creating directories
Message-Id: <3B53582E.DA910D5D@acm.org>
Casey Chambliss wrote:
>
> Ok, I have a text file (projlist.txt) with each line that has the name
> of a project (proj1, proj2, proj3, ect.)
>
> I have put the text file into an array. How can I then use that array
> to create a directory for each project? Let me show you what I've
> tried... but I don't know why it isn't working...
>
> ##############
> Begin Code ###
> ##############
>
> open(LISTTXT, 'C:\projlist.txt');
> @list = <LISTTXT>;
>
> for( $i=0; $i<=5; $i +=1)
> {
> mkdir (join("C:\\PROJECTS\\", $list[$i]));
> }
>
> close(LISTTXT);
> ##############
> End Code #####
> ##############
>
> Why dosen't this work? The syntax for the directories is
> acceptable... no problems there. If I do this with a manually created
> array by:
>
> @list = ('proj1', 'proj2', 'proj3');
>
> it will work just fine... but it won't when reading the array from a
> txt file.
>
> What do I need to do?
chdir '/PROJECTS' or die "Cannot chdir to '/PROJECTS': $!";
open LISTTXT, 'C:/projlist.txt' or die "Cannot read from
'C:/projlist.txt': $!";
chomp( my @list = <LISTTXT> );
for ( @list ) {
mkdir $_, 0777 or warn "Cannot create directory $_: $!";
}
__END__
John
--
use Perl;
program
fulfillment
------------------------------
Date: 16 Jul 2001 13:54:39 -0700
From: kanem@ic.edu (Matt)
Subject: big versions problem from a newbie
Message-Id: <459b8ca2.0107161254.3cb47b8e@posting.google.com>
Okay I have perl version 4 running on a Linux 1.2.8 machine. I want to
put a messageboard on the server, but it requires version 5. So how do
I go about upgrading to version 5? I've read that I can download the
source code for free, but where do I go from there? I understand that
there may be a lot of steps, but I would appreciate any help that I
could possibly receive.
------------------------------
Date: Mon, 16 Jul 2001 22:20:55 +0200
From: Tore Aursand <tore@extend.no>
Subject: Re: Checking for changed or missing links in perl
Message-Id: <MPG.15bd6b0fb37de8bc989698@news.online.no>
In article <e2c00ae.0107160927.2354c378@posting.google.com>,
usted@cyberspace.org says...
> Your question almost seems to imply that you want to
> know if the webpage has *changed* in some way so that
> you no longer want to link to it. This may require
> human intelligence.
Sure thing. I got an idea, however; What if you create an
md5sum of the page _without_ the HTML codes? That would make
more sense, as there is a bigger chance the the HTML code is
dynamic, than the content. Right?
--
Tore Aursand - tore@extend.no - www.aursand.no
------------------------------
Date: 16 Jul 2001 13:06:29 -0700
From: Patrick Flaherty <Patrick_member@newsguy.com>
Subject: extracting a range of lines from a text file
Message-Id: <9ivhg50r22@drn.newsguy.com>
Hello,
Have a text file containing a million lines of identically formatted text data.
What would a perl program look like that extracts, and writes out to another
file, an arbitrary range of the lines? Say, lines 300,000 through 400,000?
Does this exist already. I'm on W2000 running ActiveState Perl. I've tried
using the Cygnus tools (eg split, csplit) and so far it seems they won't do the
job.
And why isn't this in a database already? Well, it's someone else's data and I
want to solve his current problem without backing up and creating the further
problem of putting the data into a db.
pat
------------------------------
Date: 16 Jul 2001 21:30:08 GMT
From: uthinkxxuthink@yahoo.com (Mike Erickson)
Subject: Re: extracting a range of lines from a text file
Message-Id: <slrn9l6nk9.sg4.uthinkxxuthink@srv01.datacenterops.com>
* Patrick Flaherty <Patrick_member@newsguy.com> wrote:
> Hello,
>
> Have a text file containing a million lines of identically formatted
> text data.
>
> What would a perl program look like that extracts, and writes out to
> another file, an arbitrary range of the lines? Say, lines 300,000
> through 400,000? Does this exist already. I'm on W2000 running
[...]
Use $. (line count)
here's some pseudocode:
open file
while file {
if $. is in the specified range {
copy the input to the output
}
}
close file
I'm sure there is a 1-liner uber-elegant way of doing this, but the
above will surely work.
me
--
$email =~ s/xx//;
------------------------------
Date: Mon, 16 Jul 2001 21:36:53 GMT
From: tiltonj@erols.com (Jay Tilton)
Subject: Re: extracting a range of lines from a text file
Message-Id: <3b535cfa.30016249@news.erols.com>
On 16 Jul 2001 13:06:29 -0700, Patrick Flaherty <Patrick_member@newsguy.com>
wrote:
>Have a text file containing a million lines of identically formatted text data.
>
> What would a perl program look like that extracts, and writes out to another
>file, an arbitrary range of the lines? Say, lines 300,000 through 400,000?
perl -ne "print if 300000 .. 400000" [source] > [destination]
where [source] is the name of the million-line, and [destination] is where
you want the extracted lines to land.
For more info, see "range operators" in perlop.
------------------------------
Date: Mon, 16 Jul 2001 16:46:04 -0400
From: tadmc@augustmail.com (Tad McClellan)
Subject: Re: extracting a range of lines from a text file
Message-Id: <slrn9l6kkc.6jv.tadmc@tadmc26.august.net>
Patrick Flaherty <Patrick_member@newsguy.com> wrote:
>
>Have a text file containing a million lines of identically formatted text data.
>
> What would a perl program look like that extracts, and writes out to another
>file, an arbitrary range of the lines? Say, lines 300,000 through 400,000?
perl -ne 'print if $. >= 300_000 and $. <= 400_000' big.file >otherfile
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Mon, 16 Jul 2001 18:17:01 GMT
From: PerlFAQ Server <faq@denver.pm.org>
Subject: FAQ: Where can I get Perl macros for vi?
Message-Id: <xcG47.197$T3.190342656@news.frii.net>
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 every Standard Distribution of
Perl.
+
Where can I get Perl macros for vi?
For a complete version of Tom Christiansen's vi configuration file, see
http://www.perl.com/CPAN/authors/Tom_Christiansen/scripts/toms.exrc.gz ,
the standard benchmark file for vi emulators. The file runs best with
nvi, the current version of vi out of Berkeley, which incidentally can
be built with an embedded Perl interpreter--see
http://www.perl.com/CPAN/src/misc.
-
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.
Answers to questions about LOTS of stuff, mostly not related to
Perl, can be found by pointing your news client to
news:news.answers
or to the many thousands of other useful Usenet news groups.
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-1999 Tom Christiansen and Nathan
Torkington. 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.
03.10
--
This space intentionally left blank
------------------------------
Date: 16 Jul 2001 13:59:32 -0700
From: bbouchard@navisite.com (Brian Bouchard)
Subject: Gather system statistics (cpu, disk, memory utilization)
Message-Id: <2bab37d8.0107161259.3ed18ca7@posting.google.com>
Need sample script or module that would allow me to have one central
server gather all system metrics from 25 other NT servers.
Thx.
Brian
------------------------------
Date: Mon, 16 Jul 2001 12:08:23 -0700
From: Jeff Zucker <jeff@vpservices.com>
Subject: Re: Hard DBI question
Message-Id: <3B533BA7.29AF310F@vpservices.com>
In comp.lang.perl.misc, nobull@mail.com wrote:
>
> isterin@hotmail.com (isterin) writes:
>
> > Why not post on the dbi-user group list.
>
> I can suggest one possible "why". Because it's even more full of
> off-topic noise than the newsgroups!
>
> I tried subscribing for a week but I found the s:n ratio (c. 1:10)
> unbarable.
Your sample is not large enough and you must have hit a particularly
horrendous week. I have been subscribed for almost 4 years and, with
very occasional lapses, the DBI users list has a very good s:n. In the
early days when the list wasn't so busy we did give some extra leaway to
OT posts but in the past year almost all of the regulars have tightened
up and referred OT posts elsewhere. And above and beyond the s:n issue,
dbi-users is one of the highest quality and politest-mannered internet
communications fora I've ever come across.
As Ilya said, most of the DBD authors hang out in dbi-users and most of
us list it as the appropriate place to bring DBI and DBD related
problems.
> Is there any chance that dbi-user could become comp.lang.perl.dbi?
Personally, I think that I'd be less likely to catch all questions I'd
need to see that way. In any case, the place to discuss your suggestion
is certainly dbi-users.
--
Jeff
(author of DBD::RAM and DBD::AnyData and of the forthcoming pure perl,
join-enabled SQL::Statement)
------------------------------
Date: Mon, 16 Jul 2001 21:04:45 GMT
From: tim@vegeta.ath.cx (Tim Hammerquist)
Subject: Re: How to run Perl on MS-DOS
Message-Id: <slrn9l6mdj.qqs.tim@vegeta.ath.cx>
Me parece que Scott Porter <scott@nospamthankx.javascript-games.org> dijo:
> On Sun, 15 Jul 2001 18:41:13 +0800, "sam" <jimstad@cyberway.com.sg> wrote:
>
> >I have installed ActivePerl 5.6.1.628 MSI on Windows 98 from
> >http://aspn.activestate.com . After I opened MS-DOS and type in cd
> >C:\Perl.in. , it says invalid directory. Can anyone kindly help me on this?
>
> This might sound silly, but you do realise you have to use the short (8+3) filenames
> when moving between directories with cd? You can see the short names by using
>
> dir /X
>
> I hope this is right anyway - I only use NT5 and Linux, I've forgotten if Win98 is
> the same as NT...
Win98SE:
C:\ > cd "\my documents"
C:\My Documents > cd LongOneWordDirectory
C:\My Documents\LongOneWordDirectory >
My linux box is more flexible.
[tim@vegeta ~]$ cd /mnt/c/My\ D<Tab>/LongOne<Tab><CR>
bash's autocomplete is so nice when cruising the MS file structure!
--
Sorry - when I booted up this morning, the 'use English' in
one of my init files failed. Am trying to compensate with
'abuse Caffeine' before rebooting.
-- David Cantrell
------------------------------
Date: Mon, 16 Jul 2001 16:02:34 -0400
From: David Coppit <newspost@coppit.org>
To: "Carlos C. Gonzalez" <miscellaneousemail@yahoo.com>
Subject: Re: Including flock in code while developing in Windows for Unix??
Message-Id: <3B53485A.8020802@coppit.org>
[posted and mailed]
Carlos C. Gonzalez wrote:
> I was wondering if anyone had any suggestions as to how to include
> flock() function calls in code that will eventually be uploaded to a
> Unix
> server (on which the flock() function is implemented) while developing
> that code in Windows.
>
> It is kind of a pain to have to remember to change the code every time > I
> upload it to Unix.
Happily Windows can do flock for 5.6.0 versions and better. Here's the
code I use:
# Set up the lockfile. SetupConfig() above created .NewsClipper, so we can
# lock on that. Skip this step if we're on Windows and using a version
of Perl
# earlier than 5.6
unless ((($^O eq 'MSWin32') || ($^O eq 'dos')) && $] < 5.6)
{
require LockFile::Simple;
$lock_manager = LockFile::Simple->make('-autoclean' => 1, '-nfs' => 1,
'-stale' => 1, '-warn' => 0, '-wfunc' => undef, '-efunc' => undef,
'-hold' => $config{script_timeout} + 10,
'-max' => 2 * ($config{script_timeout} + 10));
$lock_manager->lock($the_file_to_lock)
or die <<" EOF";
There is already another copy of the script running. This copy
waited $config{script_timeout} seconds for the other copy to finish.
Aborting.
EOF
}
...
$lock_manager->unlock($the_file_to_lock)
if defined $lock_manager;
David
------------------------------
Date: Mon, 16 Jul 2001 21:31:16 GMT
From: Bart Lateur <bart.lateur@skynet.be>
Subject: Re: Including flock in code while developing in Windows for Unix??
Message-Id: <ubn6ltk8lstr44ob9c25m9dq2sma2mau61@4ax.com>
David Coppit wrote:
>Happily Windows can do flock for 5.6.0 versions and better.
AFAIK, NT only. It still barfs on Win9x.
--
Bart.
------------------------------
Date: Mon, 16 Jul 2001 19:21:55 +0000
From: gnari <gnarinn@hotmail.com>
Subject: Re: Need assistance with a RE
Message-Id: <995311315.825874472036958.gnarinn@hotmail.com>
In article <995290259.163614@nntp.accessus.net>,
SI <butch@sheltonbusinessmachines.com> wrote:
>I have a database that looks like the following:
>
>
>IDDDDDDDLASTNAME,FIRSTNAME SSN-XX-XXXXADDRESS DD (DDD)
>XXX-XXXXIDDDDDDDLASTNAME,FIRSTNAME (etc)
>
>There is an ID number (IDDDDDDD) that is a capital letter followed by 7
>digits. Then (without a space or other delimiter) the lastname field. The
>records all end with the phone number then without any delimiter, there is
>the next ID number. The entire file is one line. I have experimented with
>several expressions in an attempt to insert a CR before each ID number (this
>will allow me to import the data). Can someone lend a hand with a script
>(or just the RE) that will accomplish this?
>
very often in this kind of datafiles, we are dealing with fixed-length
records. in that case, do something like (untested)
{
local $/=\75; #if record length is 75 chars
open(FILE, $myfile) or die "argh:$!";
while (<FILE>) {
print "$_\n";
}
close(FILE);
}
if not, then you must rely on some way to recognize the fields.
if for example the IDDDDDDD pattern only occurs in the ID but not
anywhere else, why not:
s/([A-Z]\d{7})/\n\1/g;
gnari
------------------------------
Date: Mon, 16 Jul 2001 21:27:10 GMT
From: "John W. Krahn" <krahnj@acm.org>
Subject: Re: Need assistance with a RE
Message-Id: <3B535C78.9210A252@acm.org>
SI wrote:
>
> I have a database that looks like the following:
>
> IDDDDDDDLASTNAME,FIRSTNAME SSN-XX-XXXXADDRESS DD (DDD)
> XXX-XXXXIDDDDDDDLASTNAME,FIRSTNAME (etc)
>
> There is an ID number (IDDDDDDD) that is a capital letter followed by 7
> digits. Then (without a space or other delimiter) the lastname field. The
> records all end with the phone number then without any delimiter, there is
> the next ID number. The entire file is one line. I have experimented with
> several expressions in an attempt to insert a CR before each ID number (this
> will allow me to import the data). Can someone lend a hand with a script
> (or just the RE) that will accomplish this?
This looks like a job for unpack.
my ( $id, $name, $ssn, $addr, $phone ) = unpack 'A8 A24 A11 A23 A14',
$data;
John
--
use Perl;
program
fulfillment
------------------------------
Date: Mon, 16 Jul 2001 18:18:24 -0000
From: Greg Bacon <gbacon@cs.uah.edu>
Subject: New posters to comp.lang.perl.misc
Message-Id: <tl6bvg30rb0e8f@corp.supernews.com>
Following is a summary of articles from new posters spanning a 7 day
period, beginning at 09 Jul 2001 19:17:03 GMT and ending at
16 Jul 2001 12:41:11 GMT.
Notes
=====
- A line in the body of a post is considered to be original if it
does *not* match the regular expression /^\s{0,3}(?:>|:|\S+>|\+\+)/.
- All text after the last cut line (/^-- $/) in the body is
considered to be the author's signature.
- The scanner prefers the Reply-To: header over the From: header
in determining the "real" email address and name.
- Original Content Rating (OCR) is the ratio of the original content
volume to the total body volume.
- Find the News-Scan distribution on the CPAN!
<URL:http://www.perl.com/CPAN/modules/by-module/News/>
- Please send all comments to Greg Bacon <gbacon@cs.uah.edu>.
- Copyright (c) 2001 Greg Bacon.
Verbatim copying and redistribution is permitted without royalty;
alteration is not permitted. Redistribution and/or use for any
commercial purpose is prohibited.
Totals
======
Posters: 129 (39.1% of all posters)
Articles: 220 (24.1% of all articles)
Volume generated: 377.1 kb (23.5% of total volume)
- headers: 170.8 kb (3,476 lines)
- bodies: 202.4 kb (6,809 lines)
- original: 139.7 kb (4,854 lines)
- signatures: 3.7 kb (87 lines)
Original Content Rating: 0.690
Averages
========
Posts per poster: 1.7
median: 1 post
mode: 1 post - 81 posters
s: 1.4 posts
Message size: 1755.3 bytes
- header: 795.2 bytes (15.8 lines)
- body: 942.0 bytes (30.9 lines)
- original: 650.1 bytes (22.1 lines)
- signature: 17.1 bytes (0.4 lines)
Top 10 Posters by Number of Posts
=================================
(kb) (kb) (kb) (kb)
Posts Volume ( hdr/ body/ orig) Address
----- -------------------------- -------
9 14.4 ( 6.5/ 7.9/ 5.1) el <el@wilmington.net>
8 15.4 ( 7.6/ 7.7/ 5.4) "jeremyalansmith" <jeremyalansmith@netscapeonline.co.uk>
7 13.4 ( 5.7/ 7.7/ 3.7) Scott Porter <scott@nospamthankx.javascript-games.org>
5 8.0 ( 4.0/ 4.0/ 2.9) "JJ" <jocke30_gbg@hotmail.com>
5 8.6 ( 4.2/ 4.4/ 1.2) rik@tidi.be
5 8.6 ( 4.0/ 4.7/ 2.3) Fabrice Leclerc <leclerc.fabrice@wanadoo.fr>
4 6.8 ( 2.8/ 4.0/ 2.1) "scotth" <scott@remove.generator.co.za>
4 4.4 ( 2.0/ 2.4/ 2.3) Les Ander <citykid@nospam.com>
4 7.7 ( 3.4/ 4.3/ 3.8) "Steinhaugs Webdesign" <firma@steinhaug.com>
4 7.4 ( 3.0/ 3.9/ 2.3) timmy@cpan.org
These posters accounted for 6.0% of all articles.
Top 10 Posters by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Address
-------------------------- ----- -------
15.4 ( 7.6/ 7.7/ 5.4) 8 "jeremyalansmith" <jeremyalansmith@netscapeonline.co.uk>
14.4 ( 6.5/ 7.9/ 5.1) 9 el <el@wilmington.net>
13.4 ( 5.7/ 7.7/ 3.7) 7 Scott Porter <scott@nospamthankx.javascript-games.org>
9.3 ( 1.7/ 7.6/ 2.2) 2 Karl Orbell <kao98@texel02.doc.ic.ac.uk>
8.7 ( 1.6/ 7.1/ 6.2) 2 "Dustin Lee" <leed@ucdavis.edu>
8.6 ( 4.0/ 4.7/ 2.3) 5 Fabrice Leclerc <leclerc.fabrice@wanadoo.fr>
8.6 ( 4.2/ 4.4/ 1.2) 5 rik@tidi.be
8.0 ( 4.0/ 4.0/ 2.9) 5 "JJ" <jocke30_gbg@hotmail.com>
7.7 ( 3.4/ 4.3/ 3.8) 4 "Steinhaugs Webdesign" <firma@steinhaug.com>
7.4 ( 3.0/ 3.9/ 2.3) 4 timmy@cpan.org
These posters accounted for 6.3% of the total volume.
Top 10 Posters by OCR (minimum of three posts)
==============================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.968 ( 2.3 / 2.4) 4 Les Ander <citykid@nospam.com>
0.881 ( 3.8 / 4.3) 4 "Steinhaugs Webdesign" <firma@steinhaug.com>
0.721 ( 2.9 / 4.0) 5 "JJ" <jocke30_gbg@hotmail.com>
0.692 ( 5.4 / 7.7) 8 "jeremyalansmith" <jeremyalansmith@netscapeonline.co.uk>
0.674 ( 1.1 / 1.7) 3 Pete <Peter@angeltec.fsnetNOTTHIS.co.uk>
0.653 ( 5.1 / 7.9) 9 el <el@wilmington.net>
0.609 ( 1.7 / 2.8) 3 Ilmari Karonen <usenet11514@itz.pp.sci.fi>
0.602 ( 2.3 / 3.9) 4 timmy@cpan.org
0.534 ( 2.1 / 4.0) 4 "scotth" <scott@remove.generator.co.za>
0.518 ( 1.1 / 2.0) 3 Mark McKay <kitfox@kitfox.com>
Bottom 10 Posters by OCR (minimum of three posts)
=================================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.534 ( 2.1 / 4.0) 4 "scotth" <scott@remove.generator.co.za>
0.518 ( 1.1 / 2.0) 3 Mark McKay <kitfox@kitfox.com>
0.500 ( 2.3 / 4.7) 5 Fabrice Leclerc <leclerc.fabrice@wanadoo.fr>
0.491 ( 0.8 / 1.7) 3 "Haim Lichaa" <haim.lichaa@intel.com>
0.479 ( 3.7 / 7.7) 7 Scott Porter <scott@nospamthankx.javascript-games.org>
0.455 ( 1.2 / 2.6) 3 tuxy <ns@cfl.rr.com>
0.444 ( 1.8 / 4.0) 3 "Adam Stewart" <Stewy@Chartermi.net>
0.407 ( 1.0 / 2.4) 3 Ronald Blaschke <TGVCDPVNTLMI@spammotel.com>
0.266 ( 1.2 / 4.4) 5 rik@tidi.be
0.225 ( 0.8 / 3.7) 3 "Mark W. Dufault" <mdufault@dynamicservers.com>
18 posters (13%) had at least three posts.
Top 10 Targets for Crossposts
=============================
Articles Newsgroup
-------- ---------
40 alt.perl
20 comp.lang.perl.modules
13 comp.lang.perl
6 comp.mail.misc
6 alt.html
5 comp.lang.python
5 gnu.misc.discuss
5 comp.lang.c
5 comp.lang.java.advocacy
3 comp.mail.headers
Top 10 Crossposters
===================
Articles Address
-------- -------
8 phil hunt <philh@comuno.freeserve.co.uk>
4 Gergo Barany <gergo.barany@gmx.net>
4 those who know me have no need of my name <not-a-real-address@usa.net>
4 Manuel =?ISO-8859-1?Q?H=F6l=DF?= <manuel.hoelss@uni-giessen.de>
3 Alistair McDonald <alistair_remove@pwd.hp.com>
2 andrew@daviel.org
2 Casey Chambliss <cchambli@lycos.com>
2 "Brucie" <ng02@brucies.com>
1 "DynamicWebDevelopers" <news@dynamicwebdevelopers.com>
1 Bob Showalter <yaquib@yahoo.com>
------------------------------
Date: Mon, 16 Jul 2001 19:06:45 GMT
From: "Ibrahim Hamouda" <iham@internode.net>
Subject: Re: please help urgent
Message-Id: <9XG47.9408$W6.4159971@news2.rdc1.ab.home.com>
thanks for yor reply.
can you give me a hint what to do with the security issue, I'm really new to
this stuff
Ibrahim Hamouda
"gnari" <gnarinn@hotmail.com> wrote in message
news:995286805.126196279190481.gnarinn@hotmail.com...
> In article <p%o47.7040$W6.3662854@news2.rdc1.ab.home.com>,
> Ibrahim Hamouda <iham@internode.net> wrote:
>
> (snipped problem about cgi params not working correctly when used as
> arguments to shell command)
>
> (snipped overly long script with lots of irrelevant stuff)
>
> >
> >open (FAX, "|/usr/local/bin/sendemailfax $email $ADDRESS $MSGS"); # Only
the
> >first two parameters are passed
> >
>
> what you are doing here, is to assemple a long command line, and
> asking the operating system to execute it.
>
> apart from the security issues (serious), for this to work,
> the resulting command line must be valid, so the variables used must not
> contain characters that have special meaning in command lines.
> for example: * $ and ;
>
> I do not know this /usr/local/bin/sendemailfax, but I cannot imagine a
sane
> email of fax program that requires the body of the message on the command
> line.
>
> are you sure that you do not need to do something like:
> open (FAX, "|/usr/local/bin/sendemailfax $email $ADDRESS")
> or die "could not open FAX:$!" ;
> print FAX $MSGS;
> close FAX;
> this would seem to be a much more natural way to do it.
>
> gnari
>
------------------------------
Date: Mon, 16 Jul 2001 21:05:37 -0000
From: doughera@maxwell.phys.lafayette.edu (Andy Dougherty)
Subject: Re: problem with @INC
Message-Id: <slrn9l6lrj.b5q.doughera@maxwell.phys.lafayette.edu>
In article <3B531720.F80B4D74@home.com>, Michael Carman wrote:
>[Jeapordectomy performed. Please don't top-post.]
>
>> > How can i add the /usr/lib/perl5/site_perl/5.6.0
>> > into my path?
>> At the top of the script you can also add
>> push(@INC,'/usr/lib/perl5/site_perl/5.6.0');
>
>That won't happen until runtime. You need to put it in a BEGIN block to
>make it happen at compile time.
And if you use the lib.pm module, it'll automatically handle searching
in the appropriate version-specific and architecture-specific
directories.
--
Andy Dougherty doughera@lafayette.edu
Dept. of Physics
Lafayette College, Easton PA 18042
------------------------------
Date: Mon, 16 Jul 2001 20:57:24 GMT
From: "Blnukem" <blnukem@hotmail.com>
Subject: Replacing Data
Message-Id: <UyI47.36524$qs5.7198790@news02.optonline.net>
Hi Group
I'm trying to remove asterisk (**) from some text retrieved from a flat file
this code works well for.
Example: changing " folder_name **.dat" to " folder_name **.txt"
$CATAGORY_DATA {$key} =~ s/\.dat/.txt/g;
But when I try to remove the two asterisk (**) from the line this code
will only change the last one in the list why?
Example: changing " folder_name **.dat" to " folder_name.txt"
$CATAGORY_DATA {$key} =~ s/\s*\**\.dat/.txt/g;
Please help
------------------------------
Date: Mon, 16 Jul 2001 22:01:32 GMT
From: "John W. Krahn" <krahnj@acm.org>
Subject: Re: Replacing Data
Message-Id: <3B536439.3F7A1D6D@acm.org>
Blnukem wrote:
>
> Hi Group
> I'm trying to remove asterisk (**) from some text retrieved from a flat file
> this code works well for.
> Example: changing " folder_name **.dat" to " folder_name **.txt"
> $CATAGORY_DATA {$key} =~ s/\.dat/.txt/g;
>
> But when I try to remove the two asterisk (**) from the line this code
> will only change the last one in the list why?
> Example: changing " folder_name **.dat" to " folder_name.txt"
> $CATAGORY_DATA {$key} =~ s/\s*\**\.dat/.txt/g;
$ perl -le'$_=" folder_name **.dat";print;s/\s*\**\.dat/.txt/g;print'
folder_name **.dat
folder_name.txt
It works fine on my computer but you don't need the /g modifier and you
should anchor at the end of line.
s/\s*\**\.dat$/.txt/;
John
--
use Perl;
program
fulfillment
------------------------------
Date: 16 Jul 2001 14:38:06 -0500
From: Ren Maddox <ren@tivoli.com>
Subject: Re: sortlen -- filter to sort text by line length
Message-Id: <m3pub0u0kh.fsf@dhcp9-161.support.tivoli.com>
On Mon, 16 Jul 2001, uri@sysarch.com wrote:
>>>>>> "RM" == Ren Maddox <ren@tivoli.com> writes:
>
> RM> On Fri, 13 Jul 2001, gbacon@HiWAAY.net wrote:
> RM> [snipped sorting by length with ST or GRT]
>
> >> A scalar already knows its length, so all the time and space
> >> used in constructing, accessing, and stripping the augmented
> >> list is wasted.
>
> RM> Ack! I thought that perhaps the GRT advantage of the built-in
> RM> comparison would overcome this, but some quick benchmarking
> RM> has not revealed that to be true.
>
> i haven't looked at this problem in detail but you have to note that
> both the ST and GRT will be slower in real terms for short lists
> where the setup overhead they have is less than the comparison
> overhead. they will win when you have enough comparisons that the
> setup overhead is swamped by the compare calls. this is standard O()
> algorithm theory. even a O(N*N) bubble sort can be faster than a O(N
> * Log N) sort for short lists.
Given. I even contemplated graphing my benchmark results to get a
better impression of the relative performance changes as I changed the
size of my data. For data sets up to 100,000, the basic sort was still
appreciably faster than the GRT, though it did seem to be gaining
ground. At 1,000,000 I had to increase the benchmark time and it
became too much for my system to handle gracefully, so I gave up.
It doesn't surprise me at all that comparing the lengths of strings
would be faster than comparing the strings themselves, but I had been
led to believe that the overhead of a custom comparison routine would
be larger.
--
Ren Maddox
ren@tivoli.com
------------------------------
Date: Mon, 16 Jul 2001 18:18:22 -0000
From: Greg Bacon <gbacon@cs.uah.edu>
Subject: Statistics for comp.lang.perl.misc
Message-Id: <tl6bve2ik7g88d@corp.supernews.com>
Following is a summary of articles spanning a 7 day period,
beginning at 09 Jul 2001 19:17:03 GMT and ending at
16 Jul 2001 12:41:11 GMT.
Notes
=====
- A line in the body of a post is considered to be original if it
does *not* match the regular expression /^\s{0,3}(?:>|:|\S+>|\+\+)/.
- All text after the last cut line (/^-- $/) in the body is
considered to be the author's signature.
- The scanner prefers the Reply-To: header over the From: header
in determining the "real" email address and name.
- Original Content Rating (OCR) is the ratio of the original content
volume to the total body volume.
- Find the News-Scan distribution on the CPAN!
<URL:http://www.perl.com/CPAN/modules/by-module/News/>
- Please send all comments to Greg Bacon <gbacon@cs.uah.edu>.
- Copyright (c) 2001 Greg Bacon.
Verbatim copying and redistribution is permitted without royalty;
alteration is not permitted. Redistribution and/or use for any
commercial purpose is prohibited.
Excluded Posters
================
perlfaq-suggestions\@(?:.*\.)?perl\.com
faq\@(?:.*\.)?denver\.pm\.org
Totals
======
Posters: 330
Articles: 914 (304 with cutlined signatures)
Threads: 264
Volume generated: 1607.5 kb
- headers: 734.5 kb (14,591 lines)
- bodies: 837.6 kb (28,226 lines)
- original: 490.0 kb (18,120 lines)
- signatures: 34.5 kb (859 lines)
Original Content Rating: 0.585
Averages
========
Posts per poster: 2.8
median: 1.0 post
mode: 1 post - 178 posters
s: 4.1 posts
Posts per thread: 3.5
median: 3.0 posts
mode: 1 post - 76 threads
s: 4.0 posts
Message size: 1800.9 bytes
- header: 822.9 bytes (16.0 lines)
- body: 938.4 bytes (30.9 lines)
- original: 548.9 bytes (19.8 lines)
- signature: 38.6 bytes (0.9 lines)
Top 10 Posters by Number of Posts
=================================
(kb) (kb) (kb) (kb)
Posts Volume ( hdr/ body/ orig) Address
----- -------------------------- -------
28 52.1 ( 22.3/ 28.9/ 7.7) "John W. Krahn" <krahnj@acm.org>
27 64.1 ( 21.4/ 41.1/ 19.4) Benjamin Goldberg <goldbb2@earthlink.net>
26 42.9 ( 20.7/ 22.1/ 9.7) gnari <gnarinn@hotmail.com>
26 45.2 ( 23.4/ 17.4/ 9.8) "Philip 'Yes, that's my address' Newton" <nospam.newton@gmx.li>
22 49.3 ( 24.2/ 22.0/ 13.4) tadmc@augustmail.com
21 35.7 ( 15.5/ 18.5/ 10.1) nobull@mail.com
20 39.6 ( 17.8/ 21.8/ 11.5) "Wyzelli" <wyzelli@yahoo.com>
16 36.3 ( 12.7/ 22.2/ 15.5) Logan Shaw <logan@cs.utexas.edu>
15 27.7 ( 13.0/ 10.2/ 4.7) Uri Guttman <uri@sysarch.com>
14 21.1 ( 10.8/ 10.3/ 5.0) Eric Bohlman <ebohlman@omsdev.com>
These posters accounted for 23.5% of all articles.
Top 10 Posters by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Address
-------------------------- ----- -------
64.1 ( 21.4/ 41.1/ 19.4) 27 Benjamin Goldberg <goldbb2@earthlink.net>
52.1 ( 22.3/ 28.9/ 7.7) 28 "John W. Krahn" <krahnj@acm.org>
49.3 ( 24.2/ 22.0/ 13.4) 22 tadmc@augustmail.com
45.2 ( 23.4/ 17.4/ 9.8) 26 "Philip 'Yes, that's my address' Newton" <nospam.newton@gmx.li>
42.9 ( 20.7/ 22.1/ 9.7) 26 gnari <gnarinn@hotmail.com>
39.6 ( 17.8/ 21.8/ 11.5) 20 "Wyzelli" <wyzelli@yahoo.com>
36.3 ( 12.7/ 22.2/ 15.5) 16 Logan Shaw <logan@cs.utexas.edu>
35.7 ( 15.5/ 18.5/ 10.1) 21 nobull@mail.com
27.7 ( 13.0/ 10.2/ 4.7) 15 Uri Guttman <uri@sysarch.com>
21.9 ( 9.1/ 12.0/ 11.1) 13 Rafael Garcia-Suarez <rgarciasuarez@free.fr>
These posters accounted for 25.8% of the total volume.
Top 10 Posters by OCR (minimum of five posts)
==============================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.925 ( 11.1 / 12.0) 13 Rafael Garcia-Suarez <rgarciasuarez@free.fr>
0.778 ( 3.3 / 4.2) 5 Smiley <gurm@intrasof.com>
0.721 ( 2.9 / 4.0) 5 "JJ" <jocke30_gbg@hotmail.com>
0.712 ( 2.8 / 3.9) 5 "Andrew" <andrew@mvt.ie>
0.704 ( 2.5 / 3.6) 5 "Richard A. Evans" <EvR@compuserve.com>
0.700 ( 15.5 / 22.2) 16 Logan Shaw <logan@cs.utexas.edu>
0.692 ( 5.4 / 7.7) 8 "jeremyalansmith" <jeremyalansmith@netscapeonline.co.uk>
0.653 ( 5.1 / 7.9) 9 el <el@wilmington.net>
0.649 ( 5.0 / 7.8) 13 Laszlo Gerencser <laszlo.gerencser@portologic.com>
0.607 ( 13.4 / 22.0) 22 tadmc@augustmail.com
Bottom 10 Posters by OCR (minimum of five posts)
=================================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.459 ( 4.7 / 10.2) 15 Uri Guttman <uri@sysarch.com>
0.458 ( 4.8 / 10.5) 12 E.Chang <echang@netstorm.net>
0.450 ( 4.9 / 10.8) 13 Anno Siegel <anno4000@lublin.zrz.tu-berlin.de>
0.437 ( 9.7 / 22.1) 26 gnari <gnarinn@hotmail.com>
0.405 ( 1.0 / 2.5) 7 Brian Pontz <pontz@NO_SPAMchannel1.com>
0.318 ( 2.5 / 7.8) 10 Tony Curtis <tony_curtis32@yahoo.com>
0.266 ( 7.7 / 28.9) 28 "John W. Krahn" <krahnj@acm.org>
0.266 ( 1.2 / 4.4) 5 rik@tidi.be
0.250 ( 2.6 / 10.4) 8 "Terry" <dcs@ntlworld.com>
0.237 ( 2.2 / 9.3) 6 dbe@todbe.com
38 posters (11%) had at least five posts.
Top 10 Threads by Number of Posts
=================================
Posts Subject
----- -------
19 Very good regex question?
18 Text variable containing '$'
18 Advanced Sorting
18 trimming blank
16 Can I <!--include files ???
14 Finding size of HTML page via HTTP
12 complex perl problem
12 Using a variable in a regular expression
10 why is Vars an undefined subroutine?
9 Some perl questions
These threads accounted for 16.0% of all articles.
Top 10 Threads by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Subject
-------------------------- ----- -------
36.7 ( 16.9/ 18.6/ 9.7) 19 Very good regex question?
32.8 ( 15.0/ 16.6/ 7.9) 18 Advanced Sorting
32.6 ( 14.1/ 18.4/ 6.9) 16 Can I <!--include files ???
28.4 ( 15.2/ 12.8/ 6.1) 18 Text variable containing '$'
24.7 ( 13.5/ 10.3/ 5.7) 18 trimming blank
23.4 ( 10.0/ 13.1/ 7.6) 12 complex perl problem
22.6 ( 12.6/ 9.2/ 5.3) 14 Finding size of HTML page via HTTP
20.4 ( 8.2/ 12.1/ 4.0) 9 environment variable in cgi
20.3 ( 4.7/ 15.1/ 12.5) 6 Performance problem--memory bloat or crawl
20.2 ( 5.2/ 14.6/ 9.7) 7 Data structures question.
These threads accounted for 16.3% of the total volume.
Top 10 Threads by OCR (minimum of five posts)
==============================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.826 ( 12.5/ 15.1) 6 Performance problem--memory bloat or crawl
0.812 ( 4.0/ 4.9) 6 file comparison problem
0.772 ( 5.6/ 7.2) 5 about fcntl
0.755 ( 3.7/ 4.8) 5 How popular is Python, anyway? (was: Long Live Python!)
0.750 ( 4.6/ 6.1) 8 List files in a directory
0.744 ( 3.2/ 4.3) 5 HELP! - Input text field problems!
0.743 ( 4.8/ 6.4) 8 Replacing a word in a file
0.735 ( 3.7/ 5.0) 5 Problems with GetHostByName and getting URL addresses
0.734 ( 1.6/ 2.1) 6 vvp:Changing Unix Environments with Perl?
0.728 ( 1.9/ 2.6) 5 URL String Problem
Bottom 10 Threads by OCR (minimum of five posts)
=================================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.432 ( 5.3 / 12.2) 9 Causing a slow page delivery (on purpose)
0.429 ( 3.6 / 8.4) 9 argument in regular expression
0.423 ( 1.6 / 3.7) 5 sendmail based on a state
0.423 ( 3.4 / 7.9) 8 Shouldn't -e return FALSE instead of UNDEFINED on non-existant file?
0.402 ( 1.4 / 3.4) 5 How to stop the scrolling when I open a large text file
0.401 ( 1.5 / 3.6) 6 perl debugger
0.398 ( 1.1 / 2.7) 5 Net::Telnet logging on problem.....
0.377 ( 6.9 / 18.4) 16 Can I <!--include files ???
0.377 ( 3.9 / 10.3) 8 Active State
0.328 ( 4.0 / 12.1) 9 environment variable in cgi
65 threads (24%) had at least five posts.
Top 10 Targets for Crossposts
=============================
Articles Newsgroup
-------- ---------
40 alt.perl
20 comp.lang.perl.modules
13 comp.lang.perl
6 comp.mail.misc
6 alt.html
5 comp.lang.python
5 gnu.misc.discuss
5 comp.lang.c
5 comp.lang.java.advocacy
3 comp.mail.headers
Top 10 Crossposters
===================
Articles Address
-------- -------
8 phil hunt <philh@comuno.freeserve.co.uk>
6 =?ISO-8859-1?Q?Morten_Tanger=E5s?= <morten@tangeraas.com>
5 Laszlo Gerencser <laszlo.gerencser@portologic.com>
5 gnari <gnarinn@hotmail.com>
4 Per Abrahamsen <abraham@dina.kvl.dk>
4 Manuel =?ISO-8859-1?Q?H=F6l=DF?= <manuel.hoelss@uni-giessen.de>
4 those who know me have no need of my name <not-a-real-address@usa.net>
4 Mike <michael_of_neb@yahoo.com>
4 Akira Yamanita <ayamanita.nospam@bigfoot.com>
4 Gergo Barany <gergo.barany@gmx.net>
------------------------------
Date: Mon, 16 Jul 2001 15:59:33 -0500
From: Brian Pellin <bpellin@ntsource.com>
Subject: Re: Using a variable in a regular expression
Message-Id: <7al6ltkg9jr3kk4ocfqf6u8vr2m3g2f9of@4ax.com>
On Sun, 15 Jul 2001 10:45:48 GMT, Peter@angeltec.fsnetNOTTHIS.co.uk
(Pete) wrote:
>Thanks for info,
>
>On Fri, 13 Jul 2001 16:32:22 GMT, Uri Guttman <uri@sysarch.com> wrote:
>
>> P> This system is perl 4 and says something about qr being a future
>> P> reserved word
>>
>>that is soemthing you must upgrade immediately. no one supports perl4
>>anymore and too many correct answers you will get rely on perl5. you are
>>just shooting yourself in the foot using perl4 now.
>
>It's just what's installed here. I could ask them to upgrade it but
>the first question I'm likely to be asked is how it will impact on the
>existing scripts - and I don't know at the moment.
>
>Pete
Just make sure that if they do upgrade, they go to at least 5.005_03.
I was terribly annoyed when I discovered I had perl 5.004_03,
installed on my new shell account, and that all of my scripts using
qr// had to be slightly rewritten, because qr// was added somewhere
between 5.004_03 and 5.005_03.
Brian
------------------------------
Date: 16 Jul 2001 13:45:48 -0700
From: kanem@ic.edu (Matt)
Subject: Re: versions
Message-Id: <459b8ca2.0107161245.203b31dc@posting.google.com>
Michael Carman <mjcarman@home.com> wrote in message news:<3B53173C.DC58E93B@home.com>...
> Matt wrote:
> >
> > how can I find out what version of perl is on a linux server? I'm not
> > familiar with a command.
>
> perl -v
> perl -V
>
> -mjc
Thanks a lot guys...
------------------------------
Date: 16 Jul 2001 14:49:14 -0500
From: Ren Maddox <ren@tivoli.com>
Subject: Re: warn() does not use a localized STDERR filehandle, how come?
Message-Id: <m3hewcu01x.fsf@dhcp9-161.support.tivoli.com>
On Sat, 14 Jul 2001, mjd@plover.com wrote:
> In article <d71d1211.0107131258.586138e3@posting.google.com>,
> nico gianniotis <nico@arzoon.com> wrote:
>> {
>> local *STDERR;
>> open(STDERR, ">/tmp/z");
>> warn "oops! this comes out the original stderr! why?\n";
>> print STDERR "however, this goes into /tmp/z as expected\n";
>> close(STDERR);
>> }
>
> This works correctly for me with Perl 5.6.1 on Linux. If it's not
> working for you, please run the 'perbug' program that comes with
> Perl, and file a bug report.
FWIW, it also worked fine for me with Perl 5.6.0 on Linux.
--
Ren Maddox
ren@tivoli.com
------------------------------
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.
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 1313
***************************************
