fork download
copy 
  1. #!/usr/bin/perl
  2. use strict;
  3. use warnings;
  4.  
  5. my @oldest;
  6.  
  7. for (@ARGV)
  8. {
  9.         push @oldest, $_;
  10.         shift @oldest while (-C $oldest[0] < -C);
  11. }
  12.  
  13. print "$oldest[0]\n";
  14.  
Success #stdin #stdout #stderr 0s 6132KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 

	

		
	 
	
		
	
		 stderr
					

				
				 copy
			

			

	

        
Use of uninitialized value $oldest[0] in concatenation (.) or string at prog.pl line 13.


    

	
			

					
			
			
			
			
			
			
			
			

			
			
			
		

	
		
		

			

			                        







			
			

				

	
					
					 https://ideone.com/8ZQAVa
					
					
					
					
					

												

												
						
						

					

					
					
					

						
language:

						
Perl (perl 5.28.1)

					

					

						
created:
								
						
8 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!