Mega Code Archive

 

Categories / Perl / Statement

 

Using unless with regular expression

while (<>) {     chomp;     unless (/^q/i) {         print;     } else {         exit;     } }