OXIESEC PANEL
- Current Dir:
/
/
usr
/
share
/
perl5
/
Archive
/
Cpio
Server IP: 139.59.38.164
Upload:
Create Dir:
Name
Size
Modified
Perms
📁
..
-
10/28/2024 06:50:13 AM
rwxr-xr-x
📄
Common.pm
706 bytes
11/01/2015 03:23:05 PM
rw-r--r--
📄
File.pm
229 bytes
05/14/2012 08:34:52 AM
rw-r--r--
📄
FileHandle_with_pushback.pm
774 bytes
11/01/2015 03:23:05 PM
rw-r--r--
📄
NewAscii.pm
2.29 KB
11/01/2015 03:23:05 PM
rw-r--r--
📄
ODC.pm
1.92 KB
11/01/2015 03:23:05 PM
rw-r--r--
📄
OldBinary.pm
2.2 KB
11/01/2015 03:23:05 PM
rw-r--r--
Editing: FileHandle_with_pushback.pm
Close
package Archive::Cpio::FileHandle_with_pushback; sub new { my ($class, $F) = @_; bless { F => $F, already_read => '' }, $class; } sub pushback { my ($FHwp, $s) = @_; $FHwp->{already_read} .= $s; } sub read { my ($FHwp, $size) = @_; $size or return; $size =~ /^\d+$/ or die "bad size $size\n"; my $tmp = ''; if ($FHwp->{already_read}) { $tmp = substr($FHwp->{already_read}, 0, $size); substr($FHwp->{already_read}, 0, $size) = ''; $size -= length($tmp); } read($FHwp->{F}, $tmp, $size, length($tmp)) == $size or die "unexpected end of file while reading (got $tmp)\n"; $tmp; } sub read_ahead { my ($FHwp, $size) = @_; my $s = $FHwp->read($size); $FHwp->pushback($s); $s; } 1;