ppmgetheight.pl 197 Bytes Raw Blame History Permalink 1 2 3 4 5 6 7 8 9 #!/usr/bin/perl $count = 0; while (($line = <STDIN>) && ($count <= 1)) { if ($count == 1) { ($width,$height)=split(/ /,$line); print "$height"; } $count = $count + 1; }