Regular Expression Perl

  1. Home
  2. Perl
  3. Regular Expression
  4. Skip blank lines and comments
#!/usr/bin/perl
use warnings;
use strict;
while (<>) {
    chomp;   # strip trailing linefeed from $_
    next if /^(\s*(#.*)?)?$/;   # skip blank lines and comments
    print "Got: $_ \n";
}