Help for this page

Select Code to Download


  1. or download this
    while (<FILE>)
{
    my $line = $_;
  2. or download this
    while (my $line = <FILE>)
{
  3. or download this
        my @vsize = split (' ', trim ($pieces[2]));
    my @vbits = split (' ', trim ($pieces[3]));
    my $video_size = trim (shift @vsize);
    my $video_bits = trim (shift @vbits);
  4. or download this
        my ( $video_size ) = split ' ', $pieces[ 2 ];
    my ( $video_bits ) = split ' ', $pieces[ 3 ]