X-Git-Url: https://git.archive.openwrt.org/?p=project%2Fluci.git;a=blobdiff_plain;f=contrib%2Flar%2Flar.pl;h=2f9f3dd65f5da54493616cfec9e5cc68213500ff;hp=56e4897958a7419dcb076106db1936a10e184376;hb=acf5ea72c70ddbdb90b18a2ae1169ad82e455876;hpb=bf1cbdd8389d5e7067b03c1f10e9fbcb3756ccf4 diff --git a/contrib/lar/lar.pl b/contrib/lar/lar.pl index 56e489795..2f9f3dd65 100755 --- a/contrib/lar/lar.pl +++ b/contrib/lar/lar.pl @@ -38,10 +38,10 @@ foreach my $file ( @ARGV ) } } - +my $count = 1; foreach my $file ( @index ) { - warn sprintf "Index: 0x%08X 0x%08X 0x%08X 0x%08X\n", $file->[0], $file->[1], $file->[2], $file->[3]; + warn sprintf "Index[%4d]: 0x%08X 0x%08X 0x%08X 0x%08X\n", $count++, $file->[0], $file->[1], $file->[2], $file->[3]; print pack "NNNNnn", $file->[0], $file->[1], $file->[2], $file->[3], 0x0000, 0x0000; }