Perl: ちょっとだけ有用なスクリプト

ちょっと役立つスクリプト
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の中の人は暇だったのかな。

コメント

このブログの人気の投稿

【解決】YogaBook が再起動を繰り返す

XCP-ngを触ってみて

Hyper-V上にXCP-ng(xen環境)をインストール