home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Acorn User 10
/
AU_CD10.iso
/
Updates
/
Perl
/
Non-RPC
/
!Perl
/
scripts
/
chunklist
< prev
next >
Wrap
Text File
|
1998-07-14
|
603b
|
34 lines
#!perl -w
# Version 0.01
use strict;
use RISCOS::Chunkfile;
use RISCOS::File 'globlist';
use RISCOS::Filespec;
use vars qw($VERSION);
$VERSION = 0.01;
sub do_file
{
my $file = shift;
my $chunks = new RISCOS::Chunkfile shift;
# So that name and data source can differ
unless ($chunks) {
warn "'$file' is not a chunkfile";
}
else
{
foreach my $chunk (@{$chunks->Chunks}) {
printf "%-3d %8s at &%06X %d\n",
$chunk->Index, $chunk->ID, $chunk->Offset, $chunk->Length;
}
}
}
foreach (globlist(@ARGV))
{
do_file ($_, $_);
}