'-p filehandle': True if file is a named pipe (FIFO). : file test « File « Perl

1. Perl
2. File
3. file test

'-p filehandle': True if file is a named pipe (FIFO).

    

#!/usr/bin/perl -w

$dir = "c:\\";
opendir(DIR, $dir) or die "Can't open $name due to $!";

@entries = readdir(DIR);

closedir(DIR);

@sorted = sort(@entries);
foreach $entry (@sorted) {
    $name = $dir . '/' . $entry;
    print "$name   ";

    if (-l $name) {
        print "symbolic link";
    } elsif (-d $name) {
        print "directory";
    }  elsif (-p $name) {
        print "FIFO pipe"; 
    }  elsif (-f $name) {
        print "normal file";
    }  else {
        print "unknown file type";
    } 

} 

   
    
    
    
  

Related examples in the same category