SHARE
TWEET

Untitled

a guest Jun 5th, 2017 95 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. #!/usr/bin/perl
  2. open(FILE, "<ptinews2.csv");
  3. while(<FILE>)
  4. {
  5.         my($line) = $_;
  6.         chomp($line);
  7.         if($line =~ /\d{1,2}\/\d{1,2}\/\d{4}/)
  8.         {
  9.                 print "\n$line";
  10.         }
  11.         else
  12.         {
  13.                 print $line;
  14.         }
  15. }
  16. #[0-9]{1,2}/[0-9]{1,2}/[0-9]{4}
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