Statement Perl

  1. Home
  2. Perl
  3. Statement
  4. Until with diamond operator
until (($line = <>) eq 'q\n') {
    print $line;
}