Re: parsing


Perl Monk, Perl Meditation
	PerlMonks

Re: parsing

by Abigail-II (Bishop)

on Jul 11, 2002 at 14:46 UTC ( [id://181034]=note: print w/replies, xml )

Need Help??

in reply to parsing

Why are you doing all the juggling with @hold1 if you are going to bail out after the first hit anyway? Why not something like:

    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