kimmel / clean_history.pl

Created August 20, 2012


    
    View clean_history.pl 
  
  
      clean_history.pl
    
    
        Raw
      
    
    File suppressed. Click to show.
  
  
            1
            2
            3
            4
            5
            6
            7
            8
            9
            10
            11
            12
            13
            14
            15
            16
            17
            18
            19
            20
            21
            22
            23
            24
            25
            26
            27
            28
            29
            30
            31
            32
            33
            34
            35
            36
            37
            38
            39
            40
            41
            42
            43
            44
            45
            46
            47
            48
            49
            50
            51
            52
            53
            54
            55
            56
            57
            58
            59
            60
            61
            62
            63
            64
            65
            66
            67
            68
            69
            70
            71
            72
            73
            74
            75
            76
            77
            78
            79
            80
            81
            82
            83
            84
            85
            86
            87
            88
            89
            90
            91
            92
            93
            94
            95
            96
            97
            98
            99
            100
            101
            102
            103
            104
            105
            106
            107
            108
            109
            110
            111
            112
            113
            114
            115
            116
            117
            118
            119
            120
            121
            122
            123
            124
          
          
            #!/usr/bin/perl
 
use 5.014;
use warnings;
use autodie;
use utf8::all;
use IO::All;
 
die 'No input file specified.' if ( $#ARGV == -1 );
 
my @patterns = map {qr/^$_/xms} @{
    [   '(?:mk|rm)dir\ ',
        '(?:acroread|epdfview)\ ',
        'ls$',
        'cd$',
        'exit$',
        'clear$',
        'df$',
        'pwd$',
        'su$',
        'du$',
        'ls[ao]$',
        'dus$',
        'firefox$',
        'cal$',
        ';$',
        'blender$',
        '[.]/blender$',
        'date$',
        'export$',
        'htop$',
        'lpstat$',
        'ps$',
        'firefox\ &',
        'gimp-2\.6\ \&',
        'ls\ ',
        ';s',
        'cd\ ',
        'rm\ ',
        'tar\ ',
        'df\ ',
        'df\ \.',
        'du\ ',
        'wget',
        'mv\ ',
        'file\ ',
        'source\ ',
        'gv\ ',
        'm\ ',
        'pc[ ]?',
        'unzip',
        'geeqie',
        'man\ ',
        'scite',
        'chmod\ ',
        'pgrep\ ',
        'pkill\ ',
        'slocate\ ',
        '7z\ ',
        'cal\ ',
        'cat\ ',
        'cp\ ',
        'eject\ ',
        'touch\ ',
        'which\ ',
        'nano\ ',
        'mediainfo\ ',
        'opera\ ',
        'sftp\ ',
        'xterm$',
        'google\-chrome',
        'uname\ -a',
 
        # dev stuff
        'git[ ](?:status|commit|log|diff|fetch|checkout|init|pull|push)$',
        'git[ ](?:diff|blame)[ ]',
        'cover[ ]-(?:test|delete)$',
        'cover[ ]--(?:test|delete|help)$',
        'git\ add\ \.$',
        'make$',
        'make\ test$',
        'prove$',
        'cmake$',
        'cover$',
        'cpan$',
        'perl\ Makefile[.]PL',
        'corelist\ ',
        '[.]/configure\s*$',
        'make[ ]clean$',
        'cvs\ status$',
        're[.]pl$',
        'diff\ ',
        '[.]/perltest[.]pl',
        'perltest.pl',
        'perl\ --version',
 
        #misc
        'vlc\ ',
        'vlc$',
        'mplayer\ ',
        # I trimmed the rest out because they were too specific
    ]
    };
 
foreach my $fname (@ARGV) {
    my @content = io($fname)->slurp;
    foreach (@content) { s/^\s+//xms; s/[ ]+$//xms; }
 
    open my $fh, '>', $fname . '_clean';
    open my $junk, '>', $fname . '_junked.log';
 
LINE: foreach my $line (@content) {
        foreach my $re (@patterns) {
            if ( $line =~ $re ) {
                print {$junk} $line;
                next LINE;
            }
        }
        print {$fh} $line;
    }
 
    close $fh;
    close $junk;
}