Help for this page

Select Code to Download


  1. or download this
    >perl -le"'abc1def2' =~ /(?:([a-z])(?{ print $^N }))+2/"
    a
    ...
    d
    e
    f
    
  2. or download this
    use strict;
    use warnings;
    ...
       or die("No solution\n");
    
    print( join('-', @list), "\n" );  # abd-a-abc
    
  3. or download this
    ...
    
    ...
    die("No solution\n") if !@list;
    
    print("$_\n") for @list;
    
  4. or download this
    abd-a-a-bc
    abd-a-abc