初心者もOK FreeBSD質問スレッドその31

[0523 名無しさん＠お腹いっぱい。 NG NG]

>>522
これじゃだめ？

sunのpasswdファイルをFreeBSDのmaster.passwdファイルの形式に変換するスクリプト

!/usr/local/bin/perl

$file1 = $ARGV[0];
$file2 = $ARGV[1];
$class = '';
$change = '0';
$expire = '0';

unless(open(FILE1,$file1)){
die "input file open failure\n";
}

unless(open(FILE2,">$file2")){
die "output file open failure\n";
}

while($line = ){
chop($line);
@fields = split(/:/,$line);
$line = join(':',$fields[0],$fields[1],$fields[2],$fields[3],$class,$change,$expire,$fields[4],$fields[5],$fields[6]);
print FILE2 "$line\n";
}

close(FILE1);
close(FILE2);