diff options
Diffstat (limited to 'pod/perlpacktut.pod')
| -rw-r--r-- | pod/perlpacktut.pod | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/pod/perlpacktut.pod b/pod/perlpacktut.pod index 423ab03ae1..2c5f1ec8d0 100644 --- a/pod/perlpacktut.pod +++ b/pod/perlpacktut.pod @@ -109,7 +109,7 @@ numbers - which we've had to count by hand. So it's error-prone as well as horribly unfriendly. Or maybe we could use regular expressions: - + while (<>) { my($date, $desc, $income, $expend) = m|(\d\d/\d\d/\d{4}) (.{27}) (.{7})(.*)|; @@ -661,7 +661,7 @@ cannot be unpacked naively: # pack a message my $msg = pack( 'Z*Z*CA*C', $src, $dst, length( $sm ), $sm, $prio ); - + # unpack fails - $prio remains undefined! ( $src, $dst, $len, $sm, $prio ) = unpack( 'Z*Z*CA*C', $msg ); |