[conspire] Howto find replace change newline control character in filename script program perl

[Bill Ward]

Sorry should be "or warn..." of course.

On 12/14/05, Bill Ward <bill at wards.net> wrote:
> I'd add 'warn "$orig: $!" ' to your rename() but otherwise, looks good.
>
> On 12/14/05, Tony Godshall <togo at of.net> wrote:
> >
> > How about this?
> >
> > find . -type f \
> > | perl -ne '\
> >   chomp;
> >   my $oldname=$_;
> >   while(s{^(.*)[\r\n]+(.*)$}{$1$2}}) { }
> >   if ( $oldname == $_ ) { rename($orig,$_); }
> >   }
> > '
> >
> > A little less complicated.  And easily adapted for other
> > purposes (I use something like this for cleaning up mp3
> > filenames before dumping them to my iriver).
> >
> > According to Hereon,
> > > Howto find replace change newline control character in filename script program perl for linux unix
> > >
> > > Thanks to Bill & Sam.
> > >
> > > Useful for fixing .html files saved by Mozilla firefox.
> > >
> > > I sometimes copy the title of an article and paste it to the save dialog box of Mozilla firefox.
> > > Sometimes this contains a newline character that I don't notice.
> > > K3b cd writing backup fails on the filenames containing newlines.
> > >
> > > Place the script below in a text editor & save it in /usr/local/bin
> > > as FindReplaceNewlineCharacterInFilename.pl
> > > chmod 755 FindReplaceNewlineCharacterInFilename.pl
> > > Go to the top of the directory tree you wish to search & replace.
> > >
> > > Run the program
> > > FindReplaceNewlineCharacterInFilename.pl
> > >
> > > Running it with no options lists filnames which contain newline characters.
> > > Run it with the "-r" option to actually change the file names.
> > >
> > >
> > > =====================================================================
> > > #!/usr/bin/perl -w
> > > #
> > > # Usage: FindReplaceNewlineCharacterInFilename.pl [-r]
> > > # Recursively finds all files and directories with newline characters in their name
> > > # and optionally renames them to have spaces instead. By default, files are not renamed;
> > > # the files that would be effected are listed on stdout. If invoked with the -r option,
> > > # the files are renamed.
> > > #
> > > use File::Find;           # Recursively visits every file in a list of directories
> > > use Cwd;                  # for returning the current directory with getcwd().
> > > use strict;
> > > no warnings 'File::Find';
> > >
> > > $::DO_RENAME = $ARGV[0] eq "-r";   # Is true if user wants to actually rename the file
> > >
> > > my @dir;
> > > push( @dir, getcwd() );   # Start in the current directory
> > > find( \&RemoveUnsafeCharactersFromFilename , @dir );
> > >
> > > ##
> > > # Replace all files with \n in them with spaces
> > >
> > > sub RemoveUnsafeCharactersFromFilename {
> > >
> > >     # If the filename (that Find::File::find() puts in $_ and in $File::Find::name)
> > >     # contains a Newline character (\n, i.e. hex 0A ASCII 11 entered as ^V^J),
> > >     # replace it with a simple space character.
> > >
> > >     # If the current filename contains the undesired control character,
> > >     if( m/[\n]/ ) {  # m/pattern/ does a regex match of `pattern' against the $_ variable
> > >
> > >       # Create string for user display that shows "/r"'s in the file name.
> > >         my $old_filename = $File::Find::name;
> > >         my $old_display_name = $old_filename;   # show the old filename on a single line
> > >         $old_display_name =~ s/[\n]/\\n/g;    # Put "\n" in the output to see.
> > >         s/[\n]/ /g;  # s/old/new/ replaces `old' pattern with `new' value in the $_ variable
> > >
> > >       # Show user the file name.
> > >         print $::DO_RENAME ? "Renaming " : "";                # Say "Renaming" if '-r' option
> > >         print "$old_display_name\n";
> > >       print $::DO_RENAME ? "To ===== $_\n" : "";      # Show new file name if renaming
> > >
> > >         # We only rename files if the script is invoked with the -r option
> > >         if( $::DO_RENAME ) {
> > >             rename( $old_filename, $_ ) or die "Couldn't rename $old_display_name to $_: $!";
> > >         }
> > >     }
> > >     1;        # Return 1 just in case.
> > > }
> > > --
> > >   Hereon
> > >   hereon1 at fastmail.us
> > >
> > > --
> > > http://www.fastmail.fm - Same, same, but different?
> > >
> > >
> > > _______________________________________________
> > > conspire mailing list
> > > conspire at linuxmafia.com
> > > http://linuxmafia.com/mailman/listinfo/conspire
> >
> > --
> >
> > Best Regards,
> >
> > Tony
> >
> >
> > _______________________________________________
> > conspire mailing list
> > conspire at linuxmafia.com
> > http://linuxmafia.com/mailman/listinfo/conspire
> >
>
>
> --
> Help save the San Jose Earthquakes - http://www.soccersiliconvalley.com/
>


--
Help save the San Jose Earthquakes - http://www.soccersiliconvalley.com/