Re: How do I treat a string like a filehandle?

Use a pipe:

#!/usr/bin/perl -w

use FileHandle;
use strict;

my $string =<<EOD;
One fish
Two fish
Red fish
Blue fish
EOD

my $fh = new FileHandle("echo \'$string\' |") or die;

print $_ while <$fh>;
[download]

Comment on Re: How do I treat a string like a filehandle? Download Code

Replies are listed 'Best First'.
RE: Answer: How do I treat a string like a filehandle? by merlyn (Sage) on Sep 16, 2000 at 04:25 UTC
No point in invoking a shell there, when this will do: `my $fh = FileHandle->new or die "Cannot create filehandle: $!"; defined(my $pid = open($fh, "-\|")) or die "Cannot fork: $!"; unless ($pid) { print <<'EOD'; One fish Two fish Red fish Blue fish EOD exit 0; } print $_ while <$fh>; # in parent` [download] But again, this forks (as does yours), and it's much better to use IO::Stringy to do it all within one process. -- Randal L. Schwartz, Perl hacker	[reply] [d/l]

Replies are listed 'Best First'.

RE: Answer: How do I treat a string like a filehandle?
by merlyn (Sage) on Sep 16, 2000 at 04:25 UTC

my $fh = FileHandle->new or die "Cannot create filehandle: $!";
defined(my $pid = open($fh, "-|")) or die "Cannot fork: $!";
unless ($pid) {
print <<'EOD';
One fish 
Two fish 
Red fish 
Blue fish 
EOD
exit 0;
}
print $_ while <$fh>; # in parent
[download]

IO::Stringy

-- Randal L. Schwartz, Perl hacker

[reply]
[d/l]