Dear Monks , i am trying to open a txt file( Junk.txt) which contains list of other txt files. My code is not working and it displays error: No such file or directory at R_loop2.pl line 19. i tried many ways but failed. I will be thankful for any help. My file contents and code is below

my text file ( junk.txt ) is here 

file0.txt
file1.txt
file2.txt
file3.txt
file4.txt
file5.txt
file6.txt
file7.txt
file8.txt
file9.txt
file10.txt

[download]

my code is here 


use strict;

sub R_loop2(){

my $file = "junk.txt";
open (FH, "< $file") or die "Can't open $file for read: $!";
my @lines;
while (<FH>) {
    push (@lines, $_);
}
close FH or die "Cannot close $file: $!";


#print @lines;  
my $count= @lines + 1;
my @dude;
for ( my $k=0; $k<$count; $k++){

open FILE, '<', "@lines[$k]" or die $!;


        #my @dude;

        while (my $line = <FILE>) {

        my ($ip) = $line =~ /(\d+\.\d+\.\d+\.\d+)/;
        #print $ip;
        push(@dude,$ip);
        #print "$hh";

}



        system("clear");
        print "The packet traverse through this path :\n";
        my $num = @dude + 1;

        for(my $o = 0; $o<$num; $o++){
        print " @dude[$o]\n";
}
}
 my %seen;

                foreach my $string(@dude)  {

                next unless $seen{$string}++;
                print "Routing Loop Detected \n"; return 1;
}

}1;

[download]

In reply to No such file or directory at R_loop2.pl line 19. by zakishah

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.