Làm thế nào tôi có thể để perl diễn giải một biến chuỗi đại diện cho một địa chỉ

Question

Tôi muốn nạp dữ liệu vào một chương trình C với một kịch bản perl như thế này ./cprogram $(perl -e 'print "\xab\xcd\xef";').

Tuy nhiên, chuỗi phải được đọc từ tệp. Vì vậy, tôi nhận được một cái gì đó như thế này: ./cprogram $(perl -e 'open FILE, "<myfile.txt"; $file_contents = do { local $/; <FILE> }; print $file_contents'. Tuy nhiên, bây giờ perl diễn giải chuỗi là chuỗi "\xab\xcd\xef" và tôi muốn nó diễn giải nó như là chuỗi byte như trong ví dụ đầu tiên.

Làm cách nào để đạt được điều này? Nó phải được chạy trên một máy chủ mà không có File :: Slurp.

Answer 1

Trong trường hợp đầu tiên, bạn chuyển ba byte AB CD EF (được tạo bởi chuỗi ký tự "\xAB\xCD\xEF") đến print.

Trong trường hợp thứ hai, bạn phải chuyển thứ gì đó khác với ba byte đó đến print. Tôi nghi ngờ bạn đang chuyển chuỗi mười hai ký tự \xAB\xCD\xEF đến print.

Vì vậy, câu hỏi của bạn sẽ trở thành: Làm thế nào để chuyển đổi chuỗi 12 ký tự \xAB\xCD\xEF thành ba byte AB CD EF. Vâng, bạn muốn yêu cầu một số loại phân tích cú pháp như

s/\\x([0-9a-fA-F][0-9a-fA-F])|\\([^x])|([^\\]+)/ 
    $1 ? chr(hex($1)) : $2 ? $2 : $3 
/eg 

Và ở đây nó là tại nơi làm việc:

$ perl -e'print "\\xAB\\xCD\\xEF";' >file 

$ echo -n "$(perl -0777pe' 
    s{\\x([0-9a-fA-F][0-9a-fA-F])|\\([^x])|([^\\]+)}{ 
     $1 ? chr(hex($1)) : $2 // $3 
    }eg; 
    ' file)" | od -t x1 
0000000 ab cd ef 
0000003 

Answer 2

sử dụng một thủ thuật bash:

perl -e "$(echo "print \"$(cat input)"\")" 

mà ví dụ của bạn trở nên :

./cprogram "$(perl -e "$(echo "print \"$(cat myfile.txt)"\")")" 

Answer 3

Là đánh giá của Perl quá vil? Nếu không, hãy kết thúc bằng số print eval("\"$file_contents\"");

Hoặc bạn có thể chuẩn bị trước tệp bằng Perl không? EG print FILE "\xAB\xCD\xED"; sau đó đọc tệp kết quả bằng mã hiện có của bạn.