Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl-Sensitive Sunglasses
 
PerlMonks  

(jeffa) 3Re: My Home Script

by jeffa (Bishop)
on Jul 07, 2002 at 01:54 UTC ( #179917=note: print w/ replies, xml ) Need Help??


in reply to Re: Re: My Home Script
in thread My Home Script

Hmmm, last i checked a file and directory are two seperate entities. Meditate upon this:

use strict; my $file = shift or die 'gimme a file!'; die 'no such file' unless -e $file; print "directory\n" if -d $file; print "plain file\n" if -f $file; print "sym link\n" if -l $file;
Update:
OOOOOO, this is neat:
use strict; my $file = shift or die 'gimme a file!'; die 'no such file' unless -e $file; while (<DATA>) { my ($test,$msg) = split(/\s+/,$_,2); my $sub = eval "sub { $test shift }"; print $msg if $sub->($file); } __DATA__ -r File is readable by effective uid/gid. -w File is writable by effective uid/gid. -x File is executable by effective uid/gid. -o File is owned by effective uid. -R File is readable by real uid/gid. -W File is writable by real uid/gid. -X File is executable by real uid/gid. -O File is owned by real uid. -z File has zero size. -s File has nonzero size (returns size). -f File is a plain file. -d File is a directory. -l File is a symbolic link. -p File is a named pipe (FIFO), or Filehandle is a pipe. -S File is a socket. -b File is a block special file. -c File is a character special file. -t Filehandle is opened to a tty. -u File has setuid bit set. -g File has setgid bit set. -k File has sticky bit set. -T File is an ASCII text file. -B File is a "binary" file (opposite of -T).

jeffa

L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)


Comment on (jeffa) 3Re: My Home Script
Select or Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://179917]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others studying the Monastery: (19)
As of 2015-07-31 16:45 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (279 votes), past polls