fork download
copy 
  1. #!/usr/bin/perl
  2. @xlat = ( 0x64, 0x73, 0x66, 0x64, 0x3b, 0x6b, 0x66, 0x6f, 0x41,
  3. 	  0x2c, 0x2e, 0x69, 0x79, 0x65, 0x77, 0x72, 0x6b, 0x6c,
  4. 	  0x64, 0x4a, 0x4b, 0x44, 0x48, 0x53 , 0x55, 0x42 );
  5. 	$in = $ARGV[0];
  6. 	$ep = $in; $dp = "";
  7. 	($s, $e) = ($in =~ /^(..)(.+)/o);
  8. 	for ($i = 0; $i < length($e); $i+=2) {
  9. 	    $dp .= sprintf "%c",hex(substr($e,$i,2))^$xlat[$s++];
  10. 	}
  11. 	print "\n$dp\n\n";
  12.  
Compilation error #stdin compilation error #stdout 0s 0KB
comments (?)
stdin
copy 
Standard input is empty
compilation info 
===SORRY!===
Unsupported use of =~ to do pattern matching; in Perl 6 please use ~~ at line 7, near " /^(..)(.+"
stdout
copy 
Standard output is empty
https://ideone.com/V1t3P
language:
Perl (perl 2018.12)
created:
14 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!