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:~$
In reply to Re^3: How to get split $var to work like split ' '?
by brianski
in thread How to get split $var to work like split ' '?
by QM
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |