On Fri, April 30, 2010 1:07 pm, John W. Krahn wrote:
> Paul wrote:
>> OK, was kinda rust, been working on Solaris servers for year, but not
>> been
>> working solely with windows, but I sure do miss scripting, no matter how
>> screwed up my programming skills are, it's fun! Here is what I have
>> with
>> "\" replacing "/" and better fixes with counting. Yes, I know there is
>> a
>> better way, but my brain isn't advanced enough yet, although I want to
>> be
>> there some day:
>>
>> #user/bin/perl -w
>> use File::Find;
>>
>> my @all_file_names;
>>
>> my $x = 1;
>>
>> my $file1 = 'C:/Users/MeHere/test1/thefile1.txt';
>> my $file2 = 'C:/Users/MeHere/test1/thefile2.txt';
>>
>> find sub {
>> return if -d;
>> push @all_file_names, $File::Find::name;
>> }, 'C:/Users/MeHere/Downloads/Pics/Temp';
>>
>> open FILE1, ">$file1" or die $!;
>> open FILE2, ">$file2" or die $!;
>>
>> for my $path ( @all_file_names ) {
>>
>> if ($x < 11) {
>> print FILE1 "echo PART 1a\n" if $x == 1;
>> print FILE1"pause\n" if $x == 1;
>> $path =~ tr/\//\\/d;
>
> The /d option stands for Delete, which means that anything in the
> left-hand list that is not in the right-hand list will be deleted
> instead of transliterated (replaced) but the left-hand list and the
> right-hand list are the same size so there is nothing to delete so the
> /d option is superfluous.
>
> $path =~ tr!/!\\!;
>
>> print FILE1 "nfixup $path -f\n" if $path =~ /\.JPG/;
>
> If you are only looking for the string '.JPG' at the *END* of the path
> name (a file extention) then you should anchor the pattern at the end.
>
> print FILE1 "nfixup $path -f\n" if $path =~ /\.JPG\z/;
>
>> print FILE1 "Done with PART 1a\n" if $x == 10;
>> print FILE1 "pause\n" if $x == 10;
>> print "$x\n";
>> }
>
>
>
> John
> --
> The programmer is fighting against the two most
> destructive forces in the universe: entropy and
> human stupidity. -- Damian Conway
Thanks for the info. I'm putting that all in my memory banks. I sure
wish I had job of programming all day. I want to get good at it. Thanks.
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
