( my ($num) = ( $id =~ /(\d+)/ ) ) or next;
The first thing that happens is that $id is matched against /(\d+)/.
If it matches, a list of all the captured data (that which the content of parens in the pattern matched) is returned by the match operator. The first (and only) element of that list is assigned to $num. The assignment returns 1 (the size of the list returned by the match), so next is skipped.
If it doesn't matches, an empty list is returned. undef is assigned to $num (which won't be used). The assignment returns zero (the size of the list returned by the match), so next is evaluated and the rest of the loop is skipped.
All of these operators (match, list assignment and or) are documented in perlop.
In reply to Re^3: Search Hash with array element Help!
by ikegami
in thread Search Hash with array element Help!
by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |