fork(1) download
copy 
  1. #!/usr/bin/perl
  2. %h = qw{yyyy 0 mm 2 dd 4 hh 6 MM 8 ss 10};
  3. ($s, $p, $v) = <>; chomp ($p, $v);
  4. @f = $s =~ /(?:(\w+)(\W?))/g;
  5. @f[@h{$p, $v}] = @f[@h{$v, $p}];
  6. print @f;
Success #stdin #stdout 0s 5076KB
comments (?)
stdin
copy 
2021/02/17 02:37:41
yyyy
MM
stdout
copy 
37/02/17 02:2021:41
https://ideone.com/ROZTJ8
language:
Perl (perl 5.28.1)
created:
3 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!