Đánh giá một "biến biến"

Question

tôi là tạo ra một biến động ("biến Variable" trong PHP cách nói) như sau:

foo: "test1" 
set to-word (rejoin [foo "_result_data"]) array 5 

Nhưng làm thế nào để tôi nhận được giá trị của biến kết quả có tên là "test1_result_data "động? Tôi đã thử các cách sau:

probe to-word (rejoin [foo "_result_data"]) 

nhưng nó chỉ trả về "test1_result_data".

Answer 1

probe do (rejoin [foo "_result_data"]) 

từ http://www.rebol.com/docs/core23/rebolcore-4.html#section-4.6

Answer 2

Trong Rebol 3 ràng buộc khác với Rebol 2 và có một số tùy chọn khác nhau:

Tùy chọn clumsiest đang sử dụng load:

foo: "test1" 
set load (rejoin [foo "_result_data"]) array 5 
do (rejoin [foo "_result_data"]) 

Có một chức năng tải sử dụng-- intern - có thể được sử dụng để liên kết và truy lục từ đến và từ ngữ cảnh nhất quán:

foo: "test1" 
set intern to word! (rejoin [foo "_result_data"]) array 5 
get intern to word! (rejoin [foo "_result_data"]) 

Nếu không, to word! sẽ tạo một từ không liên kết không dễ sử dụng.

Lựa chọn thứ ba là sử dụng bind/new để ràng buộc từ một bối cảnh

foo: "test1" 
m: bind/new to word! (rejoin [foo "_result_data"]) system/contexts/user 
set m array 5 
get m 

Answer 3

Như mã ví dụ của bạn là REBOL 2, bạn có thể sử dụng GET để có được giá trị của từ:

>> get to-word (rejoin [foo "_result_data"]) 
== [none none none none none] 

REBOL 3 xử lý các bối cảnh khác với REBOL 2. Vì vậy, khi tạo một từ mới, bạn sẽ cần xử lý ngữ cảnh của nó một cách rõ ràng nếu không nó sẽ không có ngữ cảnh và bạn sẽ gặp lỗi khi bạn cố gắng đặt nó. Điều này trái ngược với REBOL 2, đặt ngữ cảnh của từ theo mặc định.

Vì vậy, bạn có thể xem xét sử dụng REBOL 3 mã như sau để SET/GET biến động của bạn:

; An object, providing the context for the new variables. 
obj: object [] 

; Name the new variable. 
foo: "test1" 
var: to-word (rejoin [foo "_result_data"]) 

; Add a new word to the object, with the same name as the variable. 
append obj :var 

; Get the word from the object (it is bound to it's context) 
bound-var: in obj :var 

; You can now set it 
set :bound-var now 

; And get it. 
print ["Value of " :var " is " mold get :bound-var] 

; And get a list of your dynamic variables. 
print ["My variables:" mold words-of obj] 

; Show the object. 
?? obj 

Chạy này như một sản lượng kịch bản:

Value of test1_result_data is 23-Aug-2013/16:34:43+10:00 
My variables: [test1_result_data] 
obj: make object! [ 
    test1_result_data: 23-Aug-2013/16:34:43+10:00 
] 

Một thay thế cho việc sử dụng TRÊN trên có thể đã sử dụng BIND:

bound-var: bind :var obj