Re: how to manipulate word using perl

Thomas Bätzler wrote:
> 
> Gowri Chandra Sekhar Barla, TLS, Chennai wrote:
>> 
>> I facing a problem to substitute extensions of file with " = "
>>
>>
>> For example:
>>
>> In a file I have names of some files
>>
>> a.txt
>> b.txt
>> c.txt
>>
>> I want them to 
>>
>> a=
>> b=
>> c=
> 
> Do you just want to change the text in that file, or is that file
> a list of filenames that you want to process?
> 
> Here's some code to do the latter:
> 
> #!/usr/bin/perl -w
> 
> use strict;
> 
> my $file = 'xxx'; # name/path to your list file
> 
> open( IN, '<', $file ) or die "Can't open '$file': $!";
> 
> while( my $name = <IN> ){
>   $name =~ s/\s*$//; # remove \n and trailing whitespace

That should be:

     $name =~ s/\s+$//;

Because there is no point in modifying a string that does not contain 
whitespace.


>   next unless my( $base ) = ( $name =~ m/^(.*?)\.txt$/ );

That should be:

     next unless my ( $base ) = $name =~ /^(.+)\.txt$/

Because '' is not a valid file name.


>   if( -f $name ){

I assume that you are using the -f test because you don't want to rename 
directories or other non-file types?


>     rename( $name, $base . '=' ) or warn "failed to rename '$name': $!";
>   } else {
>     warn "file '$name' not found.";

So maybe your message should indicate that:

       warn "'$name' is not a normal file.\n";


>   }
> }
> 
> close( IN);



John
-- 
Perl isn't a toolbox, but a small machine shop where you
can special-order certain sorts of tools at low cost and
in short order.                            -- Larry Wall