1#!/usr/bin/perl
2
3use strict;
4use warnings;
5use Getopt::Long;
6
7my @macosx_versions = (
8    "10.0",
9    "10.1",
10    "10.2",
11    "10.3",
12    "10.4",
13    "10.5",
14    "10.6",
15    "10.7",
16    "10.8",
17    "10.9",
18    "10.10",
19);
20
21my @ios_versions = (
22    "2.0",
23    "2.1",
24    "2.2",
25    "3.0",
26    "3.1",
27    "3.2",
28    "4.0",
29    "4.1",
30    "4.2",
31    "4.3",
32    "5.0",
33    "5.1",
34    "6.0",
35    "6.1",
36    "7.0",
37    "7.1",
38    "8.0",
39);
40
41my $m;
42my $i;
43GetOptions('macosx' => \$m, 'ios' => \$i);
44
45if ($m) {
46  print join(" ", @macosx_versions) . "\n";
47} elsif ($i) {
48  print join(" ", @ios_versions) . "\n";
49} else {
50  print "usage: $0 --macosx|--ios\n";
51}
52
53