[Israel.pm] Coroutines in Perl

Madani, Srikanth, VF-DE Srikanth.Madani at vodafone.com
Thu Mar 9 07:17:06 PST 2006


Hi all!

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)
>> .
12.1.1.1 unlocked
done
$>


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.


Any suggestions?

Thanks,
Srikanth Madani




More information about the Perl mailing list