fork download
copy 
  1. #!/usr/bin/perl
  2. %data=();
  3. foreach $r ( <STDIN> ) {
  4. 	chomp($r);
  5. 	if($r =~ /^AWD[A-Za-z0-9]{6}$/){
  6. 		if(!exists($data{$r})){
  7. 			$data{$r} = 1;
  8. 			print "$r\n";
  9. 		}
  10. 	} else {
  11. 		print "$r\n";
  12. 	}
  13. }
Success #stdin #stdout 0s 6044KB
comments (?)
stdin
copy 
5000
5000
false
false
AWD015F11
425
25
34
1
5000
5000
320
320
OH,AWD015F
false
true
8
50
32
0
5
9
9
true
-34
0
false
false
AWD015F11
AWD015G21
stdout
copy 
5000
5000
false
false
AWD015F11
425
25
34
1
5000
5000
320
320
OH,AWD015F
false
true
8
50
32
0
5
9
9
true
-34
0
false
false
AWD015G21
https://ideone.com/0SFQQ4
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!