Many builtin built-in functions accept a regex pattern as an argument. Furthermore, any subroutine can accept a string , yet treat it as a regex pattern. This could be done, for example, by passing the string to the match operator (m//). Because regex patterns are encoded as regular strings, it is tempting to assume that a string literal will be treated as if a regex that matched only that string literal was were supplied. This can lead to unexpected Unexpected function behavior can result if the string contains characters that have special meanings when the string is treated as a regex pattern. Therefore, do not pass strings that are not clearly regex patterns to a function that takes a regex.
...
| Code Block | ||||
|---|---|---|---|---|
| ||||
my $data = 'Tom$Dick$Harry';
my @names = split( '$', $data);
|
But the first argument to split() is treated as a regex pattern. Because $ indicates the end of the string, no splitting ever occurs.
Compliant Solution
This compliant solution passes a regex pattern to split() as the first argument, properly specifying $ as a raw character. SonsequentlyConsequently, @names is assigned the three names : Tom, Dick, and Harry.
| Code Block | ||||
|---|---|---|---|---|
| ||||
my $data = 'Tom$Dick$Harry';
my @names = split( m/\$/, $data);
|
Exceptions
Wiki Markup PATTERN}}, the first argument to {{split()}}:{quote}}
As a special case, specifying a PATTERN of space (
' ') will split on white space just as "split" with no arguments does. Thus, "split(' ')" can be used to emulate awk's default behavior, whereas "split(/ /)" will give you as many initial null fields (empty string) as there are leading spaces.
...
Risk Assessment
Recommendation | Severity | Likelihood | Remediation Cost | Priority | Level |
|---|---|---|---|---|---|
STR31-PL | low Low | likely Likely | low Low | P9 | L2 |
Automated Detection
Tool | Diagnostic |
|---|---|
Perl::Critic | BuiltinFunctions::ProhibitStringySplit |
Bibliography
...
...
| [CPAN |
...
...
...
|http://search.cpan.org/dist/Perl-Critic/lib/Perl/Critic/Policy/Subroutines/ProhibitSubroutinePrototypes.pm]
\[[Wall 2011|AA. Bibliography#Manpages]\] [perlfunc|http://perldoc.perl.org/perlfunc.html]EXP30-PL. Do not use deprecated or obsolete functions 02. Expressions