Hi All!
I just want to thank all of you for helping me with my Perl script!
I appreciate all and any help you have been giving me.
I have learned so much from all of you.
I hope some day to help someone starting out the way you all have done so for me.
I think I'm going to cry for joy :*)
Below is the script that John W. Krahn wrote that worked beautifully.
A special thanks goes out to John, but all of you contributed to my solution!
Does anyone have any suggestions in what I could do to become more proficient in
Perl and just plain programming?
Peace and Joy,
Marsie (Newbie)
_________________________________________________________
"John W. Krahn" <[EMAIL PROTECTED]>
#!/usr/bin/perl -w
use strict;
use File::Copy;
opendir DOCUMENTS, '.' or die "Can't open directory documents: $!";
my @filenames = grep /\.doc$/i, readdir DOCUMENTS;
closedir DOCUMENTS;
foreach my $filename ( @filenames ) {
( my $new = $filename ) =~ s/\.doc$//i;
copy( $filename, "/home/marsie/data/$new.dat" )
or warn "Can't copy $filename: $!";
}
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
