[ create a new paste ] login | about

Link: http://codepad.org/oVHRlqVy    [ raw code | output | fork ]

Perl, pasted on Jul 25:
1
2
3
4
5
6
7
8
@array = (qq(one,two\n),qq(one,two\n),qq(one,two\n),qq(one,two\n));
foreach (@array)
{
    my @row = split (/,/,$_);
    chomp ($row[1]);
    my $var = $row[1];  
    print $var;
}


Output:
1
twotwotwotwo


Create a new paste based on this one


Comments: