[31449] in Perl-Users-Digest
Perl-Users Digest, Issue: 2701 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Dec 1 00:09:41 2009
Date: Mon, 30 Nov 2009 21:09:09 -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, 30 Nov 2009 Volume: 11 Number: 2701
Today's topics:
Re: FAQ 3.4 How do I find which modules are installed o <justin.0911@purestblue.com>
Import Module/Function - Undefined subroutine <axel.christiansen@gmx.de>
Re: Perl RE bug with keys(%+) <clint.olsen@gmail.com>
read same lines of two different files <cacheung@consumercontact.com>
Re: read same lines of two different files <jurgenex@hotmail.com>
Re: read same lines of two different files <glennj@ncf.ca>
Re: read same lines of two different files <cartercc@gmail.com>
Re: read same lines of two different files <darkon.tdo@gmail.com>
Re: read same lines of two different files <ben@morrow.me.uk>
Re: read same lines of two different files <jurgenex@hotmail.com>
the uninitialized variable that wasn't (Alan Curry)
Re: the uninitialized variable that wasn't <john@castleamber.com>
Re: the uninitialized variable that wasn't <ben@morrow.me.uk>
Re: the uninitialized variable that wasn't (Alan Curry)
Re: the uninitialized variable that wasn't <ben@morrow.me.uk>
Re: the uninitialized variable that wasn't <john@castleamber.com>
Re: the uninitialized variable that wasn't <uri@StemSystems.com>
Re: the uninitialized variable that wasn't <kkeller-usenet@wombat.san-francisco.ca.us>
use module cycle <michaelgang@gmail.com>
Re: use module cycle <ben@morrow.me.uk>
Re: use module cycle <bugbear@trim_papermule.co.uk_trim>
Re: use module cycle <michaelgang@gmail.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 30 Nov 2009 15:09:18 -0000
From: Justin C <justin.0911@purestblue.com>
Subject: Re: FAQ 3.4 How do I find which modules are installed on my system?
Message-Id: <41a8.4b13e01e.4ed90@zem>
On 2009-11-29, PerlFAQ Server <brian@theperlreview.com> wrote:
>
> 3.4: How do I find which modules are installed on my system?
>
> From the command line, you can use the "cpan" command's "-l" switch:
>
> $ cpan -l
justin@zem:~$ cpan -l
Unknown option: l
Nothing to install!
Justin.
--
Justin Catterall www.masonsmusic.co.uk
Director T: +44 (0)1424 427562
Masons Music Ltd F: +44 (0)1424 434362
For full company details see our web site
------------------------------
Date: Mon, 30 Nov 2009 08:53:32 -0800 (PST)
From: Axel <axel.christiansen@gmx.de>
Subject: Import Module/Function - Undefined subroutine
Message-Id: <3127ea4f-c08d-49e4-b12e-eb8795536847@o9g2000vbj.googlegroups.com>
Dear All!
Since quite a while i am having pain with a module import issue.
Here i post 2 examples from which the first does not work.
It would be very nice if one could explain, why my first example
does not work. What do i need to do getting it working?
Thx a lot! Axel
1. example, 1xScript, 2xModul
Result:
(16:14:59) [2] ./test.pl
main company::show_company
Undefined subroutine &company::read_artist called at company.pm line
33 (#1)
(F) The subroutine indicated hasn't been defined, or if it was, it
has
since been undefined.
Uncaught exception from user code:
Undefined subroutine &company::read_artist called at
company.pm line 33.
at company.pm line 33
company::show_company() called at ./test.pl line 15
test.pl
##################
#!/usr/bin/perl
use warnings;
use diagnostics;
use strict;
use artist qw {
show_artist
};
use company qw {
show_company
};
show_company();
show_artist();
artist.pm
########################
package artist;
use warnings;
use diagnostics;
use strict;
use company qw {
read_company
};
use Exporter;
use vars qw(@ISA @EXPORT @EXPORT_OK);
@ISA = qw(Exporter);
@EXPORT_OK = qw(
read_artist
show_artist
);
sub read_artist {
my ( $package, $filename, $line, $subroutine, $hasargs,
$wantarray, $evaltext, $is_require, $hints, $bitmask ) =
caller( 0 );
print STDOUT "$package $subroutine\n";
}
sub show_artist {
my ( $package, $filename, $line, $subroutine, $hasargs,
$wantarray, $evaltext, $is_require, $hints, $bitmask ) =
caller( 0 );
print STDOUT "$package $subroutine\n";
read_company();
read_artist();
print "Show Artist and the appendant Company...";
}
return(1);
company.pm
######################
package company;
use warnings;
use diagnostics;
use strict;
use artist qw {
read_artist
};
use Exporter;
use vars qw(@ISA @EXPORT @EXPORT_OK);
@ISA = qw(Exporter);
@EXPORT_OK = qw(
read_company
show_company
);
sub read_company {
my ( $package, $filename, $line, $subroutine, $hasargs,
$wantarray, $evaltext, $is_require, $hints, $bitmask ) =
caller( 0 );
print STDOUT "$package $subroutine\n";
}
sub show_company {
my ( $package, $filename, $line, $subroutine, $hasargs,
$wantarray, $evaltext, $is_require, $hints, $bitmask ) =
caller( 0 );
print STDOUT "$package $subroutine\n";
read_artist();
read_company();
print "Show Company and the appendant artists...";
}
return(1);
##############################################################
2. example, 1xScript, 4xModul
Result:
(17:22:51) [3] ./test.pl
main company::show_company
company artist_read::read_artist
company company_read::read_company
Show Company and the appendant artists...
main artist::show_artist
artist company_read::read_company
artist artist_read::read_artist
Show Artist and the appendant Company...
test.pl
##################
#!/usr/bin/perl
use warnings;
use diagnostics;
use strict;
use artist qw {
show_artist
};
use company qw {
show_company
};
show_company();
show_artist();
artist.pm
########################
package artist;
use warnings;
use diagnostics;
use strict;
use company_read qw {
read_company
};
use artist_read qw {
read_artist
};
use Exporter;
use vars qw(@ISA @EXPORT @EXPORT_OK);
@ISA = qw(Exporter);
@EXPORT_OK = qw(
show_artist
);
sub show_artist {
my ( $package, $filename, $line, $subroutine, $hasargs,
$wantarray, $evaltext, $is_require, $hints, $bitmask ) =
caller( 0 );
print STDOUT "$package $subroutine\n";
read_company();
read_artist();
print "Show Artist and the appendant Company...\n";
}
return(1);
company.pm
######################
package company;
use warnings;
use diagnostics;
use strict;
use artist_read qw {
read_artist
};
use company_read qw {
read_company
};
use Exporter;
use vars qw(@ISA @EXPORT @EXPORT_OK);
@ISA = qw(Exporter);
@EXPORT_OK = qw(
show_company
);
sub show_company {
my ( $package, $filename, $line, $subroutine, $hasargs,
$wantarray, $evaltext, $is_require, $hints, $bitmask ) =
caller( 0 );
print STDOUT "$package $subroutine\n";
read_artist();
read_company();
print "Show Company and the appendant artists...\n";
}
return(1);
artist_read.pm
######################
package artist_read;
use warnings;
use diagnostics;
use strict;
use Exporter;
use vars qw(@ISA @EXPORT @EXPORT_OK);
@ISA = qw(Exporter);
@EXPORT_OK = qw(
read_artist
);
sub read_artist {
my ( $package, $filename, $line, $subroutine, $hasargs,
$wantarray, $evaltext, $is_require, $hints, $bitmask ) =
caller( 0 );
print STDOUT "$package $subroutine\n";
}
return(1);
company_read.pm
######################
package company_read;
use warnings;
use diagnostics;
use strict;
use Exporter;
use vars qw(@ISA @EXPORT @EXPORT_OK);
@ISA = qw(Exporter);
@EXPORT_OK = qw(
read_company
);
sub read_company {
my ( $package, $filename, $line, $subroutine, $hasargs,
$wantarray, $evaltext, $is_require, $hints, $bitmask ) =
caller( 0 );
print STDOUT "$package $subroutine\n";
}
return(1);
------------------------------
Date: Mon, 30 Nov 2009 11:08:29 -0800 (PST)
From: Clint O <clint.olsen@gmail.com>
Subject: Re: Perl RE bug with keys(%+)
Message-Id: <069e15ea-3b94-4baa-9254-4e96fa59a2e7@z4g2000prh.googlegroups.com>
On Nov 25, 1:27=A0pm, s...@netherlands.com wrote:
> This is not good here, "\n" is never consumed and most likely
> the result is a non-match.
> This can also be written more effectively as =A0 [^{}]++
Yes, I ended up simplifying my life and using this before I saw your
post:
my $code =3D qr{
(?<CODEBEGIN>
\{
(?<CODE>
(?:
(?> [^{}]+ ) # Non-curly without
backtracking
|
(?&CODEBEGIN) # Recurse to start of
pattern
)*
)
\}
)
}x;
Then I go back and split the token on '\\\n' to weed out the escaped
newlines. My hope was to avoid re-scanning any string, but the RE and
concatenation rules just became unmanageable at some point and I
decided to cut my losses. I'm not familiar with the '++', but I will
look that up as an alternative to using (?> ). So far you are the
only person that has responded to this post, so I'm not hopeful that
I'll get a satisfactory answer from anyone as to what's happening
here.
Thanks,
-Clint
------------------------------
Date: Mon, 30 Nov 2009 10:13:22 -0800 (PST)
From: garhone <cacheung@consumercontact.com>
Subject: read same lines of two different files
Message-Id: <411ca2c3-1c6c-4c0c-b1a3-c05780950a42@1g2000vbm.googlegroups.com>
Hi,
I have 2 large files and I need to compare each line in one file, say
line x, with line x in the second file. So compare line 1 in one file
with line 1 in another file, line 2 with line 2, etc.
The program will stop when it encounters the first difference.
After searching the web, I've found recommendations of reading at
least one of these files into memory, into an array and looping
through the array and reading the second file.
Is there another way of doing this without reading into memory? As
each file is extremely large?
Is it possible to go directly to a specific line number in a file, and
read just that line?
Thanks in advance,
C
------------------------------
Date: Mon, 30 Nov 2009 11:26:28 -0800
From: Jürgen Exner <jurgenex@hotmail.com>
Subject: Re: read same lines of two different files
Message-Id: <5b58h519poimdgfc34b201lgmecb5ee3je@4ax.com>
garhone <cacheung@consumercontact.com> wrote:
>I have 2 large files and I need to compare each line in one file, say
>line x, with line x in the second file. So compare line 1 in one file
>with line 1 in another file, line 2 with line 2, etc.
>The program will stop when it encounters the first difference.
Sketch of the key logic (untested):
while (<F1>) {
next if $_ eq <F2>;
print "Difference found in line $.\n"
}
You will have to add some additional logic if the two files to compare
can have different numbers of lines (you didn't say).
In that case add e.g. a test for EOF(F2) before the 'next' statement to
catch a F2 that is missing the end and after the while to catch
additional lines in F2.
Another approach:
while (1) {
exit 0 if EOF(F1) and EOF (F2);
print "Files have different length\n"
if EOF(F1) xor EOF(F2);
next if <F1> eq <F2>;
print "Files are different in line $.\n";
exit 1;
}
>After searching the web, I've found recommendations of reading at
>least one of these files into memory, into an array and looping
>through the array and reading the second file.
That is useful when you want to know if all lines from one file are
contained in the other files without knowing the sequence of the lines.
If you don't cache the lines of one file in RAM you would have to
re-read the whole file over and over again while looping over the other
file which obviously is a rather suboptimal design.
>Is there another way of doing this without reading into memory? As
>each file is extremely large?
See above for two suggestions.
>Is it possible to go directly to a specific line number in a file, and
>read just that line?
No unless you are talking about fixed-format files, e.g. like old
punchcards where each line was exactly 80 characters long. In That case
a specific line number in that file would equal a specific positiion and
you could use seek() to jump to that position.
jue
------------------------------
Date: 30 Nov 2009 22:01:12 GMT
From: Glenn Jackman <glennj@ncf.ca>
Subject: Re: read same lines of two different files
Message-Id: <slrnhh8g5a.fc5.glennj@smeagol.ncf.ca>
At 2009-11-30 01:13PM, "garhone" wrote:
> Hi,
> I have 2 large files and I need to compare each line in one file, say
> line x, with line x in the second file. So compare line 1 in one file
> with line 1 in another file, line 2 with line 2, etc.
> The program will stop when it encounters the first difference.
open my $f1, '<', 'file1' or die ...;
open my $f2, '<', 'file2' or die ...;
while (my $line1 = <$f1> and my $line2 = <$f2>) {
if ($line1 ne $line2) {
print "first difference found at line $.\n";
break
}
}
close $f1;
close $f2;
--
Glenn Jackman
Write a wise saying and your name will live forever. -- Anonymous
------------------------------
Date: Mon, 30 Nov 2009 14:02:01 -0800 (PST)
From: ccc31807 <cartercc@gmail.com>
Subject: Re: read same lines of two different files
Message-Id: <f2ccd1db-f58b-4c10-9fd2-42206da6216a@j4g2000yqe.googlegroups.com>
On Nov 30, 1:13=A0pm, garhone <cache...@consumercontact.com> wrote:
> Hi,
> I have 2 large files and I need to compare each line in one file, say
> line x, with line x in the second file.
Is there any reason you don't want to use diff? If you are on Windows
there is WinDiff.
CC
------------------------------
Date: Mon, 30 Nov 2009 17:35:26 -0500
From: "darkon" <darkon.tdo@gmail.com>
Subject: Re: read same lines of two different files
Message-Id: <Mp-dnTIWg6oy1YnWnZ2dnUVZ_uGdnZ2d@supernews.com>
"Jürgen Exner" <jurgenex@hotmail.com> wrote:
> Another approach:
>
> while (1) {
> exit 0 if EOF(F1) and EOF (F2);
> print "Files have different length\n"
> if EOF(F1) xor EOF(F2);
> next if <F1> eq <F2>;
> print "Files are different in line $.\n";
> exit 1;
> }
Why use xor? It doesn't seem necessary to me, but I could be missing
something.
------------------------------
Date: Mon, 30 Nov 2009 23:03:40 +0000
From: Ben Morrow <ben@morrow.me.uk>
Subject: Re: read same lines of two different files
Message-Id: <cjvdu6-cmo2.ln1@osiris.mauzo.dyndns.org>
Quoth garhone <cacheung@consumercontact.com>:
> I have 2 large files and I need to compare each line in one file, say
> line x, with line x in the second file. So compare line 1 in one file
> with line 1 in another file, line 2 with line 2, etc.
> The program will stop when it encounters the first difference.
>
> After searching the web, I've found recommendations of reading at
> least one of these files into memory, into an array and looping
> through the array and reading the second file.
>
> Is there another way of doing this without reading into memory? As
> each file is extremely large?
> Is it possible to go directly to a specific line number in a file, and
> read just that line?
Tie::File.
Ben
------------------------------
Date: Mon, 30 Nov 2009 17:25:01 -0800
From: Jürgen Exner <jurgenex@hotmail.com>
Subject: Re: read same lines of two different files
Message-Id: <fsr8h551dhtgkis7o6vcjeeejcdipmun7n@4ax.com>
"darkon" <darkon.tdo@gmail.com> wrote:
>"Jürgen Exner" <jurgenex@hotmail.com> wrote:
>> Another approach:
>>
>> while (1) {
>> exit 0 if EOF(F1) and EOF (F2);
>> print "Files have different length\n"
>> if EOF(F1) xor EOF(F2);
>> next if <F1> eq <F2>;
>> print "Files are different in line $.\n";
>> exit 1;
>> }
>
>Why use xor? It doesn't seem necessary to me, but I could be missing
>something.
Technically speaking you are right because the 'and' case is covered in
the preceeding line already. However I like to be explicit in each
individual conditions and the two files have different size if and only
if exactly one is EOF and the other is not. And that's why I used xor.
Called it part of robust programming to not rely to much on the
execution sequence.
jue
------------------------------
Date: Tue, 1 Dec 2009 02:59:46 +0000 (UTC)
From: pacman@kosh.dhis.org (Alan Curry)
Subject: the uninitialized variable that wasn't
Message-Id: <hf20r1$8dl$1@aioe.org>
I accidentally wrote this:
my $v = 12345; # really some input, verified to be neither 0 nor undef
# a few lines later...
my $str = sprintf "%06x\n". $v;
The warning actually made it harder to find the bug because it told me
something that wasn't true.
$ perl -we 'my $v = 12345; my $str = sprintf "%06x\n". $v;'
Use of uninitialized value $v in sprintf at -e line 1.
Wondering where and how $v became undef, I threw in some
defined($v) or die;
statements, and none of them died, including the one immediately before the
sprintf line with the warning, but still the warning said that $v was
"uninitialized", which I know really means undef.
Do you see the typo? That's not a comma.
The warning message accused an innocent bystander of being undefined.
--
Alan Curry
------------------------------
Date: Mon, 30 Nov 2009 21:22:17 -0600
From: John Bokma <john@castleamber.com>
Subject: Re: the uninitialized variable that wasn't
Message-Id: <87iqcr4bva.fsf@castleamber.com>
pacman@kosh.dhis.org (Alan Curry) writes:
> $ perl -we 'my $v = 12345; my $str = sprintf "%06x\n". $v;'
> Use of uninitialized value $v in sprintf at -e line 1.
Additionally, if you make $v undef you get:
Use of uninitialized value $x in concatenation (.) or string at -e line 1.
Use of uninitialized value $x in printf at -e line 1.
perl, v5.10.0 built for x86_64-linux-gnu-thread-multi
John
------------------------------
Date: Tue, 1 Dec 2009 03:42:22 +0000
From: Ben Morrow <ben@morrow.me.uk>
Subject: Re: the uninitialized variable that wasn't
Message-Id: <utfeu6-14r2.ln1@osiris.mauzo.dyndns.org>
Quoth pacman@kosh.dhis.org (Alan Curry):
> I accidentally wrote this:
>
> my $v = 12345; # really some input, verified to be neither 0 nor undef
> # a few lines later...
> my $str = sprintf "%06x\n". $v;
>
> The warning actually made it harder to find the bug because it told me
> something that wasn't true.
>
> $ perl -we 'my $v = 12345; my $str = sprintf "%06x\n". $v;'
> Use of uninitialized value $v in sprintf at -e line 1.
Please report this minimal testcase using perlbug.
Ben
------------------------------
Date: Tue, 1 Dec 2009 04:12:13 +0000 (UTC)
From: pacman@kosh.dhis.org (Alan Curry)
Subject: Re: the uninitialized variable that wasn't
Message-Id: <hf252t$cg9$1@aioe.org>
In article <utfeu6-14r2.ln1@osiris.mauzo.dyndns.org>,
Ben Morrow <ben@morrow.me.uk> wrote:
>
>Quoth pacman@kosh.dhis.org (Alan Curry):
>> I accidentally wrote this:
>>
>> my $v = 12345; # really some input, verified to be neither 0 nor undef
>> # a few lines later...
>> my $str = sprintf "%06x\n". $v;
>>
>> The warning actually made it harder to find the bug because it told me
>> something that wasn't true.
>>
>> $ perl -we 'my $v = 12345; my $str = sprintf "%06x\n". $v;'
>> Use of uninitialized value $v in sprintf at -e line 1.
>
>Please report this minimal testcase using perlbug.
>
perlbug seems to depend on mail infrastructure that considers me unwelcome.
207.171.7.76 does not like recipient.
Remote host said: 550 http://www.spamhaus.org/query/bl?ip=98.226.122.10
Giving up on 207.171.7.76.
$ GET 'http://www.spamhaus.org/query/bl?ip=98.226.122.10'
[snip an extremely verbose yet content-free error message]
How much am I getting paid to jump through these hoops?
--
Alan Curry
------------------------------
Date: Tue, 1 Dec 2009 04:31:16 +0000
From: Ben Morrow <ben@morrow.me.uk>
Subject: Re: the uninitialized variable that wasn't
Message-Id: <kpieu6-89s2.ln1@osiris.mauzo.dyndns.org>
Quoth pacman@kosh.dhis.org (Alan Curry):
> In article <utfeu6-14r2.ln1@osiris.mauzo.dyndns.org>,
> Ben Morrow <ben@morrow.me.uk> wrote:
> >
> >Quoth pacman@kosh.dhis.org (Alan Curry):
> >> I accidentally wrote this:
> >>
> >> my $v = 12345; # really some input, verified to be neither 0 nor undef
> >> # a few lines later...
> >> my $str = sprintf "%06x\n". $v;
> >>
> >> The warning actually made it harder to find the bug because it told me
> >> something that wasn't true.
> >>
> >> $ perl -we 'my $v = 12345; my $str = sprintf "%06x\n". $v;'
> >> Use of uninitialized value $v in sprintf at -e line 1.
> >
> >Please report this minimal testcase using perlbug.
>
> perlbug seems to depend on mail infrastructure that considers me unwelcome.
>
> 207.171.7.76 does not like recipient.
> Remote host said: 550 http://www.spamhaus.org/query/bl?ip=98.226.122.10
> Giving up on 207.171.7.76.
>
> $ GET 'http://www.spamhaus.org/query/bl?ip=98.226.122.10'
> [snip an extremely verbose yet content-free error message]
That's odd. I'll try to submit a report myself later.
> How much am I getting paid to jump through these hoops?
Nothing. Thank you for trying.
Ben
------------------------------
Date: Mon, 30 Nov 2009 22:37:40 -0600
From: John Bokma <john@castleamber.com>
Subject: Re: the uninitialized variable that wasn't
Message-Id: <87skbve2cr.fsf@castleamber.com>
pacman@kosh.dhis.org (Alan Curry) writes:
[email via perlbug hits spamhaus]
> 207.171.7.76 does not like recipient.
> Remote host said: 550 http://www.spamhaus.org/query/bl?ip=98.226.122.10
> Giving up on 207.171.7.76.
>
> $ GET 'http://www.spamhaus.org/query/bl?ip=98.226.122.10'
> [snip an extremely verbose yet content-free error message]
http://www.spamhaus.org/pbl/query/PBL191978 gives:
Outbound Email Policy of Comcast for this IP range:
Email sent by Comcast subscribers using a mail program such as Outlook
Express are required to send the email through Comcast. To insure your
mail program is properly configured, please visit
http://www.comcast.net/help/faq/index.jsp?faq=Email117481. If you are a
Comcast Commercial Services customer and need support, please contact
support_biz [at] cable dot comcast dot com
Note: I munged the email address.
My guess is that Comcast doesn't block smtp outgoing for their customers [1]
and hence Comcast makes it a piece of cake for malware to spam the rest
of the world via their network, hence why they are in the PBL.
John
[1] customers as in customers who don't run knowingly their own mailserver.
------------------------------
Date: Mon, 30 Nov 2009 23:55:02 -0500
From: "Uri Guttman" <uri@StemSystems.com>
Subject: Re: the uninitialized variable that wasn't
Message-Id: <878wdnmgyh.fsf@quad.sysarch.com>
>>>>> "JB" == John Bokma <john@castleamber.com> writes:
JB> pacman@kosh.dhis.org (Alan Curry) writes:
JB> [email via perlbug hits spamhaus]
>> 207.171.7.76 does not like recipient.
>> Remote host said: 550 http://www.spamhaus.org/query/bl?ip=98.226.122.10
>> Giving up on 207.171.7.76.
>>
>> $ GET 'http://www.spamhaus.org/query/bl?ip=98.226.122.10'
>> [snip an extremely verbose yet content-free error message]
JB> http://www.spamhaus.org/pbl/query/PBL191978 gives:
JB> Outbound Email Policy of Comcast for this IP range:
JB> Email sent by Comcast subscribers using a mail program such as Outlook
JB> Express are required to send the email through Comcast. To insure your
JB> mail program is properly configured, please visit
JB> http://www.comcast.net/help/faq/index.jsp?faq=Email117481. If you are a
JB> Comcast Commercial Services customer and need support, please contact
JB> support_biz [at] cable dot comcast dot com
i have had the issue with comcast in the past and verizon now. if you
send mail directly, your leased IP may be flagged as a spammer. i used
to have qmail selectively send mail directly or via the ISP's mail
server but it got too painful. so i always use the outbound server as a
relay and i never get mail flagged as spam.
uri
--
Uri Guttman ------ uri@stemsystems.com -------- http://www.sysarch.com --
----- Perl Code Review , Architecture, Development, Training, Support ------
--------- Gourmet Hot Cocoa Mix ---- http://bestfriendscocoa.com ---------
------------------------------
Date: Mon, 30 Nov 2009 21:04:00 -0800
From: Keith Keller <kkeller-usenet@wombat.san-francisco.ca.us>
Subject: Re: the uninitialized variable that wasn't
Message-Id: <1nkeu6x6f.ln2@goaway.wombat.san-francisco.ca.us>
On 2009-12-01, Alan Curry <pacman@kosh.dhis.org> wrote:
>
> perlbug seems to depend on mail infrastructure that considers me unwelcome.
>
> 207.171.7.76 does not like recipient.
> Remote host said: 550 http://www.spamhaus.org/query/bl?ip=98.226.122.10
> Giving up on 207.171.7.76.
>
> $ GET 'http://www.spamhaus.org/query/bl?ip=98.226.122.10'
> [snip an extremely verbose yet content-free error message]
>
> How much am I getting paid to jump through these hoops?
From man perlbug:
If you are unable to run perlbug (most likely because you don't have a
working setup to send mail that perlbug recognizes), you may have to
compose your own report, and email it to perlbug@perl.org. You might
find the -d option useful to get summary information in that case.
Interestingly, this bug does not seem to exist in 5.8:
$ perl -we 'my $v = 12345; my $str = sprintf "%06x\n". $v;'Use of
uninitialized value in sprintf at -e line 1.
$ perl -v
This is perl, v5.8.8 built for i386-linux-thread-multi
--keith
--
kkeller-usenet@wombat.san-francisco.ca.us
(try just my userid to email me)
AOLSFAQ=http://www.therockgarden.ca/aolsfaq.txt
see X- headers for PGP signature information
------------------------------
Date: Mon, 30 Nov 2009 02:09:18 -0800 (PST)
From: david <michaelgang@gmail.com>
Subject: use module cycle
Message-Id: <fcae3e96-98c5-4d8f-b611-f5a75a74df77@d21g2000yqn.googlegroups.com>
Hi all,
If i have a cycle of module use, for example if module a uses module
b, and module b uses module a (it could be also more complex cycles).
Is it bad for performance without mod_perl ?
If yes, is there a way (module) to identify these cycles.
Best regards,
David
------------------------------
Date: Mon, 30 Nov 2009 10:34:44 +0000
From: Ben Morrow <ben@morrow.me.uk>
Subject: Re: use module cycle
Message-Id: <4njcu6-1bl2.ln1@osiris.mauzo.dyndns.org>
Quoth david <michaelgang@gmail.com>:
>
> If i have a cycle of module use, for example if module a uses module
> b, and module b uses module a (it could be also more complex cycles).
> Is it bad for performance without mod_perl ?
Err... no. What made you think it might be?
Ben
------------------------------
Date: Mon, 30 Nov 2009 10:57:03 +0000
From: bugbear <bugbear@trim_papermule.co.uk_trim>
Subject: Re: use module cycle
Message-Id: <neidnSK_0t5iOY7WnZ2dnUVZ8mZi4p2d@brightview.co.uk>
david wrote:
> Hi all,
>
> If i have a cycle of module use, for example if module a uses module
> b, and module b uses module a (it could be also more complex cycles).
> Is it bad for performance without mod_perl ?
>
> If yes, is there a way (module) to identify these cycles.
Perl keeps track of loaded modules, and only
loads each one once.
BugBear
------------------------------
Date: Mon, 30 Nov 2009 03:18:02 -0800 (PST)
From: david <michaelgang@gmail.com>
Subject: Re: use module cycle
Message-Id: <487bf169-949c-45bd-a692-82c369695138@n35g2000yqm.googlegroups.com>
On Nov 30, 12:34=A0pm, Ben Morrow <b...@morrow.me.uk> wrote:
> Quoth david <michaelg...@gmail.com>:
>
>
>
> > If i have a cycle of module use, for example if module a uses module
> > b, and module b uses module a (it could be also more complex cycles).
> > Is it bad for performance without mod_perl ?
>
> Err... no. What made you think it might be?
>
> Ben
Thank you.
I thought because when i ran nytprof on the program and removed a
cycle, the runtime was about 100 ms less in the begin function, but
maybe it was noise of the run times (after all i did not run it 100
times and saw the statistics).
------------------------------
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:
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
Back issues are available via anonymous ftp from
ftp://cil-www.oce.orst.edu/pub/perl/old-digests.
#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 V11 Issue 2701
***************************************
