< Perl

Perl és az operációs rendszer

Szerző: Sallai András

Copyright © Sallai András, 2015, 2018

CC Attribution-Share Alike 4.0 International

Web: http://szit.hu

Parancs futtatása

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

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:

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

Környezeti változók

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

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

Felhasználó létezése

#!/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);