-----BEGIN PGP SIGNED MESSAGE----- Hash: SHA256 I get the idea that you're trying to get a list of lines with the
@ReturnAry = split "\n", qqx ( curl $TimeOutStr -L $Url -o $FileName; echo \$\? ); You can use the lines[1] sub for exactly this. Similarly for this line for @ReturnAry[ 0 .. @ReturnAry.elems - 3 ] -> $Line You can use the head[2] sub to write it as for @ReturnAry.head(*.elems - 3) -> $line Also, on the $ReturnStr += $Line If you're trying to concatenate a string, you should use the ~ instead of the +, so it'd become $ReturnStr ~= $Line [1]: https://docs.perl6.org/routine/lines [2]: https://docs.perl6.org/routine/head On Sat, 28 Jul 2018 23:46:30 -0700 ToddAndMargo <toddandma...@zoho.com> wrote: > On 07/28/2018 01:37 AM, ToddAndMargo wrote: > > Hi All, > > > > How do I get the bash return code ("$?") from > > the following? > > > > $ReturnStr = qqx ( curl $TimeOutStr -L $Url -o $FileName ).lines; > > > > > > Many thanks, > > -T > > > Followup: > > This is what I came up with: > > if $ProgressBar { > # This need a space ofter the qqx > # $ p6 'my $x="cat /etc/hosts; echo \$\?"; my @y = split "\n", > qqx ( $x ); say @y[@y.elems-2];' > # 0 > # <blank line> > > > @ReturnAry = split "\n", qqx ( curl $TimeOutStr -L $Url -o > $FileName; echo \$\? ); > for @ReturnAry[ 0 .. @ReturnAry.elems - 3 ] -> $Line { > $ReturnStr += $Line; } > print "\n"; > $ReturnCode = @ReturnAry[ @ReturnAry.elems - 2 ]; > > } else { > ( $ReturnStr, $ReturnCode ) = RunNoShell ( "curl $TimeOutStr > -L $Url -o $FileName" ); > } > return ( $ReturnStr, $ReturnCode ); -----BEGIN PGP SIGNATURE----- iQEzBAEBCAAdFiEE4eL662U9iK2ST2MqN/W6H45XOE8FAltdkOYACgkQN/W6H45X OE+73gf+Ko8Wrm3aySxtsMsuVAWT+V4iNanSpEo8jj27+OUgQCmC1vY0yR7BkrJS vb1WnM2TvzrxBlc/L9QF7dJaJfBkcB2Nera+PJWkdZlYegvmA9vKHbjyxl/Nvyi6 8M1GjtsmTKUFz3OT3T60fXYiRwiu2vG+OBeN4riWDI4HO9OiXw+kqcuUsymavNo3 6YdXXhwyfKLx+kdsIT1UAfSfWY+B53attz/XwTkiz8VH3cSP1zQtvx+zh5KbvA+i CViRZQAvkeasQ77d70H9fd+oYhgJqHCF5/SSlB1MDP2Rn9YZDxhfDgsHuNEWjplm 7NTZDIMBn5JXLgSOkyulC+xIBG0sXg== =Dk+C -----END PGP SIGNATURE-----