my @files = File::Find::Rule->file ->name('*.txt') ->prune ->in($output_dir); foreach my $file (@files) { my ($name, $root, $ext) = $file =~ m|(.*)/(.*)\.(.*)|; my $outfile = "$name/$root.html"; my $head = " DCMS_CHECKLIST "; open my $fh_out, '>', $outfile or die "Can't open $outfile: $!","\n"; open my $fh, '<', $file or die "Can't open $file: $!"; while (my $line=<$fh>) { my @data = split /:/, $line; my $class = $data[0] ? 'normal' : 'bold'; print $fh_out qq[]; my $check=0; my $dolink=$data[0] !~ m/[\=\%]/; for my $word(@data){ $check++; print $fh_out ''; } } } #### file:///project/data/data_works%20/data_digital%20.html
SL.NOCHECKLIST ITEMVALUECOMMENTSCONFIRMATION
'; if($check==1 && $dolink ) { print $fh_out qq[$word]; } else { print $fh_out $word;} print $fh_out '