fork download
  1. my ($longest_beat, $shortest_beat);
  2.  
  3. while (<DATA>) { # insert your own filehandle here
  4. $longest_beat = $1, next if /longest beat:=\s*(\S+)/;
  5. $shortest_beat = $1, next if /shortest beat:=\s*(\S+)/;
  6. }
  7.  
  8. print $longest_beat, "\n";
  9. print $shortest_beat, "\n";
  10.  
  11. __DATA__
  12. gated window upper limit:=1.15
  13. gated window lower limit:=0.87
  14. gated frame mode:=variable time
  15. gated beats accepted:=631
  16. gated beats rejected:=1
  17. gated longest beat:=1.0455
  18. gated shortest beat:=0.8722
  19. gated average beat:=0.9472
  20. applied zoom:=2.15
  21. zoom origin x:=272
  22. zoom origin y:=288
Success #stdin #stdout 0s 4552KB
stdin
Standard input is empty
stdout
1.0455
0.8722