1N/A Invalid type in unpack: '%c
1N/A my $A = pack ("A,A", 1,2) ;
1N/A my @A = unpack ("A,A", "22") ;
1N/A Attempt to pack pointer to temporary value
1N/Ause warnings 'pack' ;
1N/Ause warnings 'unpack' ;
1N/Amy @a = unpack ("A,A", "22") ;
1N/Amy $a = pack ("A,A", 1,2) ;
1N/Ano warnings 'unpack' ;
1N/Amy @b = unpack ("A,A", "22") ;
1N/Amy $b = pack ("A,A", 1,2) ;
1N/AInvalid type ',' in unpack at - line 4.
1N/AInvalid type ',' in pack at - line 5.
1N/Ause warnings 'uninitialized' ;
1N/Ano warnings 'uninitialized' ;
1N/AUse of uninitialized value in scalar dereference at - line 4.
1N/Ause warnings 'pack' ;
1N/Asub foo { my $a = "a"; return $a . $a++ . $a++ }
1N/Amy $a = pack("p", &foo) ;
1N/Amy $b = pack("p", &foo) ;
1N/AAttempt to pack pointer to temporary value at - line 4.
1N/Ause warnings 'misc' ;
1N/AExplicit blessing to '' (assuming package main) at - line 3.
1N/Ause warnings 'pack' ;
1N/Aprint unpack("C", pack("C", -1)), "\n",
1N/A unpack("C", pack("C", 0)), "\n",
1N/A unpack("C", pack("C", 255)), "\n",
1N/A unpack("C", pack("C", 256)), "\n",
1N/A unpack("c", pack("c", -129)), "\n",
1N/A unpack("c", pack("c", -128)), "\n",
1N/A unpack("c", pack("c", 127)), "\n",
1N/A unpack("c", pack("c", 128)), "\n";
1N/Aprint unpack("C", pack("C", -1)), "\n";
1N/Aprint unpack("C", pack("C", 0)), "\n";
1N/Aprint unpack("C", pack("C", 255)), "\n";
1N/Aprint unpack("C", pack("C", 256)), "\n";
1N/Aprint unpack("c", pack("c", -129)), "\n";
1N/Aprint unpack("c", pack("c", -128)), "\n";
1N/Aprint unpack("c", pack("c", 127)), "\n";
1N/Aprint unpack("c", pack("c", 128)), "\n";
1N/ACharacter in 'C' format wrapped in pack at - line 3.
1N/ACharacter in 'C' format wrapped in pack at - line 3.
1N/ACharacter in 'c' format wrapped in pack at - line 3.
1N/ACharacter in 'c' format wrapped in pack at - line 3.