summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/pods/perlpacktut.pod
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlperl/lib/pods/perlpacktut.pod')
-rw-r--r--Master/tlpkg/tlperl/lib/pods/perlpacktut.pod3
1 files changed, 1 insertions, 2 deletions
diff --git a/Master/tlpkg/tlperl/lib/pods/perlpacktut.pod b/Master/tlpkg/tlperl/lib/pods/perlpacktut.pod
index 7d2126a0eaa..2ce56622b75 100644
--- a/Master/tlpkg/tlperl/lib/pods/perlpacktut.pod
+++ b/Master/tlpkg/tlperl/lib/pods/perlpacktut.pod
@@ -73,14 +73,13 @@ remains.
The inverse operation - packing byte contents from a string of hexadecimal
digits - is just as easily written. For instance:
- my $s = pack( 'H2' x 10, map { "3$_" } ( 0..9 ) );
+ my $s = pack( 'H2' x 10, 30..39 );
print "$s\n";
Since we feed a list of ten 2-digit hexadecimal strings to C<pack>, the
pack template should contain ten pack codes. If this is run on a computer
with ASCII character coding, it will print C<0123456789>.
-
=head1 Packing Text
Let's suppose you've got to read in a data file like this: