'-T filehandle': True if file is an ASCII text file. : file test « File « Perl






  1. Perl
  2. File
  3. file test

'-T filehandle': True if file is an ASCII text file.

    

#!/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 (-T $name) {
        print ", text file ";
    } elsif (-B $name) {
        print ", binary file ";
    }
    
    print "\n"; # End line.
}








Related examples in the same category

1.'-B filehandle': True if file is binary.
2.'-S filehandle': True if file is a socket (uppercase S).
3.'-d filehandle': True if file is a directory.
4.'-e filehandle': True if file exists.
5.'-f filehandle': True if file is a normal file.
6.'-l filehandle': True if file is a symbolic link.
7.'-p filehandle': True if file is a named pipe (FIFO).
8.'-s filehandle': Returns size if file exists and has nonzero size.
9.'-w filehandle': True if filehandle is writable.
10.'-x filehandle': True if filehandle is executable.
11.'-z filehandle': True if file exists and its size is 0.
12.is the file a executable file?
13.is the file a plain file?
14.is the file a readable file?
15.is the file a writable file?
16.Test for file attributes
17.Tests for read permission on a file.
18.Tests whether the file is empty before opening it for writing.
19.File test operators
20.File testing script
21.File-Test Operator Syntax
22.File-test operators that check information returned by stat.
23.File-test operators that test for permissions.
24.File Tests
25.File Tests for Age
26.File Tests for Execution
27.File Tests for Existence and Size
28.File Tests for Privileges
29.File Tests for Type
30.File Tests for Unix File Handle Types
31.File Test Operators[a]
32.Contents of the current directory
33.Get file modified/accessed time
34.Get the size of a file
35.Some -X File Tests
36.does file exist?