Dear monks ,
I'm hitting the wall on this one could you take a look at this code. I'll appreciate any ideas. Thanks!
028749|0011960|999-99-9999|GREER|SHELDON|5/23/2003|ABCDE|ABDEL-WAHAB,
+MAY|ABDEL-WAHAB, MAY|ABCDE/PHYSICIAN/WEEKLY PROGRESS NOTE|A2901006|6/
+5/2003|H:\APPS\ABCDE\DB\ABCDE\13\00004FE5.008
#! perl -w
use strict;
use File::Copy;
my $infile = "C:/radtrans/doclisth.chr";
my ( $yr, $mo, $dy ) = (localtime)[5,4,3];
my $outfile = sprintf( "C:/radtrans/%04d%02d%02d.txt",$yr+1900,$mo+1,$
+dy );
my $staticdir = "C:\\radtrans\\";
open IN, "<$infile" or die "Couldn't open $infile, $!";
open OUT,">$outfile" or die "Couldn't open $outfile, $!";
while (<IN>) {
chomp;
my @fields = split /|/;
my $newfile = $fields[0];
my $path_str = $fields[12];
do { warn "Empty field 13"; next } unless $path_str;
my @path = split /\\/, $path_str;
my $dir = join "\\", @path[ 0, 1, 2, 3, 4, 5, 6 ];
$newfile =~ s/$/.rtf/;
my $out = join ('|', @fields[0..9]) . "@" . $staticdir . $newfile;
print OUT "$out\n";
process_dir($dir,$newfile);
}
close IN;
sub process_dir {
my ($dir, $newfile) = @_;
do { warn "$dir does not exist!\n"; return } unless -e $dir;
opendir DIR, $dir or do { warn "Could not open $dir $!\n" ; return
};
while ( my $file = readdir DIR ) {
print "dir: $dir file:$file newfile:$newfile\n";
#before the next unless statements.
next unless -f "$dir\\$file";
next unless $file =~ m/\.rtf$/i;
copy( "$dir\\$file", "C:\\temp\\$newfile" )
or die "Failed to copy $file: $!\n";
}
}