3 Invalid type in unpack: '%c
4 my $A = pack ("A,A", 1,2) ;
5 my @A = unpack ("A,A", "22") ;
7 Attempt to pack pointer to temporary value
13 use warnings 'unpack' ;
14 my @a = unpack ("A,A", "22") ;
15 my $a = pack ("A,A", 1,2) ;
17 no warnings 'unpack' ;
18 my @b = unpack ("A,A", "22") ;
19 my $b = pack ("A,A", 1,2) ;
21 Invalid type in unpack: ',' at - line 4.
22 Invalid type in pack: ',' at - line 5.
25 use warnings 'uninitialized' ;
28 no warnings 'uninitialized' ;
31 Use of uninitialized value in scalar dereference at - line 4.
35 sub foo { my $a = "a"; return $a . $a++ . $a++ }
36 my $a = pack("p", &foo) ;
38 my $b = pack("p", &foo) ;
40 Attempt to pack pointer to temporary value at - line 4.
48 Explicit blessing to '' (assuming package main) at - line 3.
58 print unpack("C", pack("C", -1)), "\n",
59 unpack("C", pack("C", 0)), "\n",
60 unpack("C", pack("C", 255)), "\n",
61 unpack("C", pack("C", 256)), "\n",
62 unpack("c", pack("c", -129)), "\n",
63 unpack("c", pack("c", -128)), "\n",
64 unpack("c", pack("c", 127)), "\n",
65 unpack("c", pack("c", 128)), "\n";
67 print unpack("C", pack("C", -1)), "\n";
68 print unpack("C", pack("C", 0)), "\n";
69 print unpack("C", pack("C", 255)), "\n";
70 print unpack("C", pack("C", 256)), "\n";
71 print unpack("c", pack("c", -129)), "\n";
72 print unpack("c", pack("c", -128)), "\n";
73 print unpack("c", pack("c", 127)), "\n";
74 print unpack("c", pack("c", 128)), "\n";
76 Character in "C" format wrapped at - line 3.
77 Character in "C" format wrapped at - line 3.
78 Character in "c" format wrapped at - line 3.
79 Character in "c" format wrapped at - line 3.