Beefy Boxes and Bandwidth Generously Provided by pair Networks
Problems? Is your data what you think it is?
 
PerlMonks  

My Home Script

by Anonymous Monk
on Jul 07, 2002 at 00:32 UTC ( #179904=perlquestion: print w/ replies, xml ) Need Help??
Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

I have a huge problem that is bugging me. First take a look at a screenshot of my script.

Screen Shot

Now see the radio buttons, they are for files and direcotries. Now when the try to edit a file, it edits it. But if they click on edit when a direcotry is selected I want it to move into that direcotry(on my script). The problem is, how can I tell if it's a direcotry or file. Cause what if the file is called a but the directory is called a. And I need to use radion buttons. Any ideas

Comment on My Home Script
Re: My Home Script
by vek (Prior) on Jul 07, 2002 at 00:53 UTC
    The problem is, how can I tell if it's a directory or file.
    if (-d $fileFound) { # it's a directory } else { # it's *not* a directory }
    Cheers.

    -- vek --
      but what if its a file and a direcotry
        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)
        
        If you are traversing a directory and examining the contents you will find that you can never have an instance where you have a directory and a file named the same so I'm confused as to your point.

        Cheers.

        -- vek --

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others wandering the Monastery: (10)
As of 2014-07-22 21:49 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My favorite superfluous repetitious redundant duplicative phrase is:









    Results (129 votes), past polls