[mirrors/Programs.git] / c / tv-b-gone / parsecode.pl

#!/usr/local/bin/perl


foreach $line (<STDIN>) {
  if ($line =~ /(\d+)\s+(\d+)/) {
    print "{$1,\t$2},\n";
  }
}
Commit	Line	Data
21c4e167 H	1	#!/usr/local/bin/perl
	2
	3
	4	foreach $line (<STDIN>) {
	5	if ($line =~ /(\d+)\s+(\d+)/) {
	6	print "{$1,\t$2},\n";
	7	}
	8	}