Shell Programming and Scripting

On a line in a file::

/atrclips/u90/2009/169_008/Y5288900/SATHSWR_P1/1809853_SATHSWR_P1.tif,00018098539415200901_SATHSWR_P1.tif

How do I use the split function to extract 169008......I tried ....

foreach my $line (@lines)
{

if ($line != ~ m/^HD/) { # exclude the first record in file

($Field1, $Field2, $Field3, $Field4) = split ///, $line;

$proj_ssn1 = substring($Field4, 0, 2);
$proj_ssn2 = substring($Field4, 4, 6);
$proj_ssn = $proj_ssn1.$proj_ssn2;
break;
}
}

You should have gotten several errors when trying to run your code. Here it is fixed:

Code:

foreach my $line (@lines) {
   if ($line !~ m/^HD/) { # exclude the first record in file
      my $Field4 = (split (/\//, $line))[3]; 
      $proj_ssn1 = substring($Field4, 0, 2);
      $proj_ssn2 = substring($Field4, 4, 6);
      $proj_ssn = $proj_ssn1.$proj_ssn2;
      break;
   }
}

The lines in red I am not sure what you are trying to do. BUt perl has no substring() function or "break" command. Maybe you mean to use substr() and "last". If you want to remove the underscore from 169_008 just use tr///.

$Field4 =~ tr/_//d;

Thanks so will ......

foreach my $line (@lines) {

if ($line != ~ m/^HD/) { # Then it is a clip record

my $Field4 = (split (/\//, $line))[3];
$Field4 =~ tr/_//d;
last;
}
}

return 169008 from /atrclips/u90/2009/169_008/Y5288900/SATHSWR_P1/1809853_SATHSWR_P1.tif,00018098539415200901_SATHSWR_P1.tif

No, it will return nothing because you are still using the incorrect "!= ~" instead of "!~" as I posted above (see red colored code above). Fix that, run the code, and see what happens.