All pastes #200017 Raw Edit

Miscellany

public text v1 · immutable
#200017 ·published 2006-10-12 21:53 UTC
rendered paste body
#!/usr/bin/perl


my $teststring = "
        File length:  0m 04.0s
                Elapsed time: 0m 00.0s
                        Rate:         124.9479
                                Average bitrate: 22.3 kb/s";

$teststring =~ /^\s*File\s+length:\s*([0-9.]+)m\s+([0-9.]+)s\s*$/;
print "\n $1    $2 \n";