![[BACK]](/icons/back.gif){kind=icon}
Return to post_xml.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / modules / damieng / clean_xml|
Return to post_xml.pm CVS log | Up to [LON-CAPA] / modules / damieng / clean_xml |
| version 1.3, 2015/05/01 20:32:24 | version 1.4, 2015/05/22 19:50:46 |
|---|---|
| Line 2516 sub trim { | Line 2516 sub trim { |
| ## | ## |
| sub string_in_array { | sub string_in_array { |
| my ($array, $value) = @_; | my ($array, $value) = @_; |
| # NOTE: would it be faster to use "any { $value eq $_ } @{$array}" from List::Util ? | |
| foreach my $v (@{$array}) { | foreach my $v (@{$array}) { |
| if ($v eq $value) { | if ($v eq $value) { |
| return 1; | return 1; |