$line = "Explicit|00|11|Hello World|12 3 134||and|blah|blah|blah";
if ( my $seventh = ( split /\|/, $line)[6] ) {
print $seventh;
}
print "\n\n\n";
#to get sixth and seventh element
@seventh = ( split /\|/, $line)[6,7];
print "@seventh";
No comments:
Post a Comment