Print entire single column of csv-file using "split"

[Richard Krause]

Hello

I'd like to print the country-column of the follwing csv-file:

eastwood;clint;usa
kinski;klaus;germany
wayne;john;usa

This is the script I wrote:

#!c:/perl/bin/perl -w
use diagnostics;
use strict;

open(ADDRESSLIST,"<addresslist.csv");
my @list = <ADDRESSLIST>;

close (ADDRESSLIST);

foreach (@list) {
                           @list = split (/;/);
                          }

foreach (@list) {
                           print "\n".$_."\n";}

When I execute the script it's printing only the value of the second column
in the first row ("clint") instead of something like:

usa
germany
usa

What am I doing wrong? I've been working for 16hrs. on this now and read
that many threads dealing with "split" and the camel book all over again,
but somehow I just don't get it ...
Thanks for any hints!
Richard



-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]