Perlコーディング初心者質問スレ Part 44

[0263 nobodyさん 2005/10/27(木) 19:43:10 ID:???]

return @flag == grep($_ == 1, @flag) ? 1 : 0;