Mega Code Archive

 

Categories / Perl / Statement

 

Until with diamond operator

until (($line = <>) eq 'q\n') {     print $line; }