[29038] in Perl-Users-Digest
Perl-Users Digest, Issue: 282 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Mar 30 00:09:51 2007
Date: Thu, 29 Mar 2007 21:09:03 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Thu, 29 Mar 2007 Volume: 11 Number: 282
Today's topics:
Re: Any "consumer review generators" available? <zburnham@gmail.com>
Re: HowTo parse huge Files <paduille.4060.mumia.w+nospam@earthlink.net>
Im really not understanding this paragraph in perldoc - <cdalten@gmail.com>
import conundrum <socyl@987jk.com.invalid>
LWP::UserAgent and HTTP::Request with basic authenticat <scottdenoon@gmail.com>
Re: multiple inheritance and instance data? <abigail@abigail.be>
Problem installing Apache::Test <joliver@john-oliver.net>
Pseiudo Terminals garycubitt@gmail.com
Re: Shifting Away anno4000@radom.zrz.tu-berlin.de
Re: What are OOP's Jargons and Complexities <jon@ffconsultancy.com>
Re: What are OOP's Jargons and Complexities <uri@stemsystems.com>
Re: What are OOP's Jargons and Complexities <lew@nospam.lewscanon.com>
Re: What are OOP's Jargons and Complexities <bcbakerXX@cox.net>
Re: What are OOP's Jargons and Complexities <jstroud@mbi.ucla.edu>
Re: What are OOP's Jargons and Complexities <wahab-mail@gmx.de>
Re: What could potentially be wrong in this script? <hjp-usenet2@hjp.at>
Re: What could potentially be wrong in this script? <tadmc@augustmail.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 29 Mar 2007 20:34:26 -0700
From: "Evil Otto" <zburnham@gmail.com>
Subject: Re: Any "consumer review generators" available?
Message-Id: <1175225665.929475.183360@n59g2000hsh.googlegroups.com>
On Mar 29, 2:19 pm, aral...@aol.com wrote:
> I am looking for a fake consumer review generator that could generate realistic looking reviews for any products, kind of like on amazon.com but generated by Artificial Intelligence. Is there a package available in your favorite programing language... thx alan
I really, really hope that you're looking to generate test data or
filler text.
If you're not, then DIAF.
------------------------------
Date: Thu, 29 Mar 2007 21:40:01 GMT
From: "Mumia W." <paduille.4060.mumia.w+nospam@earthlink.net>
Subject: Re: HowTo parse huge Files
Message-Id: <RmWOh.17939$tD2.13587@newsread1.news.pas.earthlink.net>
On 03/29/2007 02:02 PM, John W. Krahn wrote:
>
> It is the other way around. "while (<$fh>) {" read a line and stores it in $_
> so it is still around, while "if (<$fh> =~ m/$item/) {" reads another line and
> binds it to the regular expression and then discards it.
>
> [...]
Oops, you're right. The "while (<$fh>)" magic confused me.
------------------------------
Date: 29 Mar 2007 18:25:24 -0700
From: "grocery_stocker" <cdalten@gmail.com>
Subject: Im really not understanding this paragraph in perldoc -f open
Message-Id: <1175217924.122543.212320@n59g2000hsh.googlegroups.com>
"In the three-or-more argument form of pipe opens, if LIST is
specified (extra arguments after the command
name) then LIST becomes arguments to the command
invoked if the platform supports it. The meaning of
"open" with more than three arguments for non-pipe
modes is not yet specified. Experimental "layers" may
give extra LIST arguments meaning.
"
I think what I'm drawing a blank on is why the list form wouldn't work
on platforms that don't support true fork.
------------------------------
Date: Thu, 29 Mar 2007 22:18:01 +0000 (UTC)
From: kj <socyl@987jk.com.invalid>
Subject: import conundrum
Message-Id: <euhduo$j68$1@reader2.panix.com>
According to the documentation for "use", if one wants to prevent
a module's import from being called when the module is use'd, one
is supposed pass an empty list as the second argument to "use":
use Foo::Bar ();
But now suppose that Foo::Bar in turn use's some other module Foo:
############################################################
# Foo/Bar.pm
package Foo::Bar;
use Foo;
# yadda-yadda
1;
__END__
############################################################
and, furthermore, suppose that Foo *has* an import method:
############################################################
# Foo.pm
package Foo;
sub import {
shift->go_nuts( @_ );
}
# yadda-yadda
1;
__END__
############################################################
In this case, even if the user loads Foo/Bar.pm with "use Foo::Bar
()", Foo::import is still invoked.
My problem is this: how to give the users of Foo::Bar the opportunity
to veto the calling of Foo::import? The only approach I can think
of is to define a Foo::Bar::import method whose only function is
to call Foo::import, and change the line "use Foo" to "use Foo ()":
############################################################
# Bar/Foo.pm
package Foo::Bar;
use Foo ();
sub import {
shift;
Foo->import( @_ );
}
# yadda-yadda
1;
__END__
############################################################
This does indeed have the effect of "transmitting" the "()" argument
from "use Foo::Bar ()" through to Foo. But in a suite of modules
of any complexity this approach quickly becomes cumbersome.
Is there any other for Foo to know that it has been use'd by a
module that *itself* was use'd with a "()" argument?
TIA!
kj
--
NOTE: In my address everything before the first period is backwards;
and the last period, and everything after it, should be discarded.
------------------------------
Date: 29 Mar 2007 14:08:45 -0700
From: "scottny07" <scottdenoon@gmail.com>
Subject: LWP::UserAgent and HTTP::Request with basic authentication...
Message-Id: <1175202525.063463.38680@p15g2000hsd.googlegroups.com>
I am by no means a perl pro but I am trying to take a url sent from a
form along with a integer and load the given number of URL's to
recache them in our cms system... here is what I have...
#!/usr/local/bin/perl
alarm(300);
use LWP::UserAgent;
use HTTP::Request;
use CGI qw/:all/;
my $query = new CGI;
my $URL = CleanUp($query->param('gURL'));
my $imgCount = CleanUp($query->param('imgCount'));
## Ok, now we can actually begin the refreshing
#
my $orig = $URL;
for(my $i=1; $i <= $imgCount; $i++) {
$URL =~ s/Itemnr=\d*//;
$URL =~ s/&nocache=1//;
$URL = $URL . "&Itemr=$i&nocache=1";
print "Re-Caching image($i) ";
## Here is where we want to authenticate the access to the edit
server
my $ua = LWP::UserAgent->new;
$ua->agent("MyAgent/1.0");
my $req = HTTP::Request->new(GET => $URL);
$req->authorization_basic('user', 'pass');
my $res = $ua->request($req);
my $content = $res;
if ($content) {
print "<a href='$URL' target='_new'><span class='good'>re-cached</
span></a><br />\n";
} else {
print "<a href='$URL' target='_new'><span class='error'><b>re-cach
failed</b></span></a><br />\n";
}
$URL = $orig;
}
exit(0);
Not working... any ideas?
------------------------------
Date: 29 Mar 2007 21:26:40 GMT
From: Abigail <abigail@abigail.be>
Subject: Re: multiple inheritance and instance data?
Message-Id: <slrnf0obof.j7g.abigail@alexandra.abigail.be>
bugbear (bugbear@trim_papermule.co.uk_trim) wrote on MMMMCMLVIII
September MCMXCIII in <URL:news:460bcf00$0$8757$ed2619ec@ptn-nntp-reader02.plus.net>:
??
?? OK - my invention (while thinking about the issues) was as follows,
?? which seems to work (i.e. passes all the tests I've tried). I would
?? welcome comments on style or blatent
?? bugs/faults I haven't thought of. Essentially I perform
?? a hash merge on the parent hashes.
What if one of the classes doesn't use a hash?
What if both classes use the same name for an attribute?
Or are you going to break encapsulation, and peek inside package B
while developping package A? But if you're going to break encapsulation,
why bother with OO?
Abigail
--
perl -we 'print split /(?=(.*))/s => "Just another Perl Hacker\n";'
------------------------------
Date: 30 Mar 2007 01:10:41 GMT
From: John Oliver <joliver@john-oliver.net>
Subject: Problem installing Apache::Test
Message-Id: <slrnf0oosh.23n.joliver@ns.sdsitehosting.net>
I'm trying to install Apache::Test via CPAN, and run into:
[warning] running with new config opts: /usr/bin/perl
/root/.cpan/build/Apache-Test-1.29/t/TEST -bugreport -verbose=0 -httpd
/usr/sbin/httpd -apxs /usr/sbin/apxs
[warning] root mode: changing the files ownership to 'nobody' (99:99)
[warning] testing whether 'nobody' is able to -rwx
/root/.cpan/build/Apache-Test-1.29/t
"/usr/bin/perl" -Mlib=lib -MApache::TestRun -e 'eval {
Apache::TestRun::run_root_fs_test(99, 99,
q[/root/.cpan/build/Apache-Test-1.29/t]) }';
[warning] result:
[ error] You are running the test suite under user 'root'.
Apache cannot spawn child processes as 'root', therefore
we attempt to run the test suite with user 'nobody' (99:99).
The problem is that the path (including all parent directories):
/root/.cpan/build/Apache-Test-1.29/t
must be 'rwx' by user 'nobody', so Apache can read and write under that
path.
There are several ways to resolve this issue. One is to move and
rebuild the distribution to '/tmp/' and repeat the 'make test'
phase. The other is not to run 'make test' as root (i.e. building
under your /home/user directory).
However, "fixing" /root/.cpan/build/Apache-Test-1.29/ doesn't help
because CPAN removes it and replaces it when I try again.
On top of that, Apache httpd runs as user "apache", not "nobody".
Can I get CPAN to install this properly, or is a manual install the only
way to get it installed?
--
* John Oliver http://www.john-oliver.net/ *
------------------------------
Date: 29 Mar 2007 13:55:40 -0700
From: garycubitt@gmail.com
Subject: Pseiudo Terminals
Message-Id: <1175201740.818267.71170@e65g2000hsc.googlegroups.com>
Hi all,
I'm new to this group and I'm not sure if this is the right place to
be posting this question - so if this is the wrong place please could
you point me in the right direction.
The problem I'm having is as follows:
I have designed a perl script that acts as a wrapper to the sybase
command line querying tool sqsh. The wrapper uses pwp to
automatically log in to the sqsh process and allow the user to
interact with it through the perl script. The problem I have is that
the terminal configuration does not seem to follow through to the
pseudo terminal. For example if a sql query is entered that is
longer
the 25 chars and then the backspace key is used or the left arrow to
go back the line will start to move up the screen and will not flow
as
expected. Also from within sqsh it is possible to use vi, however
when I use vi nothing is visible until a (L) over the text and then I
can see it.
I'm really have no idea where to go to look for a possible solution
to
this - or even what may be causing it so I thought I'd give you guys
a
try!
The script uses the perl Comm.pl module to create the pseudo terminal
and start the child sqsh process.
Thanks
Gary
------------------------------
Date: 29 Mar 2007 21:02:27 GMT
From: anno4000@radom.zrz.tu-berlin.de
Subject: Re: Shifting Away
Message-Id: <572nr3F2bt8ohU1@mid.dfncis.de>
Xiong Changnian <please@nospam.net> wrote in comp.lang.perl.misc:
> In article <57077cF2aa31qU1@mid.dfncis.de>,
> anno4000@radom.zrz.tu-berlin.de wrote:
>
> > BTW, shift() as such doesn't stop you from changing a parameter.
>
> That statement baffles me. Perhaps I'm missing something. Here's my
> understanding -- not to lecture, but please tell me where I run off the
> bridge.
Well, it's true, and not stranger than the existence of lvalue subs,
but it's harder to demonstrate than I thought. I had intended to delete
that sentence and dodge an explanation, but since I let it stand,
here goes.
The result of shift() is an alias to the list element that is shifted
off and allows write access. This can be seen subs like
sub x1 { $_ = 13 for shift }
sub x2 { my $ref = \ shift; $$ref = 13 }
which both set their argument to 13 if they can.
sub x3 { shift() = 13 }
doesn't compile (probably a good thing), but in the light of the
other two that restriction is artificial.
Anno
------------------------------
Date: Thu, 29 Mar 2007 22:28:29 +0100
From: Jon Harrop <jon@ffconsultancy.com>
Subject: Re: What are OOP's Jargons and Complexities
Message-Id: <460c30b1$0$8750$ed2619ec@ptn-nntp-reader02.plus.net>
Xah Lee wrote:
> As part of this new syntax and purity, where everything in a program
> is of Classes and Objects and Methods, many complex issues and concept
> have arisen in OOP from both the OOP language machinery as well as a
> engineering practice.
I think the fact that many design patterns from OOP are redundant in the
presence of functional programming is very interesting. I'd like to see
more written about this, not least because it would serve as an excellent
introduction to functional programming for the majority of programmers who
are versed only in object orientation (primarily C++, Java and C#
programmers).
There is an old paper on the GOF's OOP design patterns implemented in OCaml
but it was not written by OCaml-savvy programmers and contained many errors
and omissions. Perhaps the Lisp community have generated something better?
Also, pattern matching is fundamental to many modern functional programming
languages. Here, pattern matching is often the only way to manipulate
concrete data structures and often results in code that is both faster and
more concise than any object-oriented equivalent. I recently gave the
example of a small symbolic simplifier written in OCaml/F# that is
difficult and tedious to translate into many other languages efficiently
(including C++, Java, C# and even Lisp).
--
Dr Jon D Harrop, Flying Frog Consultancy
OCaml for Scientists
http://www.ffconsultancy.com/products/ocaml_for_scientists/index.html?usenet
------------------------------
Date: Thu, 29 Mar 2007 17:02:46 -0500
From: Uri Guttman <uri@stemsystems.com>
Subject: Re: What are OOP's Jargons and Complexities
Message-Id: <x7odmbbtdl.fsf@mail.sysarch.com>
please DO NOT EVER followup xah's posts into comp.lang.perl.misc. he is
not wanted there and is considered a troll. he hates perl so why he
crossposts there is a question. if you want to followup, post only in
your own group. keep him and his useless threads out of c.l.p.misc.
uri
--
Uri Guttman ------ uri@stemsystems.com -------- http://www.stemsystems.com
--Perl Consulting, Stem Development, Systems Architecture, Design and Coding-
Search or Offer Perl Jobs ---------------------------- http://jobs.perl.org
------------------------------
Date: Thu, 29 Mar 2007 18:19:44 -0400
From: Lew <lew@nospam.lewscanon.com>
Subject: Re: What are OOP's Jargons and Complexities
Message-Id: <OqmdnRDEgr8cppHbnZ2dnUVZ_u_inZ2d@comcast.com>
Uri Guttman wrote:
> please DO NOT EVER followup xah's posts into comp.lang.perl.misc. he is
> not wanted there and is considered a troll. he hates perl so why he
> crossposts there is a question. if you want to followup, post only in
> your own group. keep him and his useless threads out of c.l.p.misc.
We've heard similar reports about Xah Lee on other newsgroups as well.
-- Lew
------------------------------
Date: Thu, 29 Mar 2007 18:39:28 -0500
From: "Bruce C. Baker" <bcbakerXX@cox.net>
Subject: Re: What are OOP's Jargons and Complexities
Message-Id: <F6YOh.253104$BK1.197626@newsfe13.lga>
"Lew" <lew@nospam.lewscanon.com> wrote in message
news:OqmdnRDEgr8cppHbnZ2dnUVZ_u_inZ2d@comcast.com...
> Uri Guttman wrote:
>> please DO NOT EVER followup xah's posts into comp.lang.perl.misc. he is
>> not wanted there and is considered a troll. he hates perl so why he
>> crossposts there is a question. if you want to followup, post only in
>> your own group. keep him and his useless threads out of c.l.p.misc.
>
> We've heard similar reports about Xah Lee on other newsgroups as well.
>
> -- Lew
It would be best to ignore all of Xah's posts /entirely/ (Yes, I know I've
just ignored my own advice ... :-( )
------------------------------
Date: Thu, 29 Mar 2007 16:41:21 -0700
From: James Stroud <jstroud@mbi.ucla.edu>
Subject: Re: What are OOP's Jargons and Complexities
Message-Id: <euhir1$ksq$1@daisy.noc.ucla.edu>
This idiot is a troll. This idiot is a troll. ThThis idiot is a troll.
This idiot is a troll. is idiot is a troll. This idiot is a troll. This
idiot is a troll. This idiot is a troll. This idiot is a troll. This
idiot is a troll. This idiot is a troll. This idiot is a troll. This
idiot is a troll. This idiot is a troll. This idiot is a troll. This
idiot is a troll. This idiot is a troll. This idiot is a troll. This
idiot is a troll. This idiot is a troll. This idiot is a troll. This
idiot is a troll. This idiot is a troll. This idiot is a troll. This
idiot is a troll. This idiot is a troll. This idiot is a troll. This
idiot is a troll. This idiot is a troll. This idiot is a troll. This
idiot is a troll. This idiot is a troll. This idiot is a troll. This
idiot is a troll. This idiot is a troll. This idiot is a troll. This
idiot is a troll. This idiot is a troll. This idiot is a troll. This
idiot is a troll. This idiot is a troll. This idiot is a troll. This
idiot is a troll. This idiot is a troll. This idiot is a troll. This
idiot is a troll. This idiot is a troll. This idiot is a troll. This
idiot is a troll. This idiot is a troll. This idiot is a troll. This
idiot is a troll. This idiot is a troll. This idiot is a troll. This
idiot is a troll. This idiot is a troll. This idiot is a troll. This
idiot is a troll. This idiot is a troll. This idiot is a troll. This
idiot is a troll. This idiot is a troll. This idiot is a troll. This
idiot is a troll. This idiot is a troll. This idiot is a troll. This
idiot is a troll. This idiot is a troll. This idiot is a troll. This
idiot is a troll. This idiot is a troll. This idiot is a troll. This
idiot is a troll. This idiot is a troll. This idiot is a troll. This
idiot is a troll. This idiot is a troll. This idiot is a troll. This
idiot is a troll. This idiot is a troll. This idiot is a troll. This
idiot is a troll. This idiot is a troll. This idiot is a troll. This
idiot is a troll. This idiot is a troll. This idiot is a troll. This
idiot is a troll. This idiot is a troll. This idiot is a troll. This
idiot is a troll. This idiot is a troll. This idiot is a troll. This
idiot is a troll. This idiot is a troll. This idiot is a troll. This
idiot is a troll. This idiot is a troll. This idiot is a troll. This
idiot is a troll. This idiot is a troll. This idiot is a troll. This
idiot is a troll. This idiot is a troll. This idiot is a troll. This
idiot is a troll. This idiot is a troll. This idiot is a troll. This
idiot is a troll. This idiot is a troll. This idiot is a troll. This
idiot is a troll. This idiot is a troll. This idiot is a troll. This
idiot is a troll. This idiot is a troll. This idiot is a troll. This
idiot is a troll. This idiot is a troll. This idiot is a troll. This
idiot is a troll. This idiot is a troll. This idiot is a troll. This
idiot is a troll. This idiot is a troll. This idiot is a troll. This
idiot is a troll. This idiot is a troll. This idiot is a troll. This
idiot is a troll. This idiot is a troll. This idiot is a troll. This
idiot is a troll. This idiot is a troll. This idiot is a troll. This
idiot is a troll. This idiot is a troll. This idiot is a troll. This
idiot is a troll. This idiot is a troll. This idiot is a troll. This
idiot is a troll. This idiot is a troll. This idiot is a troll. This
idiot is a troll. This idiot is a troll. This idiot is a troll. This
idiot is a troll. This idiot is a troll. This idiot is a troll.
------------------------------
Date: Fri, 30 Mar 2007 02:33:55 +0200
From: Mirco Wahab <wahab-mail@gmx.de>
Subject: Re: What are OOP's Jargons and Complexities
Message-Id: <euhm8b$7r8$1@mlucom4.urz.uni-halle.de>
James Stroud wrote:
there's a serious bug waiting here
> This idiot is a troll. This idiot is a troll. ThThis idiot is a troll.
> This idiot is a troll. is idiot is a troll. This idiot is a troll. This
Remember, rockets went back to earth on such things (in pieces) ...
> idiot is a troll. This idiot is a troll. This idiot is a troll. This
better use Xah's "functional paradigm" combined
with his most hated religion instead:
print "This idiot is a troll. " x 42
Regards & f'up c.l.java.p
Mirco
------------------------------
Date: Thu, 29 Mar 2007 22:14:31 +0200
From: "Peter J. Holzer" <hjp-usenet2@hjp.at>
Subject: Re: What could potentially be wrong in this script?
Message-Id: <slrnf0o7h7.jic.hjp-usenet2@yoyo.hjp.at>
On 2007-03-29 13:15, Chris <foureightyeast@yahoo.com> wrote:
> Thanks for suggestion and for making me aware of unpack! :) There
> is a rogue carriage return (0xd) in the string that isn't appearing in
> the other strings, even though the file characteristics are the same
> as far as the naked eye can see between all my files, this is the only
> one with that strange character at the end. chomp() doesn't seem to
> get rid of it either.
Chomp only removes $/, which is usually "\n", not "\r".
> Is there something I can do to deal with this situation?
You probably want to ignore any whitespace at the end of the line, so
you could change your pattern from:
$searchTag = "^#include\\s*(.*)";
to
$searchTag = "^#include\\s*(.*?)\\s*$";
This would not only get rid of the \r, but also of any spaces or tabs at
the end of the line (which normally aren't visible to the naked eye
either).
> I've tried retyping the string by hand in the file, but it
> doesn't seem to be going away for some reason.
Your editor is probably detecting the MS-DOS line endings and acting
accordingly. It should have a way to change this. For example, in vim,
you can switch to unix-style line endings with
:set fileformat=unix
and then just save the file. There are also utilities like dos2unix
which do this, or you can write a simple one-line perl script ...
hp
--
_ | Peter J. Holzer | Blaming Perl for the inability of programmers
|_|_) | Sysadmin WSR | to write clearly is like blaming English for
| | | hjp@hjp.at | the circumlocutions of bureaucrats.
__/ | http://www.hjp.at/ | -- Charlton Wilbur in clpm
------------------------------
Date: Thu, 29 Mar 2007 19:30:43 -0500
From: Tad McClellan <tadmc@augustmail.com>
Subject: Re: What could potentially be wrong in this script?
Message-Id: <slrnf0omhj.qgj.tadmc@tadmc30.august.net>
Chris <foureightyeast@yahoo.com> wrote:
> On Mar 28, 7:33 pm, "Klaus" <klau...@gmail.com> wrote:
>> On Mar 29, 1:36 am, "Chris" <foureightye...@yahoo.com> wrote:
>>
>> [snip]
>>
>> > if I print "$1\n",
>> > the file prints just fine. But, if I do something like print "$1 after
>> > \n", the whole output is messed up. If I print "before $1\n", nothing
>> > prints at all. If I print "before $1 after\n", only after prints.
>>
>> not really sure, but could be a rogue "\r" in $1,
> There
> is a rogue carriage return (0xd) in the string
> Is there something I can do to deal with this
> situation?
Repair the corrupted file:
perl -p -i -e 'tr/\r//d' bad_file
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: 6 Apr 2001 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 6 Apr 01)
Message-Id: <null>
Administrivia:
#The Perl-Users Digest is a retransmission of the USENET newsgroup
#comp.lang.perl.misc. For subscription or unsubscription requests, send
#the single line:
#
# subscribe perl-users
#or:
# unsubscribe perl-users
#
#to almanac@ruby.oce.orst.edu.
NOTE: due to the current flood of worm email banging on ruby, the smtp
server on ruby has been shut off until further notice.
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
#To request back copies (available for a week or so), send your request
#to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
#where x is the volume number and y is the issue number.
#For other requests pertaining to the digest, send mail to
#perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
#sending perl questions to the -request address, I don't have time to
#answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V11 Issue 282
**************************************
