Help for this page
next if ($element eq $compare);
($front, $back) = split /:/, $compare; if ( $compare =~ /:$back$/ ) { # do something }
$moduloc = () = $compare =~ /X(\d+):/; # Grab the divisor. $moduloe = () = $element =~ /X(\d+):/; # Grab the other one. ... if ( not ($moduloe)%($moduloc) ) { # Do something. }
www.com | www.net | www.org
No recent polls found