----- Original Message ----- From: "Harry Putnam" <[EMAIL PROTECTED]> To: <[EMAIL PROTECTED]> Sent: Sunday, June 29, 2003 11:58 AM Subject: Re: make CPAN::Shell->i; print to a filehandle
> Mark G <[EMAIL PROTECTED]> writes: > > > that would be > > > > $pid = open2($wtr, $rdr, 'CPAN::Shell->i'); > > > > foreach( @module ){ > > print $wtr "$_\n"; > > print "shell output: $_\n" while <$rdr>; > > } > > Still not able to get this to fly. Probably something wrong here: > > cat IPC.pl > #!/usr/local/bin/perl -w > > use CPAN; > use IPC::Open2; > > my ($wtr, $wdr, @item, $pid); > > $pid = open2($wtr, $rdr, 'CPAN::Shell->i'); > > foreach(@item){ > print $wtr "$_\n"; > print "shell output: $_\n" while <$rdr>; > } > > ./IPC.pl > sh: CPAN::Shell-: command not found > > With out the single quotes around CPAN::Shell->i: > > It runs and kicks out everything on cpan, but doesn't do any of the > read write stuff. Closing with this error: > > [...] > 28213 items found > Can't exec "1": No such file or directory at > /usr/local/lib/perl5/5.8.0/IPC/Open3.pm line 230. open2: exec of 1 > failed at ./IPC.pl line 8 > > For some reason it seems to be using: > /usr/local/lib/perl5/5.8.0/IPC/Open3.pm > Instead of: > /usr/local/lib/perl5/5.8.0/IPC/Open2.pm > > I tried changine over to IPC::Open3 > > cat IPC.pl > #!/usr/local/bin/perl -w > > use CPAN; > use IPC::Open3; > > my ($wtr, $wdr, $err, @item, $pid); > > $pid = open3($wtr, $rdr, $err, 'CPAN::Shell->i'); > > foreach(@item){ > print $wtr "$_\n"; > print "shell output: $_\n" while <$rdr>; > } > > This runs but exits instantly with no error and does nothing > noticable. Well I just tryed runing 'CPAN::Shell->i' from the shell, and it failed to launch it. Can you run 'CPAN::Shell->i' from your systems default shell ?? you can try using ppm instead. Mark G > > -- > To unsubscribe, e-mail: [EMAIL PROTECTED] > For additional commands, e-mail: [EMAIL PROTECTED] > > -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]