Directory Operations

opendir(DIR,"/u/rminer/tmp");

foreach $file (readdir(DIR)) {
   print "$file \n";
}
close(DIR);

File Operations

chdir "/u/rminer/tmp";
mkdir("test", 0755);
rename("test","gunk");
.
. # write stuff to gunk
.
opendir(DIR,"gunk");
foreach $file (readdir(DIR)) {
  unlink("gunk/$file");
  print "deleted $file \n";
}
closedir(DIR);

File Tests

chdir("/u/rminer/tmp");

(-e "dog") || print "no dog exists \n";
(-r "cat") || print "can't write to cat \n";
(-d "rat") || print "rat is NOT a directory \n";

System Calls

system("ps | grep rminer");

$file1 = "test.ps";
$file2 = "test.gif";

system("convert $file1 $file2");