expand函式:幾個space替代tab。
unexpand函式:tab替代幾個space。
利用$tabstop變數控制每個tab轉換成幾個space字元。
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);
}
全站熱搜
留言列表