daily pastebin goal
82%
SHARE
TWEET

Untitled

a guest May 16th, 2018 90 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. #!/usr/bin/perl -w
  2. use strict;
  3. my $filename = $ARGV[0];
  4. open(BUF, "<$filename");
  5. my $line_num = 1;
  6. foreach(<BUF>){
  7.     if($_ =~ /=\s*=/){
  8.         print "Found crap at line number $line_num\n";
  9.     }
  10.     $line_num++;
  11. }
  12.  
  13. if($line_num == 1){
  14.     print "Didn't find any blank lines\n";
  15. }
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top