nullselect — split input on \0 (null) characters and return first non-empty string
The filter splits input on \0
(null) characters
and returns the first non-empty string found.
The filter is suitable for retrieving values out of HTML Combo boxes.
For more information on Perl Regular Expressions, pattern matching and character classes, see perlre(1).
Interchange 5.9.0:
Source: code/Filter/nullselect.filter
Lines: 21
# Copyright 2002-2007 Interchange Development Group and others # Copyright 1996-2002 Red Hat, Inc. # # This program is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 2 of the License, or # (at your option) any later version. See the LICENSE file for details. # # $Id: nullselect.filter,v 1.4 2007-03-30 23:40:45 pajamian Exp $ CodeDef nullselect Filter CodeDef nullselect Description Combo box CodeDef nullselect Routine <<EOR sub { my @some = split /\0+/, shift; for(@some) { return $_ if length $_; } return ''; } EOR