not sure if this has been raised before...would other monks like to see the code written in questions and answers syntax highlighted for easier reading? e.g. gvim style.
i pinched code from another post to show how it would look if colored by me with Vim.
#! perl -w
use strict;
use File::Copy;
my $infile = "C:/radtrans/doclisth.chr";
my ( $yr, $mo, $dy ) = (localtime)<font color="#00ffff">5</font>,<font color="#00ffff">4</font>,<font color="#00ffff">3</font>;
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<font color="#00ffff">0</font>;
my $path_str = $fields<font color="#00ffff">12</font>;
do { warn "Empty field 13"; next } unless $path_str;
my @path = split /\\/, $path_str;
my $dir = join "\\", @path <font color="#00ffff">0</font>, <font color="#00ffff">1</font>, <font color="#00ffff">2</font>, <font color="#00ffff">3</font>, <font color="#00ffff">4</font>, <font color="#00ffff">5</font>, <font color="#00ffff">6</font> ;
$newfile =~ s/$/.rtf/;
my $out = join ('|', @fields<font color="#00ffff">0.</font>.<font color="#00ffff">9</font>) . "@" . $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";
}
}
Edit by tye, add READMORE tag