tweet-filter

#!/usr/bin/perl
# https://gist.github.com/yamasushi/311c5c424356abf645a2
use strict;
use warnings;
use utf8;
binmode STDIN,":utf8";
binmode STDOUT,":utf8";

while(<>){
  chomp;
  s/[^\p{Han}\p{Hiragana}\p{Katakana}~〜ー、…!！?？,，。]+//g;
  if(/^.*[^!！?？。]$/){
    $_ = $_ . "、"
  }
  s/[.・~〜]+/…/g;
  s/[!！?？,，。]/、/g;
  s/^、//g;
  s/[、…][、…]+$/……/g;
  print $_;
}