Help for this page

Select Code to Download


  1. or download this
    local $/ = '';  # Paragraph mode.

...
   my ($x, $y, $vr, $fps) = m|(\d+)x(\d+).*(?:(\d+) kb/s.*)?(\d+\.\d+)
+ fps|;
   Dump [$ar, $x, $y, $vr, $fps];
}
  2. or download this
    local $/ = '';  # Paragraph mode.

...
   my ($fps  ) = m|(\d+(?:\.\d+)?) fps|;
   Dump [$ar, $x, $y, $vr, $fps];
}