Help for this page

Select Code to Download


  1. or download this
    if ( join("->",$a,$b,$c,$d,$e) eq join '->',qw(a c c d e)) {
        print "success\n";
    ...
    else {
        print "failure\n";
    }