Sometime Today, Chris Davies assembled some asciibets to say:
> open(INDENT, "| indent -kr > code.$$.tmp") && do {
> print INDENT join("\n", @code);
> close INDENT;
> open(CODE, 'code.$$.tmp') && do {
> chomp(@code = <CODE>);
> close CODE;
> };
> unlink('code.$$.tmp');
> };
> print STDERR join("\n", @code);
why not just use IPC::Open2 and avoid use of the temp file completely.
something like this:
use IPC::Open2;
my ($rdr, $wtr);
my $pid = open2($rdr, $wtr, 'indent', '-kr');
if($pid)
{
print $wtr join "\n", @code;
close $wtr;
chomp (@code = <$rdr>);
close $rdr;
}
print STDERR join "\n", @code;
Philip
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
