Ken Foskey schreef:

> open(LYNX,"|-","lynx -source http://www.perl.com/";) or die("Can't open
> lynx: $!");


#!/usr/bin/perl
  use warnings ;
  use strict ;

  my $cmd = 'lynx -source http://www.perl.com/' ;

  open my $ph, '-|', $cmd
    or die "\nError opening '$cmd', stopped $!" ;

  while ( <$ph> )
  {
    print "$.:\t$_" ;
  }

  close $ph
     or die "\nError closing '$cmd', stopped $!" ;

-- 
Affijn, Ruud

"Gewoon is een tijger."



-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>


Reply via email to