Changeset 3228 in MondoRescue for branches/3.2/MondoRescue/bin
- Timestamp:
- Dec 30, 2013, 10:46:39 AM (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/3.2/MondoRescue/bin/mr-read-all-link
r3226 r3228 8 8 # 9 9 use strict; 10 use Data::Dumper; 10 11 use MondoRescue::File; 11 12 … … 56 57 my $file = mr_file_read_all_link(@ARGV) if (defined $ARGV[0]); 57 58 59 #print Dumper($file); 60 58 61 foreach my $f (sort keys %$file) { 59 print "$f: $file->{$f}\n"; 62 print "$f\n"; 63 print "--\n"; 64 #print Dumper($f); 65 foreach my $l (@{$file->{$f}}) { 66 print "$l\n"; 67 } 68 print "--\n"; 60 69 }
Note:
See TracChangeset
for help on using the changeset viewer.