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
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+)/;
> >>>
> >>> >
> >>> >
> >>> >
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
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
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
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
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/(