Re: Perl Module to parse any other Perl script/module to fetch stats about data-structures

2012-02-09 Thread Shawn H Corey
On 12-02-08 05:20 PM, Parag Kalra wrote: Do we have any Perl module which can parse any other perl script (or module) and fetch information like total number of arrays being used, total number of hashes, total number of scalar variables etc and size information (like total elements, total keys

Re: unexpected results

2012-02-09 Thread timothy adigun
Hi lina, 2012/2/9 lina > On Thu, Feb 9, 2012 at 2:31 PM, Jeff Peng wrote: > > 于 2012-2-9 14:10, lina 写道: > > > >> On Thu, Feb 9, 2012 at 1:44 PM, Jeff Peng wrote: > >>> > >>> > 于 2012-2-9 12:44, lina 写道: > >>> > > > >> $string =~ m/(\S+)(and|or)(\S+)/; > >>> > >>> > > >>> > > >>> >

Re: How to Digest::CMAC->add($json)

2012-02-09 Thread John Refior
On Tue, Feb 7, 2012 at 5:57 PM, Igor Dovgiy wrote: > It's not an encoding issue. It's a 'storage' issue. ) > > JSON::to_json returns a string, with UTF8 flag on. > JSON::encode_json returns a bytecode (sequence of octets), with UTF8 flag > off. > Thanks Igor. John

How to process just part of a file

2012-02-09 Thread Clay Lovett
I have inherited a script that processes the cron and comments stuff out for month end processing. We have added some store that do not run the same monthly calendar as the rest of the stores. What I need to know is how to add a start and a finish section to the code so that it only processes th

Re: How to process just part of a file

2012-02-09 Thread Igor Dovgiy
First, we should make sure that we can recognize the beginning and the end of section within CRONDMP file itself. For example, let's define my $SEC_START = '## SECTION START', my $SEC_END = '## SECTION END'; When the source file contains both of these, and so the section we need is clearly ma

Re: unexpected results

2012-02-09 Thread Jim Gibson
At 12:44 PM +0800 2/9/12, lina wrote: #!/usr/bin/perl use strict ; my @strings = ( "Fred and Barney", "Gilligan or Skipper", "Fred and Ginger" ); foreach my $string (@strings) { $string =~ m/(\S+)(and|or)(\S+)/; print "\$1: $1

Re: unexpected results

2012-02-09 Thread lina
On 10 Feb, 2012, at 0:31, Jim Gibson wrote: > At 12:44 PM +0800 2/9/12, lina wrote: >> #!/usr/bin/perl >> use strict ; >> my @strings = ("Fred and Barney", >>"Gilligan or Skipper", >>"Fred and Ginger" >> ); >> foreach my $string (@strings) >>{ >>$string =~ m/(