Hi Rajeev,
On Sun, 4 Sep 2011 08:05:52 -0700 (PDT)
Rajeev Prasad wrote:
> Shlomi Fish,
>
> this is not complete code but part of it, '...' in top and bottom denote
> that, strict warning etc is used.
Well, first of all, it would be a good idea to include the complete code. Using
"..." to denot
s suggested the same.
From: Shlomi Fish
To: Rajeev Prasad
Cc: Perl Beginners
Sent: Sunday, September 4, 2011 1:25 AM
Subject: Re: [solved] parsing and adding back this string
Hi Rajeev,
please acknowledge you have received and read this message.
On Sat, 3 Sep 2011
Rajeev Prasad wrote:
$k=1;
my $arSZ = @tmpAR=split(/"/,$line);
for $x (0..$arSZ-1){
if ($x % 2 == 0) {
push(@modline,"$tmpAR[$x]");
} else {
my $count = $tmpAR[$x-1] =~ tr/,/,/;#try for something more
correct like... =~ m/\,/g);
$k = $k + $count;
pus
Hi Rajeev,
please acknowledge you have received and read this message.
On Sat, 3 Sep 2011 15:47:42 -0700 (PDT)
Rajeev Prasad wrote:
> ...
> ...
>
> $k=1;
> my $arSZ = @tmpAR=split(/"/,$line);
> for $x (0..$arSZ-1){
> if ($x % 2 == 0) {
> push(@modline,"$tmpAR[$x]");
>
> } else
...
...
$k=1;
my $arSZ = @tmpAR=split(/"/,$line);
for $x (0..$arSZ-1){
if ($x % 2 == 0) {
push(@modline,"$tmpAR[$x]");
} else {
my $count = $tmpAR[$x-1] =~ tr/,/,/; #try for something more correct
like... =~ m/\,/g);
$k = $k + $count;
push(@modline,"STRING.$k"
