[filters.git] / fanboy

#!/usr/bin/perl

if (! @ARGV) {
	@ARGV=qw(linus git linux rebase merge cherry-pick branch);
}

my $coolstuff=join("|", map { "\Q$_\E" } @ARGV);

my $len=0;
while (<STDIN>) {
	while(/(($coolstuff)[.?!]*)/ig) {
		$len+=length($1)+1;
		if ($len > 70) {
			print "\n";
			$len=0;
		}
		print $1." ";
	}
}
print "\n" if $len;
Commit	Line	Data
5fbd4551 JH	1	#!/usr/bin/perl
	2
	3	if (! @ARGV) {
	4	@ARGV=qw(linus git linux rebase merge cherry-pick branch);
	5	}
	6
	7	my $coolstuff=join("\|", map { "\Q$_\E" } @ARGV);
	8
	9	my $len=0;
	10	while (<STDIN>) {
	11	while(/(($coolstuff)[.?!]*)/ig) {
	12	$len+=length($1)+1;
	13	if ($len > 70) {
	14	print "\n";
	15	$len=0;
	16	}
	17	print $1." ";
	18	}
	19	}
	20	print "\n" if $len;