I'm sure that you would have been warned with hints if you would have used use warnings;, as you are using windows-style folder path notation in combination with variable interpolation.

"\srt\$file"

will at least show you something like:

Unrecognized escape \s passed through at test.pl line 12.

[download]

Perl will translate unix-style path names to windows style path names when needed and necessary. Just use the correct slashes, and interpolation is no problem:

Furthermore, a readdir () call does not read files like it was from the output of ls or DIR commands, so chomp'ing the names is just an extra attempt to make the file name illegal.

Last, but not least, you open the file whose name is in $file, but the file handle is in $f (which would be more clear if you would use $fh), which should be used for the close (). 

use strict;
use warnings;

my $file;

opendir DIR, "/srt" or die "Couldn't open directory, $!";
while ($file = readdir DIR) {
    open my $fh, "<", "/srt/$file" or die "Open failed : $!";
    print "$file\n";
    close $fh;
    }
closedir DIR;

[download]

Enjoy, Have FUN! H.Merijn

In reply to Re: why can't I by Tux
in thread why can't I by dvd1999

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.