myphpmd

myphpmd.pl

#!/usr/bin/perl
use strict;

my $source = $ARGV[0];
my $type = $ARGV[1];
my $rules = $ARGV[2];

my $result = `phpmd ${source} ${type} ${rules}`;
$result =~ s/^\s+//g;
$result =~ s/(:[0-9]+)/$1:/g;
print $result;