#1
  1. No Profile Picture
    Registered User
    Devshed Newbie (0 - 499 posts)

    Join Date
    Sep 2012
    Posts
    7
    Rep Power
    0

    (2) Questions regarding the [Hash] and [Reading a directory]


    I have two questions.

    1) I'm trying to let the user type his "directory path" (perl example.pl /Users/name/file) in order to show the files or directory folder, i also wanted to show if the file or directory can or cannot be read, written, and executed


    This the code i came up with.. but i still wanted to know if i can find the way of indicating if the file or directory and if it can or cannot be
    read, written, and executed. I also wanted to make sure about what i making is good on other systems ( Linux/Unix/Mac)

    Code:
    #!/usr/bin/perl -w
    
    use strict;
    
    my $dir = shift || die "Argument missing: Please make sure from your directory name\n";
    
    my $dir = "..";
    opendir DIR, $dir;
    my @values = readdir(DIR);
    closedir DIR;
    
    foreach (@values) { 
      printf "$_ is a file\n" if -f "$dir/$_"; 
      printf "$_ is a dir\n" if -d "$dir/$_"; 
    }

    2) Question 2, i want to print out elements of hash and i want to use different ways of listing them.. just as each funiction, keys function,
    values function and finaly sort keys.. and what i did was the following code and i don't know where is my problem...

    $A = user input..
    $B = user input..

    Code:
    #!/usr/bin/perl -w
    
    use strict;
    
    print  "Enter A: ";
    $A = <STDIN>;
    chomp $A;
    print  "Enter B: ";
    $B = <STDIN>;
    chomp $B;
    
    my %hash = ( 
                 'A' => "$A", 
                 'B'  => "$B", 
                 'Z' => 'Z', 
                 'D' => 'D', 
    			 'H' => 'H', 
                );
    			
    print "A:     $hash{ 'A' }\n";
    print "B:       $hash{ 'B' }\n";
    print "Z:     $hash{ 'Z' }\n";
    print "D:    $hash{ 'D' }\n";
    print "H:  $hash{ 'H' }\n";

    These are the 2 questions that i'm facing problem with...

    Thanks
  2. #2
  3. No Profile Picture
    Contributing User
    Devshed Intermediate (1500 - 1999 posts)

    Join Date
    Apr 2009
    Posts
    1,875
    Rep Power
    1225
    Cross posted on perlguru

IMN logo majestic logo threadwatch logo seochat tools logo