System call doesn't work

[xlue897]

Hi, All:


I have the following perl code intending to open several files using
vi. But it doesn't work.


ls test* | perl -n -e 'chomp; $cmd="vi $_"; unless(system($cmd))
{ print "success\n";}'


it reports error like:
"Input read error
success
"


Thanks for your help.


Steven

 

[Joe Smith]

Hi, All:


I have the following perl code intending to open several files using
vi. But it doesn't work.


ls test* | perl -n -e 'chomp; $cmd="vi $_"; unless(system($cmd))
{ print "success\n";}'

You're calling 'vi' with STDIN still connected to the pipe from 'ls'.

perl -le 'print system("vi $_") ? "error ".$?>>8 : "OK" for @ARGV' *.pl

-Joe

 

[xlue897]

You're calling 'vi' with STDIN still connected to the pipe from 'ls'.

perl -le 'print system("vi $_") ? "error ".$?>>8 : "OK" for @ARGV' *.pl

-Joe

Thanks you Joe. It works. However, how can I change the STDIN from
pipe to standard input and vice versa?

Thanks,


Steven

 

[xlue897]

Thanks you Joe. It works. However, how can I change the STDIN from
pipe to standard input and vice versa?

Thanks,

Steven

Hi,

I worked out the function by unix find command:
find . -name 'test*' -exec vi {} \;

however, still cannot figure out how perl implement the same function.

Any help will be appreciated.

Thanks,

Steven

 

[J. Gleixner]

I worked out the function by unix find command:
find . -name 'test*' -exec vi {} \;

however, still cannot figure out how perl implement the same function.

find2perl should help.