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);
19
20my @ios_versions = (
21    "2.0",
22    "2.1",
23    "2.2",
24    "3.0",
25    "3.1",
26    "3.2",
27    "4.0",
28    "4.1",
29    "4.2",
30    "4.3",
31    "5.0",
32    "5.1",
33    "6.0",
34    "6.1",
35    "7.0",
36);
37
38my $m;
39my $i;
40GetOptions('macosx' => \$m, 'ios' => \$i);
41
42if ($m) {
43  print join(" ", @macosx_versions) . "\n";
44} elsif ($i) {
45  print join(" ", @ios_versions) . "\n";
46} else {
47  print "usage: $0 --macosx|--ios\n";
48}
49
50