Shell Programming and Scripting

I agree with this question.

ganapati, what code have you written or tried so far? It is best for you to try to write some code and show folks what you have attempted.

-----Post Update-----

Agreed. Thanks fpmurphy.

Dear friends,

As I told you earlier, I'm totally new to PERL. I know shell scripting very well, but now the requirement is PERL!!

I've to alter existing perl code and the only changes is to read the "Semicolon" separated file (sorry, not comma separated as mentioned earlier) and store the seventh field to an array for later comparison.

The problem I'm facing is, I don't know how to extract only the seventh field in perl. I know its very easy using AWK. But now the change is in existing perl script.

Hence requested for your kind help.

Thanks.

when you are new to something, you read up the docs, type this: perldoc perl
then try looking at this: perldoc -f split

I found the answer, struggling at the begining, you all suggested me.
Thanks for all.

my @arr_print = split( /;/, $line );
print "$arr_print[7]\n" ;

With Regards / Mysore Ganapati.

"There are no secrets to success. It is the result of preparation, hard work, and
learning from failure." - Colin Powell

If you only want the 8th field (7th index) from a list use a slice:

Code:

my $token7 = (split( /;/, $line))[7]; 
print "$token7\n" ;

Hi,

I've another problem with the scope of array. I'm not able to print array elements (for 8th field) outside the loop. But I can print this within the loop.

open( my $in, '<', $inputfilename )
or croak "Cannot open file '$inputfilename': $!";

my @orig_array;
while ( my $line = <$in> ) {
chomp $line;
@orig_array = split( /;/, $line );
print "$orig_array[7]\n" ; ## I can print elements here.
}
print "$orig_array[7]\n" ; ## I can't print elements here.

Please suggest me.

Hi Ganapati.

I think that problem due to scope of the array and its elements. Try that.
May be some experts can help you!!

All the best.