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


Pathologically Eclectic Rubbish Lister
	PerlMonks

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

by GertMT (Hermit)

on Jul 15, 2009 at 10:15 UTC ( [id://780237]=note: print w/replies, xml )

Need Help??

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

ah well, I'm kind of puzzled in the setup $csv->print where to put the part of the code that's going to work on the columns. In my (new) setup I have:

while ( my $row = $csv_in->getline($fh_in) ) {
    
    # doing stuff with the columns
    
    print "Olah:","\t", $number++, $row->[2]...
}
[download]

How should I structure this using $csv->print. Probably just a small hint/example will open my eyes (again).
Gert

Comment on Re^4: Problem when - use strict and -w Select or Download Code

Replies are listed 'Best First'.
Re^5: Problem when - use strict and -w by ikegami (Patriarch) on Jul 15, 2009 at 13:59 UTC
Nothing changes. `while ( my $row = $csv_in->getline($fh_in) ) { # doing stuff with the columns #print(...); $csv->print( ... ); }` [download]	[reply] [d/l]
Re^5: Problem when - use strict and -w by Anonymous Monk on Jul 15, 2009 at 10:43 UTC
perlintro `$csv->print( "Olah:","\t", $number++, $row->[2]... );` [download]	[reply] [d/l]
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]

In Section Seekers of Perl Wisdom

Domain Nodelet^?

www.com | www.net | www.org

Node Status^?

node history
Node Type: note [id://780237]
help

Chatterbox^?

How do I use this? • Last hour • Other CB clients

Other Users^?

Others examining the Monastery: (9)

As of 2024-04-19 06:56 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Today I Learned

Voting Booth^?

No recent polls found