Help for this page

Select Code to Download


  1. or download this
    my $circuit_id = ( $if_descr =~ /([^.]*)(?:\.(.*))?/
       ? $1 . (defined($2) ? $2 : '')
       : undef
    );
    
  2. or download this
    (my $circuit_id = $if_descr) =~ s/\.//;