[19921] in Perl-Users-Digest
Perl-Users Digest, Issue: 2116 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Nov 12 14:05:45 2001
Date: Mon, 12 Nov 2001 11:05:09 -0800 (PST)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Message-Id: <1005591909-v10-i2116@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Mon, 12 Nov 2001 Volume: 10 Number: 2116
Today's topics:
Re: comp.lang.perl <djberge@qwest.com>
error message <gopher@fheer.com>
Re: error message (Tad McClellan)
Re: error message <gopher@fheer.com>
Re: Extracting different Input nobull@mail.com
follow up to 'Re: use RPC;' but google wouldn't let me (perl misk)
Re: IO::Socket write fail <admin@asarian-host.net>
Mail::Audit <rwein@nortelnetworks.com>
Need help -- Perl Docs in HTML jks@saba.bass
New posters to comp.lang.perl.misc <gbacon@cs.uah.edu>
problem with CORBA::MICO <_no_spam_fcorouge@ekoopon.com>
Problem with perl pattern matching (Tal Cohen)
Re: Problem with perl pattern matching (Tad McClellan)
Re: Problem with perl pattern matching (John J. Trammell)
Re: Random element from array? (Wiliam Stephens)
Re: Random element from array? (Wiliam Stephens)
Re: Random element from array? (John J. Trammell)
Re: Random element from array? <bart.lateur@skynet.be>
Re: Regex question sprenger@network.rahul.net
Re: repeated string (Mark Jason Dominus)
Re: Reserve memory for array? (Mark Jason Dominus)
Re: Return from subroutine behaving unexpectedly <andrew_harton@agilent.com>
Re: starting perl <djberge@qwest.com>
Statistics for comp.lang.perl.misc <gbacon@cs.uah.edu>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 12 Nov 2001 08:21:50 -0600
From: "Mr. Sunblade" <djberge@qwest.com>
Subject: Re: comp.lang.perl
Message-Id: <8SQH7.12$xW4.80192@news.uswest.net>
"Martien Verbruggen" <mgjv@tradingpost.com.au> wrote in message
news:slrn9uuhvb.2q5.mgjv@verbruggen.comdyn.com.au...
<snip snip>
> > Exactly the sort of stuff I was referring to. I'm not sure if English
is
> > your first language Martien,
>
> English is not my first language, but I don't think that's an issue
> here.
Sometimes stuff that may seem like plain English to non-native speakers
comes off as brusque and/or sarcastic to us native English speakers.
Instead of things getting "lost in the translation", things start to get
"added to the translation" that just aren't there. I'm almost certainly
guilty of *that*, though I can usually recognize when English is not
somebody's first language and give them the benefit of the doubt. I think
we've all seen some whoppers.... "me want know perl cgi. how to?", etc,
etc....
<snip>
> > Compound that with the fact that many newbies will likely get 5 to 10
posts
> > calling them stupid in various subtle ways, and it's no wonder people
feel
> > like they're getting beat over the head.
>
> On the other hand, many people are overly sensitive to criticism. I've
> seen enough abusive threads start with an overreaction to a gentle
> enough pointer to the FAQ, documentation or other resource, to be able
> to say that the issue isn't as simple as it seems. Yes, some
> non-answers are unnecessarily rude, but some receptions of some
> answers are unnecessarily overly sensitive.
True. Normally my philosophy is "insult me all you want, just so long as
you actually help me". Maybe it's that "growing frustration" you've
referred to.
<snip>
> And this is probably something we would disagree on. I do not believe
> that the utility of this newsgroup has stayed as healthy as it was 4
> years ago. In fact, I just had the opportunity to reread a load of
> archived posts[1] on groups.google.com from the first days the archive
> starts (when Larry Wall was still posting here, BTW). The tone of the
> posts, the S/N ratio and the amount of information in posts back then
> was significantly better than it is nowadays. There were fewer posts
> that asked offtopic questions, and fewer posts that asked for
> information that is answered by the FAQ and the documentation. New
> posters also seemed more willing to accept any help they got, even if
> they were simply pointers to documentation, or a more appropriate
> newsgroup.
I always figured Larry Wall was simply too busy to read the posts here.
Quite frankly, I think 99% of the posts are probably too easy for him to
waste his time with anyway. The remaining 1% would be POSIX, XS or the
various NT/2000/XP issues that creep up from time to time.
A very unscientific "gut feeling" is that a very hefty chunk of the
off-topic stuff is CGI related. Part of the problem is that many people
want to know how to do stuff with CGI in Perl, and there question falls
somewhere between this newsgroup and the comp.infosystems.www.authoring.cgi
newsgroup. I mentioned the idea of a comp.lang.perl.cgi a while back but it
met with little, if any, support. I think it would help the signal to noise
ratio considerably for this newsgroup. It works for Tk - you get relatively
few Tk-related cross-posts to clpm, though obviously Perl-Tk isn't as
ubiquitous as CGI. :)
<snip>
> I am not going to propose any fixes for this situation, because there
> are none. Some people will continue to try to educate on correct
> newsgroup usage, some people will continue doing this in ways that
> other people find unpalatable. Some people will continue to attack
> them for it. Some people will continue to defend anyone's right to
> post anything here (again: I'm not suggesting that's what you are
> doing). Some people will continue to take offense at even the gentlest
> of pointers to the documentation or another newsgroup. clp.misc is a
> large newsgroup, with a large variety of people, with a large variety
> of backgrounds. You'll find purist hackers here, as well as graphical
> designers trying to become programmers, and many others. The exacting
> standards that hackers generally impose upon themselves and their
> environment will continue to clash with the sort of environment that
> the unsuspecting newbie might hope for.
See my above post for at least one suggestion. I've also suggested a
comp.lang.perl.dbi, but even Tim Bunce was opposed to the idea. Apparently,
he doesn't mind seeing "Oracle DBD make test failed" on the mailing list at
least 3 times a week.
<snip>
> Who are the Packers and the Bears? Baseball? On second thought, don't
> answer that. I'll do a web search if and when I want to know :)
>
> Martien
I'll tell ya anyway. They're NFL teams (American football). The Green Bay
Packers (named after the meat packers of Green Bay, Wisconsin that were a
backbone of the blue-collar industry there once upon a time - in case you
were wondering) and the Chicago Bears (named for historical reasons too long
to mention here). It's the oldest rivarly in NFL history, starting in 1921.
Being from Wisconsin, I'm a Packer fan. :)
Ok - I won't post any more follow-ups. :)
Regards,
Mr. Sunblade
------------------------------
Date: Mon, 12 Nov 2001 16:10:15 GMT
From: Alfred Heer <gopher@fheer.com>
Subject: error message
Message-Id: <3BEFF482.37CA75B9@fheer.com>
When I use the following script, I always get an error message:
"Use of uninitialized value in pattern match (m//) at ... line 9"
(line 9 = the line with "while( $_ = $ARGV[0], /^-/ ){ ")
I tried everything I can think of to get rid of the error, but w/o
success.
Fred
#!/usr/local/bin/perl -w
use strict;
my($outfile, $cc2, $snl, $tws, $nlnl, $c2n, $cc1 );
#
$outfile = 'C:\aa\exp.cln';
open(STDOUT, "> $outfile")
or die "Could not open targetfile for writing: $!\n";
#
while( $_ = $ARGV[0], /^-/ ){
shift;
if ( /^--$/){
last;
}elsif ( m/^-cc2/ ){ $cc2=1;
# .......
}else{ die "Invalid option '$_', -? for help \n";
}
}
------------------------------
Date: Mon, 12 Nov 2001 17:17:12 GMT
From: tadmc@augustmail.com (Tad McClellan)
Subject: Re: error message
Message-Id: <slrn9uvu5p.93f.tadmc@tadmc26.august.net>
Alfred Heer <gopher@fheer.com> wrote:
>When I use the following script, I always get an error message:
>"Use of uninitialized value in pattern match (m//) at ... line 9"
>(line 9 = the line with "while( $_ = $ARGV[0], /^-/ ){ ")
>while( $_ = $ARGV[0], /^-/ ){
> shift;
while( $_ = shift ){
last unless /^-/;
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Mon, 12 Nov 2001 18:57:40 GMT
From: Alfred Heer <gopher@fheer.com>
Subject: Re: error message
Message-Id: <3BF01BB3.EC79792F@fheer.com>
Tad McClellan wrote:
>
> Alfred Heer <gopher@fheer.com> wrote:
>
> >When I use the following script, I always get an error message:
> >"Use of uninitialized value in pattern match (m//) at ... line 9"
> >(line 9 = the line with "while( $_ = $ARGV[0], /^-/ ){ ")
>
> >while( $_ = $ARGV[0], /^-/ ){
> > shift;
>
> while( $_ = shift ){
> last unless /^-/;
>
> --
> Tad McClellan SGML consulting
> tadmc@augustmail.com Perl programming
> Fort Worth, Texas
Thank you Tad, I will try your code. But the manual perlop explicitly
says:
If you want to pass switches into your script, you can use one of the
Getopts modules or put a loop on the front like this:
while ($_ = $ARGV[0], /^-/) {
shift;
last if /^--$/;
if (/^-D(.*)/) { $debug = $1 }
if (/^-v/) { $verbose++ }
# ... # other switches
}
while (<>) {
# ... # code for each line
}
So why do I get an error?
Fred
------------------------------
Date: 12 Nov 2001 09:55:15 -0800
From: nobull@mail.com
Subject: Re: Extracting different Input
Message-Id: <4dafc536.0111120955.7ad336a2@posting.google.com>
"Robert" <robert_loui@yahoo.com> wrote in message news:<9so8kl$3ei$1@newstoo.ericsson.se>...
> I am new in perl,
You mean Perl.
> i am having an input variable with different format, i
> want to check its format and save it in another variable.
If you want to detect which of two formats the input data is in you
have to find some property that would distingish one format from the
other. If there is any input string that would be valid in both
formats (and have different semantics) then you are on to a looser[1].
This has nothing to do with Perl.
> If the input has a normal string format like: my $input = "Name", i want to
> save it in $stringInput,
$stringInput = $input;
> Or if the input has a format like my $input = "j3.4.5" or an input like
> $input = "j3.4" or an input like $input = "j3"
> I want to save each string before "." in one variable like
You probalbly want to use split or (if you want to be more restrictive
about the format) the m// operator with capturing subexpressions.
> $firstPart = "J3";
> $secPart = "4";
> $thirdPart = "5";
($firstPart, $secPart, $thirdPart) = split(/\./, uc $stringInput);
Is there a particular reason for not using an array?
Did you really want that uc()?
[1] The classic example of this is people trying to write code that
autodetects US v. sane date format.
------------------------------
Date: 12 Nov 2001 09:13:39 -0800
From: perlmisk@yahoo.co.uk (perl misk)
Subject: follow up to 'Re: use RPC;' but google wouldn't let me
Message-Id: <7fe42fcd.0111120913.5bc3a8a@posting.google.com>
> I guess this is one of those books that are supposed to be read from
> front to back for convenience. In 13.2., it says "In this section, we
> use the Msg library to implement a Remote Procedure Call module,
> RPC.pm."
>
> If you don't want to type it in yourself, grab the sample sources at
> http://examples.oreilly.com/advperl/.
>
> HTH,
I don't mean to go on about the same topic ... but I am still stuck :(
I have been using the code from oreilly successfully to implement RPC
but I cannot get it to disconnect.
I expect my poor syntactical understanding of Perl's objects and
references is to blame.
In Msg.pm there is `sub disconnect {`, but after many attempted hacks
I am uncertain how to call it.
I want the client to kill the server. Do I:
1) the client will use the existing rpc() method to call my sub on the
server which in turn will call disconnect. If so, what is the syntax?
I tried sending the socket handle from the client, but FreezeThaw
crashed out because it couldn't understand what the data type was.
2) as above, but add a new subroutine as an intermediate layer within
RCP.pm to prevent us from calling Msg.pm directly.
3) can we call Msg::disconnect() directly from the client? and is it
Msg::disconnect or $conn::disconnect()?
4) by using rpc and the client calling my sub on the server, which in
turn calls exit; works - to an extent - but but the client is stuck
waiting for the server which has died so I have to CTRL+Z and kill -9.
This one confued me as I thought Perl was intelligent enough to close
handles of all descriptions.
Regards
Andrew
------------------------------
Date: Mon, 12 Nov 2001 18:16:39 GMT
From: "Mark" <admin@asarian-host.net>
Subject: Re: IO::Socket write fail
Message-Id: <amUH7.150993$tb2.12593326@bin2.nnrp.aus1.giganews.com>
"Uri Guttman" <uri@stemsystems.com> wrote in message
news:x7n11slcy9.fsf@home.sysarch.com...
> M> foreach $client (keys %ready) {
>
> here is your problem. keys of a hash can only be strings. you are using
> a socket (which is a glob ref) for a key and it is being converted to a
> string. it can't be converted back into a proper ref. so keys is
> returning the stringified socket refs which are not useful to you. one
> solution is to make your %ready hash have hashes as values (called a
> hash of hashes) and store in them the buffer AND the real
> socket. another solution is to keep a separate hash of sockets
> (stringified ref) to sockets (real ref).
Dear Uri,
Your suggestion was outstanding. :) Thank you (it is not the first time I
have fallen into the "stringifying" trap.) It solved the problem, in so far
that the data now gets printed to the client:
$out = $globs{$client};
print $out ".....";
That works lovely. However, the client still does not receive the data. That
is, the data gets send, but the client only receives the data after the
daemon is killed (like when I add an "exit 0" directly after sending). You
would think this is a buffer problem, right? So do I. But before I add the
client, I add an "autoflush" to it; something like this:
foreach $client ($sel -> can_read (1)) {
if ($client == $sock) {
$client = $sock -> accept ();
nonblock ($client);
$client -> autoflush (1);
$sel -> add ($client);
$globs{$client} = $client;
} else {
You would think that would cause a print or send to the client to be
received immediately. Unfortunately, it doesn't. I know I am very close;
there is just one small piece of the puzzle missing.
The "nonblock" sub, btw, looks like this:
use Fcntl qw (F_GETFL F_SETFL O_NONBLOCK);
$| = 1;
sub nonblock {
my $sockt = shift;
my $flags = fcntl ($sockt, F_GETFL, 0) || die $!;
fcntl ($sockt, F_SETFL, $flags | O_NONBLOCK) || die $!;
}
As with your previous reply, your suggestion would be highly appreciated. :)
- Mark
------------------------------
Date: Mon, 12 Nov 2001 12:17:52 -0500
From: "Robert Wein" <rwein@nortelnetworks.com>
Subject: Mail::Audit
Message-Id: <9sovp5$kq2$1@bcarh8ab.ca.nortel.com>
Hi Everybody
I am new to perl, so please forgive my basic question.
I have a single domain with only 1 POP account but unlimited aliases. I
wanted to use Mail::Audit to redirect the
messages depending on the "To". I tried setting it (below) up with the
"To", but, as I feared, it doesn't work.
Anyone have any ideas? Thanks
#!/usr/local/bin/perl
use Mail::Audit;
my $item = Mail::Audit->new;
my $from = $item->from();
study $from;
my $to = $item->to();
my $cc = $item->cc();
my $subject = $item->subject();
chomp($from, $to, $subject);
if ($to = alias1@domain.com
$item->resend('rightaddress@alias1.com');
}
if ($to = alias2@domain.com
$item->resend(rightaddress@alias2ISP.com');
}
$item->accept();
------------------------------
Date: Mon, 12 Nov 2001 18:50:02 GMT
From: jks@saba.bass
Subject: Need help -- Perl Docs in HTML
Message-Id: <m3wv0veshl.fsf@saba.bass>
Hello All,
I need a repeatable process to build a complete, static directory tree of the
Perl documentation in HTML format from the Perl source distribution, with
working links.
Will anyone who has successfully accomplished this task please share your
procedure?
I have gone around and around with the "installhtml" script, as well as
pod2html, before posting this.
Thanks,
John
------------------------------
Date: Mon, 12 Nov 2001 16:09:07 -0000
From: Greg Bacon <gbacon@cs.uah.edu>
Subject: New posters to comp.lang.perl.misc
Message-Id: <tuvt134jmk0611@corp.supernews.com>
Following is a summary of articles from new posters spanning a 7 day
period, beginning at 05 Nov 2001 15:50:39 GMT and ending at
12 Nov 2001 13:55:37 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: 144 (41.5% of all posters)
Articles: 220 (21.4% of all articles)
Volume generated: 366.2 kb (18.4% of total volume)
- headers: 184.5 kb (3,587 lines)
- bodies: 179.6 kb (5,965 lines)
- original: 124.8 kb (4,457 lines)
- signatures: 1.8 kb (54 lines)
Original Content Rating: 0.694
Averages
========
Posts per poster: 1.5
median: 1.0 post
mode: 1 post - 102 posters
s: 1.4 posts
Message size: 1704.3 bytes
- header: 858.7 bytes (16.3 lines)
- body: 836.2 bytes (27.1 lines)
- original: 580.7 bytes (20.3 lines)
- signature: 8.4 bytes (0.2 lines)
Top 10 Posters by Number of Posts
=================================
(kb) (kb) (kb) (kb)
Posts Volume ( hdr/ body/ orig) Address
----- -------------------------- -------
10 15.8 ( 9.9/ 5.8/ 5.8) "Mike Mackay [Ultrafusion]" <newsgroup_mike@ultrafusion.co.uk>
6 16.2 ( 5.4/ 10.8/ 1.8) "Geoff" <geoff@REMOVETHISgeoffball.net>
5 8.1 ( 5.6/ 2.5/ 1.1) "Marshall Spight" <mspight@dnai.com>
5 6.6 ( 5.0/ 1.6/ 1.1) chris-usenet@roaima.freeserve.co.uk
5 7.7 ( 3.4/ 4.2/ 2.6) jack <jack@brainminers.net>
4 9.4 ( 3.9/ 5.5/ 5.5) "Grzegorz Goryszewski" <gregory@pharmag.pl>
4 6.0 ( 3.9/ 2.1/ 1.4) IsraelRT <israelrt@optushome.com.au>
4 8.3 ( 5.1/ 3.3/ 2.5) "Marin David Condic" <dont.bother.mcondic.auntie.spam@[acm.org>
4 10.2 ( 4.0/ 6.2/ 3.4) "G Harper" <vze34thh@verizon.net>
4 6.1 ( 3.6/ 2.6/ 1.2) Rand al'Thor <sconfusion1@home.com>
These posters accounted for 5.0% of all articles.
Top 10 Posters by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Address
-------------------------- ----- -------
16.2 ( 5.4/ 10.8/ 1.8) 6 "Geoff" <geoff@REMOVETHISgeoffball.net>
15.8 ( 9.9/ 5.8/ 5.8) 10 "Mike Mackay [Ultrafusion]" <newsgroup_mike@ultrafusion.co.uk>
10.2 ( 4.0/ 6.2/ 3.4) 4 "G Harper" <vze34thh@verizon.net>
9.4 ( 3.9/ 5.5/ 5.5) 4 "Grzegorz Goryszewski" <gregory@pharmag.pl>
8.3 ( 5.1/ 3.3/ 2.5) 4 "Marin David Condic" <dont.bother.mcondic.auntie.spam@[acm.org>
8.1 ( 5.6/ 2.5/ 1.1) 5 "Marshall Spight" <mspight@dnai.com>
7.7 ( 3.4/ 4.2/ 2.6) 5 jack <jack@brainminers.net>
7.3 ( 2.0/ 5.4/ 5.0) 2 "Andrew Harton" <andrew_harton@agilent.com>
6.9 ( 3.4/ 3.6/ 2.3) 3 at) (hotmail <hk63a>
6.6 ( 5.0/ 1.6/ 1.1) 5 chris-usenet@roaima.freeserve.co.uk
These posters accounted for 4.9% of the total volume.
Top 10 Posters by OCR (minimum of three posts)
==============================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
1.000 ( 5.5 / 5.5) 4 "Grzegorz Goryszewski" <gregory@pharmag.pl>
0.998 ( 5.8 / 5.8) 10 "Mike Mackay [Ultrafusion]" <newsgroup_mike@ultrafusion.co.uk>
0.970 ( 2.3 / 2.3) 3 jks@saba.bass
0.931 ( 3.0 / 3.2) 3 mark <mark.adaoui@siemens.at>
0.757 ( 2.5 / 3.3) 4 "Marin David Condic" <dont.bother.mcondic.auntie.spam@[acm.org>
0.670 ( 1.1 / 1.6) 5 chris-usenet@roaima.freeserve.co.uk
0.667 ( 1.4 / 2.1) 4 IsraelRT <israelrt@optushome.com.au>
0.657 ( 2.3 / 3.6) 3 at) (hotmail <hk63a>
0.613 ( 2.6 / 4.2) 5 jack <jack@brainminers.net>
0.541 ( 3.4 / 6.2) 4 "G Harper" <vze34thh@verizon.net>
Bottom 10 Posters by OCR (minimum of three posts)
=================================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.931 ( 3.0 / 3.2) 3 mark <mark.adaoui@siemens.at>
0.757 ( 2.5 / 3.3) 4 "Marin David Condic" <dont.bother.mcondic.auntie.spam@[acm.org>
0.670 ( 1.1 / 1.6) 5 chris-usenet@roaima.freeserve.co.uk
0.667 ( 1.4 / 2.1) 4 IsraelRT <israelrt@optushome.com.au>
0.657 ( 2.3 / 3.6) 3 at) (hotmail <hk63a>
0.613 ( 2.6 / 4.2) 5 jack <jack@brainminers.net>
0.541 ( 3.4 / 6.2) 4 "G Harper" <vze34thh@verizon.net>
0.473 ( 1.2 / 2.6) 4 Rand al'Thor <sconfusion1@home.com>
0.437 ( 1.1 / 2.5) 5 "Marshall Spight" <mspight@dnai.com>
0.166 ( 1.8 / 10.8) 6 "Geoff" <geoff@REMOVETHISgeoffball.net>
13 posters (9%) had at least three posts.
Top 10 Targets for Crossposts
=============================
Articles Newsgroup
-------- ---------
65 comp.lang.java.programmer
57 comp.lang.c++
56 comp.lang.ada
55 comp.lang.eiffel
52 comp.object
49 comp.lang.basic.visual
46 nyc.food
25 alt.perl
7 comp.lang.javascript
6 comp.lang.perl.modules
Top 10 Crossposters
===================
Articles Address
-------- -------
27 "Marin David Condic" <dont.bother.mcondic.auntie.spam@[acm.org>
26 IsraelRT <israelrt@optushome.com.au>
14 "Ken Stauffer" <kjs@stauffercom.com>
14 "Jeff Connelly" <jconnelly@nc.rr.com>
14 "nofreejack" <nofreejack@NOSPAMMINGsoldierx.zzn.com>
11 "Marshall Spight" <mspight@dnai.com>
11 Patrick Doyle <doylep@eecg.toronto.edu>
8 Richard Heathfield <binary@eton.powernet.co.uk>
7 "Mario Grgic" <mario.grgic@home.com>
7 "Eircom News" <allenmillen@eircom.net>
------------------------------
Date: Mon, 12 Nov 2001 19:22:21 +0100
From: "Francis Corouge" <_no_spam_fcorouge@ekoopon.com>
Subject: problem with CORBA::MICO
Message-Id: <3bf01218$0$9957$626a54ce@news.free.fr>
Hi,
I'm following since 1 year the evolution of the module CORBA::MICO that
would interest me.
But I could never used it successfully.
Today I'm using mico 2.3.6 with CORBA::MICO 0.6.4 (the last versions) and
when I test the first example given
in the package, it crashes with this message :
Can't load
'/usr/lib/perl5/site_perl/5.6.0/i386-linux/auto/CORBA/MICO/MICO.so' for
module CORBA::MICO: /usr/local/lib/libmico2.3.6.so: undefined symbol: cerr
at /usr/lib/perl5/5.6.0/i386-linux/DynaLoader.pm line 200.
at server line 3
Compilation failed in require at server line 3.
BEGIN failed--compilation aborted at server line 3.
I barely find informations about debugging or FAQ about this module.
And like other people, I wonder if someone has already used successfully
this module.
I would be pleased if someone can help me.
Francis
------------------------------
Date: 12 Nov 2001 09:06:46 -0800
From: tncohen@avaya.com (Tal Cohen)
Subject: Problem with perl pattern matching
Message-Id: <12795252.0111120906.77762b45@posting.google.com>
I have the following code:
#!/usr/local/bin/perl
$var1 = "path\=\(\$path \'\/raid2\/Andy\'\)";
$var2 = "path\=\(\$path \'\/raid2\/Andy\'\)";
if ($var1 =~ /$var2/)
{
print "True\n";
}
else
{
print "False\n";
}
exit 0;
Simple, but I would expect it to evaluate to Ture, but it evaluates to
False. Any ideas? If so please email me at tncohen@avaya.com
Thanks,
Tal Cohen
------------------------------
Date: Mon, 12 Nov 2001 17:22:46 GMT
From: tadmc@augustmail.com (Tad McClellan)
Subject: Re: Problem with perl pattern matching
Message-Id: <slrn9uvuoj.96j.tadmc@tadmc26.august.net>
Tal Cohen <tncohen@avaya.com> wrote:
>#!/usr/local/bin/perl
#!/usr/local/bin/perl -w
use strict;
Ask for all the help you can get!
>$var2 = "path\=\(\$path \'\/raid2\/Andy\'\)";
>if ($var1 =~ /$var2/)
if ($var1 =~ /\Q$var2/)
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Mon, 12 Nov 2001 11:21:34 -0600
From: trammell@haqq.hypersloth.invalid (John J. Trammell)
Subject: Re: Problem with perl pattern matching
Message-Id: <slrn9v01bh.r7n.trammell@haqq.el-swifto.com>
On 12 Nov 2001 09:06:46 -0800, Tal Cohen <tncohen@avaya.com> wrote:
> I have the following code:
>
> #!/usr/local/bin/perl
> $var1 = "path\=\(\$path \'\/raid2\/Andy\'\)";
> $var2 = "path\=\(\$path \'\/raid2\/Andy\'\)";
> if ($var1 =~ /$var2/)
> {
> print "True\n";
> }
> else
> {
> print "False\n";
> }
> exit 0;
>
> Simple, but I would expect it to evaluate to Ture, but it evaluates to
> False. Any ideas? If so please email me at tncohen@avaya.com
>
1. #!/usr/local/bin/perl -w, then 'use strict;'. This is in the posting
guidelines for a reason.
2. here's a simpler example, but with the same problem:
my $var1 = "a(b)";
print "matches\n" if $var1 =~ /a(b)/;
print "misses\n" if $var1 !~ /a(b)/;
can you see why this happens?
3. You post here, you read here. :-)
------------------------------
Date: 12 Nov 2001 06:39:20 -0800
From: wil@fbagroup.co.uk (Wiliam Stephens)
Subject: Re: Random element from array?
Message-Id: <39e3e00a.0111120639.6e103c6@posting.google.com>
"Tassilo v. Parseval" <Tassilo.Parseval@post.rwth-aachen.de> wrote in message news:<9smbkq$6dq$04$1@news.t-online.com>...
> As for the deprecation of int: No, this still exists and should be used
> where necessary.
> In this special case however it is not needed since Perl will
> automatically use the integer portion of the number returned by rand in
> an array subscription.
Thanks for clarifying that point.
Wil
------------------------------
Date: 12 Nov 2001 08:27:34 -0800
From: wil@fbagroup.co.uk (Wiliam Stephens)
Subject: Re: Random element from array?
Message-Id: <39e3e00a.0111120827.66c85e94@posting.google.com>
OK. I have constructed the following code. However, I keep getting an
"Illegal variable name." error. I'm not sure why. I can't see any
variable names that might conflict with any reserved Perl names. I'm
using perl version 5.005_03. Can anyone help? Thanks!
#/usr/local/bin/perl -w
#___________________________________________________________________________
#
# index.cgi
#
# Revision : 16:06 12/11/01
#
# Author : Wiliam Stephens
# E-Mail : wilstephens@hotmail.com
#
#___________________________________________________________________________
$| = 1;
use CGI;
$query = new CGI;
print $query->header;
@listhtml = (index.apricot.html,
index.butter.html,
index.garden.html,
index.greek.html,
index.maple.html,
index.raspberry.html,
index.strawberry.html,
index.natural.html
);
$htmlrand = $listhtml[int rand @listhtml];
open (FILE, "</home/fba/beta.rachelsorganic.co.uk/$htmlrand");
@html = <FILE>;
close FILE;
print "@html";
exit;
------------------------------
Date: Mon, 12 Nov 2001 10:34:25 -0600
From: trammell@haqq.hypersloth.invalid (John J. Trammell)
Subject: Re: Random element from array?
Message-Id: <slrn9uvuj4.qlc.trammell@haqq.el-swifto.com>
On 12 Nov 2001 08:27:34 -0800, Wiliam Stephens <wil@fbagroup.co.uk> wrote:
> OK. I have constructed the following code. However, I keep getting an
> "Illegal variable name." error. I'm not sure why. I can't see any
> variable names that might conflict with any reserved Perl names. I'm
> using perl version 5.005_03. Can anyone help? Thanks!
>
> #/usr/local/bin/perl -w
use strict;
[snip]
--
Never hit anyone with glasses. Instead, use your fist.
------------------------------
Date: Mon, 12 Nov 2001 16:43:35 GMT
From: Bart Lateur <bart.lateur@skynet.be>
Subject: Re: Random element from array?
Message-Id: <2vuvutg548v8vlgtkin1fseveho6ifcsfl@4ax.com>
Wiliam Stephens wrote:
> @listhtml = (index.apricot.html,
> index.butter.html,
> index.garden.html,
...
Please quote your filenames. Or use qw:
@listhtml = qw/index.apricot.html index.butter.html
index.garden.html/;
In the latter case, take care not to use comma's but whitespace to
separate the items.
--
Bart.
------------------------------
Date: 12 Nov 2001 16:43:54 GMT
From: sprenger@network.rahul.net
Subject: Re: Regex question
Message-Id: <9sou8a$p0s$1@samba.rahul.net>
In <9smman$bop$1@samba.rahul.net> sprenger@network.rahul.net writes:
>I need a regex that will print all lines in the "To:" part of an
>email heading except those lines that contain a particular user. The
>line is to be omitted even if there are other names on the line.
>For example to exclude "joeuser" lines it would work something like
>this:
>while (<>) {
>if (/^To: _not joeuser_/) {
>print "$_";
>}
>}
>Program output:
>To: hello@world.com #prints
>To: big@little.com, joeuser@sample.com #does not print
>To: sanjose@california.com #prints
>To: joeuser@large.com # does not print
>Have tried variations of /foo(?!joeuser)/ but cant get it to work.
>Any ideas on this problem will be greatly appreciated.
>--
> Bob Sprenger
Thanks to all for your help. I learned a lot. The suggestion that
Steve gave, using two sets of regex slashes works fine.
/^To:/ && !/joeuser/
My problem (besides being a new Perl user) was trying to get the
whole regex into one set of slashes. Even though I have the answer,
I'm still curious if it can be done with one regex and one set of
slashes ?
Thanks again
--
Bob Sprenger
------------------------------
Date: Mon, 12 Nov 2001 17:31:59 GMT
From: mjd@plover.com (Mark Jason Dominus)
Subject: Re: repeated string
Message-Id: <3bf0078f.1888$1bb@news.op.net>
In article <7d0055df.0111091258.bbf1b79@posting.google.com>,
Houda Araj <houda.araj@cogmedia.com> wrote:
>Your words text appear on search result pages for the keywords you
>buy, and can be by language and country. So, to reach toy collector of
>tin toys you might buy word text the keywords toy collector toys.
>
>toy collector (repeated twice verbatim)
>word text (repeated plural and singular)
>toys is repeated
I've been looking into this problem myself.
Which solution is best seems to depend a lot on how long your text is.
You said 20 pages, so I suppose maybe 6000 words.
To find repeated *single* words is very easy:
while (<>) {
chomp;
tr/A-Za-z'/a-za-z'/d;
for (split) {
++$count{$_};
}
}
while (($word, $count) = each %count) {
print "'$word' appears $count times\n" if $count > 1;
}
To find all repeated phrases is more complicated.
For very short texts, you can use the approach I showed above, and put
*all* multi-word phrases into the hash instead of single words. This
consumes a lot of memory, so it is not suitable for longer texts. If
you can limit the length of the phrases, say to 7 words, this becomes
more practical. Perhaps something like this:
my $MAXLENGTH = 3;
for my $i (0 .. $MAXLENGTH-1) {
$buffer[$i] = [('$') x ($i+1)];
}
while (<DATA>) {
chomp;
tr/A-Za-z'/a-za-z'/d;
for (split) {
for my $r (@buffer) {
push @$r, $_;
shift @$r;
++$count{join ' ', @$r};
}
}
}
while (my($phrase, $count) = each %count) {
print "<$phrase> appears $count times.\n" if $count > 1;
}
__DATA__
Your words text appear on search result pages for the keywords you
buy, and can be by language and country. So, to reach toy collector of
tin toys you might buy word text the keywords toy collector toys.
Better design is possible here, of course.
For a fully general solution that will work well for very large texts,
the best strategy seems to be a suffix tree approach. You can read
about suffix trees at
http://www.cs.umd.edu/~hsh/classes/ir/suffixtrees/sld005.htm
--
@P=split//,".URRUU\c8R";@d=split//,"\nrekcah xinU / lreP rehtona tsuJ";sub p{
@p{"r$p","u$p"}=(P,P);pipe"r$p","u$p";++$p;($q*=2)+=$f=!fork;map{$P=$P[$f^ord
($p{$_})&6];$p{$_}=/ ^$P/ix?$P:close$_}keys%p}p;p;p;p;p;map{$p{$_}=~/^[P.]/&&
close$_}%p;wait until$?;map{/^r/&&<$_>}%p;$_=$d[$q];sleep rand(2)if/\S/;print
------------------------------
Date: Mon, 12 Nov 2001 17:38:37 GMT
From: mjd@plover.com (Mark Jason Dominus)
Subject: Re: Reserve memory for array?
Message-Id: <3bf0091d.18d4$116@news.op.net>
In article <9sn59a$85a$07$1@news.t-online.com>,
Tassilo v. Parseval <tassilo.parseval@post.rwth-aachen.de> wrote:
>On Mon, 12 Nov 2001 01:10:55 +0100, Markus Dehmann wrote:
>> Can I reserve memory for an array when I know about how much memory it will
>> need in the end?
>
>It may be more efficient but that's debatable. There is the trick of
>assigning to $#array.
>
>my @a;
>$#a = 10000000;
>
>This eats about 40meg of memory on my machine. You can experiment a
>little with the number. According to top '$#a = 2500000;' needs quite
>exactly 10meg.
You may want to point out that while that reserves 10M for the array,
it reserves 0 for the data that will be stored *in* the array.
I expect that Markus is asking The Wrong Question here.
--
@P=split//,".URRUU\c8R";@d=split//,"\nrekcah xinU / lreP rehtona tsuJ";sub p{
@p{"r$p","u$p"}=(P,P);pipe"r$p","u$p";++$p;($q*=2)+=$f=!fork;map{$P=$P[$f^ord
($p{$_})&6];$p{$_}=/ ^$P/ix?$P:close$_}keys%p}p;p;p;p;p;map{$p{$_}=~/^[P.]/&&
close$_}%p;wait until$?;map{/^r/&&<$_>}%p;$_=$d[$q];sleep rand(2)if/\S/;print
------------------------------
Date: Mon, 12 Nov 2001 17:16:57 -0000
From: "Andrew Harton" <andrew_harton@agilent.com>
Subject: Re: Return from subroutine behaving unexpectedly
Message-Id: <1005585420.715689@cswreg.cos.agilent.com>
"Tassilo v. Parseval" <Tassilo.Parseval@post.rwth-aachen.de> wrote in
message news:9so5m6$mng$01$1@news.t-online.com...
> On Mon, 12 Nov 2001 09:35:16 -0000, Andrew Harton wrote:
> >
> >> Please produce a small but complete script that actually compiles and
> >> runs and which illustrates the symptoms.
> >
> > Here's the complete script. You can see at the top, there are two ways
of
> > calling the main DialogBox subroutine, but only one of them works and I
have
> > no idea why the other one doesn't. I'm using ActiveState Perl 5.6.1
build
> > 628 with Windows NT, in case that's relevant.
>
> [snipped massive amount of Perl code]
>
> When nobull asked for a complete script he (explicitely) asked for a
> small one. No one here really wants to dig through 180 or so lines of
> code written by someone else with someone else's logic.
>
> Now again: Can you produce a *working* *subset* of your current script
> that reproduces the error you had been mentioning?
> If this is not possible (there are situations when it is hard to subset
> a script) then please add marks to it so that we can quickly find the
> relevant parts. In such cases, line numbers would also be a good thing.
> Thank you.
>
> Tassilo
Sorry, I didn't realise that 160 or so lines was a "massive amount of Perl
code". I felt that I had to put all of it in there because of what it does.
I haven't had a problem with returns from subroutines before, and a more
simple case seems to work. I had thought that it might have something to do
with the way I was acquiring the user input. This depends on the way the
files are listed, and the mouse input.
As far as I can tell, the most relevant parts of the code are the
subroutines DialogBox and GetInput, but most of the rest is necessary in
order to display the entries and allow the user to pick one.
Andrew
------------------------------
Date: Mon, 12 Nov 2001 09:07:01 -0600
From: "Mr. Sunblade" <djberge@qwest.com>
Subject: Re: starting perl
Message-Id: <wwRH7.21$xW4.105851@news.uswest.net>
"Måns Rullgård" <mru@users.sf.net> wrote in message
news:yw1xr8r46u6c.fsf@flour.e.kth.se...
> What is the right way to execute a perl script with the first perl in
> PATH? Since perl will run whatever is on a #! line things like
> #!/bin/sh
> #\
> exec perl $0 $*
>
> will not work as it does with e.g. wish. The problem is that
> /usr/bin/perl is old but there is a new version elsewhere.
>
> --
> Måns Rullgård
> e99_mru@e.kth.se
>
If you mean within your script, change the shebang line to point to the perl
version that you want.
e.g. #!/usr/local/bin/perl (instead of /usr/bin/perl as you used above)
If you mean from the command line, then simply explicitly specify the path.
e.g. /usr/local/bin/perl some_program.pl
If you mean calling a perl script from within another script, again simply
specify the path explicitly.
Regards,
Mr. Sunblade
------------------------------
Date: Mon, 12 Nov 2001 16:09:05 -0000
From: Greg Bacon <gbacon@cs.uah.edu>
Subject: Statistics for comp.lang.perl.misc
Message-Id: <tuvt114524ve0f@corp.supernews.com>
Following is a summary of articles spanning a 7 day period,
beginning at 05 Nov 2001 15:50:39 GMT and ending at
12 Nov 2001 13:55:37 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: 347
Articles: 1027 (424 with cutlined signatures)
Threads: 270
Volume generated: 1987.6 kb
- headers: 882.8 kb (16,937 lines)
- bodies: 1047.0 kb (34,338 lines)
- original: 658.3 kb (23,670 lines)
- signatures: 56.8 kb (1,243 lines)
Original Content Rating: 0.629
Averages
========
Posts per poster: 3.0
median: 1 post
mode: 1 post - 189 posters
s: 8.0 posts
Posts per thread: 3.8
median: 3.0 posts
mode: 1 post - 71 threads
s: 4.7 posts
Message size: 1981.8 bytes
- header: 880.2 bytes (16.5 lines)
- body: 1043.9 bytes (33.4 lines)
- original: 656.4 bytes (23.0 lines)
- signature: 56.7 bytes (1.2 lines)
Top 10 Posters by Number of Posts
=================================
(kb) (kb) (kb) (kb)
Posts Volume ( hdr/ body/ orig) Address
----- -------------------------- -------
70 189.4 ( 84.1/ 95.8/ 71.2) tadmc@augustmail.com
35 74.3 ( 31.2/ 32.4/ 14.7) Uri Guttman <uri@stemsystems.com>
29 59.9 ( 22.5/ 36.2/ 20.7) Benjamin Goldberg <goldbb2@earthlink.net>
21 46.4 ( 15.9/ 30.3/ 18.2) garry@zvolve.com
17 33.4 ( 15.9/ 13.7/ 7.8) Tassilo von Parseval <tassilo.parseval@post.rwth-aachen.de>
16 34.1 ( 13.5/ 19.9/ 6.1) Michael Budash <mbudash@sonic.net>
16 27.6 ( 13.8/ 13.7/ 8.9) Bart Lateur <bart.lateur@skynet.be>
14 26.9 ( 13.3/ 13.5/ 8.0) Jeff Zucker <jeff@vpservices.com>
14 47.6 ( 12.9/ 32.0/ 22.7) mgjv@tradingpost.com.au
13 23.8 ( 10.4/ 12.1/ 6.6) timmy@cpan.org
These posters accounted for 23.9% of all articles.
Top 10 Posters by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Address
-------------------------- ----- -------
189.4 ( 84.1/ 95.8/ 71.2) 70 tadmc@augustmail.com
74.3 ( 31.2/ 32.4/ 14.7) 35 Uri Guttman <uri@stemsystems.com>
59.9 ( 22.5/ 36.2/ 20.7) 29 Benjamin Goldberg <goldbb2@earthlink.net>
47.6 ( 12.9/ 32.0/ 22.7) 14 mgjv@tradingpost.com.au
46.4 ( 15.9/ 30.3/ 18.2) 21 garry@zvolve.com
34.1 ( 13.5/ 19.9/ 6.1) 16 Michael Budash <mbudash@sonic.net>
33.6 ( 10.6/ 19.3/ 13.4) 12 Mark Jason Dominus <mjd@plover.com>
33.4 ( 15.9/ 13.7/ 7.8) 17 Tassilo von Parseval <tassilo.parseval@post.rwth-aachen.de>
27.6 ( 13.8/ 13.7/ 8.9) 16 Bart Lateur <bart.lateur@skynet.be>
26.9 ( 13.3/ 13.5/ 8.0) 14 Jeff Zucker <jeff@vpservices.com>
These posters accounted for 28.8% of the total volume.
Top 10 Posters by OCR (minimum of five posts)
==============================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.998 ( 5.8 / 5.8) 10 "Mike Mackay [Ultrafusion]" <newsgroup_mike@ultrafusion.co.uk>
0.997 ( 7.6 / 7.6) 7 "Steffen Müller" <tsee@gmx.net>
0.894 ( 9.2 / 10.3) 9 Jason Kelley <loophole64@home.com>
0.862 ( 6.8 / 7.9) 6 "MAGiC MANiAC^mTo" <no_mto@hotmail.com>
0.832 ( 1.3 / 1.5) 5 "Bob Rock" <no_spam.yet_another_apprentice@hotmail.com>
0.750 ( 6.7 / 9.0) 7 Logan Shaw <logan@cs.utexas.edu>
0.749 ( 4.7 / 6.2) 6 Edwin =?iso-8859-1?Q?G=FCnthner?= <edgue@web.de>
0.748 ( 2.9 / 3.9) 7 Jens Luedicke <jens@irs-net.com>
0.743 ( 71.2 / 95.8) 70 tadmc@augustmail.com
0.739 ( 5.7 / 7.7) 6 "Alan J. Flavell" <flavell@mail.cern.ch>
Bottom 10 Posters by OCR (minimum of five posts)
=================================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.437 ( 1.1 / 2.5) 5 "Marshall Spight" <mspight@dnai.com>
0.424 ( 1.6 / 3.7) 7 brian d foy <comdog@panix.com>
0.414 ( 1.1 / 2.6) 5 Eduardo Oliveros <eod_spam@yahoo.es>
0.411 ( 4.0 / 9.7) 5 "Marianne Sisto" <msisto@chat.carleton.ca>
0.344 ( 3.7 / 10.7) 13 "Tintin" <tintin@snowy.calculus>
0.326 ( 1.3 / 3.9) 7 John J. Trammell <trammell@haqq.hypersloth.invalid>
0.318 ( 2.3 / 7.2) 7 "Ron Hartikka" <ronh@iainc.com>
0.307 ( 6.1 / 19.9) 16 Michael Budash <mbudash@sonic.net>
0.294 ( 1.5 / 5.2) 9 Laocoon <Laocoon@eudoramail.com>
0.166 ( 1.8 / 10.8) 6 "Geoff" <geoff@REMOVETHISgeoffball.net>
53 posters (15%) had at least five posts.
Top 10 Threads by Number of Posts
=================================
Posts Subject
----- -------
63 Best language for low IQ programmers?
16 using a variable in a subroutine name
15 Unix executed thru CGI?
14 comp.lang.perl
14 600 lines
14 too late for -T?
14 converting ^M characters to \n
14 Regular Expressions
12 which is faster? =1 or ++
12 URGENT! Please help me with this!
These threads accounted for 18.3% of all articles.
Top 10 Threads by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Subject
-------------------------- ----- -------
113.5 ( 63.2/ 48.0/ 23.3) 63 Best language for low IQ programmers?
48.8 ( 13.5/ 32.8/ 19.9) 16 using a variable in a subroutine name
39.1 ( 12.6/ 25.3/ 17.3) 14 comp.lang.perl
34.7 ( 2.0/ 32.7/ 32.7) 2 Posting Guidelines for comp.lang.perl.misc ($Revision: 1.2 $)
32.6 ( 11.7/ 19.6/ 10.1) 12 URGENT! Please help me with this!
31.1 ( 15.2/ 14.7/ 7.9) 14 converting ^M characters to \n
30.8 ( 11.9/ 17.9/ 10.0) 12 Opening/creating files
27.6 ( 8.4/ 18.9/ 10.2) 8 How to assign initial value to variable?
26.8 ( 11.2/ 14.7/ 10.2) 11 need help, error correction
26.2 ( 17.2/ 8.2/ 5.1) 15 Unix executed thru CGI?
These threads accounted for 20.7% of the total volume.
Top 10 Threads by OCR (minimum of five posts)
==============================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.812 ( 8.0/ 9.8) 9 Removing whitespace from list / array
0.798 ( 6.3/ 7.9) 8 File uploading without CGI.pm
0.794 ( 3.2/ 4.0) 5 Small '-w' Question with Net::POP3
0.785 ( 4.5/ 5.8) 5 srand or rand question
0.783 ( 5.7/ 7.3) 7 Naive Q: Why Java speed >> Perl speed?
0.745 ( 4.4/ 5.9) 6 nested foreach - how to speed up or optimize ?
0.743 ( 1.7/ 2.3) 5 Store an object reference as hash key?
0.716 ( 4.9/ 6.9) 9 file copy problems
0.694 ( 2.6/ 3.8) 6 A Newbie's Question
0.694 ( 10.2/ 14.7) 11 need help, error correction
Bottom 10 Threads by OCR (minimum of five posts)
=================================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.468 ( 4.4 / 9.5) 5 Everything but the if...
0.466 ( 1.7 / 3.7) 5 some regex magic
0.457 ( 6.2 / 13.6) 5 passing array values from perl to javascript
0.450 ( 1.8 / 4.1) 7 Regex question
0.447 ( 1.8 / 3.9) 5 Long file names and perl.
0.443 ( 4.6 / 10.4) 14 600 lines
0.430 ( 3.1 / 7.2) 9 please help me turn a string into a hash
0.396 ( 1.8 / 4.6) 6 Sending Content Type in email
0.393 ( 3.5 / 8.8) 8 Shift Operators - newbie
0.227 ( 1.3 / 5.6) 5 Code Review Needed!
64 threads (23%) had at least five posts.
Top 10 Targets for Crossposts
=============================
Articles Newsgroup
-------- ---------
65 comp.lang.java.programmer
57 comp.lang.c++
56 comp.lang.ada
55 comp.lang.eiffel
52 comp.object
49 comp.lang.basic.visual
46 nyc.food
25 alt.perl
7 comp.lang.javascript
6 comp.lang.perl.modules
Top 10 Crossposters
===================
Articles Address
-------- -------
27 olczyk@interaccess.com
27 "Marin David Condic" <dont.bother.mcondic.auntie.spam@[acm.org>
26 IsraelRT <israelrt@optushome.com.au>
17 timmy@cpan.org
14 "Jeff Connelly" <jconnelly@nc.rr.com>
14 "nofreejack" <nofreejack@NOSPAMMINGsoldierx.zzn.com>
14 "Ken Stauffer" <kjs@stauffercom.com>
14 arnet@hpcvplnx.cv.hp.com
11 Patrick Doyle <doylep@eecg.toronto.edu>
11 "Marshall Spight" <mspight@dnai.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 2116
***************************************
