http://qs321.pair.com?node_id=765150

Samy_rio has asked for the wisdom of the Perl Monks concerning the following question:

Hi Monks,
I am posting the the url and getting the response using IPC::Open2 modules. I am getting the output using $rdrfh handle.

I fetch some data from $rdrfh handle and again i need the data from the start position.

I tried seek funciton with the $rdrfh handle, but it's not working

use Fcntl qw(SEEK_SET); use IPC::Open2; ... open2($rdrfh, $wtrfh, 'some cmd and args'); ... seek($rdrfh, 0,0); #not working seek($rdrfh, 0,SEEK_SET); #not working

Is it possible to seek the IPC::Open2 module file handle? How?

Thanks in advance

Regards,
Velusamy R.


eval"print uc\"\\c$_\""for split'','j)@,/6%@0%2,`e@3!-9v2)/@|6%,53!-9@2~j';