studioego

#!/bin/bash

#GERRITHOST=gerrit.libreoffice.org
GERRITHOST=logerrit
GERRITURL="ssh://$GERRITHOST/WhatCanIDoForLibreOffice"

get_SHA_for_change() {
    SHA=$(ssh "${GERRITHOST?}" gerrit query --all-approvals change:"$1" | grep ref | tail -1 | cut -d: -f2 | sed 's/^ *//')
}

studioego

<ForbiddenCharacters>
      <ForbiddenLineBeginCharacters>!%),.:;?]}¢￠?&apos;&quot;′″℃&gt;〉＞》」』】〕！％），．：；？］｝｡｣､･ ﾞﾟ</ForbiddenLineBeginCharacters>
      <ForbiddenLineEndCharacters>$(¥£[\{￡￥&apos;&quot;&lt;＜《「『【〔＄（［｛￦｢</ForbiddenLineEndCharacters>
      <LineBreakHangingCharacters>!,.:;?、。！，．：；？</LineBreakHangingCharacters>
</ForbiddenCharacters>

studioego

# perl6
# hangul gag(각)  0xAC01
my $str = "각";
say "original: ", $str;
say "chars length:",$str.chars;
say "code point length:",$str.codes;
my $strNfd = $str.NFD;
say "NFD:", $strNfd;
my $strNfdResult = '';
for $str.NFD -> $item {

studioego

my $str = "각";
say "original: ", $str;
my $strNfd = $str.NFD;
say "NFD:", $strNfd;
for $str.NFD -> $item {
  say chr($item);
}
my $strNfc = $strNfd.NFC;
say "NFC:", $strNfc;
for $strNfd.NFC -> $item {

studioego

#!/usr/bin/perl
use utf8;      # so literals and identifiers can be in UTF-8
use strict;    # quote strings, declare variables
use warnings;  # on by default
use warnings  qw(FATAL utf8);    # fatalize encoding glitches
use open      qw(:std :utf8);    # undeclared streams in UTF-8
use charnames qw(:full :short);  # unneeded in v5.16
use Unicode::Normalize;
#NFD can be helpful on input
my $str = '각';

studioego

Keybase proof

I hereby claim:

• I am studioego on github.
• I am studioego (https://keybase.io/studioego) on keybase.
• I have a public key whose fingerprint is F9BC BF78 23C3 A181 827D F6D9 6900 C827 574A 726A

To claim this, I am signing this object: