blob: fe80786fa55103d0b26c8431456ff74b4ae3a055 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
#! /usr/local/bin/perl
@path = split(/:/, $ENV{'PATH'});
foreach $dir (@path) {
foreach $f (<$dir/*>) {
if (-f $f) {
($dev,$ino,$mode) = stat($f);
printf("file %s is writale from other users\n", $f)
if ($mode & 022);
}
}
}
|