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