Hi PerlMonks, I'm working to create a loop that will read all text (.txt) files in a directory, excluding any sub-directories. Simple enough, think I have the pattern match, but not enough knowledge to incorporate it into the IF or NEXT UNLESS condition. Once the files are read, I'm hoping to strip HTML tags with HTML::STRIP. I am grateful for any insight you may have. Here is the code I am working with: 


#! /usr/bin/perl -w
use strict;
use warnings;
use lib "c:/strawberry/perl/site/lib";
use HTML::Strip;

my $hs = HTML::Strip->new();

my $write_dir = 'G:\research\sec filings 10k and 10Q\data\filing docs\
+1993\Clean';
 
my $files_dir  = 'C:\Dwimperl\Perl\1993';
 
opendir (my $dir_handle, $files_dir) || die "failed to open '$files_di
+r' <$!>"; 

while (my $file = readdir($dir_handle) )      { 
    next if $file eq '.' or $file eq '..';# or $file =~ /[0-9|-]+\.txt
+$/;     
               
    open my $file_handle, "/dwimperl/perl/1993/$file" or die "failed t
+o open '$file' <$!>";
    
    foreach my $line (<$file>) {       
        
        my $clean_text = $hs->parse( '  ' );
        
        print $write_dir "$file\n";
        
        $hs->eof;
           
    }

} 

close();

closedir $dir_handle;

[download]

In reply to Read files not subdirectories by wrkrbeee

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.