Hi folks I am reading a list of names from a file in the format

abc
def
geh

and so on the names are the prefix to a bunch of files which go like

abc.txt
def1.txt
geh.txt

What I want to do is go through the original list line by line and open the corresponding txt file. Easy enough. I wrote something like 
chomp $_; # where $_ is the current line from the original list
my $prefix = $_;
my $txtfile = $prefix . ".txt";
 if (-f $txtfile){
do stuff
}
else{
$txtfile1 = $prefix . "1.txt"; # the # is always 1
do stuff
}

[download]
This is not working as in the else statement the "do stuff" includes an open statement and , e.g., the script tries to open abc1.txt which of course does not exist. In other words if I find a file I want to open it, perform some other actions and move on and so on. I am trying a  if (!(-f $file)) type syntax as I write this, but does anyone have a better idea.

Thanks
mndoci

"What you do in this world is a matter of no consequence. The question is, what can you make people believe that you have done?"-Sherlock Holmes in 'A study in scarlet'

In reply to Files and -f by mndoci

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.