home *** CD-ROM | disk | FTP | other *** search
- #!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 ($_, $_);
- }
-