Please help me find the regexp to replace -o-b- - - -f
thank you!
s/sg//, s/\- {1,}(\w{1,})//,print +(split)[5,6,7], if (m/f01(\d+)/gi )
my $_ has these lines in it:
-o-b- - - -f
F01045
-o-b- - - -f
F01046
-o-b- - - -f
F01047
-o-b- - - -f
F01048
-o-b- - -f
F01049
-o-b- - - -f
F01050
-o-b- - - -f
F01051
Derek B. Smith
OhioHealth IT
UNIX / TSM / EDM Teams
614-566-4145
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
