Perl: ちょっとだけ有用なスクリプト
ちょっと役立つスクリプト
これを考えた2chの中の人は暇だったのかな。
my $lastTabOffset= 0;
my $tabSize = 4;
my $spaceCount;
$line =~ s{([^\t]*)\t}{
$lastTabOffset += length( $1 );
$spaceCount = $tabSize - $lastTabOffset % $tabSize;
$lastTabOffset += $spaceCount; $1 . ( ' ' x $spaceCount )
}eg;
これを考えた2chの中の人は暇だったのかな。
コメント