Question

I want to write a perl script by which I can checkout/checkin files from SVN repository.
I checked some Perl modules like Alien::SVN, SVN::Core, SVN::Client etc.

But I could not really find any function which does file checkout or check-in.

Can someone please help?

Answer 1

SVN::Client can both checkout and checkin files.

Here’s an excerpt from the docs on how to checkout:

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

Checkout a working copy of $url at $revision using $path as the root directory of the newly checked out working copy.

$revision must be a number, ‘HEAD’, or a date. If $revision does not meet these requirements the $SVN::Error::CLIENT_BAD_REVISION is
raised.

Returns the value of the revision actually checked out of the repository.

And for checkin:

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

Commit files or directories referenced by target. Will use the log_msg callback to obtain the log message for the commit.

If $targets contains no paths (zero elements), then does nothing and immediately returns without error.

Calls the notify callback as the commit progresses with any of the following actions:

$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.

Use $nonrecursive to indicate that subdirectories of directory targets should be ignored.

Returns a svn_client_commit_info_t object. If the revision member of the commit information object is $SVN::Core::INVALID_REVNUM and no
error was raised, then the commit was a no-op; nothing needed to be
committed.