Beefy Boxes and Bandwidth Generously Provided by pair Networks
Think about Loose Coupling

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

Replies are listed 'Best First'.
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 }

    -- 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;
        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).


        (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.


        -- vek --

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: perlquestion [id://179904]
Approved by chromatic
[Discipulus]: last hour of cb breaks it differently..
[LanX]: I think I've send one whitespace by myself at 20
[Discipulus]: are you polluting tests? grin..
[LanX]: 123456789012345678 901234567890123456 789012345678901234 567890
[LanX]: yep
[LanX]: 1234567890 1234567890 1234567890
[LanX]: so inserting own whitespace helps, ie. a JS warning on submit could help preventing problems

How do I use this? | Other CB clients
Other Users?
Others musing on the Monastery: (8)
As of 2017-07-24 10:57 GMT
Find Nodes?
    Voting Booth?
    I came, I saw, I ...

    Results (350 votes). Check out past polls.