Select Code to Download

$ head hardlist.txt
00000000  42 ed 09 00 00 00 00 00  01 00 00 00 00 00 00 00  |B........
+.......|
00000010  18 00 2e 00 00 00 00 04  e2 6c 08 00 00 00 00 00  |.........
+l......|
...
00000070  61 61 61 66 66 00 00 08  54 f0 09 00 00 00 00 00  |aaaff...T
+.......|
00000080  cb ed 09 00 00 00 00 00  a1 07 1e 00 00 00 00 00  |.........
+.......|
00000090  20 00 78 61 61 61 61 61  61 61 61 66 66 00 00 08  | .xaaaaaa
+aaff...|

head perldata.txt
00000000  42 ed 09 00 00 00 00 00  01 00 00 00 00 00 00 00  |B........
+.......|
...
00000070  f7 f0 09 00 00 00 00 00  c8 13 67 00 00 00 00 00  |.........
+.g.....|
00000080  20 00 78 61 61 61 61 61  61 61 62 6a 77 00 00 08  | .xaaaaaa
+abjw...|
00000090  c5 ee 09 00 00 00 00 00  6e 5c 6d 00 00 00 00 00  |........n
+\m.....|

[me@localhost ~]$ ls -l sample | head | cut -d ' ' -f 10
xaaaaaaaaaa
...
xaaaaaaaaag
xaaaaaaaaah
xaaaaaaaaai

#define _GNU_SOURCE
#include <dirent.h>     /* Defines DT_* constants */
...
   fclose(fn);
   exit(EXIT_SUCCESS);
}

#!/usr/bin/env perl
use warnings;
...
        $read -= $len;
    }
}

open("/home/alcjunio/hardlist.output", O_WRONLY|O_CREAT|O_TRUNC, 0666)
+ = 4
getdents(3, /* 1002 entries */, 5242880) = 32048
...
munmap(0x7f696e37a000, 4096)            = 0
write(1, "aaaaaama\nxaaaaaaaado\nxaaaaaaaajw"..., 3813) = 3813
exit_group(0)                           = ?

open("sample/", O_RDONLY|O_DIRECTORY)   = 3
ioctl(3, SNDCTL_TMR_TIMEBASE or TCGETS, 0x7fff56bc6bf0) = -1 ENOTTY (I
+nappropriate ioctl for device)
...
rt_sigaction(SIGIO, NULL, {SIG_DFL, [], 0}, 8) = 0
rt_sigaction(SIGSYS, NULL, {SIG_DFL, [], 0}, 8) = 0
exit_group(0)                           = ?

printf "format s is %d, s! is %d\n", length pack("s"), length pack("s!
+");
printf "format l is %d, l! is %d\n", length pack("l"), length pack("l!
+");

[me@localhost ~]$ ./test3.pl 
format s is 2, s! is 2
format l is 4, l! is 8