Home > Archive > PERL Beginners > April 2005 > REGEXP
You are viewing an archived Text-only version of the thread.
To view this thread in it's original format and/or if you want to reply to
this thread please [click here]
|
|
| DBSMITH@OhioHealth.com 2005-04-27, 3:56 am |
| 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
| |
| Offer Kaye 2005-04-27, 8:56 am |
| On 4/27/05, DBSMITH@ohiohealth.com wrote:
> Please help me find the regexp to replace -o-b- - - -f
> thank you!
>=20
Replace it with *what*?
> s/sg//, s/\- {1,}(\w{1,})//,print +(split)[5,6,7], if (m/f01(\d+)/gi )
>=20
What does this code have to do with your question?
> my $_ has these lines in it:
>=20
> -o-b- - - -f
> F01045
Meaningless question subject, obscure question, some strange code and
data thrown in - it's like you don't *want* to get an answer ;-)
--=20
Offer Kaye
|
|
|
|
|