Help for this page

Select Code to Download


  1. or download this
    $a = <STDIN>;
my ( @codecs, @channelCap, @percentage );    ## declare codecs variabl
+e
...
    $tmp = <STDIN>;
    push @percentage, $tmp;
}
  2. or download this
    print "No.   Codec  ChannelCap   Percentage\n";
print diff \@codecs, \@channelCap, \@percentage,
  { STYLE => 'Table' };
  3. or download this
    Please input the number of codec that using 3
Codec 1 = g711
...
Percentage of codec 3 = 0.2
No.   Codec  ChannelCap   Percentage
Not a HASH reference at C:/Strawberry/perl/vendor/lib/Text/Diff.pm lin
+e 46, <STDIN> line 10.