Help for this page

Select Code to Download


  1. or download this
    perl -MO=Deparse -e '$_="abcdef"; s/@{[s".."."gr]}\K$"//; print'
$_ = 'abcdef';
s[@{[s/.././gr];}\K$"][];
print $_;
-e syntax OK
  2. or download this
    perl -MO=Deparse -e '$_="abcdef"; s/@{[s".."."gr]}\K //; print'
$_ = 'abcdef';
s[@{[s/.././gr];}\K ][];
print $_;
-e syntax OK
  3. or download this
    perl -MO=Deparse -e '$_="abcdef"; s/@{[s".."."gr]}\K$"//; print'
$_ = 'abcdef';
s[@{[s/.././rg];}\K][$"];
print $_;
-e syntax OK
  4. or download this
    perl -MO=Deparse -e '$_="abcdef"; s/@{[s".."."gr]}\K //; print'
$_ = 'abcdef';
s[@{[s/.././rg];}][\\K ];
print $_;
-e syntax OK
  5. or download this
    #!perl -pl
s/@{[s".."."gr]}\K$"//
  6. or download this
    $_="abcdef";
s/@{[s".."."gr]}/$& /;print  #  "...abcdef"
...

$_="abcdef";
s/@{[s".."."gr]}\K //;print  #  "\K def"
  7. or download this
    #!perl -p
s/.(?0).|\K/ $&/