Gist

Trying github's Gist to see if it is a decent way to push source code to this blog.

	#!~/tools/rakudo/perl6
	my $search_word = @*ARGS.shift;
	my $replacement = @*ARGS.shift;
	sub UpperCaseEachWord($word)
	{
	my @words = $word.split('_');
	my @uppered = map {$_.lc.ucfirst}, @words;
	return @uppered.join('');
	}
	my %substitutions;
	%substitutions{$search_word.lc} = $replacement.lc;
	%substitutions{$search_word.uc} = $replacement.uc;
	%substitutions{UpperCaseEachWord($search_word)} = UpperCaseEachWord($replacement);
	# for %substitutions.pairs -> $x
	# {
	# say "{$x.key}, {$x.value}";
	# }
	for $*IN.lines() -> $text is rw
	{
	for %substitutions.pairs -> $sub
	{
	$text .= subst($sub.key, $sub.value, :g);
	}
	say $text;
	}

view raw case_replace.pl hosted with ❤ by GitHub

Eh, that will do for now!