Beefy Boxes and Bandwidth Generously Provided by pair Networks
XP is just a number

Re^2: Constructing STDIN for an external progam

by Thelonius (Priest)
on Sep 11, 2006 at 15:24 UTC ( [id://572364]=note: print w/replies, xml ) Need Help??

in reply to Re: Constructing STDIN for an external progam
in thread Constructing STDIN for an external progam

To build on Ovid's response, this should do what you want:
use strict; my $cmdout = join " ", "perl", @ARGV; open OUT, "|$cmdout" or die "Cannot run $cmdout: $!\n"; while (<STDIN>) { s/essage/assage/sg; print OUT $_ or die "Error writing to $cmdout: $!\n"; } close STDIN; close OUT or die "Error closing $cmdout: $!\n";

Replies are listed 'Best First'.
Re^3: Constructing STDIN for an external progam
by ikegami (Patriarch) on Sep 11, 2006 at 17:27 UTC
    What if one of the args was two words? or it's? Your code won't work in those everyday situations, nevermind the security implications. You've invoking the shell without quoting and escaping your command. Use IPC::Open3, IPC::Run or IPC::Run3 to avoid having to do so.

Log In?

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://572364]
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others surveying the Monastery: (5)
As of 2024-06-17 14:35 GMT
Find Nodes?
    Voting Booth?

    No recent polls found

    erzuuli‥ 🛈The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.