Beefy Boxes and Bandwidth Generously Provided by pair Networks
Think about Loose Coupling
 
PerlMonks  

Re: Can any one help to correct the error which i got while using Rcs.pm in the Code

by VSarkiss (Monsignor)
on Jul 27, 2006 at 01:22 UTC ( #563934=note: print w/replies, xml ) Need Help??


in reply to Can any one help to correct the error which i got while using Rcs.pm in the Code

From looking at the module on CPAN, you have the right capitalization: it's use Rcs, not use RCS (although I don't see use RCS in the documentation -- maybe you have an old version?)

As to what you're trying to do: I haven't used RCS in a while, but as far as I know, there is no rcs get command. If you want the text of the file at the particular revision, it looks like you should be doing something like this:

my $rcs = Rcs->new; # guessing the next line from your question $rcs->file($testCaseName); # equivalent to running "co -r 1.2" on the command line; # that is, will retrieve version 1.2 without locking. $rcs->co("-r" => "1.2");
At this point, the working file should contain the text of the file at the specific version. Since you know its directory and its name, you can manipulate it like any other file.

Caveat: I haven't tested this code, and it's based on an old recollection of RCS. But I hope it will help point you in the right direction.

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://563934]
help
Chatterbox?
[shmem]: holli: all of our machinery is more perfect in its realm than any human being in theirs (Günther Anders), which doesn't mean not having fun, albeit dangerous sometimes.
[ww]: That's a big "if", holli.
[holli]: well the google car drove 5 times as far as the average human without an accident didnt it?
[ww]: Less than confident that ai+hardware is up (yet) to randomness and counterintuitive behavior on streets of NY

How do I use this? | Other CB clients
Other Users?
Others browsing the Monastery: (16)
As of 2017-11-21 13:16 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    In order to be able to say "I know Perl", you must have:













    Results (301 votes). Check out past polls.

    Notices?