|
Simple Sand Samples |
説明のないとってもシンプルなサンプルプログラム集
| Perl |
Perl > 8タブをスペースに変換する(Tabs使用)
expand-.pl
use Text::Tabs;
$tabstop = 8;
foreach(expand(<>)){
print;
}
$ perl expand-.pl sample.txt
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)