expand函式:幾個space替代tab。
unexpand函式:tab替代幾個space。

use Text:Tabs;
use strict;
$tabstop=4;
foreach my $file(@ARGV){
open(F, $file)or die "open: $!";
my @lines=;
close(F) or die "close: $!";
print expand(@lines);
}

利用$tabstop變數控制每個tab轉換成幾個space字元。

use Text:Tabs;
use strict;
$tabstop=4;
foreach my $file(@ARGV){
open(F, $file)or die "open: $!";
my @lines=;
close(F) or die "close: $!";
print unexpand(@lines);
}

創作者介紹

神鵰蝦

jck11 發表在 痞客邦 PIXNET 留言(0) 人氣()