Perl中的SVN访问

Question

我想编写一个perl脚本，通过该脚本可以从SVN存储库中检出/检入文件。
我检查了一些Perl模块，例如Alien::SVN ， SVN::Core ， SVN::Client等。

但是我真的找不到任何执行文件检出或检入的功能。

有人可以帮忙吗？

Answer 1

SVN :: Client可以检出和检入文件。

以下是有关如何结帐的文档摘录：

  $ctx->checkout($url, $path, $revision, $recursive, $pool); 

使用$ path作为新检出的工作副本的根目录，在$ revision处检出$ url的工作副本。

$revision必须为数字，“ HEAD”或日期。 如果$ revision不满足这些要求，则会引发$SVN::Error::CLIENT_BAD_REVISION 。

返回实际从存储库中检出的修订的值。

对于签到：

 $ctx->commit($targets, $nonrecursive, $pool); 

提交目标引用的文件或目录。 将使用log_msg回调获取提交的日志消息。

如果$ targets不包含路径（零个元素），则不执行任何操作，并立即返回而没有错误。

在提交进行时通过以下任何操作来调用notify回调：

 $SVN::Wc::Notify::Action::commit_modified, $SVN::Wc::Notify::Action::commit_added, $SVN::Wc::Notify::Action::commit_deleted, $SVN::Wc::Notify::Action::commit_replaced, $SVN::Wc::Notify::Action::commit_postfix_txdelta. 

使用$nonrecursive指示应忽略目录目标的子目录。

返回svn_client_commit_info_t对象。 如果提交信息对象的修订版成员为$SVN::Core::INVALID_REVNUM并且未引发错误，则提交为空操作；否则，提交为空。 无需承诺。