如何使用perl在新的变量名称中存储打印语句输出？

Question

Is it possible to store the print statement into variable name using perl ?

Here is my print statement,

print "$fixed\n";

I want to store the this print statement output in new variable. Is it possible to do?

Answer 1

Just assign to a variable instead of print it:

my $var = "$fixed\n";

For more complex scenarios, use sprintf , example:

my $var = sprintf("%02d - %s - %f", 1, $fixed, 3.1415);

Answer 2

The answer you have already seen an accepted does things in a slightly different order than you asked for. You asked:

How to store the print statement output in the new variable name using perl?

The answer you have stores some data in a variable and then prints the contents of the variable. That has the same effect, but it's not, strictly speaking, what you asked for.

But it's possible to do anything in Perl. Including configuring a scalar variable to store any data that is printed.

#!/usr/bin/perl

use strict;
use warnings;

my $output;

# Call open(), giving it a reference to a scalar, instead of
# a filename.
open my $fh, '>', \$output or die $!;

# Now anything printed to that filehandle, is appended to
# your scalar variable.
print $fh "this is\na test\n";

# ... which you can print to STDOUT
print $output;

It's possible to take this a step further, by using select() to make your scalar filehandle, the default output filehandle.

select $fh;

print "Something";