Help for this page

Select Code to Download


  1. or download this
    
my $lfh;
...
$rstring  = <$lfh>;  # Char speeds
  ($c_speed[0], $c_speed[1], $c_speed[2], $c_speed[3]) = sscanf("%d %d
+ %d %d", $rstring);
  2. or download this
    
open( my $lfh, '<', $load_fn ) or
        die "Unable to open file $load_fn : $!";
my @c_speed = split ' ', <$lfh>;  # Char speeds