daily pastebin goal
14%
SHARE
TWEET

Untitled

a guest Aug 10th, 2018 65 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Can't get perl regex to be non-greedy
  2. elsif ($line =~ /s(d{2}.d{2}.d{2}.d{2}s[[:alpha:]]*?)/)
  3. {
  4.     print OUTPUT "NT5 ".$1." | | n";
  5. }
  6.    
  7. $line="     02.04.07.06 Geerite Cu8S5 R 3m, R 3m, or R 32 Trig ";
  8. if ($line =~ /s(d{2}.d{2}.d{2}.d{2}s[[:alpha:]]*?)/) { print "NT5 ".$1." | | n"; }
  9.    
  10. NT5 02.04.07.06  | |
  11.    
  12. perl -e '$_ = "02.04.07.06 Geerite Cu8S5 R 3m, R 3m, or R 32 Trig"; print "$1n" if /(dd.dd.dd.dd w+)/'
  13.    
  14. 02.04.07.06 Geerite
  15.    
  16. /(dd.dd.dd.dd w+)/
  17.    
  18. $line = '   02.04.07.06 Geerite Cu8S5 R 3m, R 3m, or R 32 Trig';
  19. if ($line =~ /s(d{2}.d{2}.d{2}.d{2}s[[:alpha:]]*)/) {
  20.     print OUTPUT "NT5 ".$1." | | n";
  21. }
  22.    
  23. NT5 02.04.07.06 Geerite | |
  24.    
  25. $line =~ /s(d{2}.d{2}.d{2}.d{2}s[[:alpha:]]*)/
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