揮発性のメモ2

http://d.hatena.ne.jp/iww/

perl

空白を\s*に置き換える

#!/usr/bin/perl $a=shift; $a =~ s/\s+/\\s\*/g; print "$a";