Help for this page

Select Code to Download


  1. or download this
    my @LINES =<IN>;
  2. or download this
    while(<IN>){
  3. or download this
    if ( $fields[8] =~ /^[sno]/ =~ /^[sno]/ ) {
  4. or download this
    if ($fields[8] =~ /(?:^|;)sno=[^;]/) { ... }