package opn; sub new{ @list = (); @usr = (); @usrInf = (); $a; } sub main{ &makeMixihtm; } sub read{ $datfile = './name.dat'; open(DAT,"$datfile"); flock(DAT,2); while(){ @list = split(/,/); &change; $a = ""; for($i=0;$i<= @list.length;$i++){ if($i==0){ $a .= "$list[$i]"; }else{ $a .= "$list[$i]"; } } $a .= "\n"; &ob($a); } close(DAT); } sub ob{ @usrInf = @_; push(@usr,@usrInf); } sub change{ for($i=0;$i<=@list.length;$i++){ if($list[$i] =~ m/zakki/){ $list[$i] = "雑記　"; } if($list[$i] =~ m/ma-jan/){ $list[$i] = "麻雀　"; } if($list[$i] =~ m/shame/){ $list[$i] = "しぇいむ☆おん　"; } if ($list[$i] =~ m/daihugo/){ $list[$i] = "大富豪"; } } } sub htmlHeader{ print HTM "\n\n\nのなちす\n\n\n\n\n
\n"; } sub htmlMenu{ print HTM "
\n
\n
\n
\n
\n
\n
\n
\n
\n
\n
\n"; } sub htmlTable{ print HTM "

mixi日記公開設定の詳細

\n"; print HTM "\n"; } sub htmlTable_{ print HTM "
"; } sub htmlFoder{ print HTM "
\n\n"; } sub makeMixihtm{ $htmfile = './mixi.htm'; open(HTM,">$htmfile"); flock(HTM,2); &htmlHeader; &htmlMenu; &htmlTable; &read; @usr = sort @usr; print @usr; print HTM @usr; &htmlTable_; &htmlFoder; close(HTM); }1;