Re: Can this be a 1 line or simpler regex?

$_ = "one\ttwo\nthree four five\r";

s/(\t)|(\n)|(\r)|(\f)/
    ($1 && '\t' || '')
    . ($2 && '\n' || '')
    . ($3 && '\r' || '')
    . ($4 && '\f' || '')
/ge;
[download]

Update:

$_ = "one\ttwo\nthree four five\r";

s/(\t)|(\n)|(\r)|(\f)/
    $1 ? '\t' :
    $2 ? '\n' :
    $3 ? '\r' :
    $4 ? '\f' :
    ''
/ge;
[download]

Makeshifts last the longest.

Comment on Re: Can this be a 1 line or simpler regex? Select or Download Code


Syntactic Confectionery Delight
	PerlMonks