|
Simple Sand Samples |
説明のないとってもシンプルなサンプルプログラム集
| Perl |
Perl > スペースを8タブに変換する(Tabs使用)
unexpand-.pl
use Text::Tabs;
$tabstop = 8;
foreach(unexpand(<>)){
print;
}
$ expand sample.txt | perl unexpand.pl
cccc 50
cccc 200 400
bbbb 900 500
bbbb 800 600
aaaa 3000 700
aaaa 2000
$
cccc 50
cccc 200 400
bbbb 900 500
bbbb 800 600
aaaa 3000 700
aaaa 2000
$
* 確認環境 Debian Linux(Wheezy)