I have a few suggestions.
1. Practice.
2. Practice.
3. Find useful things to do with Perl, and you'll learn alot faster than
coming up with arbitrary scripts.
4. Take a break before you pull that last hair out of your head.
5. Practice.
6. use strict; at the top of your scripts
7. use warnings; at the top of your scripts
8. Practice.
9. If you can't get outside, at least look out the window every once in a
while.
10. Get familiar with the perldocs, and when all else fails, don't forget
your good friend Google.
-----Original Message-----
From: Simopoulos
To: Perl Beginners
Sent: 7/16/02 5:52 AM
Subject: Thank You! :)
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: $!";
}
<<ATT39554.txt>>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
