Help for this page

Select Code to Download


  1. or download this
     2:26 >perl -Mstrict -wE "my @data = ('A: A_value', 'B: B_value'); for
+ (@data) { my $a = (split /: /)[1]; say $a; }"
A_value
B_value

 2:30 >
  2. or download this
     2:30 >perl -Mstrict -wE "my @data = ('A: A_value', 'B: B_value'); for
+ (@data) { my (undef, $a) = split /: /; say $a; }"
A_value
B_value

 2:30 >