[[oktatas:programozás:perl|< Perl]]

====== Perl és az operációs rendszer ======

  * **Szerző:** Sallai András
  * Copyright (c) Sallai András, 2015, 2018
  * [[https://creativecommons.org/licenses/by-sa/4.0/|CC Attribution-Share Alike 4.0 International]]
  * Web: http://szit.hu
===== Parancs futtatása =====

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

===== Melyik operációs rendszer =====

  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:

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

===== Környezeti változók =====

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


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


===== Felhasználó létezése =====

<code perl main.pl>
#!/usr/bin/perl

my $username = "janos";
print "A felhasználó létezik!\n" if getpwnam($username);
</code>

<code perl main.pl>
#!/usr/bin/perl

my $username = "voice";
print "A csoport létezik!\n" if getgrnam($username);
</code>