TTY：端末はキャラクタデバイスである、それは一般的に端末のttyデバイスの様々なタイプを使用して参照、さまざまな種類のを持っています
1 ＃！/ usr / bin / perlの部分 2 3 使用厳しいです。 4つの 使用警告; 5 6 プリント " が存在し、\ nは！" 場合は -e ' 1.TXT ' ; 7 プリント " ！\ n個存在する" もし -e ' 2.txt 'を。 8つの 9 ＃が存在します！ 10 ＃ 11 12は 警告する " 新しいファイル\ nは！" もし -M ' 1.TXT ' < 2 。 13 14 ＃新しいファイル！ 15 16 私の $ファイル名 = ' 1.TXT ' ; 17 もし（（-s $ファイル名 <100_000）&&（ - A _ < 1））{ 印刷 " このファイルは小さく、新しいです\ nは！" ;} 18 であれば（-w -r _）{ プリント 「このファイルがあります書き込みおよび読み出し可能な\ nは両方！" ;} 19 20 ＃このファイルは小さく、新しいです！ 21 ＃このファイルには、書き込みおよび読み出し可能なの両方です！ 22 23 私の $ファイル = -s$ファイル名。印刷 「ファイルサイズは$ファイルです」。" Bの\ nを" ; 24 25 ＃のファイルサイズは116Bである 26 27 場合（-l ' check.pl '）{ プリント " check.plは、リンク\ nのファイルである" } 28 29 ＃1 check.plは、リンクを持つファイルである 30 31 私の $ M = -M ' 1.TXT ' ; 私 の$ C = -C ' check.pl ' ; 私 の$ A= -A ' check.pl ' ; 印刷 " $ M \ T $ C \ T $ A \ nは" ; 32 33 ＃0.0313657407407407407 3.10847222222222222 3.10847222222222222 34 35 $ _ = ' 1.TXT '。場合（-r）{ プリント " $ _はreadhandleする\ nである" } 36 37 ＃1.TXTはreadhandleある 38 39 私の $サイズ =（-S）/ 1024。印刷 " $サイズ\ nを" ; 40 41 ＃0.11328125 42 43 私の（$ DEV、$の井野、$モード、$のnlink、$のUID、$ gidを、$ RDEV、$サイズ、$ atimeが、$ mtimeを、$ ctimeの、$ BLKSIZE、$ブロック）= のstat（" 1。 TXT "）; $ atimeを = localtimeの $ atimeの。 44 私の（$秒、$分、$の時、$日、$月、$年、$ wday、$ yday、$ isdst）= localtimeの $ ctimeを。 45 印刷 " dev_number = $ DEV \ NINODE = $イノ\ nmode = $モードの\ nhardリンク= $のnlinkの\のnユーザーのID = $のUIDの\のngroupのID = $ gidの\ nは$ RDEV \ nsizeの場合= $サイズ\ n個の$のatime \ nを$ mtimeのを\ n $というのはCTime \ n個の$ BLKSIZEの\ nは$ブロックのn \ " ; 46 印刷 " $のydayの\ nを" ; 47 48 ＃dev_number = 43 49 #inode = 95085688861 50 ＃モード= 33188 51 = 1つの#hardリンク 52 = 1000092 #USER番号 53 #GROUP番号= 30086 54 ＃0〜 55 ＃サイズ= 116 56 #Sun 6月30日午前17時17分20秒2019年 57 ＃1561886240 58 ＃1561886240 59 ＃1048576 60 ＃8 61 ＃180 62 63 私の $今 = のgmtime。印刷 " $は現在の\ n " ; 64 65 ＃日6月30日11時10分25秒2019年 66 67 私の $の2つの = 12＆2。印刷 " のn \ $の2つの" ; 68 私の $移動 = 25.5>> 2 ; 印刷 " $移動\ nを" ; 69 $移動 =（25 >> 2）<< 2。印刷 " $移動\ nを" ; 70 71 ＃0 72 ＃6 73 24位