From 898184e3e61f9129feb5978fad5a8c6865f00b92 Mon Sep 17 00:00:00 2001 From: sthen Date: Mon, 25 Mar 2013 20:06:16 +0000 Subject: import perl 5.16.3 from CPAN - worked on by Andrew Fresh and myself --- gnu/usr.bin/perl/pod/perlpacktut.pod | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) (limited to 'gnu/usr.bin/perl/pod/perlpacktut.pod') diff --git a/gnu/usr.bin/perl/pod/perlpacktut.pod b/gnu/usr.bin/perl/pod/perlpacktut.pod index 7d2126a0eaa..2ce56622b75 100644 --- a/gnu/usr.bin/perl/pod/perlpacktut.pod +++ b/gnu/usr.bin/perl/pod/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, 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: -- cgit v1.2.3-59-g8ed1b