Perlメモより
@FileBにあって@FileAにないものを@deffに集めろ
@deff = grep{ !{map{$_,1}@FileA }->{$_}}@FileB;
とあるので、これもできるのね。
@FileA、@FileBともにあるのを@deffに集めろ
@deff = grep{ {map{$_,1}@FileA }->{$_}}@FileB;
どうも、初期化を行う際に、
$test = shift;
とあるのがサンプルには多いような気がします。
CGI界隈をみると、
$test = "";
なんですけれど。なんでかな？
