how to get value of print command

jaydot has asked for the wisdom of the Perl Monks concerning the following question:

hi just wanna ask is it possible for perl to get the value of a print command? for ex.

my $result = print "hello world\n";
print "$result\n";
[download]

why is it that the "print $result" would print a value which is 1?.. is it possible to get the result "hello world" not 1?... how do i do it?.. .how do i change my code? help please.

Update: tnx..u solved the problem.. this is what i really need..tnx for ur time..

Comment on how to get value of print command Download Code

Replies are listed 'Best First'.
Re: how to get value of print command by marto (Cardinal) on May 13, 2010 at 06:59 UTC
You're capturing the return value of the print command. If you simply want to assign a string to a variable: `my $result = "hello world";` Update: Please don't remove a question once you've posted it.	[reply] [d/l]
Re: how to get value of print command by CountZero (Bishop) on May 13, 2010 at 07:39 UTC
You have to do it the other way around: put the string to be printed into a variable and print the variable. CountZero A program should be light and agile, its subroutines connected like a string of pearls. The spirit and intent of the program should be retained throughout. There should be neither too little or too much, neither needless loops nor useless variables, neither lack of structure nor overwhelming rigidity." - The Tao of Programming, 4.1 - Geoffrey James	[reply]
Re: how to get value of print command by jau (Hermit) on May 13, 2010 at 08:29 UTC
Maybe this is what you want: `#!/usr/bin/perl use strict; use warnings; close STDOUT; open( STDOUT, '>', \( my $output ) ) or die "Can't open in-memory file: $!"; print "Hello world!\n"; # prints to $output print STDERR 'STDOUT: ' . $output;` [download] Output: `STDOUT: Hello world!` [download]	[reply] [d/l] [select]
A reply falls below the community's threshold of quality. You may see it by logging in.