[Israel.pm] Coroutines in Perl
Madani, Srikanth, VF-DE
Srikanth.Madani at vodafone.com
Thu Mar 9 07:17:06 PST 2006
I want to use the RCS program rcs to break a lock on an RCS file set by
another user. (rcs -u12.1.1 hello.c)
The program asks me if I'm sure etc.:
$> rcs -u12.1.1 hello.c
Do you want to break the lock? [ny](n): y
State the reason for breaking the lock:
(terminate with single '.' or end of file)
I want to make this non-interactive and execute through a Perl program.
So my Perl code must not only call rcs with options -u12.1.1 hello.c,
but also supply the needed 'y' character and '.' + 'carriage return'.
I'm running Perl v5.8.1 on GNU/Linux and Solaris.
More information about the Perl