pckanri.txtの構成

#
#
# 1,admin,演習室,,032,ecn001,00:e0:00:4d:5a:74,Fujitsu,FMV-6800,l,演習室,157.6.32.1,0,0,0
#
# 順序:フィールド名
# 00:seq
# 01:userid
# 02:user
# 03:registdate
# * 04:line
# * 05:host
# * 06:macadr
# 07:maker
# 08:model
# 09:syoyu
# 10:biko
# * 11:staticip
# 12:staticipreq
# 13:invalidity
# 14:application

# confmake.pl pckanri.txt dhcpd.master
#
open(FIN,$ARGV[0]) || die "001 can't open $ARGV[0]¥n";
open(FOUT,">$ARGV[1]") || die "002 can't open $ARGV[1]¥n";
open(FOUT2,">temp.dat") || die "003 can't open temp.dat¥n";

while(&ltFIN>)
{
@w = split(/,/,$_);
if ( @w[11] !‾ /¥d+¥.¥d+¥.¥d+¥.¥d+/ ) #-- Not StaticIP
{
print FOUT 'subclass "line'.@w[04].'" '.@w[06].';'."¥n";
}
else
{
print FOUT2 "host @w[05] { ".'hardware ethernet '.@w[06].' fixed-address '.@w[11]." }¥n";
}

}

#-- テンポラリファイルの書出し
close(FOUT2);
open(FOUT2,"temp.dat");
while(<FOUT2>)
{
print FOUT;
}

close(FOUT);
close(FOUT2);
close(FIN);