s///
operator to perform substitutions:while(<DATA>) { s/\d\d/ /g; s/(\w)\s(\w)/$1#$2/g; s/\w/#/g; print; } __DATA__ F0 13 1D 31 AB 5F 00 FE 80 7E 33 D0 1B C2 8A 07 B3 70 C6 21 98 D7 73 FE 42 7E 34 4C 3A D7 4F 32 1F 0D 80 1A 44 D8 72 5A 30 D1 FF 01 7E 03 D0 33 17 3B 38 7A 90 E4 71 D6 0D 88 D0 48 DF 8D 13 0D D0 3C 0E 7F BB FE |
Forward to 20 Minutes: Regular Expressions IV
Back to 20 Minutes: Regular Expressions III Up to PerlInside section index Up to Perl Inside course index |
Perl Inside: PerlInside - 19
Copyright © 1999, Brian Jepson
|