Beefy Boxes and Bandwidth Generously Provided by pair Networks
more useful options
 
PerlMonks  

Re: A Tribute To The Monks Of Wisdom

by blazar (Canon)
on Nov 21, 2008 at 11:56 UTC ( [id://725105]=note: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    
    #!usr/bin/perl
    
    use strict;
    
  2. or download this
    # This is a program which reads in a list of file names from the comma
    +nd 
    # line and prints which files are readable, writable and/or executable
    +,
    # and whether each file exists.
    
  3. or download this
     while ($i < scalar(@ARGV)) {
        open(MYFILE, $ARGV[$i]) or die("Error: cannot open file '$ARGV[$i]
    +'\n");
    
  4. or download this
         print "$ARGV[$i] is readable!\n" if -r MYFILE;
        print "$ARGV[$i] is writable!\n" if -w MYFILE;
        print "$ARGV[$i] is executable!\n" if -x MYFILE;
        print "$ARGV[$i] exists!\n" if -e MYFILE;
        $i++;
    
  5. or download this
     } # end while
    
  6. or download this
    #!/usr/bin/perl
    
    ...
    }
    
    __END__
    

Log In?
Username:
Password:

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

How do I use this?Last hourOther CB clients
Other Users?
Others making s'mores by the fire in the courtyard of the Monastery: (5)
As of 2024-03-28 20:06 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found