version 1.2, 2011/03/27 22:26:33 |
version 1.3, 2011/03/27 22:27:25 |
|
|
#!/usr/bin/perl -T |
#!/usr/bin/perl -T |
|
|
# $AFresh1: perl_strmode.pl,v 1.1.1.1 2011/03/27 20:54:35 andrew Exp $ |
# $AFresh1: perl_strmode.pl,v 1.2 2011/03/27 21:26:33 andrew Exp $ |
# |
# |
# Copyright (c) 2011 Andrew Fresh <andrew@afresh1.com> |
# Copyright (c) 2011 Andrew Fresh <andrew@afresh1.com> |
# Copyright (c) 1990 The Regents of the University of California. |
# Copyright (c) 1990 The Regents of the University of California. |
|
|
when (S_IFREG) { $p .= '-' } # regular |
when (S_IFREG) { $p .= '-' } # regular |
when (S_IFLNK) { $p .= 'l' } # symbolic link |
when (S_IFLNK) { $p .= 'l' } # symbolic link |
when (S_IFSOCK) { $p .= 's' } # socket |
when (S_IFSOCK) { $p .= 's' } # socket |
|
#ifdef S_IFIFO XXX How important is this? Is S_IFIFO ever not set? |
#ifdef S_IFIFO XXX How important is this ifdef? |
|
when (S_IFIFO) { $p .= 'p' } # fifo |
when (S_IFIFO) { $p .= 'p' } # fifo |
|
#endif |
#endif |
|
default { $p .= '?' } # unknown |
default { $p .= '?' } # unknown |
} |
} |
|
|