fork download 
  1. #!/usr/bin/perl
  2. # your code goes here
  3. $fixedlines[0]=<>;
  4.  
  5. while($line = <>){
  6.  
  7. $tabs=0;
  8. while($line =~ /^\(tab\)/){
  9.  $line =~ s/^\(tab\)//g;
  10.  $tabs++;
  11. }
  12.  
  13. $line = "\t" x $tabs . $line;
  14.  
  15. $fixedlines[~~@fixedlines] = $line;
  16.  
  17. if($line ne " \n"  && $line ne ""){
  18. $fixedlines[$#fixedlines-1] = "";
  19. }
  20. }
  21.  
  22. print @fixedlines,"\n"
Success #stdin #stdout 0s 3564KB
comments (?)
stdin 
import random
PhiNotPi
PhiNotPi
PhiNotPi
12:25
words = dict()
user2509848
user2509848
user2509848
words[0] = 'Cabbage'
PhiNotPi
PhiNotPi
PhiNotPi
12:48
words.update({1:'potato',2:'vegetable',3:'fruit',4:'avocado',5:'strawberry',6:'‌​apple'})
user2509848
user2509848
user2509848 
words.update({7:'pear',8:'corn',9:'tomato',10:'kiwi',11:'peach',12:'‌​eggplant',‌​13:'pineapple'})
stdout 
words.update({7:'pear',8:'corn',9:'tomato',10:'kiwi',11:'peach',12:'‌​eggplant',‌​13:'pineapple'})
https://ideone.com/UBOhld
language:
Perl (perl 5.28.1)
created:
11 years ago
visibility:
secret

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!