Skip blank lines and comments : Escape « Regular Expression « Perl






  1. Perl
  2. Regular Expression
  3. Escape

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";
}








Related examples in the same category

1.A word-count program that handles multiple spaces and tabs between words.
2.Escape Sequences for Special Characters
3.Escape sequences, \n and \t
4.Match the new line character
5.Match multiline patterns?
6.Multiplies every integer in a file by 2