Question

目标

目标是使配置和代码从从以base64编码和gzip-ped格式存储此数据的应用程序中导出后可读。

在Linux-shell中进行测试

带代码的字符串示例

"H4sIAAAAAAAAAIWSS0vEMBSF9/0VIYvubHUnNGlhfIDCwOCMuCyhTeOVTBLzGPTfmzY60yKju+Tc8N1z7o2RQYBqmTESuGthaDuHXJpWTRknzsZfowK0DrSi+Ki4x4qrTPShB8fPu/uIaN3VGVsGB4s49BcnrDKGjsJlwaF5P0sMtxY/swLadBeN/6jda9eBjrxfwrytQvcMjLgI3zLI999FJEuYSGmHpNdp9Gk7xWyQXkilRbL2NXnGdS18twuTvQfsqJkqHU6x0n7KlY5MLX2UjYOyxZqacBFIeDZyxdGettusYiwn+h7X/QadBnadY7oNVaGDS8eoXciZMAyTlckNxh+Vyid//4Qv+y3JeLwIAAA=="

在Linux外壳中使用以下命令进行解码并用Gunzip压缩：

echo $1 | base64 -d | gunzip -c

这将导致：

plugin_applies_if_config<split>plugin_config=<?xml version="1.0" encoding="UTF-8"?>
<BusinessRule>
  <BusinessPlugin BusinessRulePluginID="JavaScriptBusinessConditionWithBinds">
    <Parameters>
      <Parameter ID="Binds" Type="java.lang.String">&lt;?xml version=&quot;1.0&quot; encoding=&quot;UTF-8&quot;?&gt;
&lt;BindMap/&gt;
</Parameter>
      <Parameter ID="ErrorMessages" Type="java.lang.String"></Parameter>
      <Parameter ID="JavaScript" Type="java.lang.String">return false;</Parameter>
    </Parameters>
  </BusinessPlugin>
</BusinessRule>
<split>

任务完成。 ...差不多。

变成R脚本

由于我有数百个这样的字符串，因此我想在脚本中执行与Linux Shell中类似的命令。而且因为我只知道一些R，所以我尝试使用R。我成功地从应用程序导出的XML文档中提取了字符串，并将其转换为带有ID，名称和代码列的数据框。

下面是一个简化的示例，其中我尝试逐步重现Linux命令。

encoded = "H4sIAAAAAAAAAIWSS0vEMBSF9/0VIYvubHUnNGlhfIDCwOCMuCyhTeOVTBLzGPTfmzY60yKju+Tc8N1z7o2RQYBqmTESuGthaDutBhDERcHXJpWTRknzsZfowK0DrSi+Ki4x4qrTPShB8fPu/uIaN3VGVsGB4s49BcnrDKGjsJlwaF5P0sMtxY/swLadBeN/6jda9eBjrxfwrytQvcMjLgI3zLI999FJEuYSGmHpNdp9Gk7xWyQXkilRbL2NXnGdS18twuTvQfsqJkqHU6x0n7KlY5MLX2UjYOyxZqacBFIeDZyxdGettusYiwn+h7X/QadBnadY7oNVaGDS8eoXciZMAyTlckNxh+Vyid//4Qv+y3JeLwIAAA=="

decoded = base64enc::base64decode(what=encoded)
# decoded = openssl::base64_decode(encoded)
# decoded = jsonlite::base64_dec(encoded)
# 3 times the same result

str(decoded)

# an array of raw-types. Maybe i need to convert to a string?
paste(decoded, collapse = "")

在Linux shell中看起来不像base64解码的数据，但是让我们尝试解压缩...

decompressed <- 
  tryCatch({  
    memDecompress(from = paste(decoded, collapse = ""),
                  type = "gzip",
                  asChar = TRUE)
  },
  error = function(cond) {
    message(cond)
    return(NA)
  })
# fails with "internal error -3 in memDecompress(2)" 
(decompressed)

很显然，'gzip'的输入与预期不符。它必须是某种二进制字符串。

但是如何到达那里？我究竟做错了什么？谢谢您的指教！

Answer 1

memDecompress函数很麻烦，因为我相信它们会忽略标准标头。这是避免该功能的一种方法。基本上，我们创建一个原始的字节流，然后使用gzcon对其进行解压缩

con <- rawConnection(base64enc::base64decode(what=encoded))
readLines(gzcon(con))
close(con)

您将收到一条警告，指出“最后一行不完整”，但这仅仅是因为看起来文件末尾没有新行。否则数据看起来还不错。

如何在R中解压缩base64编码的字符串？

目标

在Linux-shell中进行测试

变成R脚本

1 个答案: