in reply to Can this be a 1 line or simpler regex?
Update:$_ = "one\ttwo\nthree four five\r"; s/(\t)|(\n)|(\r)|(\f)/ ($1 && '\t' || '') . ($2 && '\n' || '') . ($3 && '\r' || '') . ($4 && '\f' || '') /ge;
$_ = "one\ttwo\nthree four five\r"; s/(\t)|(\n)|(\r)|(\f)/ $1 ? '\t' : $2 ? '\n' : $3 ? '\r' : $4 ? '\f' : '' /ge;
Makeshifts last the longest.
|
---|
In Section
Seekers of Perl Wisdom