mirror of
https://github.com/radareorg/radare2.git
synced 2024-12-05 12:08:24 +00:00
087ce48d42
- r_big api is now argument safe, you can do a.add(a,b);
56 lines
1.3 KiB
Perl
56 lines
1.3 KiB
Perl
#!/usr/bin/perl
|
|
#
|
|
# $ hg clone http://hg.youterm.com/toys
|
|
# lochist > lochist.txt
|
|
# perl graph-int-per-line.pl
|
|
#
|
|
|
|
my $min = 0;
|
|
my $max = 0;
|
|
|
|
sub meld {
|
|
my ($file, $type) = @_;
|
|
my $str2 = "";
|
|
$str=`head -n 2014 $file|tail -n 1024| awk '{print \$2}'`;
|
|
$str=~s/\n/\,/g;
|
|
$str=~s/ //g;
|
|
if ($type == 1) {
|
|
my $b = 0;
|
|
foreach my $a (split(/,/,$str)) {
|
|
$b += $a;
|
|
$str2 .= "$b,";
|
|
}
|
|
$str = $str2;
|
|
}
|
|
foreach my $a (split(/,/,$str)) {
|
|
$min=$a if ($a<$min);
|
|
$max=$a if ($a>$max);
|
|
}
|
|
return $str;
|
|
}
|
|
|
|
sub get_graph {
|
|
my ($picfile, $type, $mode) = @_;
|
|
my $uri = "http://chart.apis.google.com/chart";
|
|
my $data = "cht=lc&chs=800x300&chd=t:";
|
|
my $avr;
|
|
#$data.=meld("lochist.txt", 0);
|
|
$data.=meld("lochist.txt", $mode);
|
|
$data.="&chl=$type";
|
|
$data.="&chxt=x,y";
|
|
$data.="&chds=$min,$max";
|
|
$data=~s/,\|/|/g;
|
|
$data=~s/,&/&/g;
|
|
$sys="wget -nv -O '$picfile' --post-data='$data' '$uri'";
|
|
print "$sys\n";
|
|
system($sys);
|
|
return $avr;
|
|
}
|
|
|
|
get_graph("r2cdg.jpg", "r2 commit locdiff graph", 0);
|
|
get_graph("r2clg.jpg", "r2 commit lines of code graph", 1);
|
|
system("scp r2cdg.jpg radare.org:/srv/http/radareorg/get");
|
|
system("scp r2clg.jpg radare.org:/srv/http/radareorg/get");
|
|
print ("http://radare.org/get/r2cdg.jpg\n");
|
|
print ("http://radare.org/get/r2clg.jpg\n");
|