Question

I have this perl code below, basically want to loop through these 2 files. Then call a bash script (it takes the file and a delimiter as arguments and it prints out multiple lines) and then save all output from that command into a new file (with filename having ‘_processed’ tacked on the end).
What is wrong with the below syntax (at the moment it just creates a blank file)?

#!/usr/bin/env perl
use strict;
use warnings;

my(@files) = (
"fixedtt.txt '|'",
"delimd2iffpipe.dat '|'"
);
for my $i (0 .. $#files) {
    my($filename) = split /[\s]+/, "$files[$i]", 2;
    my($name, $type) = split /[\.]+/, "$filename", 2;
    open (MYFILE, '>'."$name".'_processed.'."$type");
    system("sh myBashScript.sh $files[$i]");   #I want to write the entire output of this command to a file
    close (MYFILE); 
}

Answer 1

You can redirect the output of a terminal command by preceding it with > <file name>. Ergo:

system("sh myBashScript.sh $files[$i]");

Becomes:

system("sh myBashScript.sh $files[$i] > file.txt");