$foo = 99; # Assigns the integer 99 to $foo. Scalar context.
@Foo = ('Jack', 5, 'Jill', 4, 'John', 7); # A list assigned to @foo, values separated by commas.
%foo = ('Jack', 5, 'Jill', 4, 'John', 7); # A list as key, value pairs. Better ways to write this exist.
####
$ perl -MPDL -e "print $PDL::VERSION;"
##
##
$ perl -MPDL -e "$arr = sequence(10); print $arr;"
##
##
$ perl -MPDL -e "$arr = ones(3,3), print $arr;"
##
##
$ perl -MPDL -e "$arr = sequence(10); $odd = where($arr, ($arr%2) == 1); print $odd;"
##
##
Input: [0, 1, 2, 3, 4, 5, 6, 7, 8, 9]
Output: [ 0, -1, 2, -1, 4, -1, 6, -1, 8, -1]
##
##
perl -MPDL -e "$arr = sequence(10); $odd = $arr->where($arr % 2 == 1); $odd .= -1 ; print $arr;"
##
##
Input: [0, 1, 2, 3, 4, 5, 6, 7, 8, 9]
Output: [0, 1, 2, 3, 4, 5, 6, 7, 8, 9] [ 0, -1, 2, -1, 4, -1, 6, -1, 8, -1]
##
##
$ perl -MPDL -e "$arr = sequence(10); $out = sequence(10); $odd = $arr->where($arr %2 == 1); $odd .= -1; print $out, $arr;"
##
##
Input: [ 0, 1, 2, 3, 4, 5, 6, 7, 8, 9]
Output: [ [0, 1, 2, 3, 4],
[5, 6, 7, 8, 9] ]
##
##
$ perl -MPDL -e "$seq = sequence(10); $seq_1 = $seq->reshape(5,2); print $seq_1;"
##
##
Input: a = [0,1,2,3,4,5,6,7,8,9]
b = [1,1,1,1,1,1,1,1,1,1]
Output: [[0, 1, 2, 3, 4],
[5, 6, 7, 8, 9],
[1, 1, 1, 1, 1],
[1, 1, 1, 1, 1]]
##
##
$ perl -MPDL -e "$arr_a = sequence(10); $arr_b = ones(10); $out = pdl( $arr_a, $arr_b )->reshape( 5,4 ) ; print $out; "
##
##
Output: [[0, 1, 2, 3, 4, 1, 1, 1, 1, 1],
[5, 6, 7, 8, 9, 1, 1, 1, 1, 1]]
##
##
perl -MPDL -e "$arr_a = sequence(10)->reshape(5,2); $arr_b = ones(10)->reshape(5,2); print append( $arr_a, $arr_b );"