add dupewords.pl - dots@a842868

Commit `a842868`

xxwhirlpool · 2026-07-22 19:42:32 -0400 EDT

parent c86d8fc

add dupewords.pl

1 files changed, +22, -0

A scripts/Scripts/dupewords.pl

+22, -0

......@@ -0,0 +1,22 @@
#!/usr/bin/env perl

use 5.38.2;
use strict;
use warnings;

use Term::ANSIColor qw(:constants);

sub readfile {
	print("paste writing:\n(submit text with ctrl+d)\n\n");
	my @writing = <STDIN>;
	print("\n\n"); # idk how to have it not print STDIN so linebreaks it is

	foreach my $line (@writing) {
		if($line =~ /\b([A-Za-z]+) \1\b/) {
			print("found repeat: ");
			print(RED, "$&" , RESET, "\n");
		}
	}
}

readfile

...	...		@@ -0,0 +1,22 @@
	1	+	#!/usr/bin/env perl
	2	+
	3	+	use 5.38.2;
	4	+	use strict;
	5	+	use warnings;
	6	+
	7	+	use Term::ANSIColor qw(:constants);
	8	+
	9	+	sub readfile {
	10	+	print("paste writing:\n(submit text with ctrl+d)\n\n");
	11	+	my @writing = <STDIN>;
	12	+	print("\n\n"); # idk how to have it not print STDIN so linebreaks it is
	13	+
	14	+	foreach my $line (@writing) {
	15	+	if($line =~ /\b([A-Za-z]+) \1\b/) {
	16	+	print("found repeat: ");
	17	+	print(RED, "$&" , RESET, "\n");
	18	+	}
	19	+	}
	20	+	}
	21	+
	22	+	readfile

Commit a842868

Commit `a842868`