- or download this
my ( $ino, $off, $len, $name ) = unpack( "LLSZ*", $buf );
- or download this
my ( $ino, $off, $len, $name ) = unpack( "L!L!SZ*", $buf );
- or download this
[me@localhost ~]$ ./test2.pl -d sample/ | head
sample/xaaaaaaaaff
...
sample/xaaaaaaabhy
sample/xaaaaaaabjv
sample/xaaaaaaaaxa