Help for this page

Select Code to Download


  1. or download this
    perl -le '$s="a1, a3 - a5\na11"; while ($i<10) { $i++; $s=~?a(\d+)?g; 
+print $1; }'
  2. or download this
    perl -le '$s="a1, a3 - a5\na11"; while ($i<10) { $i++; $s=~/a(\d+)/g; 
+print $1; }'
  3. or download this
    perl -le '$s="a1, a3 - a5\na11"; $s=~?a(\d+)?g; print $1; $s=~?a(\d+)?
+g; print $1; $s=~?a(\d+)?g; print $1; $s=~?a(\d+)?g; print $1;'