Perl

armandino101 · 12-15-2006, 03:24 PM

Hi,

I need to execute 'cvs commit' in my script. This should launch the default editor (emacs, vi, etc)so the user can enter a commit message, save and exit the editor. Then my script would take over again and iterate through the raw output of the commit:

I tried the following code but it doesn't work

Code:

open CVSOUT, "cvs commit @ARGV" or die "Error :$!";

while (<CVSOUT>) {
    # do
}

Can anyone point me in the right direction?

mcummings · 12-15-2006, 04:34 PM

(as root) cpan Cvs. That'll install the Cvs module, which will probably be cleaner (and safer) than trying to do bundled system calls.

http://search.cpan.org/~rsoliv/Cvs-0.07/lib/Cvs.pm

(or just perldoc -f open)

armandino101 · 12-15-2006, 05:32 PM

Thanks for the reply but is it doable without installing an extra module?

Tinkster · 12-15-2006, 05:32 PM

Quote:

Originally Posted by armandino101

Hi,

I need to execute 'cvs commit' in my script. This should launch the default editor (emacs, vi, etc)so the user can enter a commit message, save and exit the editor. Then my script would take over again and iterate through the raw output of the commit:

I tried the following code but it doesn't work

Code:

open CVSOUT, "cvs commit @ARGV" or die "Error :$!";

while (<CVSOUT>) {
    # do
}

Can anyone point me in the right direction?

The problem with those (vi, emacs) would be that they don't work
line-oriented in the terms perls readline...

I'd also suggest you use the CVS module.

Cheers,
Tink

indienick · 12-15-2006, 05:40 PM

To answer your question, to send out a system call, use the system() function:

Code:

$commandToRun = "cvs commit @ARGV";
system($commandToRun);

sto237 · 12-15-2006, 07:38 PM

And to look at the output of an external program, one way to do it is to open it with a trailing pipe:

open FOUT, "/bin/ls -l |";

print "Hi, $_" while (<FOUT>); # greet all files named by ls

But I second the "use the module" suggestion