Perl és az operációs rendszer

Parancs futtatása

system("ls");
if ( $? != 0 ) {
  print "command failed: $!\n";
}else {
  printf "command exited with value %d", $? >> 8;
}

print $^O

Linux alatt a választ: linux Mac OS X alatt: MacOS

Például nem minden operációs rendszernél szeretnénk tesztelni:

use Test::More;
if( $^O eq 'MacOS' ) {
    plan skip_all => 'A teszt nem releváns Mac OS X rendszeren.';
} else {
    plan tests => 21;
}

print $ENV{'PATH'}."\n";

if ( -d $ENV{"HOME"} . "/valami" ) {
	print("itt már volt könyvtár\n");
}else {
	system("mkdir ~/valami");
}

#!/usr/bin/perl
 
my $username = "janos";
print "A felhasználó létezik!\n" if getpwnam($username);

#!/usr/bin/perl
 
my $username = "voice";
print "A csoport létezik!\n" if getgrnam($username);