gist: 231091 - Simple Perl code of formating digital- GitHub


  
    
      Formating digital #
    
    
      
      
        embed
        
      
      
      
      raw
    
  
  
  
    
      
        
          
            
            1
2
3
4
5
6
7
8
9
10
11
12
13

          
          
            
              #!/usr/bin/perl
use common::sense;
 
sub D($) {
	for (scalar reverse shift) {
		s/(\d{3})(?=\d)/$1 /g;
		return scalar reverse;
	}
}
 
say D 12345;
say D 123456;
say D 1234.56;
Description:	Simple Perl code of formating digital
Public Clone URL:	git://gist.github.com/231091.git Give this clone URL to anyone. `git clone git://gist.github.com/231091.git gist-231091`
Embed All Files:	show embed