Sukurti HEX duomenų perl?

[davyzhu]

Hello all,

Aš noriu rašyti perl scenarijų kūrimo HEX duomenų
komanda gal "Perl hex.pl hex_file start_hex end_hex".

Pvz start_hex yra 00b5 ir end_hex yra 00be, hex_file
atrodys taip:

00b5
00b6
00b7
00b8
00b9
00ba
00bb
00bc
00bd
00be

Ar tai įmanoma?Ačiū!

BTW, jei aš noriu kurti dvejetainiai sąrašą Panašios HEX viena, kaip?

Davy

 

[stormwolf]

Galite pabandyti funkcija "pakuotė" Perl.

 

[nand_gates]

Čia yra script hex.pl

Kodas

#! / usr / bin / perl-w

$ start_hex = $ ARGV [1];

$ end_hex = $ ARGV [2];

open (OUTPUT, "> $ ARGV [0]") or die "Klaida: Nepavyko atidaryti $ ARGV [0]. \ n" # Open išvesties failą

for ($ i = hex ($ start_hex); $ i <= hex ($ end_hex); $ i ) (

OUTPUT printf "% .4 x \ n" "$ i";

)