Help for this page

Select Code to Download


  1. or download this
    use strict;
    use warnings;
    ...
    ("P1", "P2", "P3")
    ("P1", "P3")
    ("P1", "P3")
    
  2. or download this
    use strict;
    use warnings;
    ...
    $rv = split( ( @par[ 0, 1 ] ) );       # NOK W1
    $rv = split( map { $_ } @par );        # NOK W1
    $rv = split( ( map { $_ } @par ) );    # NOK W1
    
  3. or download this
    #!/usr/bin/perl -w
    
    ...
    # pm_empty_list.pl:10: "a"
    # pm_empty_list.pl:11: undef
    # pm_empty_list.pl:13: undef
    
  4. or download this
    # pm_empty_list.pl:11: undef
    # pm_empty_list.pl:13: undef
    
  5. or download this
    # pm_empty_list.pl:11: "a"
    # pm_empty_list.pl:13: "a"