krazy2tasks.pl 579 Bytes
Newer Older
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
#!/usr/bin/perl -w

use strict;

my $file = shift;
die "No .tasks file given to save data into." unless ($file);

open(PIPE, "krazy2all . --export textedit |") or
    die "Could not start krazy2all, please make sure it is in your PATH.";  
open(FILE, ">$file") or die "Failed to open \"$file\" for writing.";

while (<PIPE>) {
    my $line = $_;
    chomp $line;
    next unless $line =~ /^(.*):(\d+):(.*)$/;

    my $file = $1;
    my $lineno = $2;
    my $description = $3;
    next if $file =~ /\/3rdparty\//;

    print FILE "$file\t$lineno\tWARN\tKrazy: $description\n";
}