in reply to Re^2: How to get split $var to work like split ' '?
in thread How to get split $var to work like split ' '?
You may also want to use quotemeta. e.g.
ski@anito:~$ perl -e 'use strict; use warnings; my $x = "a.*b.*c.*d"; my $pattern = ".*"; my @x = split /$pattern/, $x; print join " - ",@x'
ski@anito:~$
vs.
ski@anito:~$ perl -le 'use strict; use warnings; my $x = "a.*b.*c.*d"; my $pattern = quotemeta(".*"); my @x = split /$pattern/, $x; print join " - ",@x'
a - b - c - d
ski@anito:~$
|
|---|