Help for this page

Select Code to Download


  1. or download this
    my $line = qq|Calling-Station-Id = "#crnh-b|;
    for( 1 .. 7e6 ) {
     expr N
    }
    
  2. or download this
    my ($key, $value) = split(/ = /, $line);
    
  3. or download this
    $line =~ /^([^=]+)\s=\s(.+)$/o;
    
  4. or download this
    my $idx = index $line, " = ", 1;
    my $key = substr($line, 1,$idx);
    my $value = substr($line,$idx + 3);