Re: Dynamically create a format definition


more useful options
	PerlMonks

Re: Dynamically create a format definition

by IlyaM (Parson)

on Dec 13, 2001 at 20:28 UTC ( [id://131647]=note: print w/replies, xml )

Need Help??

in reply to Dynamically create a format definition

Here two functions I use myself in one my module:


# formated output
sub sformat {
    my $format = shift;
    local $^A = '';
    formline($format, @_);
    return $^A;
}

# print line using some format specification
sub fprint {
    my $format = shift;
    $self->print(sformat($format, @_));
}
[download]

--
Ilya Martynov (http://martynov.org/)