Getting many values in an array in perl

Question

I am writing a prel program in which I have an input file containing a pattern as:

FIELDS=(1,2,3,4)

OR

FIELDS=(1,10,3,A,11,10,7         


        

Answer 1

You can use split to break you comma separated matches into individual pieces:

use strict; 
use warnings; 

my $line = 'FIELDS=(1,10,3,A,11,10,7,D,9,10,11,A)'

if ( my ($fields) = $line =~ /FIELDS=(\(.*\))/ ) {
   my @vars = split /,/, $fields; 
   # do whatever you want with @vars
}