8 drwxr-xr-x 4 aas users 1024 Mar 16 15:47 .
9 drwxr-xr-x 11 aas users 1024 Mar 15 19:22 ..
10 drwxr-xr-x 2 aas users 1024 Mar 16 15:47 CVS
11 -rw-r--r-- 1 aas users 2384 Feb 26 21:14 Debug.pm
12 -rw-r--r-- 1 aas users 2145 Feb 26 20:09 IO.pm
13 -rw-r--r-- 1 aas users 3960 Mar 15 18:05 MediaTypes.pm
14 -rw-r--r-- 1 aas users 792 Feb 26 20:12 MemberMixin.pm
15 drwxr-xr-x 3 aas users 1024 Mar 15 18:05 Protocol
16 -rw-r--r-- 1 aas users 5613 Feb 26 20:16 Protocol.pm
17 -rw-r--r-- 1 aas users 5963 Feb 26 21:27 RobotUA.pm
18 -rw-r--r-- 1 aas users 5071 Mar 16 12:25 Simple.pm
19 -rw-r--r-- 1 aas users 8817 Mar 15 18:05 Socket.pm
20 -rw-r--r-- 1 aas users 2121 Feb 5 14:22 TkIO.pm
21 -rw-r--r-- 1 aas users 19628 Mar 15 18:05 UserAgent.pm
22 -rw-r--r-- 1 aas users 2841 Feb 5 19:06 media.types
26 drwxr-xr-x 2 aas users 1024 Mar 16 15:47 .
27 drwxr-xr-x 4 aas users 1024 Mar 16 15:47 ..
28 -rw-r--r-- 1 aas users 545 Mar 16 15:47 Entries
29 -rw-r--r-- 1 aas users 39 Mar 10 09:05 Repository
30 -rw-r--r-- 1 aas users 19 Mar 10 09:05 Root
34 drwxr-xr-x 3 aas users 1024 Mar 15 18:05 .
35 drwxr-xr-x 4 aas users 1024 Mar 16 15:47 ..
36 drwxr-xr-x 2 aas users 1024 Mar 15 18:05 CVS
37 -rw-r--r-- 1 aas users 4646 Feb 26 20:13 file.pm
38 -rw-r--r-- 1 aas users 13006 Mar 15 18:05 ftp.pm
39 -rw-r--r-- 1 aas users 5935 Mar 6 10:29 gopher.pm
40 -rw-r--r-- 1 aas users 5453 Mar 6 10:29 http.pm
41 -rw-r--r-- 1 aas users 2365 Feb 26 20:13 mailto.pm
45 drwxr-xr-x 2 aas users 1024 Mar 15 18:05 .
46 drwxr-xr-x 3 aas users 1024 Mar 15 18:05 ..
47 -rw-r--r-- 1 aas users 238 Mar 15 18:05 Entries
48 -rw-r--r-- 1 aas users 48 Mar 10 09:05 Repository
49 -rw-r--r-- 1 aas users 19 Mar 10 09:05 Root
52 @dir = parse_dir($dir, undef, 'unix');
54 print int(@dir) ." lines found\n";
55 @dir != 25 && print "not ";
59 ($name, $type, $size, $mtime, $mode) = @$_;
60 $size ||= 0; # ensure that it is defined
61 printf "%-25s $type %6d ", $name, $size;
62 print scalar(localtime($mtime));
63 printf " %06o", $mode;
67 # Pick out the Socket.pm line as the sample we check carefully
68 ($name, $type, $size, $mtime, $mode) = @{$dir[9]};
70 $name eq "Socket.pm" || print "not ";
73 $type eq "f" || print "not ";
76 $size == 8817 || print "not ";
79 # Must be careful when checking the time stamps because we don't know
80 # which year if this script lives for a long time.
81 $timestring = scalar(localtime($mtime));
82 $timestring =~ /Mar\s+15\s+18:05/ or print "not ";
85 $mode == 0100644 || print "not ";