The following example uses the operator form of readline and dies if the result is not defined. while ( ! eof($fh) ) { defined( $_ = readline $fh ) or ...
確定! 回上一頁