Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw
 
PerlMonks  

Re^5: Inherited a perl script...need help (s///)

by blindluke (Hermit)
on Nov 11, 2015 at 21:45 UTC ( [id://1147510]=note: print w/replies, xml ) Need Help??


in reply to Re^4: Inherited a perl script...need help (s///)
in thread Inherited a perl script...need help

It's still hard to guess what you need, but try this:

s/(?<![0-9])\d{4}(?![0-9])/9999/g

It replaces all numbers that are exactly four digits long with 9999.

- Luke

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://1147510]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others rifling through the Monastery: (4)
As of 2024-04-19 22:32 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found