in reply to Re^3: Calling pax within a perl script (was stupid substitution question)
in thread Calling pax within a perl script (was stupid substitution question)

Thanks VERY much for your help. *Finally* got this to work

    $file =~ s/TGZ/tar/;
    $dir = $file;
    $dir =~ s!\.S75\.T...tar!\/Invoices\/!;
    if ($file =~ /(PROD.OPTBL.X.K.)(R*)(.S75.T11.tar)/) {
        $run=$2;
    }        

    $command = "pax -r -f $file -s'!$dir!/data/kev/atlanta/emtex/invoi
+ces/R$run/!p'";

[download]
  • Comment on Re^4: Calling pax within a perl script (was stupid substitution question)
  • Download Code

In Section Seekers of Perl Wisdom