RE: Filehandle local variables

And the usage would look like ... ?

I say this because even I am baffled. {grin}

Comment on RE: Filehandle local variables

Replies are listed 'Best First'.
RE: RE: Filehandle local variables by japhy (Canon) on Oct 12, 2000 at 03:52 UTC
It's just tie()ing. `use Tie::PerFH; tie $format, 'Tie::PerFH'; @date_info = qw( 12 3 1985 ); $format = '%02d-%02d-%04d'; open FH, ">some.file" or die "some.file error: $!"; select FH; $format = '%02d/%02d/%04d'; printf $format, @date_info; close FH; select STDOUT; printf $format, @date_info;` [download] Maybe it's less useful than we'd (I'd?) like, but it's here, and it's not going away. `:)` `$_="goto+F.print+chop;\n=yhpaj";F1:eval`	[reply] [d/l]

Replies are listed 'Best First'.

RE: RE: Filehandle local variables
by japhy (Canon) on Oct 12, 2000 at 03:52 UTC

use Tie::PerFH;
tie $format, 'Tie::PerFH';

@date_info = qw( 12 3 1985 );
$format = '%02d-%02d-%04d';

open FH, ">some.file" or die "some.file error: $!";
select FH;
$format = '%02d/%02d/%04d';
printf $format, @date_info;
close FH;

select STDOUT;

printf $format, @date_info;
[download]

:)

$_="goto+F.print+chop;\n=yhpaj";F1:eval

[reply]
[d/l]