Help for this page

Select Code to Download


  1. or download this
     0:23 >perl -wE "my $s = 'xe-2/0/0.0'; $s =~ s{\..*}{}; say $s;"
xe-2/0/0

 0:23 >
  2. or download this
    s{\d\K\..*}{}
  3. or download this
    s{(\d)\..*}{$1}