Thử thách

Tạo một chương trình điều khiển để hiển thị từng byte của một tệp.

Chiến thắng

Vì đây là môn đánh gôn , nên ít byte nhất sẽ thắng.

Quy tắc

• Chương trình phải là một ứng dụng giao diện điều khiển , nghĩa là nó sẽ được chạy từ một loại trình thông dịch dòng lệnh;
• Mỗi byte phải là chữ thập lục phân, cách nhau bởi một khoảng trắng và nó phải có 2 chữ số; (đặt số 0 trước nó nếu nó có 1 chữ số)
• Tệp phải được đọc bằng IO hoặc thay thế, và không được mã hóa cứng;
• Đường dẫn tệp phải được chỉ định làm đối số dòng lệnh hoặc dấu nhắc người dùng (như STDIN) ;
• Xin vui lòng không có sơ hở ;

Thí dụ

test.txt (kết thúc bằng LF)

Hello World!

$ ./hexdump.exe test.txt
48 65 6C 6C 6F 20 57 6F 72 6C 64 21 0A

C (gcc) trên * nix, 73 71 byte

i;main(c,v)int**v;{for(c=open(v[1],0);read(c,&i,1);printf("%02X ",i));}

Hãy thử trực tuyến! Bộ kiểm tra

-2 byte nhờ Johan du Toit

Điều này dựa vào O_RDONLY == 0và ở int_one == 1đâu int int_one; *(char*)&int_one = 1;.

Ruby , 26 byte

$<.bytes{|b|$><<"%02X "%b}

Hãy thử trực tuyến!

PowerShell , 45 40 byte

"$(gc $args -ra|% *ay|%{'{0:X2}'-f+$_})"

Hãy thử trực tuyến!

-5 byte nhờ mazzy

Java 11, 156 154 byte

import java.nio.file.*;interface M{static void main(String[]a)throws Exception{for(int b:Files.readAllBytes(Path.of(a[0])))System.out.printf("%02X ",b);}}

-2 byte nhờ @Holger .

Hãy thử trực tuyến bằng cách sử dụng ./.input.tiolàm đường dẫn tệp đối số, sẽ có đầu vào đã cho dưới dạng nội dung tệp.

Giải trình:

import java.nio.file.*;        // Required import for Files and Paths
interface M{                   // Class
  static void main(String[]a)  //  Mandatory main method
      throws Exception{        //  With mandatory thrown clause for the readAllBytes builtin
                                         a[0]    // Get the first argument
                                 Path.of(    )   // Get the file using that argument as path
              Files.readAllBytes(             )  // Get all bytes from this file
    for(int b:                                 ) // Loop over each of them:
      System.out.printf(                         //  And print the current byte
                        "%02X ",b);}}            //  As uppercase hexadecimal with leading 0
                                                 //  and trailing space as delimiter

PHP , 60 59 54 byte

<?=wordwrap(bin2hex(implode(file($argv[1]))),2,' ',1);

• -1 byte nhờ manassehkatz
• -5 byte nhờ Blackhole

Hãy thử trực tuyến!

Perl 5 ( -aF//), 23 byte

printf"%02X ",ord for@F

TIO

APL (Unicode Dy) , 16 byte

Chức năng tiền tố ẩn danh. Trả về (và in hoàn toàn, nếu giá trị không được tiêu thụ theo cách khác) một ma trận hai hàng với 4 bit trên cùng được biểu thị dưới dạng số thập phân 01515 ở hàng trên cùng và 4 bit dưới cùng được biểu thị tương tự ở hàng dưới cùng. Nghĩa là, ma trận có nhiều cột như tệp có byte.

16 16⊤83 ¯1∘⎕MAP

Hãy thử trực tuyến!

⎕MAP ánh xạ tên tệp đối số thành một mảng
∘ với các tham số:
¯1 toàn bộ chiều dài của tệp
83 được đọc dưới dạng số nguyên 8 bit

16 16⊤ chuyển đổi (chống cơ sở) thành thập lục phân 2 vị trí

Python 3, 59 byte

-11 byte nhờ Hầu hết vô hại!

-8 byte nhờ James K Polk!

-24 byte nhờ màu xanh!

print(' '.join('%02X'%ord(i)for i in open(input()).read()))

Hãy thử trực tuyến!

Việc này thật thẳng thắn; nó mở một tên tệp được đưa ra làm đầu vào trên STDIN, đọc nó, chuyển đổi từng ký tự thành giá trị ASCII của nó, chuyển đổi từng số thành hex, loại bỏ các "0x"giá trị hexad trước đó trong Python, đệm giá trị bằng 0 nếu cần, sau đó nối các giá trị cùng với không gian.

Bash ,  33  23 byte

... với rất nhiều sự giúp đỡ:
-3 nhờ vào manatwork
-4 nhờ vào spuck
-3 nhờ Nahuel Fouilleul

echo `xxd -c1 -p -u $1`

Hãy thử trực tuyến!

Lưu ý rằng liên kết TIO ở trên sử dụng đầu vào - chúng ta có thể ghi tệp cục bộ, do đó, điều này cho thấy nó hoạt động như một chương trình lấy đường dẫn tệp.

Kotlin , 130 127 104 93 92 byte

fun main(a:Array<String>){java.io.File(a[0]).readBytes().forEach{print("%02X ".format(it))}}

Hãy thử trực tuyến!

Chỉnh sửa: -11 byte nhờ @ChrisParton

Chỉnh sửa: Làm việc TIO

Chỉnh sửa: -1 byte nhờ @KevinCruijssen

Phi tiêu , 140 134 byte

import'dart:io';main(a){print(new File(a[0]).readAsBytesSync().map((n)=>n.toRadixString(16).toUpperCase().padLeft(2,'0')).join(' '));}

Hãy thử trực tuyến!

-6 byte vì tôi quên giảm tên biến

Haskell, 145 143 byte

import System.Environment
import Text.Printf
import Data.ByteString
main=getArgs>>=Data.ByteString.readFile.(!!0)>>=mapM_(printf"%02X ").unpack

Rust, 141 byte (phiên bản đóng góp)

use std::{io::*,fs::*,env::*};fn main(){for x in File::open(args().nth(1).unwrap()).unwrap().bytes(){print!("{:02X} ",x.unwrap())}println!()}

Rust, 151 byte (phiên bản gốc)

fn main(){std::io::Read::bytes(std::fs::File::open(std::env::args().nth(1).unwrap()).unwrap()).map(|x|print!("{:02X} ",x.unwrap())).count();println!()}

bash + Stax, 6 + 4 + 1 = 11 byte

Đây là lý thuyết hoàn chỉnh thủ công vào thời điểm này. Bạn thực sự không thể chạy cái này. Nếu mọi thứ hoạt động theo thông số kỹ thuật của nó thì nó sẽ hoạt động, nhưng không phải mọi thứ đều chưa.

Kịch bản bash là

]<$1

và chương trình stax phải được biên dịch và lưu vào] là

╛↕ßú┼_

Đặt ký tự của bạn thành ISO 8859-1 (Windows-1252 sẽ không hoạt động ở đây) và đi

Giải nén và giải thích

_          push all input as a single array
F          run the rest of the program for each element of the array
 |H        write the hex of the byte to standard output
 |         write a space to standard output

Biểu tượng cảm xúc , 186 162 byte

📦files🏠🏁🍇🔂b🍺📇🐇📄🆕🔡👂🏼❗️❗️🍇👄📫🍪🔪🔡🔢b❗️➕256 16❗️1 2❗️🔤 🔤🍪❗️❗️🍉🍉

Hãy thử trực tuyến tại đây.

Ung dung:

📦 files 🏠  💭 Import the files package into the default namespace
🏁 🍇  💭 Main code block
🔂 b  💭 For each b in ...
  🍺  💭 (ignoring IO errors)
  📇 🐇 📄  💭 ... the byte representation of the file ...
  🆕 🔡 👂🏼  💭 ... read from user input:
  ❗️ ❗️ 🍇
    👄  💭 Print ...
    📫  💭 ... in upper case (numbers in bases > 10 are in lower case) ...
    🍪  💭 ... the concatenation of:
      🔪 🔡 🔢 b ❗️ ➕ 256  💭 b + 256 (this gives the leading zero in case the hex representation of b is a single digit) ...
              16  💭 ... represented in hexadecimal ...
           ❗️
         1 2  💭 ... without the leading one,
      ❗️
      🔤 🔤  💭 ... and a space
    🍪
    ❗️❗️
  🍉
🍉

Perl 6 , 45 byte

@*ARGS[0].IO.slurp(:bin).list.fmt('%02X').say

Hãy thử trực tuyến!

• @*ARGS[0] là đối số dòng lệnh đầu tiên.
• .IObiến tên tệp (giả định) đó thành một IO::Pathđối tượng.
• .slurp(:bin)đọc toàn bộ tập tin vào một Bufbộ đệm byte. (Nếu không có :binnội dung tệp sẽ được trả về dưới dạng chuỗi Unicode.)
• .list trả về một danh sách các giá trị byte từ bộ đệm.
• .fmt('%02X')là một Listphương thức định dạng các thành phần của danh sách bằng chuỗi định dạng đã cho, sau đó nối chúng với khoảng trắng. (Tiện lợi!)
• .say in chuỗi đó.

D , 98 byte

import std;void main(string[]s){File(s[1]).byChunk(9).joiner.each!(a=>writef("%02X ",a.to!byte));}

Hãy thử trực tuyến!

Python 3, 75 byte

Chủ yếu là một bản sao của câu trả lời python 2 của Maxwell.

import sys
print(' '.join('%02X'%b for b in open(sys.argv[1],'rb').read()))

Vợt, 144 byte

Nội dung gửi này không tạo ra một khoảng trắng ở cuối và không có dòng mới. Hãy cho tôi biết nếu điều này được coi là một lỗ hổng :)

(command-line #:args(f)(for([b(call-with-input-file f port->bytes)])(printf"~a "(string-upcase(~r b #:base 16 #:min-width 2 #:pad-string"0")))))

Làm sạch

(command-line #:args (f)
 (for ([b (call-with-input-file f port->bytes)])
   (printf "~a "
           (string-upcase
            (~r b #:base 16 #:min-width 2 #:pad-string "0")))))

Forth (gforth) , 71 byte

: f slurp-file hex 0 do dup c@ 0 <# # # #> type space 1+ loop ;
1 arg f

Hãy thử trực tuyến!

TIO có 3 arg dòng cuối cùng vì TIO chuyển "-e bye" cho trình phân tích cú pháp dòng lệnh trước khi chuyển mã

Giải thích mã

: f             \ start a function definition
  slurp-file    \ open the file indicated by the string on top of the stack,
                \ then put its contents  in a new string on top of the stack
  hex           \ set the interpreter to base 16
  0 do          \ loop from 0 to file-length - 1 (inclusive)
    dup c@      \ get the character value from the address on top of the stack
    0 <# # # #> \ convert to a double-length number then convert to a string of length 2
    type        \ output the created string 
    space       \ output a space 
    1+          \ add 1 to the current address value
  loop          \ end the loop
;               \ end the word definition
1 arg f         \ get the filename from the first command-line argument and call the function

Javascript, 155 byte

for(b=WScript,a=new ActiveXObject("Scripting.FileSystemObject").OpenTextFile(b.Arguments(0));;b.echo(('0'+a.read(1).charCodeAt(0).toString(16)).slice(-2)))

VBScript, 143 byte

set a=CreateObject("Scripting.FileSystemObject").OpenTextFile(WScript.Arguments(0)):while 1 WScript.echo(right("0"+Hex(Asc(a.read(1))),2)):wend

Ngôn ngữ Wolfram (Mathicala) , 94 89 byte

Print@ToUpperCase@StringRiffle@IntegerString[BinaryReadList@Last@$ScriptCommandLine,16,2]

Hãy thử trực tuyến!

Mã này khá tự giải thích vì tên lệnh dài. Nó nên được đọc chủ yếu từ phải sang trái:

$ScriptCommandLine       is a list of {scriptname, commandlinearg1, commandlinearg2, ...}
Last@...                 extracts the last command-line argument
BinaryReadList@...       reads the named file into a list of bytes
IntegerString[...,16,2]  converts each byte to a 2-digit hex string (lowercase)
StringRiffle@...         converts this list of strings into a single string with spaces
ToUpperCase@...          converts the string to uppercase
Print@...                prints the result to stdout

Gema , 45 ký tự

?=@fill-right{00;@radix{10;16;@char-int{?}}} 

Chạy mẫu:

bash-5.0$ gema '?=@fill-right{00;@radix{10;16;@char-int{?}}} ' <<< 'Hello World!'
48 65 6C 6C 6F 20 57 6F 72 6C 64 21 0A 

Hãy thử trực tuyến!

Bình thường , 12 byte

jdcr1.Hjb'w2

Hãy thử trực tuyến!

Đưa đầu vào là dấu nhắc người dùng (không có cách nào để truy cập các đối số dòng lệnh AFAIK).

jd           # join on spaces
  c        2 # chop into pieces of length 2
   r1        # convert to uppercase
     .H      # convert to hex string, interpreting as base 256 (*)
       jb    # join on newlines
         '   # read file as list of lines
          w  # input()

(*) Tôi không chắc chắn 100% nếu điều này được dự định, nhưng một chữ số 256 cơ sở (như trong một ký tự), sẽ luôn chuyển đổi thành chính xác 2 chữ số hex, loại bỏ sự cần thiết phải đệm bằng số không.

Node.js, 118 byte

console.log([...require("fs").readFileSync(process.argv[2])].map(y=>(y<16?0:"")+y.toString(16).toUpperCase()).join` `)

Kết quả trông như thế nào:

Btw nội dung test.txttrong ví dụ như sau:

做乜嘢要輸出大楷姐，搞到要加番toUpperCase()去轉番，咁就13byte啦。

(Tại sao trên trái đất là đầu ra chữ hoa cần thiết. Tôi đã phải thêm chuyển đổi với toUpperCase()và chi phí là 13 byte.)

C # .NET Framework 4.7.2 - 235 213 203 191 175 140 byte

Hãy thử trực tuyến!

using System.IO;class P{static void Main(string[]a){foreach(var b in File.ReadAllBytes(a[0])){System.Console.Write(b.ToString("X2")+" ");}}}

using System;
using System.IO;

namespace hexdump
{
    class Program
    {
        static void Main(string[] args)
        {
            // Read the bytes of the file
            byte[] bytes = File.ReadAllBytes(args[0]);

            // Loop through all the bytes and show them
            foreach (byte b in bytes)
            {
                // Show the byte converted to hexadecimal
                Console.Write(b.ToString("X2") + " ");
            }
        }
    }
}

05AB1E , 18 byte

IvyÇh2j' 0.:' Jvy?

Hãy thử trực tuyến!

Giải trình:

IvyÇh2j' 0.:' Jvy?
Iv                 Loop through each character in input
  y                Push current character
   Ç               ASCII value
    h              Convert to hexadecimal
     2j            Pad with at least 2 spaces
       ' 0.:       Replace all spaces with 0s
            ' J    Add space to end
               vy? Convert to string and print
IvyÇh2j' 0.:' Jvy?