Writing to text file

[annem_jyothsna]

In a loop i tried with

foreach my $x ( @finaldata ) {
        my ($sdrposttax, $reccurposttax);
        $sdrposttax = &FmtCur3($x->{'sdrposttax'});
        $reccurposttax = &FmtCur3($x->{'reccurpotx'});

        print FH "$x->{'period'},$x->{'partner'},$x->{'ftsqrg'},$x->{'
+ltsqrg'},";
        print FH "\"$sdrposttax\",";
        print FH "$x->{'reccur'},$x->{'recsdrrate'},";
        print FH "\"$reccurposttax\",";


        # Compute the cumulative sum to display in the footer
        $sum += $x->{'sdrposttax'};
    }

But in the text file i see like the below Oct-08,AAMNT,1,24,"","","0.000",EUR,1.0731,"","","0.000", where i don't know why the "" are coming in my report Plz help me in this

[roboticus]

annem_jyothsna:

The "" occur because you put them there: print FH "\"$sdrposttax\","; Inside double-quotes, \" means to place a quote inside the string. So "" simply means that $sdrposttax is an empty string (or undef), so you get adjacent quotes.

Also, you should wrap your code and/or data in code tags <c>your code goes here</c> to make it easier to read. Otherwise, many people will simply ignore your post, as it can be annoying to have to decipher your post in order to give you help. Remember: When you're asking for help, it's in your own best interest to make it easy and convenient for us to help you. Offer us more information rather than less. Format it nicely.

...roboticus

When your only tool is a hammer, all problems look like your thumb.

[sundialsvc4]

The “immediate-IF” syntax can come in handy here:   ( expression ? value_if_true : value_if_false )

Another handy way to do it would be to define a little sub such as:

sub quoted {
  my $value = shift;
  if (defined($value)) {
    return "\"$value\"";
  } else {
    return "";
  }
}


Now you can print calls to this function.   It will return a quoted string if there’s anything inside, or an empty-string if not.   This kind of “shorthand” if applicable, can make code much easier to read.

[Your Mother]

Code that compiles? When did this era end? For the benefit of posterity I must point out it's naïve and broken; handling quoting properly is not really a trivial problem–

print quoted('"quoted"'), $/;

And immediate if is a very un-Perly name for the ternary operator.

[Utilitarian]

It looks as though your FmtCur3 sub returns undefined

PS: echoing other commentors remarks about formatting, it make a difference and leaving them code tags out causes headaches ;)