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

$file won't interpolate inside q{}. A handful of alternatives:

$command = "pax -r -f $file -s'!DirPart1.DirPart2.DirPart3/SubDir/!/data/kev/atlanta/emtex/invoices/!p'"
$command = qq{pax -r -f $file } . q{-s'/DirPart1.DirPart2.DirPart3\/SubDir\//\/data\/kev\/atlanta\/emtex\/invoices\//p'};
$command = sprintf q{pax -r -f %s -s'/DirPart1.DirPart2.DirPart3/SubDir\//\/data\/kev\/atlanta\/emtex\/invoices\//p'}, $file;
$command= q{pax -r -f $file -s'/DirPart1.DirPart2.DirPart3/SubDir\//\/data\/kev\/atlanta\/emtex\/invoices\//p'}; $command =~ s/\$file/$file/;

Or something else.

Comment on Re^3: Calling pax within a perl script (was stupid substitution question) Select or Download Code

Replies are listed 'Best First'.
Re^4: Calling pax within a perl script (was stupid substitution question) by viffer (Beadle) on Aug 12, 2010 at 03:41 UTC
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]	[reply] [d/l]

Replies are listed 'Best First'.

Re^4: Calling pax within a perl script (was stupid substitution question)
by viffer (Beadle) on Aug 12, 2010 at 03:41 UTC

*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]

[reply]
[d/l]