fork download
copy 
  1. #!/usr/bin/perl
  2. # 11 BUG
  3.  
  4. while ($eil=<>) {
  5.  
  6. if ($eil=~/^$/) { next };
  7.  
  8. @p=split / /,$eil;
  9.  
  10. for ($i=0; $i<$p[0]; $i++){
  11. 	$eil=<>;
  12. 		chomp($p[1]);
  13. 		while ($eil=~/$p[1]/) {
  14. 			$eil=~s/$p[1]// ;	
  15. 			}
  16. 		print $eil;
  17. 	}
  18. }
Success #stdin #stdout 0s 4552KB
comments (?)
stdin
copy 
7 BUG
print "df dfsdf sdf..."

void hello(){
BUGBUG
printfBUG("Hrll!
n);
}

1 ERR
wriEERRRRtelERRn("Hello E-R-R);
stdout
copy 
print "df dfsdf sdf..."

void hello(){

printf("Hrll!
n);
}
writeln("Hello E-R-R);
https://ideone.com/5TyUbO
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!