Script to convert letters to their full-width counterparts

full-width

#!/bin/perl

# This perl script converts ASCII characters between 0x21 ("!") and 0x7E ("~") to full-width characters.
# https://en.wikipedia.org/wiki/Halfwidth_and_fullwidth_forms
# All other characters will be ignored!
# Examples:
# $ echo 'Lorem ipsum dolor sit amet, consectetur, adipisci velit' | ./full-width
# Ｌｏｒｅｍ ｉｐｓｕｍ ｄｏｌｏｒ ｓｉｔ ａｍｅｔ， ｃｏｎｓｅｃｔｅｔｕｒ， ａｄｉｐｉｓｃｉ ｖｅｌｉｔ
# $ echo 'Hello, Mr. Schrödinger! What does "ħ" mean?' | ./full-width
# Ｈｅｌｌｏ， Ｍｒ． Ｓｃｈｒöｄｉｎｇｅｒ！ Ｗｈａｔ ｄｏｅｓ ＂ħ＂ ｍｅａｎ？

use strict;
use feature 'unicode_strings';
binmode STDOUT, ":utf8";
binmode STDIN, ":utf8";
    
while (my $line = <>) {
  chomp($line);
  for my $char (split //, $line) {
    my $ordinal = ord("$char");
    if ($ordinal >= 0x21 && $ordinal <= 0x7E) {
      print chr("$ordinal" + 0xFF01 - 0x21);
    } else {
      print "$char";
    }
  }
  print "\n";
}