Re^6: socket checker in multiple hosts for multiple destination (Perl 6)

Hi POJ, Thanks for your response.

$: cat source.csv
123.com
456.com
789.com

$: cat destination.csv
bc.com,3080
def.com,4560

$: ./new2.pl source.csv destination.csv
$VAR1 = [
          "123.com",
          "456.com",
          "789.com"
        ];
$VAR2 = [
          "bc.com,3080",
          "def.com,4560"
        ];
Source [123.com]
Destination [bc.com:3080] 
Destination [def.com:4560] 
Source [456.com]
Destination [bc.com:3080] 
Destination [def.com:4560] 
Source [789.com]
Destination [bc.com:3080] 
Destination [def.com:4560]
[download]

Here is the output of the program you gave . This works fine, the problem occurs when I try to connect to remote server and execute that socket, the result doesn't stop printing. It goes into endless loop.

Comment on Re^6: socket checker in multiple hosts for multiple destination (Perl 6) Download Code

Replies are listed 'Best First'.
Re^7: socket checker in multiple hosts for multiple destination (Perl 6) by 1nickt (Canon) on Feb 17, 2016 at 13:04 UTC
Hi Bams, Please edit your post to show your command line output inside `<code></code>` tags, like you did with your script. Your infinite loop problem is likely because you have the line: `redo;` [download] in your `while` block. Hope this helps! The way forward always starts with a minimal test.	[reply] [d/l] [select]