using bash process substitution in perl pipe?

[Peng Yu]

I want to use bash instead of sh because I need the process
substitution. But by default perl use sh instead of bash. Is there a
way to let perl use bash?

#!/usr/bin/perl

use warnings;
use strict;

open(IN, 'ls <(echo main.txt) |');
foreach (<IN>) {
print
}

 

[Alan Curry]

I want to use bash instead of sh because I need the process
substitution. But by default perl use sh instead of bash. Is there a
way to let perl use bash?

#!/usr/bin/perl

use warnings;
use strict;

open(IN, 'ls <(echo main.txt) |');
foreach (<IN>) {
print
}

call bash -c 'your command' explicitly, like this:

open IN, '-|', $shell, '-c', $cmd

Where $shell is 'bash' or '/usr/bin/bash' or something else that names the
shell you want, and $cmd is the 'ls <(echo main.txt)' string