> > # たとえば こわれにくいｶｳﾝﾀのﾌｧｲﾙを読みだすときにですね(;´Д`)
> > open ( IN, "$countfile$i.dat" );
> > flock(IN, 1);　　# ←こんな行があったほうが良いんじゃないかと　
> > $count[$i] = <IN>;
> > $filenumber{$count[$i]} = $i;
> > close ( IN );
> perlはﾏｼﾞで読みづらい(;´Д`)

今時こんなｽﾀｲﾙで書く奴いない(;´Д`)

参考：2020/06/22(月)22時45分26秒