The while(<FILE>) reads a line into the $_ variable, but you're not printing
that; you're printing the filename itself. So you'll get one line of (the
same) output for each line in the file.
Ah, I should have seen that in the first place

Then to show just the 'perl.txt' part, use:

print basename($filename), "\n";
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 :-)

my @f = split /\t/; # split into separate fields on tab char
Thanks 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]



Reply via email to