Mega Code Archive

 

Categories / Perl / Statement

 

If start with - no repeat

NUMBER: while (<>) {     next NUMBER if /^-/;           print;  }