Help for this page

Select Code to Download


  1. or download this
    if ($^O =~ /mswin/i) {# Windows code}
    elsif ($^O =~ /linux/i) {# linux code}
    elsif ($^O =~ /darwin/i){# mac code}
    
  2. or download this
    my $OS;
    if ($^O =~ /mswin/i) {$OS = "Windows";print "OS detected: Windows\n"}
    elsif ($^O =~ /linux/i) {$OS = "Linux";print "OS detected: Linux\n"}
    ...
    chomp ($OS = <STDIN>);
    print "\nIncorrect OS type. Try again.\n\n" unless $OS eq "Windows" or
    + $OS eq "Mac" or $OS eq "Linux";} until ($OS eq "Windows" or $OS eq "
    +Mac" or $OS eq "Linux");
    }