Shell Programming and Scripting

LINE="AA;BB;CC;DD;EE"

my ($a,$b,$c,$d,$e)=split(/;/,"a;b;c;d;e");

print "a is $a\n";
print "b is $b\n";

my @list=split(/;/, "a;b;c;d;e");

print @list[0], "\n";

echo $LINE | awk -F";" '{for(i=1;i<=NF;i++){print "VAR"_++j "=" $i}}

VAR0=AA
VAR1=BB
VAR2=CC
VAR3=DD
VAR4=EE

echo $LINE | awk -F";" '{for(i=1;i<=NF;i++){A="VAr_"++j;;if(A=="VAr_3"){print $i}}}'

CC

my @list=split(/;/, "a;b;c;d;e");

foreach my $val (@list) {
    print $val ;
}