Beefy Boxes and Bandwidth Generously Provided by pair Networks
go ahead... be a heretic
 
PerlMonks  

print the status of the file

by vrempire (Sexton)
on Aug 07, 2000 at 08:09 UTC ( [id://26498]=perlquestion: print w/replies, xml ) Need Help??

vrempire has asked for the wisdom of the Perl Monks concerning the following question:

hi guys,howdidu I want your help regarding the file.I wanted to print the status of the file like the time the file is accessed,modified,created etc?How I can do that?

Replies are listed 'Best First'.
Re: print the status of the file
by lolindrath (Scribe) on Aug 07, 2000 at 17:46 UTC
    these might also help some, below is an example and then all the options you have to use.
    if ( -e $File ) { #it exists }


    -A Age of file in days since last access -B binary file -C age of file in days since last inode change -M Age of file in days since last modification -O Is the file owned by the real user ID? -R Is the file readable by the real user ID? -S if the file a socket? -T is it a text file? -W is the file writable by the real user ID or real group? -X is the file executable by the real user id or real group? -b is it a block speical file? -c is it a character special file? -d is the file a directory? -e does the file exist? -f is it a plain file? -g does the file hav the setgid bit set? -k does the file have the stick bit set? -l is the file a symbolic link -o is the file owned by the effective user id? -p is the file a named pipe? -r is the file readable by the effective user id? -s returns the size of a file, with zero referring to an empty file -t is the filehandle opened by a TTY(terminal)? -u does the file have the setuid bit set? -w is the file writable by the effective user or group ID? -x is the fie executable by the effective user or group ID? -z is the file size zero?
    (this comes from Perl: the complete reference)

    --=Lolindrath=--
Re: print the status of the file
by btrott (Parson) on Aug 07, 2000 at 08:56 UTC
    stat. Or File::stat.

    But you can't get the created time, because Unix doesn't store that information.

    my($accessed, $modified) = (stat "/foo/bar")[8, 9];
    Or, using File::stat,
    use File::stat; my $s = stat "/foo/bar"; print scalar localtime $s->atime;
    You should get the idea.

Log In?
Username:
Password:

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

How do I use this?Last hourOther CB clients
Other Users?
Others surveying the Monastery: (8)
As of 2024-04-24 11:36 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found