in reply to String Search/Replace
Fore!
perl -lane 'for(@F[1..4]){$_=0if$_>1000};print"@F"'
Update: Shave a couple of strokes.
perl -lape 'for(@F[1..4]){$_=0if$_>1000};$_="@F"'
--
We're looking for people in ATL
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re^2: String Search/Replace
by crep (Novice) on Aug 31, 2005 at 14:46 UTC |