[23863] in Perl-Users-Digest
Perl-Users Digest, Issue: 6066 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Feb 2 09:05:40 2004
Date: Mon, 2 Feb 2004 06:05:06 -0800 (PST)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Mon, 2 Feb 2004 Volume: 10 Number: 6066
Today's topics:
Capture stderr stdout using system call with commas? <marv@mister.com>
Re: Capture stderr stdout using system call with commas (Mark Jason Dominus)
Re: Capture stderr stdout using system call with commas <syscjm@gwu.edu>
Re: CPAN & Date::Time (check)
Embedded Perl sprintf (symbol?) problem. (R. Cheung)
How to add a user to /etc/passwd using CGI? <lordpopcorn@[cut-this-out]poczta.onet.pl>
Re: How to add a user to /etc/passwd using CGI? <mike@no_address.tld>
How to know the input line number when using parse_file (Himanshu Garg)
Re: How to know the input line number when using parse_ <kuujinbo@hotmail.com>
How to match some characters different to each other? (Georg Wittig)
Re: interpreting script <bik.mido@tiscalinet.it>
Re: No answer for your problem ? <flavell@ph.gla.ac.uk>
Re: open a ascii file and rotate the content 90 deg... <lyoute@softhome.net>
Re: open a ascii file and rotate the content 90 deg... <tassilo.parseval@rwth-aachen.de>
Re: open a ascii file and rotate the content 90 deg... <matthew.garrish@sympatico.ca>
Re: open a ascii file and rotate the content 90 deg... <nobull@mail.com>
Re: open a ascii file and rotate the content 90 deg... <notpublic@restricted.com>
Re: Perl For Amateur Computer Programmers <bik.mido@tiscalinet.it>
Re: Perl For Amateur Computer Programmers <tassilo.parseval@rwth-aachen.de>
perl v-drive/webfolder program (seansan)
Statistics for comp.lang.perl.misc <gbacon@hiwaay.net>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 02 Feb 2004 12:31:26 GMT
From: Marv <marv@mister.com>
Subject: Capture stderr stdout using system call with commas?
Message-Id: <8bgs109p1mqmquvrbv0p60ub6s0oqh353f@4ax.com>
Hello,
I've got an issue that I can't seem to figure out.
I'm trying to run some mount and rsync commands from inside a perl
script.
I've figured out from other postings that you have to use a system
call and seperate all the command line options with quotes and commas.
I'm not sure why this is, but I can never get the commands to work if
I enclose them with backticks? Can anybody explain this?
Anyway, if the commands could be enclosed in backticks I would have my
problem solved, but since I have to use system (), I can't seem to
figure out how to capture this data either to a variable or a file.
I've tried using '2>&1 tmp.errors' but this doesn't work either
because of the commas. Here is a sample of what I'm doing:
system (
"mount",
"-r",
"-t",
"smbfs",
"-o","username=$adminuser,password=$adminpass",
"//$ip/$ashare",
"/share/$nbname/$ashare",
"2>&1 tmp.errors"
);
This method doesn't work because it takes the '2>&1 tmp.errors' as
another option of mount and bombs out. If I include it at the end of
'/share/$nbname/$ashare' then it takes as part of the name of the
mount point and bombs out.
Can anybody help me capture this info? Or show me how this can be down
with backticks.
Thanks.
Marv
------------------------------
Date: Mon, 2 Feb 2004 13:17:40 +0000 (UTC)
From: mjd@plover.com (Mark Jason Dominus)
Subject: Re: Capture stderr stdout using system call with commas?
Message-Id: <bvlilk$fff$1@plover.com>
In article <8bgs109p1mqmquvrbv0p60ub6s0oqh353f@4ax.com>,
Marv <marv@mister.com> wrote:
> system (
> "mount",
> "-r",
> "-t",
> "smbfs",
>
>"-o","username=$adminuser,password=$adminpass",
> "//$ip/$ashare",
> "/share/$nbname/$ashare",
> "2>&1 tmp.errors"
> );
>
>This method doesn't work because it takes the '2>&1 tmp.errors' as
>another option of mount and bombs out. If
Before I answer the question you asked, can I suggest that "2>&1
tmp.errors" is not doing what you expect? "2>&1" tells the shell that
the error output should go to the same place as the regular output,
probably to the terminal. "tmp.errors" will be taken as just another
argument to mount, the same as if you had put it *before* the "2>&1".
They are not related.
If what you want is to send all output to "tmp.errors", you would need
>tmp.errors 2>&1
which says to send the normal output to tmp.errors, and then the error
output to the same place.
***
That said, you can't do this with the list form of 'system'. The
'2>&1' notation is a message to the Unix shell, and the list form of
'system' doesn't use the shell---in fact, that's the whole reason that
the list form of 'system' exists.
You have at least two choices. You can use the one-argument form of
'system', which does use the Unix shell:
system("mount -r -t smbfs -o username=$adminuser,password=$adminpass //$pi/$ashare /share/$nbname/$ashare >tmp.errors 2>&1") == 0
or die ...;
or you can do what the shell does when the shell interprets '2>&1',
which would look something like this:
my $pid = fork; # Create child process for 'mount' command
die ... unless defined $pid;
if ($pid == 0) { # child process
open STDOUT, ">", "tmp.errors" or die ...; # Redirect STDOUT
open STDERR, ">&STDOUT" or die ...; # Redirect STDERR
exec "mount", "-r", "-t", "smbfs", "//$ip/$ashare",
"-o","username=$adminuser,password=$adminpass",
"/share/$nbname/$ashare"
or die ...;
}
# Parent process
wait() or die ...;
I hope this is at least a little helpful.
Now, to your root problem:
>I'm not sure why this is, but I can never get the commands to work if
>I enclose them with backticks? Can anybody explain this?
In my experience, one of the sure ways to not get a useful answer to
your question is to ask why something "doesn't work". To get a useful
answer, you need to say what you wanted it to do, and what it did do
that you didn't like. When I saw this I thought immediately that your
problem was that you weren't getting any output, but then I realized
that that probably wasn't it. But having guessed wrong at once makes
me think that guessing again is unlikely to hit on the right problem.
I could spend a lot of time diagnosing a problem and telling you how
to fix it only to find out that it wasn't the problem you were
actually having. And I don't want to do that, having learned from
hard experience how frustrating it can be for both of us. Someone
with less hard experience might just go ahead and diagnose and explain
some random problem that occurred to them, which would be frustrating
for both of you.
A good way to ask this kind of question in the future would be to try
to write a fresh program, as small as possible, that demonstrates your
one problem as clearly as possible, and nothing else, and then post
that program, and say "it did X, but I wanted it to do Y". Then you
will get a lot of useful advice.
Best regards,
-D.
------------------------------
Date: Mon, 02 Feb 2004 08:20:19 -0500
From: Chris Mattern <syscjm@gwu.edu>
Subject: Re: Capture stderr stdout using system call with commas?
Message-Id: <401E4E93.8080505@gwu.edu>
Marv wrote:
> Hello,
>
> I've got an issue that I can't seem to figure out.
>
> I'm trying to run some mount and rsync commands from inside a perl
> script.
>
> I've figured out from other postings that you have to use a system
> call and seperate all the command line options with quotes and commas.
> I'm not sure why this is, but I can never get the commands to work if
> I enclose them with backticks? Can anybody explain this?
>
> Anyway, if the commands could be enclosed in backticks I would have my
> problem solved, but since I have to use system (), I can't seem to
> figure out how to capture this data either to a variable or a file.
> I've tried using '2>&1 tmp.errors' but this doesn't work either
> because of the commas. Here is a sample of what I'm doing:
>
> system (
> "mount",
> "-r",
> "-t",
> "smbfs",
>
> "-o","username=$adminuser,password=$adminpass",
> "//$ip/$ashare",
> "/share/$nbname/$ashare",
> "2>&1 tmp.errors"
> );
>
> This method doesn't work because it takes the '2>&1 tmp.errors' as
> another option of mount and bombs out. If I include it at the end of
> '/share/$nbname/$ashare' then it takes as part of the name of the
> mount point and bombs out.
>
> Can anybody help me capture this info? Or show me how this can be down
> with backticks.
>
Your problem is that you are providing the parameters to system() in a list
context. When you do this, system() calls the program directly, passing the
rest of the list to the program as parameters. mount can't do output
redirection; that's a function of the command shell. You want system() to
invoke the command shell to do your output redirection and have that shell
start mount with the redirection in place. system() can be invoked so that
your command line is passed to the shell. To do that, you give it one
parameter--a string containing your command line, like so, also fixing
your output redirection syntax:
system("mount -r -t smbfs -o username=$adminuser,password=$adminpass \
//$ip/$ashare /share/$nbname/$ashare 2> tmp.errors");
Or "> tmp.errors 2>&1" if you wanted both stdout and stderr to go to
tmp.errors.
Chris Mattern
------------------------------
Date: 2 Feb 2004 04:26:52 -0800
From: check152@hotmail.com (check)
Subject: Re: CPAN & Date::Time
Message-Id: <3703cf5d.0402020426.157e3fcb@posting.google.com>
James Willmore <jwillmore@remove.adelphia.net> wrote in message news:<pan.2004.01.30.17.22.29.517986@remove.adelphia.net>...
> On Fri, 30 Jan 2004 08:30:49 -0800, check wrote:
>
> > Hi,
> >
> > Can't find anything similar to this problem in these groups, so I'm
> > hoping someone can help me...
> >
> > I'm trying to install the Date::Time module and it dependencies via
> > CPAN.
> >
> > When I enter:
> >
> > # perl -MCPAN -e 'install Date::Time'
> >
> > I get the message:
> >
> > The module Date::Time isn't available on CPAN.
> >
> > So, in a CPAN shell I then enter:
> >
> > i /Date::Time/
> >
> > ...and the module is listed correctly. What am I doing wrong?
> >
> > TIA,
> >
> > check.
>
> DateTime, instead of Date::Time ... I think ;-)
Thanks, you are correct. Got myself in a bit of a muddle about this -
Your help is much appreciated.
check.
>
> --
> Jim
>
> Copyright notice: all code written by the author in this post is
> released under the GPL. http://www.gnu.org/licenses/gpl.txt
> for more information.
>
> a fortune quote ...
> Whenever you find that you are on the side of the majority, it is
> time to reform. -- Mark Twain
------------------------------
Date: 2 Feb 2004 00:50:28 -0800
From: cheungr@ecid.cig.mot.com (R. Cheung)
Subject: Embedded Perl sprintf (symbol?) problem.
Message-Id: <b9e3071f.0402020050.56a9b3a9@posting.google.com>
I have a problem using sprintf in my embedded Perl interpreter. E.g.
$decVal = 1234;
$str = sprintf( "Result is %d, 0x%x", $decVal, $decVal );
$str comes back containing rubbish like "Result is 17 0x11". It seems
that sprintf can pick up the 1st parameter (the format string) but
picks up completely wrong parameters subsequently. The interpreter
seems to work fine when doing strictly Perl stuff (e.g. matching,
substituting, etc.). I'm wondering if this is a symbol clash problem.
I'm working in a Win2000 environment, embedding Perl in a Visual C++
application. Could it be that it's picking up sprintf from the VC++
library instead of Perl's own, or something like that? Does anyone
have a solution to this problem? Thanks.
------------------------------
Date: Mon, 02 Feb 2004 14:18:29 +0100
From: Kempniu <lordpopcorn@[cut-this-out]poczta.onet.pl>
Subject: How to add a user to /etc/passwd using CGI?
Message-Id: <mgjs10d99shnem6a2ftu8lefbdnjs706a5@4ax.com>
Hi there,
I was wondering how do all the "free web space" services etc. work -
when one fills in a form, he/she is automatically added to the
system's userlist. How does this work? I mean, how is it possible for
a CGI script to access /etc/passwd without executing `chmod 666
/etc/passwd` first? ;)
And if the users are NOT added to /etc/passwd, then how can they log
in through FTP (e.g. to upload their websites)?
Thanks in advance for any kind of explanation,
Kempniu
------------------------------
Date: Mon, 02 Feb 2004 13:38:41 GMT
From: "M" <mike@no_address.tld>
Subject: Re: How to add a user to /etc/passwd using CGI?
Message-Id: <BpsTb.204580$I06.2257984@attbi_s01>
> I was wondering how do all the "free web space" services etc. work -
First, this is SO not a perl question it makes my head swim, and should go
find it's own newsgroup to live out its happy little life.
> How does this work?
Second, this question is SO loaded with danger I wouldn't even want to add
any fuel to the fire.
my US$0.02
mike
------------------------------
Date: 2 Feb 2004 03:25:17 -0800
From: himanshu@gdit.iiit.net (Himanshu Garg)
Subject: How to know the input line number when using parse_file of HTML::Parser
Message-Id: <a46e54c7.0402020325.228285e7@posting.google.com>
Hello,
I am using HTML::Parser and want to know the line number where a
particular event occurs. Given below is an illustrative example :-
-----------------------------------------------------------
use strict;
use HTML::Parser;
# Create parser object
my $p = HTML::Parser->new( api_version => 3,
start_h => [\&start, "tagname"],
);
$p->report_tags("s"); # report only s event
$p->parse_file(*STDIN);
sub start
{
warn "<s> found in $."; # HOW TO PRINT THE LINE NUMBER
}
----------------------------------------------------------------
Although warn normally prints the input file line number on its own,
here it doesn't do that when I print it explicitly (using $.). I get
the following error message :-
Use of uninitialized value in concatenation (.) or string at
./parsehtml.pl line
Could you suggest the right ways of getting the line number, please.
The input I am parsing is erroneous and I want to know the location of
errors. Hence the above code.
Thank You
Himanshu.
------------------------------
Date: Mon, 02 Feb 2004 21:32:11 +0900
From: ko <kuujinbo@hotmail.com>
Subject: Re: How to know the input line number when using parse_file of HTML::Parser
Message-Id: <bvlg0k$bsh$1@pin3.tky.plala.or.jp>
Himanshu Garg wrote:
> Hello,
>
> I am using HTML::Parser and want to know the line number where a
> particular event occurs.
[snip code/warning message]
> Could you suggest the right ways of getting the line number, please.
> The input I am parsing is erroneous and I want to know the location of
> errors. Hence the above code.
>
> Thank You
> Himanshu.
Start off by re-reading the documentation. The part you're looking for
is in the 'Argspec' section, specifically the 'line' argspec
identifier. Use something like this:
#!/usr/bin/perl -w
use strict;
use HTML::Parser;
undef $/;
my $html = <DATA>;
my $p = HTML::Parser->new( api_version => 3,
start_h => [sub { print shift, "\n"; }, 'line'],
);
$p->report_tags('s');
$p->parse($html);
$p->eof;
__DATA__
<html>
<body>
<s>paragraph</s>
<pre>
</pre>
<s>paragraph</s>
<body>
</html>
There are a lot of good examples here:
http://search.cpan.org/src/GAAS/HTML-Parser-3.34/eg/
HTH - keith
------------------------------
Date: 2 Feb 2004 14:47:57 +0100
From: Georg.Wittig@zv.Fraunhofer.de (Georg Wittig)
Subject: How to match some characters different to each other?
Message-Id: <401e550d$1@news.fhg.de>
Hi,
In perl 5.8.3 I need to match a sequence of 7 to 11 characters that
are different to each other. The best solution I came up with is the
following,
sub find711 {
my ($arg) = shift;
my ($string);
my (%chars) = ();
if ($arg =~ /([a-z]{7,11})/) {
$string = $1;
@chars{split(//,$string)}++;
return 1 if keys (%chars) == length ($string);
}
return 0;
}
Is there a shorter or faster or more elegant solution, especially one
that uses just a single regexp, i.e. without that intermediate hash
array?
Thanks for your help,
--
/"\ ASCII ribbon | Georg Wittig, FhG - Georg.Wittig@zv.Fraunhofer.de
\ / campain against|
X HTML e-mail and|
/ \ news | Der Bagger ist der natuerliche Feind des Internet.
------------------------------
Date: Tue, 03 Feb 2004 11:28:42 +0100
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: interpreting script
Message-Id: <u6tu10dg5ttjkacfttf98ao24beinsr5t8@4ax.com>
On Sun, 1 Feb 2004 14:09:36 +0000 (UTC), Ben Morrow
<usenet@morrow.me.uk> wrote:
>> ...it will always happen *if* unlink() succeeds. Won't it?
>
>No. The print will happen iff the unlink succeeds, but the warn will
>always happen. Consider:
[snip simplified example]
>I am slightly puzzled as to what you even *thought* you meant to
>write?
D'Oh! I stand corrected! I wanted to write:
unlink and
print "Removing `$_'\n" or
warn "Can't remove `$_': $!\n" for
grep !/\Q_ppsd.zip/ && -M >30,
<*.downloaded *.kl2_download>
In this case if unlink() succeeds, then print() happens and (unless
I'm very very unfortunate!) succeeds, so warn() doesn't happen. If
unlink fails, print() is not evaluated and warn() does happen.
So you should not be puzzled as to "what I even *thought* I meant to
write", because that is obvious! You should be puzzled as to why I
made my life so complex by thinking that the return value of print()
needed some make up: well the *only* feeble excuse for that (and the
*second* one in just a few days!) is that I was remembering a totally
unrelated situation in which *that* particular make up was needed to
work correctly with short circuiting of logical operators.
Ben, I'm so ashamed, especially of my arrogant tone. I feel you would
have had all the rights to respond quite more harshly...
Michele
--
you'll see that it shouldn't be so. AND, the writting as usuall is
fantastic incompetent. To illustrate, i quote:
- Xah Lee trolling on clpmisc,
"perl bug File::Basename and Perl's nature"
------------------------------
Date: Tue, 27 Jan 2004 21:43:01 +0000
From: "Alan J. Flavell" <flavell@ph.gla.ac.uk>
Subject: Re: No answer for your problem ?
Message-Id: <Pine.LNX.4.53.0401272136190.978@ppepc56.ph.gla.ac.uk>
On Tue, 27 Jan 2004, Robert Wallace wrote:
> "brad.lewis@usa.com" wrote:
[lovingly requoted spam now consigned to well-deserved oblivion]
> will I make a million dollars?
Please do not feed the troll^W spammers.
Large numbers of us want to read and use these groups to mutual
benefit. 1 person (the spammer) doesn't, in fact it seems that this
one benefits even more than usual if he can make the groups less
usable. Please don't help them to do their work.
(I wish I didn't feel this had to be said; but after seeing three such
cross-posted copies of the original spam, I'm afraid I flipped.
Apologies to the regulars.)
[f'ups!]
------------------------------
Date: Mon, 02 Feb 2004 19:01:37 +0800
From: lyoute <lyoute@softhome.net>
Subject: Re: open a ascii file and rotate the content 90 deg...
Message-Id: <401e2e12$1_1@rain.i-cable.com>
i see. so there are ways to read a file char by char?
Tad McClellan wrote:
> lyoute <lyoute@softhome.net> wrote:
>
>
>>how can i produce output with 90 deg rotated:
>
>
>>actually i got this done while i still storing the pattern in a
>>@pattern[8][8].
>>just doubt if i still can rotate it after the pattern was written into a
>> file....
>
>
>
> Read it from the file into an 8x8 matrix and rotate it the
> way you are already doing it.
>
> What problem do you see with that?
>
>
------------------------------
Date: 2 Feb 2004 12:49:51 GMT
From: "Tassilo v. Parseval" <tassilo.parseval@rwth-aachen.de>
Subject: Re: open a ascii file and rotate the content 90 deg...
Message-Id: <bvlh1f$1df$1@nets3.rz.RWTH-Aachen.DE>
[ Please put your replies below the text you are replying to.
Chronology restored. ]
Also sprach lyoute:
> Tad McClellan wrote:
>
>> lyoute <lyoute@softhome.net> wrote:
>>
>>
>>>how can i produce output with 90 deg rotated:
>>
>>
>>>actually i got this done while i still storing the pattern in a
>>>@pattern[8][8].
>>>just doubt if i still can rotate it after the pattern was written into a
>>> file....
>>
>>
>>
>> Read it from the file into an 8x8 matrix and rotate it the
>> way you are already doing it.
>>
>> What problem do you see with that?
> i see. so there are ways to read a file char by char?
Yes, sure. You can use getc() for that. It's not used often in Perl
though since there are usually better ways to do it. I'd store the 8x8
picture in one scalar variable and process them character-wise. For
instance that way:
use constant NUM_COLS => 8;
my $pic = do { local $/; <DATA> };
$pic =~ tr/\n//d;
my @rot;
my $i = 0;
while (my $c = substr $pic, $i, 1) {
$rot[$i++ % NUM_COLS] .= $c;
}
my $rotated = join "\n", @rot;
__DATA__
.X..XO..
X...XO..
OXX.XO..
OOOXXO..
...OO.O.
..O.....
........
........
This works unchanged even for pictures with more (or less) than 8 rows.
I used NUM_COLS because that way you can easily make it work for input
pictures with a different number of columns.
There are variations on the above, such as using split() instead of
substr(). That's mostly a matter of personal preferences.
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: Mon, 2 Feb 2004 07:58:58 -0500
From: "Matt Garrish" <matthew.garrish@sympatico.ca>
Subject: Re: open a ascii file and rotate the content 90 deg...
Message-Id: <gQrTb.3173$9U5.242373@news20.bellglobal.com>
"lyoute" <lyoute@softhome.net> wrote in message
news:401e2e12$1_1@rain.i-cable.com...
>
> i see. so there are ways to read a file char by char?
>
The following should at least give you a start:
my @array;
while (my $line = <DATA>) {
chomp($line);
die if length($line) > 8;
die if $. > 8;
my $i = $. - 1;
foreach my $char ($line =~ /(.)/g) {
push @{$array[$i]}, $char;
}
}
__DATA__
.X..XO..
X...XO..
OXX.XO..
OOOXXO..
...OO.O.
..O.....
........
........
------------------------------
Date: 02 Feb 2004 12:39:16 +0000
From: Brian McCauley <nobull@mail.com>
Subject: Re: open a ascii file and rotate the content 90 deg...
Message-Id: <u9y8rlehy7.fsf@wcl-l.bham.ac.uk>
lyoute <lyoute@softhome.net> writes:
> i got a set of files all looks like: (with fixed dimension 8x8)
> .X..XO..
> X...XO..
> OXX.XO..
> OOOXXO..
> ...OO.O.
> ..O.....
> ........
> ........
>
> how can i produce output with 90 deg rotated:
> .XOO....
> X.XO....
> ..XO.O..
> ...XO...
> XXXXO...
> OOOO....
> ....O...
> ........
That is not rotation, that is reflection.
#!/usr/bin/perl
use strict;
use warnings;
chomp ( my @data = <> );
my $count;
do {
$count = 0;
for ( @data ) {
if ( s/^(.)// ) {
print $1;
$count ++;
} else {
print ' ';
}
}
print "\n";
} while $count;
__END__
--
\\ ( )
. _\\__[oo
.__/ \\ /\@
. l___\\
# ll l\\
###LL LL\\
------------------------------
Date: Mon, 2 Feb 2004 15:01:38 +0100
From: "kz" <notpublic@restricted.com>
Subject: Re: open a ascii file and rotate the content 90 deg...
Message-Id: <CNsTb.2$vY1.10770@news.uswest.net>
"lyoute" <lyoute@softhome.net> wrote in message
news:401dd3de_3@rain.i-cable.com...
> i got a set of files all looks like: (with fixed dimension 8x8)
[snip]
> actually i got this done while i still storing the pattern in a
> @pattern[8][8].
> just doubt if i still can rotate it after the pattern was written into a
> file....
I guess the matrix approach is the most flexible thing, you can rotate,
mirror, flip things just playing with the indices. Comment/uncomment lines
at your ease and compare the results.
I illustrated it step-by-step but one might want to code it more
efficiently. Works for any NxN matrix.
HTH,
Zoltan
use strict;
use warnings;
my ($line,@arr);
my $ctr = 0;
while (my $line = <DATA>) {
chomp($line);
$arr[$ctr++] = $line; }
# no transformation
foreach my $xc (0..$#arr) {
foreach my $yc (0..$#arr) {
# print substr($arr[$xc],$yc,1); # no transformation
print substr($arr[$yc],$xc,1); # rotate 90 degrees
# print substr($arr[$xc],$#arr-$yc,1); # flip horizontally
# print substr($arr[$#arr-$xc],$yc,1); # flip vertically, etc
}
print "\n";
}
__DATA__
.X..XO..
X...XO..
OXX.XO..
OOOXXO..
...OO.O.
..O.....
........
........
------------------------------
Date: Tue, 03 Feb 2004 11:28:32 +0100
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: Perl For Amateur Computer Programmers
Message-Id: <9unu10d236pg8sfi86jpmg5p3rvn64q4di@4ax.com>
On Sat, 31 Jan 2004 13:45:58 GMT, "edgrsprj" <edgrsprj@ix.netcom.com>
wrote:
>As I stated in some recent posts, I have been looking for a programming
>language which scientists and other people around the world who are not
>professional computer programmers could use with the same ease as Basic.
[snip]
>Perl's structure which I myself do not yet fully understand. So what I have
>been doing while I have been learning how to use it during the past few
>weeks is prepare a Web page which briefly outlines some of its basic
>commands etc. People who can already write simple programs in other
>languages can use those commands to almost immediately begin creating and
>running simple Perl programs.
So, as another poster pointed out, that is fundamentally a journal.
But it aims at being just at the same time a mixture of a tutorial and
a cookbook.
Thus far, fine! In the sense that I can imagine a document that is a
journal *and* a tutorial *and* a cookbook in consistent way. But this
is not the case with yours.
For example you may have a cookbook that behaves like a tutorial by
introducing each example gradually from the very "kernel" and adding
more and more details, and having examples ordered increasingly by
complexity (which is often the case, anyway). And then you may have
clearly marked journal-like "sections" in which you comment the
existing material with your new discoverings. That *could* make sense
(if done properly!), but your attempt IMO plainly doesn't.
>The URL for that Web page is:
>
>Perl For Amateur Computer Programmers
>http://www.freewebz.com/eq-forecasting/Perl.html
Since I think that your efforts are quite laudable, I'll comment some
portions of your page, trying to avoid as much as possible
overlappings with other posters cmts, in the hope that this will serve
to HELP YOU directing your efforts in more productive directions.
| Perl - Practical Extraction and Report Language
No! Quoting from perldoc -q 'difference between "perl" and "perl"':
while "awk and Perl" and "Python and perl" do not. But never write
"PERL", because perl is not an acronym, apocryphal folklore and
post-facto expansions notwithstanding.
| Perl computer language but who are not professional computer programmers. I am planning to gradually add information to
| this Web page as I myself learn how to use Perl.
You're implicitly assuming that your learning process will be purely
incremental, i.e. that learning "how to use Perl" will be a matter of
learning "new stuff": this is plainly wrong, and it would be wrong for
virutallty any kind of learning process. As a scientist, as you claim
to be, you should know that learning always implies a pars denstruens
along with a pars construens...
In this particular case, if you'll learn some more of Perl, you will
soon realize that many of the things you wrote in the first place were
simply wrong even if you will be able to understand why they used to
seem right. So maybe you'll update them, but in the meanwhile the
document will have been available for public reading. Can you
understand the possible issues with this approach?
| A version of Perl called ActivePerl can be downloaded from the following Web site for free and then installed. The
| Windows 5.8.2 MSI program which I myself downloaded was about 12 million bytes in size (12 Meg).
A Megabyte is not a *million* bytes. This mathematically boils down to
the fact that the equation 5^n=2^m doesn't have a solution in integers
(>0) and that computers tend to privilege powers of two. But n=3, m=7
is quite a good approximation and a "better" one , for a precise
definition of "better", involves considerably larger numbers.
Also, taking into account that you're appealing to "scientists", it
seems strange that you document is so much Windows-centric, since
scientists are often used to and working on other OSen.
More precisely, there's something strange that your "tutorial" is so
OS-specific whereas the project would probably benefit from being
OS-independent and, as a side note, probably benefit from being run on
a more performant platform. (No Holy wars, please!)
| One of the easiest ways to get information regarding individual Perl commands appears to be to have Windows run a
| search of the c:\Perl\html\lib\pod directory for references to the desired command.
Huh?!? It may be just MHO, but Windows search is crappy, and why using
a file search anyway, when you have a privileged UI to the
documentation through perldoc?
perldoc perldoc
perldoc perl
And since you're so "Windows-specific", why not using the HTML version
of the documentation kindly provided to you with no efforts by AS?
Also, as a side note, you seem to use the noun "command" in a naive
and not well defined way.
| Creating And Editing Perl Programs
| c:\program.pl
| Perl programs are written using English text. And so any text editing program such as DOS Edit, Windows Notepad, Wordpad,
^^^^^^^
So I suppose that you use to the grocery and say
@ARGV=grep -e, @ARGV;
don't you? Also,
Lingua::Romana::Perligata
;-)
| and Word, or WordPerfect can be used to create and edit them.
While one may well use a wordprocessor as a text editor (being
careful!), it wouldn't be the best tool in any case. Worth mentioning
it! At least, taking into account what you wrote, I think it is worth
mentioning it to *you* and consequently it should be worth for you to
mention it to *your expected audience*.
| Programs should be saved with the ".pl" extension, for
^^^^^^
it is *customary* to save programs with the .pl extension. Under
Windows there *can* be some advantages saving with the .pl extension.
Period.
| Perl normally ignores lines which begin with the pound sign #. Comment lines do not need to end with a semicolon.
^^^^^
print; # edgrsprj thinks this is *not* a comment!
OTOH
$_='';
s#
# edgrsprj thinks this *is* a comment!#x; print;
| If \n is contained within single quotation marks ‘\n’ then when it is used with a print command it will simply print as \n
"it will be printed literally"
| If it is used within double quotation marks “\n” then it becomes something called an Escape Sequence command modifier which
^^^^^^^^^^^^^^^
It is *by no means* an escape sequence and there is not such a thing
called "Escape Sequence command modifier".
| print 'text message','\n';
| print 'text message\n';
| print 'text message',"\n";
| print "text message","\n";
| print "text message\n";
| The first two commands will cause text message\n to be printed when the Perl program has finished with its other operations
| such as doing calculations. The third, fourth, and fifth commands will cause text message to be immediately printed.
| will not appear.
Believe me, this is pure *crap*. Please do a favour yourself and read
the documentation. At least about this!
| filenames and directories. The third command will also work. However I suspect that it is probably better not to use “/”
| with filenames and directories.
Your suspect is wrong. In fact it is "probably better" to use '/' as a
directory separator even on Windows.
| These are Perl command modifiers which do things such as affect printing etc. They have the form \text-string. Only a
| few are listed here.
Ditto as above. Pleeease!!!
No, I don't have the time and the forces to go on... I give up!
Please, if you really don't want to give up with this thing yourself,
at least consider "trying it later". I *assure* you that both you and
your intended audience will greatly benefit from such a choice...
Michele
--
# This prints: Just another Perl hacker,
seek DATA,15,0 and print q... <DATA>;
__END__
------------------------------
Date: 2 Feb 2004 10:47:54 GMT
From: "Tassilo v. Parseval" <tassilo.parseval@rwth-aachen.de>
Subject: Re: Perl For Amateur Computer Programmers
Message-Id: <bvl9sq$kuu$1@nets3.rz.RWTH-Aachen.DE>
Also sprach Michele Dondi:
> On Sat, 31 Jan 2004 13:45:58 GMT, "edgrsprj" <edgrsprj@ix.netcom.com>
> wrote:
>| If it is used within double quotation marks "\n" then it becomes
>| something called an Escape Sequence command modifier which
>
> ^^^^^^^^^^^^^^^
>
> It is *by no means* an escape sequence and there is not such a thing
> called "Escape Sequence command modifier".
Sure it is an escape sequence. From perlop.pod:
The following escape sequences are available in constructs that inter-
polate and in transliterations.
\t tab (HT, TAB)
\n newline (NL)
[...]
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: 2 Feb 2004 03:59:11 -0800
From: sean103@reeve.nl (seansan)
Subject: perl v-drive/webfolder program
Message-Id: <cd2f8856.0402020359.1a854d45@posting.google.com>
Hi,
I would like to install some simple v-drive or webfolder functionality
on my website. I do have perl experience, but would like to know if
there are some great scripts/programs out there that someone could
recommend. Are there any products that support drag/drop? Does the
diskquota belong to the real (web) user?
Any advice would be appreciated
Thx in advance, Seansan
sean106=cuthere=@reeve.nl
------------------------------
Date: Mon, 02 Feb 2004 11:44:55 -0000
From: Greg Bacon <gbacon@hiwaay.net>
Subject: Statistics for comp.lang.perl.misc
Message-Id: <101se1ni1daro54@corp.supernews.com>
Following is a summary of articles spanning a 7 day period,
beginning at 26 Jan 2004 12:18:41 GMT and ending at
03 Feb 2004 10:28:42 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) 2004 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
comdog\@panix\.com
Totals
======
Posters: 222
Articles: 716 (327 with cutlined signatures)
Threads: 154
Volume generated: 1481.5 kb
- headers: 650.3 kb (11,855 lines)
- bodies: 782.1 kb (24,068 lines)
- original: 495.1 kb (16,216 lines)
- signatures: 48.4 kb (1,110 lines)
Original Content Rating: 0.633
Averages
========
Posts per poster: 3.2
median: 1.5 posts
mode: 1 post - 111 posters
s: 5.7 posts
Posts per thread: 4.6
median: 3.0 posts
mode: 3 posts - 35 threads
s: 5.4 posts
Message size: 2118.7 bytes
- header: 930.0 bytes (16.6 lines)
- body: 1118.5 bytes (33.6 lines)
- original: 708.1 bytes (22.6 lines)
- signature: 69.2 bytes (1.6 lines)
Top 20 Posters by Number of Posts
=================================
(kb) (kb) (kb) (kb)
Posts Volume ( hdr/ body/ orig) Address
----- -------------------------- -------
51 125.8 ( 46.4/ 67.6/ 32.5) Ben Morrow <usenet@morrow.me.uk>
31 55.5 ( 26.1/ 26.4/ 17.9) Walter Roberson <roberson@ibd.nrc-cnrc.gc.ca>
25 62.9 ( 23.4/ 33.8/ 15.2) tassilo.parseval@post.rwth-aachen.de
25 59.9 ( 20.3/ 35.9/ 25.4) Michele Dondi <bik.mido@tiscalinet.it>
17 29.8 ( 16.7/ 13.1/ 6.6) "gnari" <gnari@simnet.is>
17 39.7 ( 18.9/ 20.8/ 18.5) "edgrsprj" <edgrsprj@ix.netcom.com>
16 26.3 ( 15.5/ 9.7/ 5.3) Gunnar Hjalmarsson <noreply@gunnar.cc>
16 45.0 ( 22.7/ 18.3/ 9.0) jwillmore@adelphia.net
16 62.8 ( 19.6/ 41.2/ 37.8) tadmc@augustmail.com
16 42.7 ( 14.8/ 26.6/ 16.1) Brian McCauley <nobull@mail.com>
15 28.9 ( 11.5/ 17.3/ 10.2) "David K. Wall" <dwall@fastmail.fm>
14 25.9 ( 8.9/ 15.2/ 5.8) ctcgag@hotmail.com
14 23.1 ( 13.8/ 9.3/ 5.4) "Matt Garrish" <matthew.garrish@sympatico.ca>
14 26.7 ( 10.3/ 16.4/ 6.6) Anno Siegel <anno4000@lublin.zrz.tu-berlin.de>
12 27.4 ( 10.9/ 13.8/ 7.5) Uri Guttman <uri@stemsystems.com>
10 24.1 ( 8.5/ 15.6/ 6.5) Big Swifty <bigswifty00000@yahoo.com>
9 14.5 ( 8.0/ 6.5/ 3.4) "Jürgen Exner" <jurgenex@hotmail.com>
8 16.0 ( 9.4/ 6.0/ 3.4) "A. Sinan Unur" <1usa@llenroc.ude>
8 16.5 ( 9.1/ 7.4/ 5.6) "Alan J. Flavell" <flavell@ph.gla.ac.uk>
8 22.7 ( 7.3/ 13.8/ 5.1) Marc Bissonnette <dragnet@internalysis.com>
These posters accounted for 47.8% of all articles.
Top 20 Posters by Number of Followups
=====================================
(kb) (kb) (kb) (kb)
Followups Volume ( hdr/ body/ orig) Address
--------- -------------------------- -------
51 125.8 ( 46.4/ 67.6/ 32.5) Ben Morrow <usenet@morrow.me.uk>
31 55.5 ( 26.1/ 26.4/ 17.9) Walter Roberson <roberson@ibd.nrc-cnrc.gc.ca>
24 59.9 ( 20.3/ 35.9/ 25.4) Michele Dondi <bik.mido@tiscalinet.it>
24 62.9 ( 23.4/ 33.8/ 15.2) tassilo.parseval@post.rwth-aachen.de
17 29.8 ( 16.7/ 13.1/ 6.6) "gnari" <gnari@simnet.is>
16 26.3 ( 15.5/ 9.7/ 5.3) Gunnar Hjalmarsson <noreply@gunnar.cc>
16 45.0 ( 22.7/ 18.3/ 9.0) jwillmore@adelphia.net
16 42.7 ( 14.8/ 26.6/ 16.1) Brian McCauley <nobull@mail.com>
15 28.9 ( 11.5/ 17.3/ 10.2) "David K. Wall" <dwall@fastmail.fm>
14 25.9 ( 8.9/ 15.2/ 5.8) ctcgag@hotmail.com
14 62.8 ( 19.6/ 41.2/ 37.8) tadmc@augustmail.com
14 26.7 ( 10.3/ 16.4/ 6.6) Anno Siegel <anno4000@lublin.zrz.tu-berlin.de>
14 23.1 ( 13.8/ 9.3/ 5.4) "Matt Garrish" <matthew.garrish@sympatico.ca>
13 39.7 ( 18.9/ 20.8/ 18.5) "edgrsprj" <edgrsprj@ix.netcom.com>
12 27.4 ( 10.9/ 13.8/ 7.5) Uri Guttman <uri@stemsystems.com>
9 14.5 ( 8.0/ 6.5/ 3.4) "Jürgen Exner" <jurgenex@hotmail.com>
9 24.1 ( 8.5/ 15.6/ 6.5) Big Swifty <bigswifty00000@yahoo.com>
8 16.5 ( 9.1/ 7.4/ 5.6) "Alan J. Flavell" <flavell@ph.gla.ac.uk>
8 16.0 ( 9.4/ 6.0/ 3.4) "A. Sinan Unur" <1usa@llenroc.ude>
7 22.7 ( 7.3/ 13.8/ 5.1) Marc Bissonnette <dragnet@internalysis.com>
These posters accounted for 56.2% of all followups.
Top 20 Posters by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Address
-------------------------- ----- -------
125.8 ( 46.4/ 67.6/ 32.5) 51 Ben Morrow <usenet@morrow.me.uk>
62.9 ( 23.4/ 33.8/ 15.2) 25 tassilo.parseval@post.rwth-aachen.de
62.8 ( 19.6/ 41.2/ 37.8) 16 tadmc@augustmail.com
59.9 ( 20.3/ 35.9/ 25.4) 25 Michele Dondi <bik.mido@tiscalinet.it>
55.5 ( 26.1/ 26.4/ 17.9) 31 Walter Roberson <roberson@ibd.nrc-cnrc.gc.ca>
45.0 ( 22.7/ 18.3/ 9.0) 16 jwillmore@adelphia.net
42.7 ( 14.8/ 26.6/ 16.1) 16 Brian McCauley <nobull@mail.com>
39.7 ( 18.9/ 20.8/ 18.5) 17 "edgrsprj" <edgrsprj@ix.netcom.com>
29.8 ( 16.7/ 13.1/ 6.6) 17 "gnari" <gnari@simnet.is>
28.9 ( 11.5/ 17.3/ 10.2) 15 "David K. Wall" <dwall@fastmail.fm>
27.4 ( 10.9/ 13.8/ 7.5) 12 Uri Guttman <uri@stemsystems.com>
26.7 ( 10.3/ 16.4/ 6.6) 14 Anno Siegel <anno4000@lublin.zrz.tu-berlin.de>
26.3 ( 15.5/ 9.7/ 5.3) 16 Gunnar Hjalmarsson <noreply@gunnar.cc>
25.9 ( 8.9/ 15.2/ 5.8) 14 ctcgag@hotmail.com
24.1 ( 8.5/ 15.6/ 6.5) 10 Big Swifty <bigswifty00000@yahoo.com>
23.1 ( 13.8/ 9.3/ 5.4) 14 "Matt Garrish" <matthew.garrish@sympatico.ca>
22.7 ( 7.3/ 13.8/ 5.1) 8 Marc Bissonnette <dragnet@internalysis.com>
22.0 ( 4.7/ 16.6/ 16.1) 4 Bernie Cosell <bernie@fantasyfarm.com>
18.0 ( 0.4/ 17.6/ 17.6) 1 Greg Bacon <gbacon@hiwaay.net>
16.5 ( 9.1/ 7.4/ 5.6) 8 "Alan J. Flavell" <flavell@ph.gla.ac.uk>
These posters accounted for 53.0% of the total volume.
Top 16 Posters by Volume of Original Content (min. ten posts)
=============================================================
(kb)
Posts orig Address
----- ----- -------
16 37.8 tadmc@augustmail.com
51 32.5 Ben Morrow <usenet@morrow.me.uk>
25 25.4 Michele Dondi <bik.mido@tiscalinet.it>
17 18.5 "edgrsprj" <edgrsprj@ix.netcom.com>
31 17.9 Walter Roberson <roberson@ibd.nrc-cnrc.gc.ca>
16 16.1 Brian McCauley <nobull@mail.com>
25 15.2 tassilo.parseval@post.rwth-aachen.de
15 10.2 "David K. Wall" <dwall@fastmail.fm>
16 9.0 jwillmore@adelphia.net
12 7.5 Uri Guttman <uri@stemsystems.com>
17 6.6 "gnari" <gnari@simnet.is>
14 6.6 Anno Siegel <anno4000@lublin.zrz.tu-berlin.de>
10 6.5 Big Swifty <bigswifty00000@yahoo.com>
14 5.8 ctcgag@hotmail.com
14 5.4 "Matt Garrish" <matthew.garrish@sympatico.ca>
16 5.3 Gunnar Hjalmarsson <noreply@gunnar.cc>
These posters accounted for 45.7% of the original volume.
Top 16 Posters by OCR (minimum of ten posts)
============================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.917 ( 37.8 / 41.2) 16 tadmc@augustmail.com
0.891 ( 18.5 / 20.8) 17 "edgrsprj" <edgrsprj@ix.netcom.com>
0.706 ( 25.4 / 35.9) 25 Michele Dondi <bik.mido@tiscalinet.it>
0.678 ( 17.9 / 26.4) 31 Walter Roberson <roberson@ibd.nrc-cnrc.gc.ca>
0.605 ( 16.1 / 26.6) 16 Brian McCauley <nobull@mail.com>
0.587 ( 10.2 / 17.3) 15 "David K. Wall" <dwall@fastmail.fm>
0.576 ( 5.4 / 9.3) 14 "Matt Garrish" <matthew.garrish@sympatico.ca>
0.550 ( 5.3 / 9.7) 16 Gunnar Hjalmarsson <noreply@gunnar.cc>
0.545 ( 7.5 / 13.8) 12 Uri Guttman <uri@stemsystems.com>
0.508 ( 6.6 / 13.1) 17 "gnari" <gnari@simnet.is>
0.491 ( 9.0 / 18.3) 16 jwillmore@adelphia.net
0.481 ( 32.5 / 67.6) 51 Ben Morrow <usenet@morrow.me.uk>
0.449 ( 15.2 / 33.8) 25 tassilo.parseval@post.rwth-aachen.de
0.418 ( 6.5 / 15.6) 10 Big Swifty <bigswifty00000@yahoo.com>
0.402 ( 6.6 / 16.4) 14 Anno Siegel <anno4000@lublin.zrz.tu-berlin.de>
0.386 ( 5.8 / 15.2) 14 ctcgag@hotmail.com
Bottom 16 Posters by OCR (minimum of ten posts)
===============================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.917 ( 37.8 / 41.2) 16 tadmc@augustmail.com
0.891 ( 18.5 / 20.8) 17 "edgrsprj" <edgrsprj@ix.netcom.com>
0.706 ( 25.4 / 35.9) 25 Michele Dondi <bik.mido@tiscalinet.it>
0.678 ( 17.9 / 26.4) 31 Walter Roberson <roberson@ibd.nrc-cnrc.gc.ca>
0.605 ( 16.1 / 26.6) 16 Brian McCauley <nobull@mail.com>
0.587 ( 10.2 / 17.3) 15 "David K. Wall" <dwall@fastmail.fm>
0.576 ( 5.4 / 9.3) 14 "Matt Garrish" <matthew.garrish@sympatico.ca>
0.550 ( 5.3 / 9.7) 16 Gunnar Hjalmarsson <noreply@gunnar.cc>
0.545 ( 7.5 / 13.8) 12 Uri Guttman <uri@stemsystems.com>
0.508 ( 6.6 / 13.1) 17 "gnari" <gnari@simnet.is>
0.491 ( 9.0 / 18.3) 16 jwillmore@adelphia.net
0.481 ( 32.5 / 67.6) 51 Ben Morrow <usenet@morrow.me.uk>
0.449 ( 15.2 / 33.8) 25 tassilo.parseval@post.rwth-aachen.de
0.418 ( 6.5 / 15.6) 10 Big Swifty <bigswifty00000@yahoo.com>
0.402 ( 6.6 / 16.4) 14 Anno Siegel <anno4000@lublin.zrz.tu-berlin.de>
0.386 ( 5.8 / 15.2) 14 ctcgag@hotmail.com
16 posters (7%) had at least ten posts.
Top 20 Threads by Number of Posts
=================================
Posts Subject
----- -------
34 Perl For Amateur Computer Programmers
23 Can someone tell me what is wrong with this?
15 how to check for ip address that falls inside a range.
15 Is there a more efficient way to do this ?
15 Clarifications
14 printing sub results in heredocs
14 use of stat and argument isn't numeric message
13 ISO vanilla class
13 File handle re-use woes using pipe within a loop
13 No answer for your problem ?
12 Lisp2Perl - Lisp to perl compiler
11 perl security question
11 How to use select (select(2)) in Perl?
11 Historical
10 Pattern matching for "best match"
8 interpreting script
8 print scalar localtime
8 Newbie question. Get list of files in subdir.
8 Seeking advice on memoizing
8 Newbies probleme
These threads accounted for 36.9% of all articles.
Top 20 Threads by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Subject
-------------------------- ----- -------
80.8 ( 33.5/ 44.4/ 34.0) 34 Perl For Amateur Computer Programmers
51.9 ( 19.7/ 31.5/ 14.5) 23 Can someone tell me what is wrong with this?
50.1 ( 11.9/ 36.0/ 25.3) 11 How to use select (select(2)) in Perl?
38.1 ( 12.2/ 25.1/ 17.0) 13 File handle re-use woes using pipe within a loop
37.8 ( 13.3/ 22.2/ 8.3) 15 Is there a more efficient way to do this ?
34.4 ( 2.1/ 32.3/ 32.3) 2 Posting Guidelines for comp.lang.perl.misc ($Revision: 1.5 $)
32.8 ( 15.9/ 16.0/ 6.3) 12 Lisp2Perl - Lisp to perl compiler
31.8 ( 11.1/ 19.6/ 11.1) 13 ISO vanilla class
30.4 ( 17.3/ 11.8/ 8.3) 15 Clarifications
30.2 ( 12.8/ 16.7/ 7.5) 14 use of stat and argument isn't numeric message
29.1 ( 14.5/ 13.3/ 6.3) 14 printing sub results in heredocs
27.5 ( 11.9/ 14.6/ 10.6) 11 Historical
26.2 ( 13.8/ 11.3/ 6.0) 15 how to check for ip address that falls inside a range.
21.5 ( 15.3/ 6.1/ 3.0) 13 No answer for your problem ?
21.2 ( 10.4/ 9.9/ 5.2) 11 perl security question
21.1 ( 8.9/ 11.5/ 5.0) 10 Pattern matching for "best match"
20.0 ( 6.5/ 12.3/ 7.7) 8 interpreting script
18.2 ( 2.4/ 15.3/ 10.2) 3 A Grep and a couple Awks <and a lot of Tassilo help>
18.0 ( 0.4/ 17.6/ 17.6) 1 Statistics for comp.lang.perl.misc
16.5 ( 3.8/ 12.3/ 11.1) 4 SMTP/Bad File descripter problem
These threads accounted for 43.0% of the total volume.
Top 15 Threads by OCR (minimum of ten posts)
============================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.766 ( 34.0/ 44.4) 34 Perl For Amateur Computer Programmers
0.724 ( 10.6/ 14.6) 11 Historical
0.702 ( 25.3/ 36.0) 11 How to use select (select(2)) in Perl?
0.701 ( 8.3/ 11.8) 15 Clarifications
0.678 ( 17.0/ 25.1) 13 File handle re-use woes using pipe within a loop
0.565 ( 11.1/ 19.6) 13 ISO vanilla class
0.534 ( 6.0/ 11.3) 15 how to check for ip address that falls inside a range.
0.527 ( 5.2/ 9.9) 11 perl security question
0.484 ( 3.0/ 6.1) 13 No answer for your problem ?
0.478 ( 6.3/ 13.3) 14 printing sub results in heredocs
0.459 ( 14.5/ 31.5) 23 Can someone tell me what is wrong with this?
0.452 ( 7.5/ 16.7) 14 use of stat and argument isn't numeric message
0.436 ( 5.0/ 11.5) 10 Pattern matching for "best match"
0.396 ( 6.3/ 16.0) 12 Lisp2Perl - Lisp to perl compiler
0.372 ( 8.3/ 22.2) 15 Is there a more efficient way to do this ?
Bottom 15 Threads by OCR (minimum of ten posts)
===============================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.766 ( 34.0 / 44.4) 34 Perl For Amateur Computer Programmers
0.724 ( 10.6 / 14.6) 11 Historical
0.702 ( 25.3 / 36.0) 11 How to use select (select(2)) in Perl?
0.701 ( 8.3 / 11.8) 15 Clarifications
0.678 ( 17.0 / 25.1) 13 File handle re-use woes using pipe within a loop
0.565 ( 11.1 / 19.6) 13 ISO vanilla class
0.534 ( 6.0 / 11.3) 15 how to check for ip address that falls inside a range.
0.527 ( 5.2 / 9.9) 11 perl security question
0.484 ( 3.0 / 6.1) 13 No answer for your problem ?
0.478 ( 6.3 / 13.3) 14 printing sub results in heredocs
0.459 ( 14.5 / 31.5) 23 Can someone tell me what is wrong with this?
0.452 ( 7.5 / 16.7) 14 use of stat and argument isn't numeric message
0.436 ( 5.0 / 11.5) 10 Pattern matching for "best match"
0.396 ( 6.3 / 16.0) 12 Lisp2Perl - Lisp to perl compiler
0.372 ( 8.3 / 22.2) 15 Is there a more efficient way to do this ?
15 threads (9%) had at least ten posts.
Top 13 Targets for Crossposts
=============================
Articles Newsgroup
-------- ---------
21 comp.lang.perl.modules
18 comp.lang.scheme
18 comp.lang.lisp
11 comp.lang.php
11 comp.lang.visual.basic
6 comp.lang.python
6 comp.lang.ruby
5 alt.comp.perlcgi.freelance
5 alt.www.webmaster
5 van.jobs
5 php.general
1 news.answers
1 comp.answers
Top 20 Crossposters
===================
Articles Address
-------- -------
8 Michele Dondi <bik.mido@tiscalinet.it>
8 vorxion@knockingshopofthemind.com
8 Pascal Costanza <costanza@web.de>
8 Xah Lee <xah@xahlee.org>
4 Alex C. <alex_c@list.ru>
4 Trent <spacerook@marx7.org>
4 Joe Marshall <jrm@ccs.neu.edu>
4 Matthias Blume <find@my.address.elsewhere>
4 Walter Roberson <roberson@ibd.nrc-cnrc.gc.ca>
4 tassilo.parseval@post.rwth-aachen.de
4 David VB <davidvb@notmydomain.com>
3 "p.r.e.e.t.i" <p.r.e.e.t.i@p.h.p.w.o.r.l.d>
3 Cameron <foo@bar.invalid>
3 Erwin Moller <since_humans_read_this_I_am_spammed_too_much@spamyourself.com>
3 "Matt Garrish" <matthew.garrish@sympatico.ca>
3 Dan Tripp <thisIsNot@MyEMailAddress.com>
3 Robert Wallace <robw@sofw.org>
3 Sara <genericax@hotmail.com>
3 erewhon@nowhere.com
3 "CountScubula" <me@scantek.hotmail.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.
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 6066
***************************************
