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