Perl help!

[amlife]

Hello all

I have a csv file filled with content like this

1111111|2222222|3333333
4444444|5555555|6666666
7777777|6666666|4444444

How can I read the content of the file and assign the first column value from each line as array element.

To be something like

@array = (1111111,4444444,777777)

your help is highly appreciated

Thank you

[drl]

Hi.

One method:

#!/usr/bin/env perl

# @(#) p1	Demonstrate split.

use strict;
use warnings;

my (@array) = ();

while (<>) {
  push @array, ( split( /[|]/, $_, 2 ) )[0];
}

print " Content of array \"@array\"\n";

exit(0);

producing:

% ./p1 data1
 Content of array "1111111 4444444 7777777"

See perldoc -f split for details.

Best wishes ... cheers, drl

[amlife]

Hi.

One method:

#!/usr/bin/env perl

# @(#) p1	Demonstrate split.

use strict;
use warnings;

my (@array) = ();

while (<>) {
  push @array, ( split( /[|]/, $_, 2 ) )[0];
}

print " Content of array \"@array\"\n";

exit(0);

producing:

% ./p1 data1
 Content of array "1111111 4444444 7777777"

See perldoc -f split for details.

Best wishes ... cheers, drl

worked!

Thank you so much! saved me lots of time!