는 PERL 하나 라이너

Question

를 사용하여 다른 변수로 문자열을 디코딩 I했습니다 내가

예 내가 한 라이너를 얻으려면

{"response":{"report":"fail","brand":"1.0","fail":{"message":"Invalid Number"}}} 

{"response":{"report" : "pass", "brand" : "1.0", "payment" :{"paymentId":"4CA008DAAA41EC19C754EF"}}} 

{"response":{"report":"fail","brand":"1.0","fail":{"message":"internal server problems."}}} 

{"response" : {"report" : "pass", "brand" : "1.0", "email" :{"subject":"Notification","to":"TEST@TEST.COM"}}} 

에게 문자열에 따라 다른 변수로 디코딩하고 싶은 다음 문자열 명령 또는 여러 명령을 사용하여 값을 다른 변수로 가져올 수 있습니다.

결과

Variable 1 = fail variable 2 = 1.0 variable 3 = Invalid Number 

Variable 1 = pass variable 2 = 1.0 variable 3 = 4CA008DAAA41EC19C754EF 

Variable 1 = fail variable 2 = 1.0 variable 3 = internal server problems. 

variabl 1 = pass variable 2 = 1.0 variable 3 = Notification variable 4 = TEST@TEST.COM (since there are 2 values in the inner most {}) 

Answer 1

시도는 평가가(), 오히려 안전하지 않은 (이 좀 의심 I) 작동하더라도 http://search.cpan.org/perldoc?JSON

같은 적절한 JSON 디코더를 사용하고, 당신의 컴퓨터에서 임의 코드를 실행할 수 있습니다 . 아야.