Re: Show count before data output


P is for Practical
	PerlMonks

Re: Show count before data output

by broquaint (Abbot)

on Jun 23, 2003 at 12:46 UTC ( [id://268136]=note: print w/replies, xml )

Need Help??

in reply to Show count before data output

The lazy way would be to tie up STDOUT e.g

use IO::Scalar;

tie *STDOUT, 'IO::Scalar' => \my $stdout;

find( \&fetcher, "/directory"  );

untie *STDOUT;

print "\n\nTotal Count = $ct\n\n";
print $stdout;
[download]

Or you could change your code to build up the output then display the accumulated output after the total count. See. IO::Scalar for more info on the hack above.
HTH

_________ broquaint