Help for this page

Select Code to Download


  1. or download this
    my $bit_o_line = substr ($line, 3, 7);
$bit_o_line =~ m/^\s*(.*)\s*$/;
$BKSIC_MODEL[$i] = $1;
  2. or download this
    my $bit_o_line = substr ($line, 3, 7);
$bit_o_line =~ m/^\s*(\S+)\s*$/;
$BKSIC_MODEL[$i] = $1;
  3. or download this
    my $BKSIC_MODEL[$i] = substr ($line, 3, 7);
$BKSIC_MODEL[$i] =~ s/^\s+//;
$BKSIC_MODEL[$i] =~ s/\s+$//;