The while(<FILE>) reads a line into the $_ variable, but you're not printingAh, I should have seen that in the first place
that; you're printing the filename itself. So you'll get one line of (the
same) output for each line in the file.
Then to show just the 'perl.txt' part, use:Great, this looks a lot nicer. Now I'll figure out a way to chop the last 4 characters off if the filename has an extension, but I guess I can do this by myself :-)
print basename($filename), "\n";
my @f = split /\t/; # split into separate fields on tab charThanks for pointing that out to me, split seems very useful.
You're off to a good start!As long as it takes me somewhere desirable ;-)
Stephan
-- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
