Fellow Perlmonks.

This person has been asking this question over and over and over again in comp.lang.perl.misc, alt.perl and probably in other places, including here. S/he posts under various names including Sami and Sara. She has received a number of useful answers as well as requests for further info, but never answers them, just keeps posting the same question over and over (and over) again. I suggest you ignore him/her.

On PerlMonks this person appears as sara, DS, splitOnce, and amoura, and perhaps others. Maybe PerlMonks will soon be earning some credits towards a CS degree.

bassplayer

    open my $fh => "$tempDir/nbssbaseblds.txt" or die "Open failed: $!
+\n";
    while (<$fh>) {
        my @parts = split m :/: => (split m /:/) [0]; # Split into pat
+h names.
        if ($parts [-1] =~ /^\w+\.bld$/)              # Match on file 
+name.
            ... whatever ...                          # $parts [-3] eq
+ "acn"
            last;
        }
    }
[download]

Abigail

After your loop the last line read is still in $_, so you can use

@path = split(/\//, $_);
$importantdir = $path[-3];
[download]

the negative index in the array counts from the end of the array rather than the beginning.

--
Brigitte    'I never met a chocolate I didnt like'    Jellinek
http://www.horus.com/~bjelli/         http://perlwelt.horus.at

You here again? Again with a question with this script?

Are you trying to learn Perl or are you trying to make us write the code you are supposed to write?

I never refuse a reply, even on trivial questions, but you seem to lack on education IMHO

--bronto

# Another Perl edition of a song:
# The End, by The Beatles
END {
  $you->take($love) eq $you->made($love) ;
}