Generer hex data i perl?

[davyzhu]

Hei alle,

Jeg vil skrive en perl skript til å generere hex data,
kommandoen kanskje "perl hex.pl hex_file start_hex end_hex".

Eg start_hex er 00b5 og end_hex er 00be, den hex_file
ser slik ut:

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

Er det mulig?Takk!

BTW, hvis jeg ønsker å generere en binær liste som denne hex en, hvordan?

Davy

 

[stormwolf]

Du kan prøve funksjonen "pakke" i perl.

 

[nand_gates]

Her er scriptet hex.pl

Code:

#! / usr / bin / perl-w

$ start_hex = $ argv [1];

$ end_hex = $ argv [2];

open (output, "> $ argv [0]") or die "FEIL: Kan ikke åpne $ argv [0]. \ n"; # Open output file

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

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

)