[28918] in Perl-Users-Digest
Perl-Users Digest, Issue: 162 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Thu Feb 22 09:09:55 2007
Date: Thu, 22 Feb 2007 06: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 Thu, 22 Feb 2007 Volume: 11 Number: 162
Today's topics:
Any 3270 emulation for perl yet? <itfred@cdw.com>
Re: Any 3270 emulation for perl yet? <spamtrap@dot-app.org>
Re: Cant connect to mysql from perl interface <tintin@invalid.invalid>
Re: fork()-ing questions <bik.mido@tiscalinet.it>
Re: fork()-ing questions <bik.mido@tiscalinet.it>
Re: How to get individual fields into variables using D <itfred@cdw.com>
new CPAN modules on Thu Feb 22 2007 (Randal Schwartz)
Re: new method to test Perl code dnikolayev@gmail.com
Re: new method to test Perl code <uri@stemsystems.com>
Re: new method to test Perl code <jurgenex@hotmail.com>
Re: new method to test Perl code dnikolayev@gmail.com
Re: new method to test Perl code <spamtrap@dot-app.org>
Re: new method to test Perl code <spamtrap@dot-app.org>
Newbie Question <ed_zep@ntlworld.com>
Re: Regex: Why is overreaching necessary? <Shannon.Jacobs.nospam@gmail.com>
Re: ucfirst() with "_" separator <someone@example.com>
Re: ucfirst() with "_" separator anno4000@radom.zrz.tu-berlin.de
Re: ucfirst() with "_" separator <bik.mido@tiscalinet.it>
Re: ucfirst() with "_" separator <bik.mido@tiscalinet.it>
Re: Unable to install Math::BigInt::GMP on Solaris 10 <tlviewer@yahoo.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Thu, 22 Feb 2007 07:18:02 -0500
From: Fred <itfred@cdw.com>
Subject: Any 3270 emulation for perl yet?
Message-Id: <-5Gdna4xreFnFEDYnZ2dnUVZ_vWtnZ2d@comcast.com>
I searched for a perl 3270 emulator several years ago, and
could find none. I wound up using the s3270 emulator wrapped
in a perl script. I've been searching again, and still do
not see a perl based 3270 emulator. Since a perl 3270
emulator apparently still does not exist, I guess the
question is why? It would seem a natural for perl, to
connect to a 3270 and screen scrape, or whatever.
-Thanks
------------------------------
Date: Thu, 22 Feb 2007 08:13:09 -0500
From: Sherm Pendley <spamtrap@dot-app.org>
Subject: Re: Any 3270 emulation for perl yet?
Message-Id: <m2mz36xrmi.fsf@local.wv-www.com>
Fred <itfred@cdw.com> writes:
> I've been searching again, and still do
> not see a perl based 3270 emulator. Since a perl 3270
> emulator apparently still does not exist, I guess the
> question is why?
Most (if not all) CPAN modules are written for the authors' own use first,
and then shared with the public second. Few (if any) modules are written
for the sole purpose of scratching some else's itch.
With that in mind, the most obvious answer would be that no one has had
both a need for such a module, and the necessary skills to write it.
sherm--
--
Web Hosting by West Virginians, for West Virginians: http://wv-www.net
Cocoa programming in Perl: http://camelbones.sourceforge.net
------------------------------
Date: Thu, 22 Feb 2007 20:24:24 +1300
From: Tintin <tintin@invalid.invalid>
Subject: Re: Cant connect to mysql from perl interface
Message-Id: <45dd374e$0$16316$88260bb3@free.teranews.com>
Ramesh wrote:
> On Feb 21, 4:27 pm, use...@DavidFilmer.com wrote:
>> On Feb 21, 4:07 pm, "Ramesh" <rpallap...@gmail.com> wrote:
>>
>>> I see my perl crashing.
>> You should never let Perl drive your car.
>>
>>> Can someone please give me some suggestions on how to fix this?
>> Why are you asking us what the problem is when you haven't even asked
>> Perl what the problem is?
>>
>>> $dbh = DBI->connect("DBI:mysql:database=test", 'xxx', 'xxx');
>> Try:
>>
>> $dbh = DBI->connect("DBI:mysql:database=test", 'xxx', 'xxx')
>> or die $DBI::errstr;
>>
>> --
>> The best way to get a good answer is to ask a good question.
>> David Filmer (http://DavidFilmer.com)
>
>
> Thanks for the tip. I added the die $DBI::errstr; as you suggested but
> I still dont see any output. Cant figure out why perl crashes even
> though I put this statement.
Proper diagnosis of a problem requires exact error messages or
description of how it's not behaving as expected.
Perl crashes is as useless a description as "does not work".
--
Posted via a free Usenet account from http://www.teranews.com
------------------------------
Date: Thu, 22 Feb 2007 11:01:31 +0100
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: fork()-ing questions
Message-Id: <ldqqt2d71mslcrgcglqcb0i8bf8r011005@4ax.com>
On 21 Feb 2007 13:30:27 -0800, "Monty" <dale.schmitz@offutt.af.mil>
wrote:
>follwing the 'unless' statement until it hits the exit() statement. I
>presume the child process attempts to return a value to the parent
>process, but that's a matter better left for another conversation.
No, in general processes do not *return values* to each other,
parent-child relationship or not. That's why IPC techniques exist:
perldoc perlipc
Michele
--
{$_=pack'B8'x25,unpack'A8'x32,$a^=sub{pop^pop}->(map substr
(($a||=join'',map--$|x$_,(unpack'w',unpack'u','G^<R<Y]*YB='
.'KYU;*EVH[.FHF2W+#"\Z*5TI/ER<Z`S(G.DZZ9OX0Z')=~/./g)x2,$_,
256),7,249);s/[^\w,]/ /g;$ \=/^J/?$/:"\r";print,redo}#JAPH,
------------------------------
Date: Thu, 22 Feb 2007 11:15:54 +0100
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: fork()-ing questions
Message-Id: <mgqqt212kuqe8r9oa80miiksi011o9e0hm@4ax.com>
On Wed, 21 Feb 2007 21:42:57 GMT, "Jürgen Exner"
<jurgenex@hotmail.com> wrote:
>> fork() spawns a new process consisting of code following the 'unless'
>> statement.
>
>No. The spawned process consists of exactly the same code as the parent
>process.
For the benefit of the OP: do not confuse the *source* code with the
code *in memory* for running processes. The latter contains *state*,
which in turn corresponds to the execution point of your program. Now,
when you fork() a child process is created that is a perfect copy of
the parent one: it's just as if they had both been running and doing
the very same things from start - "as far as they know". *After* the
fork() takes place, things change. The very first thing that changes
is the return value of fork() itself. Apart that, you may have the
rest of the code do the same things for both processes, but that's not
very interesting, and generally you want to use the return value to
decide which is which and take actions accordingly.
Michele
--
{$_=pack'B8'x25,unpack'A8'x32,$a^=sub{pop^pop}->(map substr
(($a||=join'',map--$|x$_,(unpack'w',unpack'u','G^<R<Y]*YB='
.'KYU;*EVH[.FHF2W+#"\Z*5TI/ER<Z`S(G.DZZ9OX0Z')=~/./g)x2,$_,
256),7,249);s/[^\w,]/ /g;$ \=/^J/?$/:"\r";print,redo}#JAPH,
------------------------------
Date: Thu, 22 Feb 2007 08:40:58 -0500
From: Fred <itfred@cdw.com>
Subject: Re: How to get individual fields into variables using DBI?
Message-Id: <bIidnWw9BZT3AEDYnZ2dnUVZ_hOdnZ2d@comcast.com>
On Wed, 21 Feb 2007 18:09:53 +1100, Iain Chalmers wrote:
> In article <VuidnUuT3elRVEbYnZ2dnUVZ_t-mnZ2d@comcast.com>,
> Fred <itfred@cdw.com> wrote:
>
>> The code fragment below will print all rows in the
>> table mytable. If there are say 3 fields in mytable,
>> field1, field2, and field3, how would I get all of
>> the values into each field? That is, break up
>> each row by field into variables?
>
> Errmmm, you _do_ know what that "@" symbol in front of @row means, right?
>
> Have you tried something like:
>
> print "col0 = $row[0], col1 = $row[1]\n";
>
> inside that while loop?
>
> big
Thanks. I was thinking that each element of @row was an
entire row like:
$row[0] = "col1_here col2_here col3_here"
$row[1] = "col1_here col2_here col3_here"
------------------------------
Date: Thu, 22 Feb 2007 05:42:10 GMT
From: merlyn@stonehenge.com (Randal Schwartz)
Subject: new CPAN modules on Thu Feb 22 2007
Message-Id: <JDunuA.1D5E@zorch.sf-bay.org>
The following modules have recently been added to or updated in the
Comprehensive Perl Archive Network (CPAN). You can install them using the
instructions in the 'perlmodinstall' page included with your Perl
distribution.
Alvis-Bags-0.2
http://search.cpan.org/~wbuntine/Alvis-Bags-0.2/
----
Alvis-QueryFilter-0.2
http://search.cpan.org/~wbuntine/Alvis-QueryFilter-0.2/
Perl module providing SRU query filtering
----
Alvis-Saa-0.2
http://search.cpan.org/~wbuntine/Alvis-Saa-0.2/
Perl extension for communicating over the Tana protocol
----
Apache-Session-1.82
http://search.cpan.org/~chorny/Apache-Session-1.82/
A persistence framework for session data
----
Apache-UploadMeter-0.9915
http://search.cpan.org/~isaac/Apache-UploadMeter-0.9915/
Apache module which implements an upload meter for form-based uploads
----
Business-IS-PIN-0.04
http://search.cpan.org/~avar/Business-IS-PIN-0.04/
Validate and process Icelandic PIN numbers (Icelandic: kennit?lur)
----
Catalyst-Plugin-Authentication-0.09999_01
http://search.cpan.org/~jayk/Catalyst-Plugin-Authentication-0.09999_01/
Infrastructure plugin for the Catalyst authentication framework.
----
Catalyst-Plugin-Authentication-Store-DBIx-Class-0.02
http://search.cpan.org/~jayk/Catalyst-Plugin-Authentication-Store-DBIx-Class-0.02/
A storage class for Catalyst Authentication using DBIx::Class
----
Config-Any-0.05
http://search.cpan.org/~rataxis/Config-Any-0.05/
Load configuration from different file formats, transparently
----
DBIx-Perlish-0.18
http://search.cpan.org/~gruber/DBIx-Perlish-0.18/
a perlish interface to SQL databases
----
Date-Holidays-0.09
http://search.cpan.org/~jonasbn/Date-Holidays-0.09/
a Date::Holidays::* OOP wrapper
----
Email-Stuff-2.04
http://search.cpan.org/~adamk/Email-Stuff-2.04/
A more casual approach to creating and sending Email:: emails
----
ExtUtils-MakeMaker-6.32
http://search.cpan.org/~mschwern/ExtUtils-MakeMaker-6.32/
Create a module Makefile
----
File-Mirror-0.03
http://search.cpan.org/~jwu/File-Mirror-0.03/
Perl extension for recursive directory copy
----
File-Mirror-0.04
http://search.cpan.org/~jwu/File-Mirror-0.04/
Perl extension for recursive directory copy
----
File-Mirror-0.05
http://search.cpan.org/~jwu/File-Mirror-0.05/
Perl extension for recursive directory copy
----
GSSAPI-0.24
http://search.cpan.org/~agrolms/GSSAPI-0.24/
Perl extension providing access to the GSSAPIv2 library
----
Google-Adwords-v1.0.1
http://search.cpan.org/~rohan/Google-Adwords-v1.0.1/
an interface which abstracts the Google Adwords SOAP API
----
Google-Data-JSON-v0.0.1
http://search.cpan.org/~takeru/Google-Data-JSON-v0.0.1/
XML-JSON converter based on Google Data APIs
----
JavaScript-1.03
http://search.cpan.org/~claesjac/JavaScript-1.03/
Perl extension for executing embedded JavaScript
----
JavaScript-Runtime-OpcodeCounting-1.01
http://search.cpan.org/~claesjac/JavaScript-Runtime-OpcodeCounting-1.01/
JavaScript::Runtime that counts how many opcodes that are executed
----
NTuples-0.11
http://search.cpan.org/~cmorris/NTuples-0.11/
intra-memory RDBMS / db-operations on NxN arrays
----
Net-Amazon-EC2-0.03
http://search.cpan.org/~jkim/Net-Amazon-EC2-0.03/
Perl interface to the Amazon Elastic Compute Cloud (EC2) environment.
----
Net-EPP-Frame-0.09
http://search.cpan.org/~gbrown/Net-EPP-Frame-0.09/
An EPP XML frame system built on top of XML::LibXML.
----
Options-1.0
http://search.cpan.org/~pchriste/Options-1.0/
A perl module to provide better support for command-line option parsing, hopefully better than GetOpts.
----
Params-Util-0.23
http://search.cpan.org/~adamk/Params-Util-0.23/
Simple, compact and correct param-checking functions
----
Pod-InComments-0.8
http://search.cpan.org/~narked/Pod-InComments-0.8/
----
Sort-Half-Maker-0.01
http://search.cpan.org/~ferreira/Sort-Half-Maker-0.01/
Create half-sort subs easily
----
Text-Quoted-2.01
http://search.cpan.org/~falcone/Text-Quoted-2.01/
Extract the structure of a quoted mail message
----
Text-Quoted-2.02
http://search.cpan.org/~falcone/Text-Quoted-2.02/
Extract the structure of a quoted mail message
----
WWW-Monitor-0.122
http://search.cpan.org/~yaron/WWW-Monitor-0.122/
Monitor websites for updates and changes
----
YAML-Tiny-1.04
http://search.cpan.org/~adamk/YAML-Tiny-1.04/
Read/Write YAML files with as little code as possible
----
re-engine-POSIX-0.01
http://search.cpan.org/~avar/re-engine-POSIX-0.01/
POSIX (IEEE Std 1003.1-2001) regular expressions
----
sapnwrfc-0.02
http://search.cpan.org/~piers/sapnwrfc-0.02/
SAP Netweaver RFC support for Perl
If you're an author of one of these modules, please submit a detailed
announcement to comp.lang.perl.announce, and we'll pass it along.
This message was generated by a Perl program described in my Linux
Magazine column, which can be found on-line (along with more than
200 other freely available past column articles) at
http://www.stonehenge.com/merlyn/LinuxMag/col82.html
print "Just another Perl hacker," # the original
--
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
<merlyn@stonehenge.com> <URL:http://www.stonehenge.com/merlyn/>
Perl/Unix/security consulting, Technical writing, Comedy, etc. etc.
See PerlTraining.Stonehenge.com for onsite and open-enrollment Perl training!
------------------------------
Date: 21 Feb 2007 21:45:07 -0800
From: dnikolayev@gmail.com
Subject: Re: new method to test Perl code
Message-Id: <1172123107.694707.269290@v45g2000cwv.googlegroups.com>
On Feb 22, 2:45 am, Uri Guttman <u...@stemsystems.com> wrote:
> >>>>> "d" == dnikolayev <dnikola...@gmail.com> writes:
>
> d> On Feb 22, 12:21 am, Uri Guttman <u...@stemsystems.com> wrote:
> >> >>>>> "d" == dnikolayev <dnikola...@gmail.com> writes:
> >>
> d> Here is the method to test perl program when you have no machine with
> d> perl:http://www.codeide.com
> d> You can do this in IDE mode in the site or run in CGI mode on your own
> d> home page like here:http://nick.codeide.com/hello.cgi?name=Visitor
> >>
> >> why would you want to test perl code on a machine without perl? and do
> >> you trust people to run any perl code on that box? i wouldn't go near
> >> your box under any circumstances nor would i recommend anyone do so. it
> >> isn't safe for your or their code.
>
> d> Just to test some regexp or something, for instance.. Some regexp
> d> or so on.. Show other one some abilities of perl,.. learn
> d> language, give your children ability to test, etc.. There is a lof
> d> of reasons to use.. Of course big applications wil not work as
> d> needed.. This resource is for testing, learning and so on.
>
> so it is a limited perl which means it isn't useful for testing. you can
> install perl on any box you have direct access too (no need for root) so
> you don't offer any advantage over that. learning from a limited perl is
> not a good idea.
>
> uri
>
> --
> Uri Guttman ------ u...@stemsystems.com --------http://www.stemsystems.com
> --Perl Consulting, Stem Development, Systems Architecture, Design and Coding-
> Search or Offer Perl Jobs ---------------------------- http://jobs.perl.org
Uri, I think, you are not understanding, what I am talking about..
When you don't know how to configure perl, but you have a book, where
you read some strings like:
my $world = 'World';
print "Hello, $world!";
and you run it and understands how it works, this is better, then wait
for help from others or read a lot of books, etc..
You can run some code, when you're away - just for modelling
something, etc.
I understand, that when you're big guy - it's easy to configure perl
on every machine, you're being at.. but until that, many users have
probs.. Sorry, this is reality..
And many users, who registred and working now, was not really sure
about working of this service... But know - situation is another..
Yep, we're on beta stage - but we're working to improve service..
our Web IDE supports not only Perl,.. but many other langages also..
Just run in Pascal on our resource something like:
uses Graph;
begin
setcolor(9);
circle(100,100,50);
setcolor(12);
arc(90,105,10,270,5);
arc(100,105,10,180,5);
arc(110,105,-90,180,5);
arc(100,105,10,160,30);
setcolor(9);
arc(80,80,-200,10,12);
arc(115,80,-200,10,12);
line(105,85,125,85);
line(70,85,90,85);
setcolor(0);
circle(80,80,5);
circle(115,80,5);
end.
You should get smile.. without any additional modules and plugins
installed..
As for Perl, it has full basical functionality on this stage.. CGI
support, when running as scripts from web on user pages. We are
working on Big List of modules support on this stage.. but this will
be soon.
Uri, I hope, you will change your meaning, when you understand, that
schoolboys and schoolgirls are not professionals, students are not
guru, etc...
Thanks!
------------------------------
Date: Thu, 22 Feb 2007 01:05:54 -0500
From: Uri Guttman <uri@stemsystems.com>
Subject: Re: new method to test Perl code
Message-Id: <x7odnm3ewt.fsf@mail.sysarch.com>
>>>>> "d" == dnikolayev <dnikolayev@gmail.com> writes:
d> And many users, who registred and working now, was not really sure
d> about working of this service... But know - situation is another..
d> Yep, we're on beta stage - but we're working to improve service..
d> our Web IDE supports not only Perl,.. but many other langages also..
d> Just run in Pascal on our resource something like:
but you don't get it either. it is VERY easy to install perl on almost
any box. on winblows you can install it in minutes from activestate. all
unix flavors and osx have perl already installed. so that is not an
issue. anyone who wants to learn to code in perl has to have the basic
skills of finding out how to get access to it on their box. and if they
can't do that, they shouldn't even be coding. if they don't own the box,
they can still put it in their home dir. there is no advantage to using
your service for this.
d> As for Perl, it has full basical functionality on this stage.. CGI
d> support, when running as scripts from web on user pages. We are
d> working on Big List of modules support on this stage.. but this will
d> be soon.
and your system will be cracked and broken once you put all that stuff
on it. you can't hope to run open code like this and not have safety
issues. it can't be done. public cgi sites if properly run have
sandboxes for their scripts and security issues. you can't do many
things on those systems. you are implying you can run almost any perl on
your system but that isn't good for you or your users.
d> Uri, I hope, you will change your meaning, when you understand, that
d> schoolboys and schoolgirls are not professionals, students are not
d> guru, etc...
and those boys and girls who don't have experience will run insecure
code on your box and allow it to be cracked.
you will learn this the hard way soon enough.
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, 22 Feb 2007 08:00:41 GMT
From: "Jürgen Exner" <jurgenex@hotmail.com>
Subject: Re: new method to test Perl code
Message-Id: <J4cDh.30999$2w.12791@trndny09>
dnikolayev@gmail.com wrote:
> When you don't know how to configure perl,
> I understand, that when you're big guy - it's easy to configure perl
> on every machine, you're being at.. but until that, many users have
> probs.. Sorry, this is reality..
In case of Unix typically the sys admin will have installed Perl ready to
use already. If you are the admin and you don't know how to configure Perl,
then probably you shouldn't be the admin.
In case of Windows if you don't know how to go to
http://activestate.com/Products/ActivePerl and click your way through
download and install then probably you shouldn't be coding.
> Uri, I hope, you will change your meaning, when you understand, that
> schoolboys and schoolgirls are not professionals, students are not
> guru, etc...
That's the whole point of Perl: it's so easy, a cave man can install it.
jue
------------------------------
Date: 22 Feb 2007 01:34:14 -0800
From: dnikolayev@gmail.com
Subject: Re: new method to test Perl code
Message-Id: <1172136854.119920.297710@j27g2000cwj.googlegroups.com>
Well, as for sysadmins.. you're right.. as for usual people - nope..
Well, Just check - what people say in Social networks(most of them are
not sysadmins):
http://del.icio.us/url/fefcd0119c6129ba8a8b7d104fdca8cc
http://www.stumbleupon.com/url/codeide.com
------------------------------
Date: Thu, 22 Feb 2007 08:00:23 -0500
From: Sherm Pendley <spamtrap@dot-app.org>
Subject: Re: new method to test Perl code
Message-Id: <m2y7mqxs7s.fsf@local.wv-www.com>
dnikolayev@gmail.com writes:
> Uri, I think, you are not understanding, what I am talking about.
Uri understands you better than you think.
You are trying to make it sound difficult for a beginner to install Perl
because you're trying to promote your "solution" for that "problem". But
in fact obtaining Perl is trivial no matter what your level of experience.
If you're using a modern Mac, or Linux, you already have it, and if you're
using Windows you can download a simple one-click installer.
You're not solving any problems here, you're just pimping your site.
sherm--
--
Web Hosting by West Virginians, for West Virginians: http://wv-www.net
Cocoa programming in Perl: http://camelbones.sourceforge.net
------------------------------
Date: Thu, 22 Feb 2007 08:03:49 -0500
From: Sherm Pendley <spamtrap@dot-app.org>
Subject: Re: new method to test Perl code
Message-Id: <m2r6sixs22.fsf@local.wv-www.com>
dnikolayev@gmail.com writes:
> Well, as for sysadmins.. you're right.. as for usual people - nope..
> Well, Just check - what people say in Social networks(most of them are
> not sysadmins):
>
> http://del.icio.us/url/fefcd0119c6129ba8a8b7d104fdca8cc
> http://www.stumbleupon.com/url/codeide.com
You seriously think astroturfing impresses anyone?
sherm--
--
Web Hosting by West Virginians, for West Virginians: http://wv-www.net
Cocoa programming in Perl: http://camelbones.sourceforge.net
------------------------------
Date: 22 Feb 2007 03:35:51 -0800
From: "Ed_Zep" <ed_zep@ntlworld.com>
Subject: Newbie Question
Message-Id: <1172144151.666246.32590@l53g2000cwa.googlegroups.com>
Hi,
I'm trying to install a few modules to get Perl on RH Linux AS 3.0 to
speak to an Oracle 9.2.0.6 database.
I'm installing as ROOT:
Data-Dumper-2.121
libnet-1.20
DBI-1.53
DBD-Oracle-1.19
but when I check what's been installed, all I get is:
DBM, ExampleP, File, Proxy, Sponge
The script will be run by the oracle user but surely installing as
root is correct.
I've read the README, too... :)
Any ideas? Many thanks, Ed.
=====================================================================
perl Makefile.PL
Writing Makefile for Data::Dumper
make
gcc -c -D_REENTRANT -D_GNU_SOURCE -DTHREADS_HAVE_PIDS -DDEBUGGING -
fno-strict- aliasing -I/usr/local/include -
D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -I/
usr/ include/gdbm -O2 -g -pipe -march=i386 -
mcpu=i686 -DVERSION=\"2.121\" -DXS_VERS ION=
\"2.121\" -fPIC "-I/usr/lib/perl5/5.8.0/i386-linux-thread-multi/
CORE" Dump er.c
Running Mkbootstrap for Data::Dumper ()
chmod 644 Dumper.bs
rm -f blib/arch/auto/Data/Dumper/Dumper.so
gcc -shared -L/usr/local/lib Dumper.o -o blib/arch/auto/Data/
Dumper/
Dumper.so
chmod 755 blib/arch/auto/Data/Dumper/Dumper.so
cp Dumper.bs blib/arch/auto/Data/Dumper/Dumper.bs
chmod 644 blib/arch/auto/Data/Dumper/Dumper.bs
make test
PERL_DL_NONLAZY=1 /usr/bin/perl "-MExtUtils::Command::MM" "-e"
"test_harness(0, 'blib/lib', 'blib/arch')" t/
*.t
t/dumper......ok
t/overload....ok
t/pair........ok
All tests successful.
Files=3, Tests=373, 0 wallclock secs ( 0.26 cusr + 0.04 csys =
0.30
CPU)
[root@millie Data-Dumper-2.121]# make install
Files found in blib/arch: installing files in blib/lib into
architecture depende nt library tree
Writing /usr/lib/perl5/site_perl/5.8.0/i386-linux-thread-multi/auto/
Data/Dumper/ .packlist
Appending installation info to /usr/lib/perl5/5.8.0/i386-linux-
thread-
multi/perl local.pod
------------------------------
Date: 21 Feb 2007 22:19:27 -0800
From: "Shannon Jacobs" <Shannon.Jacobs.nospam@gmail.com>
Subject: Re: Regex: Why is overreaching necessary?
Message-Id: <1172125167.083189.135080@k78g2000cwa.googlegroups.com>
On Feb 21, 11:58 pm, anno4...@radom.zrz.tu-berlin.de wrote:
<snip>
> That doesn't show the spurious match you reported. So, reduce your
> program and data to a small set that demonstrates the problem.
> There's no other way we could help you any further.
>
> Anno
I'm already amazed and very grateful for the amount of help I have
received, and I am glad to say so again if I haven't made it clear.
The most important thing was finally understanding the answer to the
original question, as awkwardly as I worded it.
In spite of that satisfaction, right now I feel like I should take
another break from the Perling... It is certainly not your fault that
my code is so peculiar and annoying. Your solution does in fact seem
to be perfect or very close, but...
Having fixed one problem, my latest testing discovered yet another
peculiarity which could easily consume much more time than it's
worth... I'm only going to mention it as an example of the peculiarity
of my code... I have discovered that using the search target 2471|2396
returns different results from the search target 2396|2471. I don't
think this can really be Perl's fault. However and fortuitously, every
problem that I've discovered (so far) is in the direction of false
positives, and that is not very troublesome for this application...
My current belief is that this newly discovered flaw is somewhere on
the HTML side, possibly in my JavaScript. However if I can't find it
there, and if it seems to be in the Perl, I may be back. Thanks again.
------------------------------
Date: Thu, 22 Feb 2007 08:22:26 GMT
From: "John W. Krahn" <someone@example.com>
Subject: Re: ucfirst() with "_" separator
Message-Id: <6pcDh.119501$Y6.17328@edtnps89>
gors wrote:
> We have big file has lines as:
>
> ITEM1 PRODUCT PRICE 3.47
> ITEM2 PRODUCT_DETAILS PRICE 4.47
> ITEM3 PRODUCT_DETAILS_AGAIN PRICE 5.47
>
> Trouble is make 2nd word each line capital letter first, then lower case for
> every "_". Some 2nd word have "_" one or more time, other not. So we like
> make line each lokk like:
>
> ITEM1 Product PRICE 3.47
> ITEM2 Product_Details PRICE 4.47
> ITEM3 Product_Details_Again PRICE 5.47
>
> How operate on second word after each "_"? We try:
>
> echo "ITEM3 PRODUCT_DETAILS_AGAIN PRICE 5.47" | \
> perl -aF_ -ne '$stuff=ucfirst(lc $2); s/$2/$stuff/; print $_'
>
> but it not work make any change. Even:
>
> echo "PRODUCT_DETAILS_AGAIN" | \
> perl -aF_ -ne 'print ucfirst(lc $_);'
>
> produce only "Product_details_again" instead "Product_Details_Again".
>
> Someone can help please?
$ echo "ITEM1 PRODUCT PRICE 3.47
ITEM2 PRODUCT_DETAILS PRICE 4.47
ITEM3 PRODUCT_DETAILS_AGAIN PRICE 5.47" | \
perl -pe's/^(\S+\s+)(\S+)/$a = $1; ($b = $2) =~ s!([[:alpha:]]+)!\L\u$1!g;
"$a$b"/e'
ITEM1 Product PRICE 3.47
ITEM2 Product_Details PRICE 4.47
ITEM3 Product_Details_Again PRICE 5.47
John
--
Perl isn't a toolbox, but a small machine shop where you can special-order
certain sorts of tools at low cost and in short order. -- Larry Wall
------------------------------
Date: 22 Feb 2007 09:41:32 GMT
From: anno4000@radom.zrz.tu-berlin.de
Subject: Re: ucfirst() with "_" separator
Message-Id: <5456qcF1ufvfkU1@mid.dfncis.de>
gors <gors@invalid.no1> wrote in comp.lang.perl.misc:
> We have big file has lines as:
>
> ITEM1 PRODUCT PRICE 3.47
> ITEM2 PRODUCT_DETAILS PRICE 4.47
> ITEM3 PRODUCT_DETAILS_AGAIN PRICE 5.47
>
> Trouble is make 2nd word each line capital letter first, then lower case for
> every "_". Some 2nd word have "_" one or more time, other not. So we like
> make line each lokk like:
>
> ITEM1 Product PRICE 3.47
> ITEM2 Product_Details PRICE 4.47
> ITEM3 Product_Details_Again PRICE 5.47
>
> How operate on second word after each "_"? We try:
>
> echo "ITEM3 PRODUCT_DETAILS_AGAIN PRICE 5.47" | \
> perl -aF_ -ne '$stuff=ucfirst(lc $2); s/$2/$stuff/; print $_'
>
> but it not work make any change. Even:
>
> echo "PRODUCT_DETAILS_AGAIN" | \
> perl -aF_ -ne 'print ucfirst(lc $_);'
>
> produce only "Product_details_again" instead "Product_Details_Again".
while ( <DATA> ) {
my @words = split;
$_ = join '_', map ucfirst, split /_/, lc for $words[ 1];
print "@words\n";
}
__DATA__
ITEM1 PRODUCT PRICE 3.47
ITEM2 PRODUCT_DETAILS PRICE 4.47
ITEM3 PRODUCT_DETAILS_AGAIN PRICE 5.47
Anno
------------------------------
Date: Thu, 22 Feb 2007 12:14:51 +0100
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: ucfirst() with "_" separator
Message-Id: <n3uqt2pgogf3n9glh1nj5vqdaddr5shnpf@4ax.com>
On Wed, 21 Feb 2007 16:29:13 -0800, "gors" <gors@invalid.no1> wrote:
>ITEM1 PRODUCT PRICE 3.47
>ITEM2 PRODUCT_DETAILS PRICE 4.47
>ITEM3 PRODUCT_DETAILS_AGAIN PRICE 5.47
>
>Trouble is make 2nd word each line capital letter first, then lower case for
>every "_". Some 2nd word have "_" one or more time, other not. So we like
>make line each lokk like:
There may be more compact solutions, but a fairly understandable one
is
s|(?<=\s)(\w+)(?=\s)|join '_', map ucfirst(lc), split /_/|e;
Of course, if the field were not the second one, or if whitespace
separating fields were variable, you would couldn't rely on
(?<=\s)(\w+)(?=\s), and would use something different.
Michele
--
{$_=pack'B8'x25,unpack'A8'x32,$a^=sub{pop^pop}->(map substr
(($a||=join'',map--$|x$_,(unpack'w',unpack'u','G^<R<Y]*YB='
.'KYU;*EVH[.FHF2W+#"\Z*5TI/ER<Z`S(G.DZZ9OX0Z')=~/./g)x2,$_,
256),7,249);s/[^\w,]/ /g;$ \=/^J/?$/:"\r";print,redo}#JAPH,
------------------------------
Date: Thu, 22 Feb 2007 12:38:05 +0100
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: ucfirst() with "_" separator
Message-Id: <plvqt214b9q5qv2il893ufj20fk7mlvo7g@4ax.com>
On Thu, 22 Feb 2007 12:14:51 +0100, Michele Dondi
<bik.mido@tiscalinet.it> wrote:
>There may be more compact solutions, but a fairly understandable one
>is
>
> s|(?<=\s)(\w+)(?=\s)|join '_', map ucfirst(lc), split /_/|e;
Well, of course there's a missing bit:
s|(?<=\s)(\w+)(?=\s)|join '_', map ucfirst(lc), split /_/, $1|e;
What's worst, (I tested the former and) it took me a while to
understand what was wrong... :-(
of course a slight modification a' la Anno's suggestion in this same
thread is better:
's|(?<=\s)(\w+)(?=\s)|join '_', map ucfirst, split /_/, lc $1|e;
Michele
--
{$_=pack'B8'x25,unpack'A8'x32,$a^=sub{pop^pop}->(map substr
(($a||=join'',map--$|x$_,(unpack'w',unpack'u','G^<R<Y]*YB='
.'KYU;*EVH[.FHF2W+#"\Z*5TI/ER<Z`S(G.DZZ9OX0Z')=~/./g)x2,$_,
256),7,249);s/[^\w,]/ /g;$ \=/^J/?$/:"\r";print,redo}#JAPH,
------------------------------
Date: Wed, 21 Feb 2007 21:12:53 -0800
From: Mark Pryor <tlviewer@yahoo.com>
Subject: Re: Unable to install Math::BigInt::GMP on Solaris 10
Message-Id: <pan.2007.02.22.05.12.53.51436@yahoo.com>
On Wed, 21 Feb 2007 19:27:19 -0800, DJ Stunks wrote:
> On Feb 21, 4:03 pm, sumit...@gmail.com wrote:
>> Make fails on both version 1.18 and 1.19.
>> <snip>
>> bash-3.00# perl Makefile.PL
>> Note (probably harmless): No library found for -lgmp
>> YAML not installed, make dist will not override metafile at
>> Makefile.PL line 8.
>> Writing Makefile for Math::BigInt::GMP
>
> Why does the creation of the makefile for Math::BigInt::GMP say that
> not finding the gmp library is "probably harmless"? Seems like it
> should be critical to me...
If you are on Win32, try here
http://www.kalinabears.com.au/w32perl/math_gmp.html
--
Mark
------------------------------
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 162
**************************************
