空きが 1.6G しかありません。% df -k . Filesystem 1K-blocks Used Avail Capacity Mounted on /dev/disk0s2 116884912 114978880 1650032 99% /
28571732 Moviesこれらで 80G か。
24900708 Music
31327412 Pictures


% df -k . Filesystem 1K-blocks Used Avail Capacity Mounted on /dev/disk0s2 116884912 89859632 26769280 77% /
#!/usr/bin/perl
use strict;
use warnings;
use Encode;
use utf8;
use open ':utf8';
binmode STDIN, ":utf8";
binmode STDOUT, ":utf8";
while (<>) {
chomp;
my @cs = m/(\p{M}+|\p{N}+|\p{P}|\p{S}+|\p{Z}+|\p{C}+
|\p{Latin}+
|\p{Han}+
|\p{Hiragana}[\p{Hiragana}ー]*
|\p{Katakana}[\p{Katakana}ー]*
)/gx;
print join(",", @cs), "\n";
}
% cat a.txt ルーラでう、う9 10AB.DE「"GH'」★で漢字をカ・ナ食ったー!?MJD39?。 % chunker.pl a.txt ルーラ,でう,、,う,9, ,10,AB,.,DE,「,",GH,',」,★,で,漢字,を,カ,・,\ ナ,食,ったー,!,?,MJD,39,?,。
my @cs = grep { $_ ne q{} } split m/(正規表現)/xmso, $line;
(正規表現の最後に最後に「|.」を足すだけでも良いかもしれませんね。)