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

Use this basic program to check your input files

#!/usr/bin/perl
use strict;
use Data::Dumper;
$Data::Dumper::Useqq = 1;

if( @ARGV < 2 ) {
  print "Usage: new.pl source destination\n";
  exit;
}
my $file1 = $ARGV[0];
my $file2 = $ARGV[1]; 

open my $fh1,'<',$file1 or die "Could not open $file1: $!";
my @src = <$fh1>;
chomp(@src);
close $fh1;

open my $fh2,'<',$file2 or die "Could not open $file2: $!";
my @dest = <$fh2>;
chomp(@dest);
close $fh2;

# check data
print Dumper(\@src,\@dest);

for my $src (@src){
  print "Source [$src]\n";
  for my $dest (@dest){
  my ($servername, $portnumber) = split ',', $dest;
  print "Destination [$servername:$portnumber] \n";    }
}
[download]

poj

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

Replies are listed 'Best First'.
Re^6: socket checker in multiple hosts for multiple destination (Perl 6) by Bams (Initiate) on Feb 17, 2016 at 11:47 UTC
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.	[reply] [d/l]
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]