Re: Re: Re: How to route a format into a variable

[Kanji]

There is an example of a sprintf-like function emulating write in the Perl Formats documentation, reproduced below for convenience.

use Carp;
sub swrite {
    croak "usage: swrite PICTURE ARGS" unless @_;
    my $format = shift;
    $^A = "";
    formline($format,@_);
    return $^A;
}

$string = swrite(<<'END', 1, 2, 3);
Check me out
@<<<  @|||  @>>>
END
print $string;

    --k.

[ppm]

@Kanji:

yes, i saw this topic .. but i don't understand how to use this for my e.g. any help?

[runrig]

You would no longer use the format statement, instead you would supply your formats as string arguments to the formline function, and access what has been formatted through the $^A variable (see perlvar). Page headers would no longer be automatically handled, but you don't seem to be using that feature of formats anyway.

[ppm]

@Kanji:

yes, i saw this topic . but i've no idea how to do this for my e.g. do you have any ideas?