[19312] in Perl-Users-Digest
Perl-Users Digest, Issue: 1507 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Aug 13 11:05:39 2001
Date: Mon, 13 Aug 2001 08: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: <997715115-v10-i1507@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Mon, 13 Aug 2001 Volume: 10 Number: 1507
Today's topics:
$string = s/\|//g; error - why? (Richard Lawrence)
Re: $string = s/\|//g; error - why? <joe+usenet@sunstarsys.com>
Re: Accessing a widget when defined local to a sub (Anno Siegel)
CGI.pm broken? (Re: weird problem with Gecko) (Nick Kew)
Re: CGI.pm broken? (Re: weird problem with Gecko) <cpryce@pryce.net>
com port usage <showroom@aarquerepro.be>
Re: Comma's at end of list can break program?? benhopkins@mindspring.com
Re: copy anonymous hashes <pilsl_@goldfisch.at>
Disk usage of file <sh@planetquake.com>
Re: Disk usage of file <bcaligari@fireforged.com>
Re: Disk usage of file (Anno Siegel)
Excel Function (Daniel CARBONERO)
FAQ: Is there a leak/bug in glob()? <faq@denver.pm.org>
Re: File::Find Troubles... (Bill Atkins)
Re: help with a global variable in CGI (Nkhouri)
Re: how to test $X le 'z' <bart.lateur@skynet.be>
How to update window in Tk? <sky@mail.lviv.ua>
Re: How to update window in Tk? (Eric Bohlman)
Re: how to verify $dir is null (Yves Orton)
New posters to comp.lang.perl.misc <gbacon@cs.uah.edu>
Re: Not matching strings (Grunge Man)
perlapp gui switch and win32 AdminMisc (Steven Cardinal)
Re: permuting extremely large string (Yves Orton)
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 13 Aug 2001 07:25:21 -0700
From: ralawrence@my-deja.com (Richard Lawrence)
Subject: $string = s/\|//g; error - why?
Message-Id: <b1b8a8d6.0108130625.62302061@posting.google.com>
Hi all,
I'm a little lost. Can someone please explain to me why:
$string = s/\|//g;
causes the error:
Use of uninitialized value in substitution (s///)
I looked in "man perlre" and was told that the pipe is Alternation but
I'm a little confused because I've escaped it with the \.
All I want to do is take a string and remove all the pipes from it!
Many thanks
Rich.
------------------------------
Date: 13 Aug 2001 10:29:34 -0400
From: Joe Schaefer <joe+usenet@sunstarsys.com>
Subject: Re: $string = s/\|//g; error - why?
Message-Id: <m3wv489goh.fsf@mumonkan.sunstarsys.com>
ralawrence@my-deja.com (Richard Lawrence) writes:
> $string = s/\|//g;
^^
=~
>
> causes the error:
>
> Use of uninitialized value in substitution (s///)
>
> I looked in "man perlre" and was told that the pipe is Alternation but
> I'm a little confused because I've escaped it with the \.
The regex is fine, but the variable you are matching it against
here is $_ (which is probably undefined), not $string. Look
for the description of "Binding Operators" in perlop.
--
Joe Schaefer "I'll sleep when I'm dead."
-- Warren Zevon
------------------------------
Date: 13 Aug 2001 08:43:03 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: Accessing a widget when defined local to a sub
Message-Id: <9l83un$1cq$2@mamenchi.zrz.TU-Berlin.DE>
According to Ben Kennedy <bkennedy99@Home.com>:
[...]
> sub donotebook {
> # construct stuff
> my $combo1 = ... # create the combo box widget
>
> my $insert_combo = sub {
> my($text) = @_;
> $combo1->insert('end', $text);
> }; # don't forget the ; !
>
> # now you have a sub that inserts text into the combo box
> # note it could be expanded to take an array of parameters, etc
>
> $insert_combo->('one');
> $insert_combo->('two);
> $insert_combo->('three');
>
> return $insert_combo; # donotebook is now a closure
> }
It *returns* a closure.
Anno
------------------------------
Date: Mon, 13 Aug 2001 12:15:40 +0100
From: nick@fenris.webthing.com (Nick Kew)
Subject: CGI.pm broken? (Re: weird problem with Gecko)
Message-Id: <ssc8l9.ju.ln@jarl.webthing.com>
In article <3B77A3AF.6879D855@poczta.onet.pl>, one of infinite monkeys
at the keyboard of Sonia Walter <sonia_walter@poczta.onet.pl> hath written:
[ added c.l.p.m crosspost ]
> That was the problem, thanks. I got the issue now. The pages are
> generated with help of CGI.pm module.
I don't use CGI.pm's HTML-generating facilities. But from this post and
various others I've seen, I wonder if it's rather clue-challenged in places?
> then the one online, and I wasn't stating the DTD in the
> start_html()
> function, that in the offline version were giving as the result:
>
> <!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN">
IETF HTML is also known as HTML 2.0, and represents (broadly) the
state of HTML just before the W3C was formed. In other words,
like a VT100 terminal or an MSDOS machine, it's still perfectly
valid today, but is definitely a minority interest.
> header, while the newer online installed CGI.pm by default was
> returning:
>
> <!DOCTYPE html
> PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
> "DTD/xhtml1-transitional.dtd">
Now that is the legacy version of XHTML-1.0. Except that it
*incorrectly* uses a relative path to the DTD in the FPI.
Correct would be any one of:
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN">
<!DOCTYPE html SYSTEM
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
> stated the DTD for the start_html() as
>
> '-//W3C//DTD HTML HTML 4.01 Transitional//EN'
But it's a shame to be using a markup standard that was declared
suitable only for legacy pages more than three years ago.
> BTW: the line-broken DOCTYPE tags generated by CGI.pm, disallow the
> page
> to be parsed by W3C online HTML Validator.
There's nothing wrong with the linebreak, but it's possible the (bogus)
relative path may have confused it. More likely you were just getting
lots of errors because you generated HTML but declared it as XHTML.
--
Nick Kew
Site Valet - the essential service for anyone with a website.
<URL:http://valet.webthing.com/>
------------------------------
Date: Mon, 13 Aug 2001 08:49:30 -0500
From: "cp" <cpryce@pryce.net>
Subject: Re: CGI.pm broken? (Re: weird problem with Gecko)
Message-Id: <tTQd7.5011$x84.1731779@ruti.visi.com>
"Nick Kew" <nick@fenris.webthing.com> wrote in message
news:ssc8l9.ju.ln@jarl.webthing.com...
> In article <3B77A3AF.6879D855@poczta.onet.pl>, one of infinite monkeys
>
> There's nothing wrong with the linebreak, but it's possible the (bogus)
> relative path may have confused it. More likely you were just getting
> lots of errors because you generated HTML but declared it as XHTML.
>
You can add a pragma to CGI.pm to supress xhtml output.
use CGI qw(:standard -no_xhtml);
cp
------------------------------
Date: Mon, 13 Aug 2001 13:39:01 GMT
From: "Showroom" <showroom@aarquerepro.be>
Subject: com port usage
Message-Id: <VLQd7.51079$ye.2206470@afrodite.telenet-ops.be>
Hello,
Is it possible to change the port setting for com1 from within a perl script
(on WIN NT 40 or WIN 98) by using the dos command (MODE COM1:9600,7,E,1) ?
Can I also use COPY FILE.PRN COM1: in the script ?
I don't need feedback from the connected device on com1
Thanks for the reply !!
------------------------------
Date: Mon, 13 Aug 2001 00:48:07 -0700
From: benhopkins@mindspring.com
Subject: Re: Comma's at end of list can break program??
Message-Id: <nn08l9.4f7.ln@127.0.0.1>
Eric Bohlman <ebohlman@omsdev.com> wrote:
> Logan Shaw <logan@cs.utexas.edu> wrote:
>> And then you ask yourself, "Why did I become a programmer, when
>> apparently I'm not smart enough to edit a text file and keep in mind a
>> few simple syntactic rules?" Or at least I would, because if "you must
>> make sure the thing you added at the end has a comma before it" is too
>> hard a rule to remember and follow, how are you *ever* going to get
>> along with the zillions of other rules that are way, way more complex
>> than that (and which have worse consequences)?
> May I suggest reading Chapter 9, "Intelligence, or problem-solving
> ability" in Gerald Weinberg's _The Psychology of Computer Programming_?
> That particular case is one that's very likely to trigger "psychological
> set" (the tendency to see what we expect to see rather than what's
> actually there), something that requires a great deal of conscious effort
> to overcome. Really the upshot of all this is that there are certain dumb
> mistakes that smart people are particularly likely to make, and it pays
> off to anticipate them and set things up to make them less likely to
> happen. In fact, since a large part of intelligence is the ability to
> figure out "cognitive shortcuts" and to abstract away a lot of detail,
> there are whole classes of dumb mistakes that smart people are *more*
> likely to make than less-smart people. They're generally the sorts of
> mistakes that arise when doing the sorts of things that computers do
> better than people; that's why we have things like warnings, and why
> syntax errors result in descriptive messages rather than just "illegal
> syntax."
Like perl's "elseif should be elsif at . . . "?
------------------------------
Date: Mon, 13 Aug 2001 13:06:47 +0200
From: peter pilsl <pilsl_@goldfisch.at>
Subject: Re: copy anonymous hashes
Message-Id: <3b77b4c7$1@e-post.inode.at>
Bart Lateur wrote:
>
> You want a "deep copy". The module Storable has a function for that. The
> trick is that a dump of the data structure is made, which is then turned
> back into a live data structure.
>
Thnx - Unfortunately I discovered that I dont need to copy the whole
structure, but to exclude a certain subtrees.
So I wrote a small sub on my own that can handle references to arrays and
hashes and any variable and will exclude to copy all hashelement called
'global'
peter
sub copy
#
# copy the whole delivered structure
#
{
my $ptr=shift;my $ptype=ref($ptr);
if ($ptype)
{
if ($ptype eq 'ARRAY')
{
my @t=@{$ptr};$ptr=\@t;
foreach (0..$#{$ptr})
{$ptr->[$_]=copy($ptr->[$_]);}
};
if ($ptype eq 'HASH')
{
my %t=%{$ptr};$ptr=\%t;
foreach (keys %{$ptr})
{$ptr->{$_}=copy($ptr->{$_}) if $_ ne 'global';}
}
}
return $ptr;
}
--
mag. peter pilsl
pilsl_@goldfisch.at
http://www.goldfisch.at
------------------------------
Date: Mon, 13 Aug 2001 09:17:31 GMT
From: "Sean Hamilton" <sh@planetquake.com>
Subject: Disk usage of file
Message-Id: <LWMd7.55618$b_3.4812221@news0.telusplanet.net>
How can I get the exact disk usage of a file, rather than the length of that
file?
Specifically I am trying to figure out how much disk space is used by a
file, or set of files, much like Win2k's "Size on Disk", except on FreeBSD.
sh
------------------------------
Date: Mon, 13 Aug 2001 11:50:23 +0200
From: "B. Caligari" <bcaligari@fireforged.com>
Subject: Re: Disk usage of file
Message-Id: <9l87ki0u2k@enews1.newsguy.com>
"Sean Hamilton" <sh@planetquake.com> wrote in message
news:LWMd7.55618$b_3.4812221@news0.telusplanet.net...
> How can I get the exact disk usage of a file, rather than the length of
that
> file?
>
> Specifically I am trying to figure out how much disk space is used by a
> file, or set of files, much like Win2k's "Size on Disk", except on
FreeBSD.
>
> sh
>
from the unix command line
man du
From perl you can use the stat() call
perldoc -f stat
B.
------------------------------
Date: 13 Aug 2001 11:14:22 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: Disk usage of file
Message-Id: <9l8cqe$eu8$1@mamenchi.zrz.TU-Berlin.DE>
According to Sean Hamilton <sh@planetquake.com>:
> How can I get the exact disk usage of a file, rather than the length of that
> file?
>
> Specifically I am trying to figure out how much disk space is used by a
> file, or set of files, much like Win2k's "Size on Disk", except on FreeBSD.
You would have to define the difference.
The only case I know of where file length and disk usage can be
significantly different is a file with "holes" (unallocated blocks).
Here the apparent file length can greatly exceed the space actually
occupied on disk, but except for some databases these files are rare.
Other considerations may concern the file's inode (which isn't included
in the file length, but which isn't available for data storage anyway),
fractional blocks (their influence is usually negligible), the space used
by the directory entry (also negligible and arguably not part of the file),
and how to account for multiple hard links.
So, what difference are you aiming at, and how does it matter?
Anno
------------------------------
Date: 13 Aug 2001 07:02:40 -0700
From: d.carbonero@chu.ulg.ac.be (Daniel CARBONERO)
Subject: Excel Function
Message-Id: <b5a94f5e.0108130602.379bf224@posting.google.com>
I Would like to know how to use excel function like Array in perl
script
I want to create a pivot table.
I use this code but I have an exec error, It seems that array is
unknown
AddFields({RowFields=>Array("PAY_DATE", "CASHDESK", "DESCRIPTION",
"ID"),ColumnFields=>array("OPERATION_TYPE",
"PAY_METHOD"),PageFields=>array("CAMPUS", "GRP")});
------------------------------
Date: Mon, 13 Aug 2001 12:17:03 GMT
From: PerlFAQ Server <faq@denver.pm.org>
Subject: FAQ: Is there a leak/bug in glob()?
Message-Id: <3zPd7.75$V3.170992640@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.
+
Is there a leak/bug in glob()?
Due to the current implementation on some operating systems, when you
use the glob() function or its angle-bracket alias in a scalar context,
you may cause a memory leak and/or unpredictable behavior. It's best
therefore to use glob() only in list context.
-
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.
05.14
--
This space intentionally left blank
------------------------------
Date: 13 Aug 2001 04:22:10 -0700
From: billatkins@bigfoot.com (Bill Atkins)
Subject: Re: File::Find Troubles...
Message-Id: <60805a5e.0108130322.1fd53bbb@posting.google.com>
Man, I feel like an idiot!
Thanks!
Bill
"John W. Krahn" <krahnj@acm.org> wrote in message news:<3B772F72.66068077@acm.org>...
> Bill Atkins wrote:
> >
> > I am trying to make a script that will print out the names of all the
> > subfolders and their sizes. Wghen I run the script with ActivePerl, I
> > get a die message that I put in as a diagnostic - but I can't figure
> > out why the die test fails. Any help would be appreciated.
> >
> >
> > #!/usr/local/bin/perl
>
> #!/usr/local/bin/perl -w
> use strict;
>
> > use File::Find;
> >
> > opendir BIGDIR, "C:\\" || die "Unopenable";
>
> opendir BIGDIR, "C:\\" or die "Unopenable: $!";
>
> > @entries = readdir(BIGDIR);
> > closedir BIGDIR;
> >
> > @entries = sort @entries;
> >
> > %dirs = { "1" => 1 };
> >
> > foreach $entry(@entries) {
> > unless ( -d ("C:\\" .$entry)) {next;}
> > $size = 0;
> >
> > #HERE is where the error occurs
> > find(sub {$size += -s $_; }, "C:\\$entry\\") || die "find error";
>
> find() returns an empty list so this won't work.
>
> find( sub { $dir{$entry} += -s }, "C:\\$entry" );
>
>
> > $dirs{$entry} = $size;
> > }
> >
> > foreach $entry (sort(values(%dirs))) {
> ^^^^^^^^^^^^
> > print $entry . "cheese" . $dirs{$entry};
> ^^^^^^^^^^^^^
> You can't use the values of %dirs for the keys.
>
> perldoc -q "How do I sort a hash (optionally by value instead of key)"
>
> > }
>
>
> John
------------------------------
Date: 13 Aug 2001 01:05:41 -0700
From: circuller@yahoo.com (Nkhouri)
Subject: Re: help with a global variable in CGI
Message-Id: <64ffc63e.0108130005.4330ec9e@posting.google.com>
"Ryan Gralinski" <no-reply@bong.net> wrote in message news:<PCGd7.4938$5d2.18652@news1.wwck1.ri.home.com>...
> I really need help, i need to assign a cookie to the browser and then
> retrieve it from the perl cgi program..
> it needs to remain global, as can be seen all throughout the website..
> Please advise!
>
> Ryan
if u mean it needs to be seen by other programs under your site,
then set the path attribute to default '/' ! make sure u set the domain
attribuet to *.yoursitename.domain ... i think this should works .
e.g
[cookie(-name->'name',-value->'value',-expire->'whenever',-path->'/',-domain->
'*.domain.com')
------------------------------
Date: Mon, 13 Aug 2001 11:12:12 GMT
From: Bart Lateur <bart.lateur@skynet.be>
Subject: Re: how to test $X le 'z'
Message-Id: <f9dfnts8vsg3qjop3b85eu8k50lbji7619@4ax.com>
Poul H. Sorensen wrote:
>The $letter++ construct is used for generating unique identifiers (like filenames),
>and could be used in conjunction with numerals:
>
> $str = 'a_'00';
> while ( -f $str ) { $str++ };
Apart from the fact that this doesn't compile, I feel I must chime in
here with a warning against using the underscore in your strings:
print 'ABC_1' .. 'ABC_4';
This does NOT produce the list ('ABC_1', 'ABC_2', 'ABC_3', 'ABC_4').
Instead it prints
ABC_1
Yack. And not even a warning.
A variation:
$_ = 'ABC_1';
$\ = "\n";
for my $i (1 ..4) {
print $_++;
}
-->
ABC_1
1
2
3
Again, no warning.
(This is perl 5.6.1)
--
Bart.
------------------------------
Date: Mon, 13 Aug 2001 10:58:30 +0300
From: Roman Khutkyy <sky@mail.lviv.ua>
Subject: How to update window in Tk?
Message-Id: <3B7788A6.779D8B3B@mail.lviv.ua>
How to update MainWindow from subroutine called from this window?
(e.g. refresh progress bar on MainWindow after each iterratoin of cycle
in subroutine)
Now, when subroutine is running, my MainWindow become non respondable.
------------------------------
Date: 13 Aug 2001 08:22:57 GMT
From: ebohlman@omsdev.com (Eric Bohlman)
Subject: Re: How to update window in Tk?
Message-Id: <9l82p1$1d3$5@bob.news.rcn.net>
Roman Khutkyy <sky@mail.lviv.ua> wrote:
> How to update MainWindow from subroutine called from this window?
^^^^^^
> (e.g. refresh progress bar on MainWindow after each iterratoin of cycle
> in subroutine)
> Now, when subroutine is running, my MainWindow become non respondable.
I think you answered your own question :)
Periodically call your main window's update() method while your
subroutine's loop is running.
------------------------------
Date: 13 Aug 2001 07:24:13 -0700
From: demerphq@hotmail.com (Yves Orton)
Subject: Re: how to verify $dir is null
Message-Id: <74f348f7.0108130624.1069fe79@posting.google.com>
"John W. Krahn" <krahnj@acm.org> wrote in message news:<3B770D63.6542D58D@acm.org>...
> Yves Orton wrote:
> >
> > Ilya Martynov <ilya@martynov.org> wrote in message news:<87lmkrpqyl.fsf@abra.ru>...
> > > if(defined $dir) {
> >
> > Why defined() and not
> >
> > if ($dir) {
> >
> > Just curious....
>
> $dir = '0'; # :-)
Dohhhh!
Yves
------------------------------
Date: Mon, 13 Aug 2001 13:36:58 -0000
From: Greg Bacon <gbacon@cs.uah.edu>
Subject: New posters to comp.lang.perl.misc
Message-Id: <tnflvq2bl8f674@corp.supernews.com>
Following is a summary of articles from new posters spanning a 7 day
period, beginning at 06 Aug 2001 14:29:11 GMT and ending at
13 Aug 2001 14:17:28 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: 159 (44.9% of all posters)
Articles: 376 (25.9% of all articles)
Volume generated: 671.9 kb (24.8% of total volume)
- headers: 315.0 kb (6,235 lines)
- bodies: 352.4 kb (12,228 lines)
- original: 219.5 kb (7,951 lines)
- signatures: 4.1 kb (116 lines)
Original Content Rating: 0.623
Averages
========
Posts per poster: 2.4
median: 1 post
mode: 1 post - 93 posters
s: 3.8 posts
Message size: 1829.9 bytes
- header: 857.8 bytes (16.6 lines)
- body: 959.8 bytes (32.5 lines)
- original: 597.7 bytes (21.1 lines)
- signature: 11.2 bytes (0.3 lines)
Top 10 Posters by Number of Posts
=================================
(kb) (kb) (kb) (kb)
Posts Volume ( hdr/ body/ orig) Address
----- -------------------------- -------
38 81.0 ( 41.6/ 39.4/ 21.1) "Brent Dax" <brentdax1@earthlink.net>
20 38.5 ( 17.8/ 20.6/ 9.4) "Paul Fortescue" <paul@net366.com>
16 30.7 ( 15.2/ 15.5/ 5.3) "Kevin Bartz" <l_pantin@hotmail.com>
12 15.0 ( 10.8/ 4.2/ 2.7) Philippe PERRIN <philippe.perrin@sxb.bsf.alcatel.fr>
11 20.1 ( 10.1/ 10.0/ 3.3) "Oliver" <ow22@nospam-cornell.edu>
10 14.6 ( 7.2/ 7.4/ 3.3) "B. Caligari" <bcaligari@fireforged.com>
8 12.7 ( 7.6/ 5.1/ 2.3) richard@SPAMsunsetandlabrea.com
7 16.0 ( 5.8/ 9.1/ 4.1) barsticus@earthling.net
6 8.8 ( 5.2/ 3.7/ 1.2) Eric <eric@mizuhocap.com>
5 7.6 ( 3.8/ 3.8/ 1.5) "Sean Hamilton" <sh@planetquake.com>
These posters accounted for 9.2% of all articles.
Top 10 Posters by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Address
-------------------------- ----- -------
81.0 ( 41.6/ 39.4/ 21.1) 38 "Brent Dax" <brentdax1@earthlink.net>
38.5 ( 17.8/ 20.6/ 9.4) 20 "Paul Fortescue" <paul@net366.com>
30.7 ( 15.2/ 15.5/ 5.3) 16 "Kevin Bartz" <l_pantin@hotmail.com>
20.1 ( 10.1/ 10.0/ 3.3) 11 "Oliver" <ow22@nospam-cornell.edu>
16.0 ( 5.8/ 9.1/ 4.1) 7 barsticus@earthling.net
15.0 ( 10.8/ 4.2/ 2.7) 12 Philippe PERRIN <philippe.perrin@sxb.bsf.alcatel.fr>
14.6 ( 7.2/ 7.4/ 3.3) 10 "B. Caligari" <bcaligari@fireforged.com>
12.7 ( 7.6/ 5.1/ 2.3) 8 richard@SPAMsunsetandlabrea.com
12.2 ( 3.7/ 7.4/ 5.2) 4 Ilmari Karonen <usenet11543@itz.pp.sci.fi>
11.6 ( 3.9/ 7.8/ 6.6) 4 "Alan Farrington" <killspam@redyonder.co.uk>
These posters accounted for 9.3% of the total volume.
Top 10 Posters by OCR (minimum of three posts)
==============================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
1.000 ( 3.1 / 3.1) 5 "Jeff Snoxell" <Jeff@aetherweb.co.uk>
1.000 ( 3.6 / 3.6) 3 Eric M <emuller@u.washington.edu>
0.937 ( 1.4 / 1.5) 4 "Stephen Edelblut" <viper16336@mindspring.com>
0.900 ( 6.6 / 7.4) 4 "Stephen Deken" <shutupsteve@awdang.no.thanks.com>
0.863 ( 1.2 / 1.4) 3 Fred <flichtenfels@hotmail.com>
0.844 ( 6.6 / 7.8) 4 "Alan Farrington" <killspam@redyonder.co.uk>
0.830 ( 2.8 / 3.4) 3 "Bill Neisius" <neisius@earthlink.net>
0.773 ( 4.0 / 5.2) 3 Moran Goldstein <moran-gy@actcom.co.il>
0.719 ( 1.6 / 2.2) 4 Mongo <mongo@firewallx.com>
0.707 ( 5.2 / 7.4) 4 Ilmari Karonen <usenet11543@itz.pp.sci.fi>
Bottom 10 Posters by OCR (minimum of three posts)
=================================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.434 ( 0.8 / 1.9) 3 194.203.212.8
0.423 ( 1.1 / 2.6) 3 "Gerhard" <gerhardpremovethis@inch.com>
0.409 ( 1.6 / 4.0) 4 "Aether" <aether@centurytel.net>
0.390 ( 1.7 / 4.2) 3 billy_dont_try@verizon.net
0.382 ( 1.5 / 3.8) 5 "Sean Hamilton" <sh@planetquake.com>
0.368 ( 1.1 / 3.0) 4 "Manuel Körner" <manuel.koerner@rexroth.de>
0.345 ( 5.3 / 15.5) 16 "Kevin Bartz" <l_pantin@hotmail.com>
0.331 ( 1.2 / 3.7) 6 Eric <eric@mizuhocap.com>
0.328 ( 3.3 / 10.0) 11 "Oliver" <ow22@nospam-cornell.edu>
0.253 ( 1.1 / 4.5) 4 emmanuel.boucquey@eurocontrol.int
33 posters (20%) had at least three posts.
Top 10 Targets for Crossposts
=============================
Articles Newsgroup
-------- ---------
28 comp.lang.perl
16 comp.lang.perl.modules
8 alt.perl
5 alt.comp.perlcgi.freelance
2 comp.infosystems.www.authoring.misc
2 comp.infosystems.www.servers.unix
1 comp.answers
1 news.answers
1 comp.infosystems.www.authoring.html
1 netscape.public.mozilla.layout
Top 10 Crossposters
===================
Articles Address
-------- -------
3 Dave Glason <dglason@home.com>
3 Emmett <emmettwa@onebox.com>
2 "Matthew Forsythe" <m.forsythe@zenithrs.ie>
2 "Andrew Hamm" <ahamm@sanderson.net.au>
2 "Ryan Gralinski" <no-reply@bong.net>
1 tonyc <trx32@home.com>
1 "Shmuel (Seymour J.) Metz" <spamtrap@library.lspace.org.invalid>
1 SRN <srinatar@yahoo.com>
1 "Bala Ramakrishnan" <balar@cisco.com>
1 "Richard Jones" <rich@i-dont-like-spam-annexia.org>
------------------------------
Date: 13 Aug 2001 07:36:37 -0700
From: grunge12345@hotmail.com (Grunge Man)
Subject: Re: Not matching strings
Message-Id: <8371f728.0108130636.4b289d1f@posting.google.com>
> > Possibly the guy who had a problem with my initial code:
> > if ($string =~ /^(?:(?!PAT)|.)*$/) {
> > print "hi\n";
> > }
>
> I still say that matches all strings (well, without embedded
> newlines). Alternating a negative look-ahead with "." is really just
> the same as "." by itself. Take the "|" out and it is a different
> story.
>
> > had trailing carriage returns. You can fix this by adding an s qualifier
> > to the end of the RE as in:
> > if ($string =~ /^(?:(?!PAT)|.)*$/s) {
> > print "hi\n";
> > }
>
> Now it even matches strings with embedded newlines. Again, take out
> the "|" and you have something that works.
It's a fair cop. I had actually tried it before posting, but I was posting
on a different machine to that which I was testing on so couldn't copy
and paste. This was therefore a mis-type.
G
------------------------------
Date: 13 Aug 2001 05:22:31 -0700
From: scardinal@yahoo.com (Steven Cardinal)
Subject: perlapp gui switch and win32 AdminMisc
Message-Id: <2436b366.0108130422.5ac1f9cc@posting.google.com>
I am using ActiveState Perl 5.005_3 Build 522 with the 1.2.4 PDK.
I have 2 perl apps that have been compiled into .exe with perlapp.pl.
The first just launches any jobs it finds in a specified directory at
login time. This app we'd like to compile with the -gui switch to
prevent a command window from appearing.
The second app uses the Win32::AdminMisc module to RunProcessAsUser
The runas program works just fine. The launcher program works fine.
When the launcher is compiled with -gui, however, the runas doesn't
work. My logs show that the launcher did, in fact run the runas
program, but the results of the runas program never appear (registry
edits).
if the launcher is compiled without -gui, everything works great.
Any ideas why this is? I tried some code I found searching the news
groups that is supposed to use the Win32 API module to hide the
window, but that doesn't seem to work when the program is compiled -
it works great when the perl code remains as a script.
Any suggestions? I'm pretty new to perl but am willing to rollup my
sleeves and learn it. However, this code is being used for a customer
and I would like to make it a behave a little more in line with their
requests.
Thanks
Steve
------------------------------
Date: 13 Aug 2001 03:12:10 -0700
From: demerphq@hotmail.com (Yves Orton)
Subject: Re: permuting extremely large string
Message-Id: <74f348f7.0108130212.163da3fe@posting.google.com>
"Godzilla!" <godzilla@stomp.stomp.tokyo> wrote in message news:<3B770824.FEC02294@stomp.stomp.tokyo>...
> Yves Orton wrote:
> My realistic nature and personally dictate any
> expressions I convey are well supported by my
> extraordinary self-confidence and by my healthy
> stout feminine ego.
To quote the Bard: "Woman, Vanity is thy name"
> Your sore lack of good thinking is reflected by
> your not testing my method, then pitching one of
> your stereotypical CLPM Troll anal retentive fits.
Last I checked pointing out the obvious while bland and perhaps
boring, it certainly does not fall under Anal Retentive. (This
comment on the other hand)
Yves The Friendly Troll
--
I am not, nor have ever been, anyone else.
------------------------------
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 1507
***************************************
