l i n u x - u s e r s - g r o u p - o f - d a v i s
Next Meeting:
July 7: Social gathering
Next Installfest:
Latest News:
Jun. 14: June LUGOD meeting cancelled
Page last updated:
2001 Dec 30 17:08

The following is an archive of a post made to our 'vox-tech mailing list' by one of its subscribers.

Report this post as spam:

(Enter your email address)
[vox-tech] Perl: Regex if then else
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[vox-tech] Perl: Regex if then else

Is there any way (in perl) to do a substitution like if you find this,
replace it with that, else replace it with something else?

For example I have a bunch of lines like:

initial 256
initial 512
initial 1024
initial 2048

I want to match on /initial\s+\d+/ and replace 256 with 4092 but replace all
the other numbers with 1024.  I don't know (ahead of time) what the numbers
are, I just know I want to replace a specific number with X and the rest
with Y.

I tried building a hash like:
%replace = (526=>'4092')
and then do:

s/initial\s+(\d+)/initial $replace{$1}/g
but obviously it fails as soon as it finds a key that doesn't exist, but its
sorta what I want

Does this make sense

Jay Strauss

Do You Yahoo!?
Get your free @yahoo.com address at http://mail.yahoo.com

LUGOD Group on LinkedIn
Sign up for LUGOD event announcements
Your email address:
LUGOD Group on Facebook
'Like' LUGOD on Facebook:

Hosting provided by:
Sunset Systems
Sunset Systems offers preconfigured Linux systems, remote system administration and custom software development.

LUGOD: Linux Users' Group of Davis
PO Box 2082, Davis, CA 95617
Contact Us

LUGOD is a 501(c)7 non-profit organization
based in Davis, California
and serving the Sacramento area.
"Linux" is a trademark of Linus Torvalds.

Sponsored in part by:
EDGE Tech Corp.
For donating some give-aways for our meetings.