in reply to Re^2: Match any characters
in thread Match any characters
Cleaner to do that with a number of matches:
use warnings; use strict; use Data::Dumper; while (<DATA>) { if (/logger\s+"([^"]*)",(\w+),(.*)/s) { print "logger " . ('X' x length $1) . ',' . ('X' x length $2) +. ",$3"; } elsif (/logger\s+([^,]*),"([^"]*)"(,?.*)/s) { print "logger $1," . ('X' x length $2) . "$3"; } elsif (/logger\s+([^,]*),(\w+)(,?.*)/s) { print "logger $1," . ('X' x length $2) . "$3"; } } __DATA__ logger abc@def,"werty^%$&" logger ab$Łef,12trsgh logger "765)(?>jh",hhhhhh,joebloggs logger "7,)(?>jh",yyyyyyy,fredbloggs
Prints:
logger abc@def,XXXXXXXXX logger ab$Łef,XXXXXXX logger XXXXXXXXX,XXXXXX,joebloggs logger XXXXXXXX,XXXXXXX,fredbloggs
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re^4: Match any characters
by Anonymous Monk on Feb 10, 2006 at 11:52 UTC |