Help for this page

Select Code to Download


  1. or download this
    my $cmd_pid = open my $cmd_fh, '-|', $cmd
    or die "Can't run '$cmd': $!\n";
my $yawn = do { local $/; <$cmd_fh> };
close $cmd_fh;
  2. or download this
    my $start_time = time;
sub exec_time { return time - $start_time }
...
printf "(%d) yawn?  $yawn", exec_time();
__END__
(5) yawn?
  3. or download this
    kyle@xxx:~$ perl -v | head -5

...

kyle@xxx:~$ uname -a
Linux xxx 2.6.20-16-generic #2 SMP Thu Jun 7 20:19:32 UTC 2007 i686 GN
+U/Linux