Re^5: Problem when - use strict and -w

in reply to Re^4: Problem when - use strict and -w
in thread Problem when - use strict and -w

$csv->print(
   "Olah:","\t", $number++, $row->[2]...

);
[download]

Comment on Re^5: Problem when - use strict and -w Download Code

Replies are listed 'Best First'.
Re^6: Problem when - use strict and -w by GertMT (Hermit) on Jul 15, 2009 at 12:04 UTC
Worked it out.. `while ( my $row = $csv_in->getline($fh_in) ) { # $row->[2]=100; # just fooling around $fh_out->print( "Olah:", $number++, "\t", $row->[2], "\t", $row->[3], "\t", " 2 x 3 = +", $row->[2] * $row->[3], "\n" # @$row[2,5,3,0,4], # all unchanged columns unchanged ); }` [download] Getting there slowly	[reply] [d/l]

Replies are listed 'Best First'.

Re^6: Problem when - use strict and -w
by GertMT (Hermit) on Jul 15, 2009 at 12:04 UTC

while ( my $row = $csv_in->getline($fh_in) ) {

    # $row->[2]=100;   # just fooling around
    $fh_out->print(
        "Olah:",
        $number++, "\t", $row->[2], "\t", $row->[3], "\t", " 2 x 3 =  
+",
        $row->[2] * $row->[3], "\n"

          # @$row[2,5,3,0,4], # all unchanged columns unchanged
    );
}
[download]

[reply]
[d/l]

In Section Seekers of Perl Wisdom