Query about Split function

[kriz4321]

Hi all
I have a file with below contents I need to store all the values in leftside into an array and right side into another array.
Filename:list.txt

ram,kriz
rakesh,ssss
perl,unix

If we assume the array name as ltemp then ltemp[0] should have "ram"
ltemp[1] should have rakesh and ltemp[2] should have "perl".

I tried the same,

open(FP,"list.txt") or die "cannot open the list file";
while (<FP>) {
    $temp = $_;
    @ltemp = split(/,/ ,$temp);
    print @ltemp[0];
}
close(FP);
 

here ltemp[0] contains all the three elements and ltemp[1] has "kriz,rakesh,unix"

How can I store each value in seperate array Index..

Hope you can get my question

[miller]

Hello kriz,

I believe that makes sense enough. However, if you really want those values in two different arrays, why have you not defined two different arrays? Putting that question aside, maybe this is what you are aiming at.

my (@array1, @array2);
 
my $file = 'list.txt';
open(FP, $file) or die "Cannot open $file: $!";
while (<FP>) {
    my ($col1, $col2) = split ',';
    push @array1, $col1;
    push @array2, $col2;
}
close(FP);
 
print @array1 . "\n";
print @array2 . "\n";
 

- Miller

[KevinADC]

here ltemp[0] contains all the three elements and ltemp[1] has "kriz,rakesh,unix"

Actually your code is not storing anything except the last line of the file in the @ltemp array. I have a feeling you really want to use a hash but maybe not.