to deal with the fact that there are now other directories in the $input_directory

Depends what you mean by "deal with". If you want to ignore directories, then code similar to what you have will work. If you want to recursively process the directories then you should probably use File::Find.

But without much luck

That's really not a very good description of the problems that you are having.

Piecing together your code:

opendir(DIR_A,"$input_directory") or die $!;

INNER_A:
while(my $job =readdir(DIR_A)){
  chomp;
  next unless -f $job;

  # other stuff I assume
}

[download]

Firstly, you're unnecessarily quoting the $input_directory variable in the "opendir" call.

Secondly, you're making the most basic error in your use of opendir/readdir. It's so basic that it's described in the documentation.

Oh, and what's that "chomp" there for? More cargo-cult programmming?

Please try to do a little bit of your own research before posting questions here. The Perl documentation set is really good. It _will_ answer a large proportion of your questions if you give it a chance.

--

<http://dave.org.uk>

"The first rule of Perl club is you do not talk about Perl club." -- Chip Salzenberg

In reply to Re: Problem with reading files when we have new directories by davorg
in thread Problem with reading files when we have new directories by Win

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.