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

昔のハッカーが分かりにくく書くための言語だからな(;´Д`)

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