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: Common.pm
Close
package Archive::Cpio::Common; use Archive::Cpio::FileHandle_with_pushback; use Exporter; our @ISA = qw(Exporter); our @EXPORT = qw(padding write_or_die max begins_with); sub magics() { { "070707" => 'ODC', "070701" => 'NewAscii', "\xC7\x71" => 'OldBinary', # swabbed 070707 "\x71\xC7" => 'OldBinary', # 070707 }; } sub padding { my ($nb, $offset) = @_; my $align = $offset % $nb; $align ? $nb - $align : 0; } sub write_or_die { my ($F, $val) = @_; print $F $val or die "writing failed: $!\n"; } sub max { my $n = shift; $_ > $n and $n = $_ foreach @_; $n } sub begins_with { my ($s, $prefix) = @_; index($s, $prefix) == 0; } 1;