fork(1) download
copy 
  1. my $g_tab_width = 4;
  2.  
  3. my $s1 = "xxxx\tyyyy\tzzzz";
  4. $s1 =~ s{(.*?)\t}{$1.(' ' x ($g_tab_width - length($1) % $g_tab_width))}ge;
  5.  
  6. my $s2 = "xxxx\tyyyy\tzzzz";
  7. $s2 =~  s/(.*?)\t/$1    /g;
  8.  
  9. print $s1, "\n", $s2, "\n";
  10.  
Success #stdin #stdout 0s 4596KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
xxxx    yyyy    zzzz
xxxx    yyyy    zzzz
https://ideone.com/Kvp3l
language:
Perl (perl 5.28.1)
created:
12 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!