fork download
copy 
  1. #!/usr/bin/perl
  2. # your code goes here
  3.  
  4. my $inputSerial = 0;
  5. my $secondremotearray = 0;
  6. my $remotearray = 1;
  7.  
  8. if ($inputSerial == $secondremotearray)
  9. {
  10. 	print "$inputSerial == $secondremotearray\n";
  11. }
  12. if (($inputSerial != $remotearray) and ($inputSerial != $secondremotearray))
  13. {
  14. 	die "failed";
  15. }
Success #stdin #stdout 0s 3608KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
0 == 0
https://ideone.com/8ozbyZ
language:
Perl (perl 5.28.1)
created:
11 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!