Create a gist now

Instantly share code, notes, and snippets.

What would you like to do?
`skintone.pl pray | pbcopy` で圧倒的感謝 🙏
#!/usr/bin/env perl
use strict;
use warnings;
use utf8;
exit 1 unless @ARGV;
my $emoji = ":$ARGV[0]:";
print join ' ', $emoji, map { "$emoji:skin-tone-$_:" } 2..6;
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment