piping previous command's output into perl 2

[DIEBEL]

I wish to pipe the output of the previous commond in a pipeline into my perl script.
How is this generally best done?

Thanx

 

[TrojanWarBlade]

command | perl script



Trojan.

 

[Annihilannic]

And to read the piped input, you can use the "diamond operator", i.e. <>, for example, the following code will simply print it out.

while (<>) { print; }

Annihilannic.

 

[bichonfrise74]

Another way...

#!/usr/bin/perl

use strict;

open( my $ls_output, '-|', 'ls' )
  or die "Cannot execute ls - $!";

print "$_\n" while (<$ls_output>);
close( $ls_output );