Hi follow wisdom seekers!

Still learning Perl and loving it...

Any help would be greatly appreciated! Tnx!

I have a program that arranges the content of a text file into rows so that I could import it to Access.

But I want it to read the content of the whole directory instead of letting the user enter a filename.

Then stores it to one location. Or maybe in a sql or mysql database.

So, the text file contents in the directory becomes record entries.

Here's the sample data:
text1.txt
<NAME>MARK\n<AGE>27\n<ADDRESS>PHILIPPINES\n
text2.txt
<NAME>Anthony\n<AGE>26\n<ADDRESS>UNITED KINGDOM\n

Here's the code

use strict;
use warnings;


my $SOURCEFILE;
my $TARGETFILE;
my $REPORTFILE;
my $converted;
my $discarded;
my $holder;
my $titleid;

print "Enter filename to convert: ";
chomp($SOURCEFILE = <STDIN>);
print "Save to:";
chomp($TARGETFILE =<STDIN>);
print "Save Conversion Report to:";
chomp($REPORTFILE =<STDIN>);



open SOURCEFILE, '<', $SOURCEFILE or die "Can't open $SOURCEFILE: $!";
open TARGETFILE, '>', $TARGETFILE or die "Can't open $TARGETFILE: $!";
open REPORTFILE, '>', $REPORTFILE or die "Can't open $REPORTFILE: $!";


$converted=0;
$discarded=0;


sub reporting {
                print TARGETFILE $holder;
                print REPORTFILE " -> ";
                print REPORTFILE $holder;
        $converted++;


}


#Evaluate per line
foreach my $line (<SOURCEFILE>) {

        
        if ($line =~ /<NAME>(\w+)/)
        {
                print REPORTFILE $line; #saves original value to repor
+tfile
                $line =~ s/<NAME>/|/;
                $line =~ s/\n//g;
                $holder = $line;
                reporting;
        }
        elsif ($line =~ /<AGE>(\w+)/)
        {
                print REPORTFILE $line;
                $line =~ s/<AGE>/|/;
                $line =~ s/\n//g;
                $holder = $line;
                reporting;
        }
        elsif ($line =~ /<ADDRESS>(\w+)/)
        {
                print REPORTFILE $line;
                $line =~ s/<ADDRESS>/|/;
                $line =~ s/\n//g;
                $holder = $line;
                reporting;
        }
        elsif ($line =~ /<PHONE>(\w+)/)
        {
                $discarded++;
                print REPORTFILE "<xx> ";
                print REPORTFILE $line;
        }

}


print TARGETFILE "^\n"; # eof line marker
print REPORTFILE "No. of fields Converted: ";
print REPORTFILE $converted, "\n";
print REPORTFILE "No. of fields Discarded: ";
print REPORTFILE $discarded, "\n";


close SOURCEFILE or die "Can't close: $!";
close TARGETFILE or die "Can't close: $!";
close REPORTFILE or die "Can't close: $!";
[download]