UNIX/コマンド/テキスト処理/perl


Table of Contents

% perl -pe 's/[regexp]/[replacement]/[flags]' < [filename] 

% ypcat passwd | perl -ne '@a=split(/:/);print "$a[0] $a[4]\n";'

% ypcat passwd | perl -ne 'BEGIN{@a=();}@a=split(/:/);print "$a[0] $a[4]\n";'
1:
2:
・・・
10:
11:
% perl -pe 's/^[^:]*://' < [filename] 
% perl -pe 's/^.{7}//;' < [filename]
% perl -pei 's/[regexp]/[string]/g' [filename]

xrea