We use cookies to improve your experience, for authentication and to ensure that we show you advertising that is relevant to you. If you continue without changing your settings, we'll assume that you are happy to receive all cookies on Ideone website. However, if you wish, you can change cookie settings of your browser at any time.
Ideone is being migrated to a new data center at this moment. This is the final stage of migration and it will end very soon!
If you notice that site behaves unexpectedly then please write to us at contact@ideone.com. Thanks!
language:
Perl (perl 5.16.2)
date:
623 days 3 hours ago
link:
visibility:
publicprivateuser'sdeleted
1
2
3
4
5
6
7
8
9
10
my$g_tab_width=4;my$s1="xxxx\tyyyy\tzzzz";$s1=~s{(.*?)\t}{$1.(' ' x ($g_tab_width-length($1)%$g_tab_width))}ge;my$s2="xxxx\tyyyy\tzzzz";$s2=~s/(.*?)\t/$1 /g;print$s1,"\n",$s2,"\n";
