>>951
> 初心者目で見るとファイル関係がPWFとか特殊だし、
いや意味がわかんないよ。
第一、言語同士を比較しているにしては、要所要所で意図的に違う書き方してて変。
こうするべきでは。

open(pwf, "/etc/passwd");
while ($line = <pwf>) {
  @pw = split ":", $line;
  print $pw[0], "=", $pw[4], "\n";
}

pwf = open("/etc/passwd")
while (line = pwf.gets())
  pw = line.split(":")
  print pw[0], "=", pw[4], "\n"
end