regex: Use BOUNDU regnodes
[perl.git] / symbian / hexdump.pl
1 #!/usr/bin/perl -w
2
3 use strict;
4
5 die "$0: EPOCROOT unset\n" unless exists $ENV{EPOCROOT};
6 die "$0: EPOCROOT directory does exists\n" unless -d $ENV{EPOCROOT};
7
8 my $EPOC32 = "$ENV{EPOCROOT}epoc32";
9 my $EXE = "$EPOC32\\release\\thumb\\urel\\perlapp.app";
10 my $RSC = "$EPOC32\\data\\z\\system\\apps\\perlapp\\perlapp.rsc";
11
12 use Fcntl qw(O_RDONLY);
13
14 my %new = ($EXE => 'perlappmin.hex',
15            $RSC => 'perlrscmin.hex');
16
17 for my $fn ($EXE, $RSC) {
18     if (sysopen(my $fh, $fn, O_RDONLY)) {
19         my $buffer;
20         my $size = -s $fn;
21         my $read;
22         my $newfn = $new{$fn};
23         unlink($newfn);
24         if (($read = sysread($fh, $buffer, $size)) == $size) {
25             if (open(my $newfh, ">$newfn")) {
26                 binmode($newfh);
27                 print $newfh unpack("H*", $buffer);
28                 close($newfh);
29                 print "Created $newfn\n";
30             } else {
31                 die qq[$0: open ">$newfn" failed: $!\n];
32             }
33         } else {
34             die qq[$0: sysread $size returned $read\n];
35         }
36         close($fh);
37     } else {
38         die qq[$0: sysopen "$fn": $!\n];
39     }
40 }
41