空きが 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;