How can I interact with ClearCase from Perl?

by

Basically, ClearCase Perl scripting is based on parsed outputs of system and cleartool commands.

The scripts are based on a cleartool run cmd like package CCCmd, and used like:

use strict;
use Config;
require "path/to/CCCmd.pm";

sub Main
{
  my $hostname = CCCmd::RunCmd('hostname');
  chomp $hostname;
  my $lsview = CCCmd::ClearToolNoError("lsview -l -pro -host $hostname");
  return 1;
}

Main() || exit(1);
exit(0);

for instance.

So once you have the basic Perl structure, all you need is the right cleartool commands to analyze, based on fmt_ccase directives.

1/ all the activity associated within that baseline (column header “activity”)

 ct descr -fmt "%[activities]CXp" baseline:aBaseline.xyz@\ideapvob

That will give you the list of activities (separated by ‘,‘).

For each activity:

2/ Owner’s id (column header-Owner)

 ct descr -fmt "%u" activity:anActivityName@\ideapvob

3/ all the element associated within a particular activity. (column header-“element details”)

Not sure: activities can list their versions (see /4), not easily their elements

4/ For each element the versions associated (column header-“Versions”)

For a given activity:

 ct descr -fmt "%[versions]CQp\n"  activity:anActivityName@\ideapvob

5/ for each element the total number of lines of code,total number of lines of code added,total number of lines of code deleted,total number of lines of code changed..(column header”No. of lines of code”,”lines of code added”,”lines of code deleted” & ” lines of code changed”)

That can be fairly long, but for each version, you can compute the extended path of the previous version and make a diff.

I would advise using for all that a dynamic view, since you can access any version of a file from there (as opposed to a snapshot view).

More Related Contents:

  1. Why can’t Perl find my file that is in ClearCase?
  2. Delete ClearCase Views Script
  3. How can I convert my shell script to Perl? [closed]
  4. search using perl one liner within a file [closed]
  5. How to re-direct the contents to a file instead of printing it to terminal
  6. How do I remove duplicate items from an array in Perl?
  7. What is the difference between library files and modules?
  8. How do I read in the contents of a directory in Perl?
  9. How can I pass command-line arguments to a Perl program?
  10. How do I efficiently parse a CSV file in Perl?
  11. How can I generate all permutations of an array in Perl?
  12. How can I install CPAN modules locally without root access (DynaLoader.pm line 229 error)?
  13. OpenSSL DH Key Too Small Error
  14. Manual installation of a Perl Module
  15. @ARGV is empty using ActivePerl in Windows 7
  16. ImageMagick Command-Line Option Order (and Categories of Command-Line Parameters)
  17. Perl Dereferencing Syntax
  18. How to extrace pg_backend_pid from postgresql in shell script and pass it to another process?
  19. How can I call a shell command in my Perl script?
  20. Which cpan installer is the right one? (CPAN.pm/CPANPLUS/cpanminus)
  21. How do I lock a file in Perl?
  22. Why is the Switch module deprecated in Perl?
  23. How do I tell what type of value is in a Perl variable?
  24. What should I use for a Perl script’s shebang line?
  25. How can I find memory leaks in long-running Perl program?
  26. Why do Perl variables need to start with $, %,@ (sigils)?
  27. Print lines from one file that are not contained in another file
  28. Perl DBD::Oracle Module installation
  29. Explain the deviousness of the Perl “preamble”
  30. Why doesn’t Perl’s each() iterate through the entire hash the second time?

Leave a Comment