tabs between fields

[beartiger]

How do I insert a tab between fields in a format?

use strict;
use warnings;

my $foo=123;
my $bar=456;

format TABLE=
@### @###
$foo, $bar;

 

[usenet]

I would like a tab between the values of $foo and $bar in the output.

Then why are you using the format? Why not just "$foo\t$bar"

 

[beartiger]

Then why are you using the format? Why not just "$foo\t$bar"

Because I'm a fricking idiot. It's one format in a long list of
formats and I never thought I could just get rid of the format.

Thanks. ;-)


J

 

[usenet]

Because I'm a fricking idiot. It's one format in a long list of
formats and I never thought I could just get rid of the format.

Maybe you wanted to preserve the space padding characteristics of the
format statement. You could do that instead with sprintf:
print sprintf "%3s\t%3s\n", $foo, $bar;

I've never liked formats. They seem very old-fashioned to me.

 

[beartiger]

Maybe you wanted to preserve the space padding characteristics of the
format statement. You could do that instead with sprintf:
print sprintf "%3s\t%3s\n", $foo, $bar;

I've never liked formats. They seem very old-fashioned to me.

Thanks. This is the first time I've tried formatting. I don't know
about old fashioned, but I find the way a format is done kind of
clunky.

I've never done sprintf either. That will come in handy.


J

 

[michaelpgee]

Maybe you wanted to preserve the space padding characteristics of the
format statement. You could do that instead with sprintf:
print sprintf "%3s\t%3s\n", $foo, $bar;

This looks redundant, and print is repeated too.

Why not just: printf "%3s\t%3s\n", $foo, $bar;

 

[usenet]

This looks redundant, and print is repeated too.

True, but since the OP (properly) posted trivial code, I wasn't sure if
he actually intended to assign or print in his "real" application. So I
covered both bases (at the expense of redundancy).