perl -le '$_=shift;print((split//)[-2,-1])' 2003 perl -le 'print((split//,shift)[-2,-1])' 2003
perl -le '$_=$,=q,\,@4O,,s,^$,$\,,s,s,^,b9,s,$_^=q,$\^-]!,,print'
In reply to Re: sprintf the last 2 digits
by hopes
in thread sprintf the last 2 digits
by fireartist
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |