lkml.org 
[lkml]   [2006]   [May]   [27]   [last100]   RSS Feed
Views: [wrap][no wrap]   [headers]  [forward] 
 
Messages in this thread
    /
    Date
    From
    SubjectRe: [SCRIPT] chomp: trim trailing whitespace
    Jeff Garzik wrote:
    >
    > Attached to this email is chomp.pl, a Perl script which removes trailing
    > whitespace from several files. I've had this for years, as trailing
    > whitespace is one of my pet peeves.
    >
    > Now that git-applymbox complains loudly whenever a patch adds trailing
    > whitespace, I figured this script may be useful to others.
    >

    This is the script I use for the same purpose. It's a bit more
    sophisticated, in that it detects and avoids binary files, and doesn't
    throw an error if it encounters a directory (which can happen if you
    give it a wildcard.)

    -hpa
    #!/usr/bin/perl
    #
    # Clean a text file of stealth whitespace
    #

    use bytes;

    $name = 'cleanfile';

    foreach $f ( @ARGV ) {
    print STDERR "$name: $f\n";

    if (! -f $f) {
    print STDERR "$f: not a file\n";
    next;
    }

    if (!open(FILE, '+<', $f)) {
    print STDERR "$name: Cannot open file: $f: $!\n";
    next;
    }

    binmode FILE;

    # First, verify that it is not a binary file
    $is_binary = 0;

    while (read(FILE, $data, 65536) > 0) {
    if ($data =~ /\0/) {
    $is_binary = 1;
    last;
    }
    }

    if ($is_binary) {
    print STDERR "$name: $f: binary file\n";
    next;
    }

    seek(FILE, 0, 0);

    @blanks = ();
    @lines = ();

    while ( defined($line = <FILE>) ) {
    $line =~ s/[ \t\r\n]*$/\n/;

    if ( $line eq "\n" ) {
    push(@blanks, $line);
    } else {
    push(@lines, @blanks);
    push(@lines, $line);
    @blanks = ();
    }
    }

    # Any blanks at the end of the file are discarded

    seek(FILE, 0, 0);
    print FILE @lines;

    if ( !defined($where = tell(FILE)) ||
    !truncate(FILE, $where) ) {
    die "$name: Failed to truncate modified file: $f: $!\n";
    }
    close(FILE);
    }
    \
     
     \ /
      Last update: 2006-05-27 06:20    [W:5.618 / U:0.060 seconds]
    ©2003-2020 Jasper Spaans|hosted at Digital Ocean and TransIP|Read the blog|Advertise on this site