home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / a_utils / perl / mac-perl / mcprl401.bin / Perl_appl / t / io / argv.t next >
MacBinary  |  1992-01-05  |  1.5 KB  |  [TEXT/MPS ]
open in: MacOS 8.1     |     Win98     |     DOS

browse contents    |     view JSON data     |     view as text


This file was processed as: MacBinary (archive/macBinary).

ConfidenceProgramDetectionMatch TypeSupport
66% dexvert E-Tracker Chiptune (music/eTracker) ext Supported
10% dexvert MacBinary (archive/macBinary) fallback Supported
10% dexvert Jesper Olsen Module (music/jesperOlsen) magic Supported
1% dexvert Simis (archive/simis) ext Unsupported
1% dexvert TADS (other/tads) ext Unsupported
1% dexvert Text File (text/txt) fallback Supported
100% file MacBinary II, Sun Jan 5 15:28:19 1992, modified Sun Jan 5 15:28:19 1992, creator 'MPS ', type ASCII, 891 bytes "argv.t" default (weak)
99% file a ./perl script executable (binary data), at 0x3fb 428 bytes resource default (weak)
98% file a ./perl script executable (binary data) default (weak)
97% file data default
49% TrID Macintosh plain text (MacBinary) default
33% TrID TTComp archive compressed (bin-4K) default (weak)
16% TrID MacBinary 2 default (weak)
100% siegfried fmt/1762 MacBinary (II) default
100% lsar MacBinary default


id metadata
keyvalue
macFileType[TEXT]
macFileCreator[MPS ]


hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 06 61 72 67 76 2e 74 | 00 00 00 00 00 00 00 00 |..argv.t|........|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 50 53 | 20 00 00 00 00 00 00 00 |.TEXTMPS| .......|
|00000050| 00 00 00 00 00 03 7b 00 | 00 01 ac a5 8d 1a e3 a5 |......{.|........|
|00000060| 8d 1a e3 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 d3 18 00 00 |........|........|
|00000080| 23 21 2e 2f 70 65 72 6c | 0d 0d 23 20 24 48 65 61 |#!./perl|..# $Hea|
|00000090| 64 65 72 3a 20 61 72 67 | 76 2e 74 2c 76 20 34 2e |der: arg|v.t,v 4.|
|000000a0| 30 20 39 31 2f 30 33 2f | 32 30 20 30 31 3a 35 30 |0 91/03/|20 01:50|
|000000b0| 3a 34 36 20 6c 77 61 6c | 6c 20 4c 6f 63 6b 65 64 |:46 lwal|l Locked|
|000000c0| 20 24 0d 0d 70 72 69 6e | 74 20 22 31 2e 2e 35 5c | $..prin|t "1..5\|
|000000d0| 6e 22 3b 0d 0d 6f 70 65 | 6e 28 74 72 79 2c 20 27 |n";..ope|n(try, '|
|000000e0| 3e 49 6f 2e 61 72 67 76 | 2e 74 6d 70 27 29 20 7c |>Io.argv|.tmp') ||
|000000f0| 7c 20 28 64 69 65 20 22 | 43 61 6e 27 74 20 6f 70 || (die "|Can't op|
|00000100| 65 6e 20 74 65 6d 70 20 | 66 69 6c 65 2e 22 29 3b |en temp |file.");|
|00000110| 0d 70 72 69 6e 74 20 74 | 72 79 20 22 61 20 6c 69 |.print t|ry "a li|
|00000120| 6e 65 5c 6e 22 3b 0d 63 | 6c 6f 73 65 20 74 72 79 |ne\n";.c|lose try|
|00000130| 3b 0d 0d 24 78 20 3d 20 | 60 70 65 72 6c 20 2d 65 |;..$x = |`perl -e|
|00000140| 20 27 77 68 69 6c 65 20 | 28 3c 3e 29 20 7b 70 72 | 'while |(<>) {pr|
|00000150| 69 6e 74 20 5c 24 2e 2c | 5c 24 5f 3b 7d 27 20 49 |int \$.,|\$_;}' I|
|00000160| 6f 2e 61 72 67 76 2e 74 | 6d 70 20 49 6f 2e 61 72 |o.argv.t|mp Io.ar|
|00000170| 67 76 2e 74 6d 70 60 3b | 0d 0d 69 66 20 28 24 78 |gv.tmp`;|..if ($x|
|00000180| 20 65 71 20 22 31 61 20 | 6c 69 6e 65 5c 6e 32 61 | eq "1a |line\n2a|
|00000190| 20 6c 69 6e 65 5c 6e 22 | 29 20 7b 70 72 69 6e 74 | line\n"|) {print|
|000001a0| 20 22 6f 6b 20 31 5c 6e | 22 3b 7d 20 65 6c 73 65 | "ok 1\n|";} else|
|000001b0| 20 7b 70 72 69 6e 74 20 | 22 6e 6f 74 20 6f 6b 20 | {print |"not ok |
|000001c0| 31 5c 6e 22 3b 7d 0d 0d | 24 78 20 3d 20 60 65 63 |1\n";}..|$x = `ec|
|000001d0| 68 6f 20 66 6f 6f 7c 70 | 65 72 6c 20 2d 65 20 27 |ho foo|p|erl -e '|
|000001e0| 77 68 69 6c 65 20 28 3c | 3e 29 20 7b 70 72 69 6e |while (<|>) {prin|
|000001f0| 74 20 24 5f 3b 7d 27 20 | 49 6f 2e 61 72 67 76 2e |t $_;}' |Io.argv.|
|00000200| 74 6d 70 20 2d 60 3b 0d | 0d 69 66 20 28 24 78 20 |tmp -`;.|.if ($x |
|00000210| 65 71 20 22 61 20 6c 69 | 6e 65 5c 6e 66 6f 6f 5c |eq "a li|ne\nfoo\|
|00000220| 6e 22 29 20 7b 70 72 69 | 6e 74 20 22 6f 6b 20 32 |n") {pri|nt "ok 2|
|00000230| 5c 6e 22 3b 7d 20 65 6c | 73 65 20 7b 70 72 69 6e |\n";} el|se {prin|
|00000240| 74 20 22 6e 6f 74 20 6f | 6b 20 32 5c 6e 22 3b 7d |t "not o|k 2\n";}|
|00000250| 0d 0d 24 78 20 3d 20 60 | 65 63 68 6f 20 66 6f 6f |..$x = `|echo foo|
|00000260| 7c 70 65 72 6c 20 2d 65 | 20 27 77 68 69 6c 65 20 ||perl -e| 'while |
|00000270| 28 3c 3e 29 20 7b 70 72 | 69 6e 74 20 24 5f 3b 7d |(<>) {pr|int $_;}|
|00000280| 27 60 3b 0d 0d 69 66 20 | 28 24 78 20 65 71 20 22 |'`;..if |($x eq "|
|00000290| 66 6f 6f 5c 6e 22 29 20 | 7b 70 72 69 6e 74 20 22 |foo\n") |{print "|
|000002a0| 6f 6b 20 33 5c 6e 22 3b | 7d 20 65 6c 73 65 20 7b |ok 3\n";|} else {|
|000002b0| 70 72 69 6e 74 20 22 6e | 6f 74 20 6f 6b 20 33 20 |print "n|ot ok 3 |
|000002c0| 3a 24 78 3a 5c 6e 22 3b | 7d 0d 0d 40 41 52 47 56 |:$x:\n";|}..@ARGV|
|000002d0| 20 3d 20 28 27 49 6f 2e | 61 72 67 76 2e 74 6d 70 | = ('Io.|argv.tmp|
|000002e0| 27 2c 20 27 49 6f 2e 61 | 72 67 76 2e 74 6d 70 27 |', 'Io.a|rgv.tmp'|
|000002f0| 2c 20 27 44 65 76 3a 4e | 75 6c 6c 27 2c 20 27 49 |, 'Dev:N|ull', 'I|
|00000300| 6f 2e 61 72 67 76 2e 74 | 6d 70 27 29 3b 0d 77 68 |o.argv.t|mp');.wh|
|00000310| 69 6c 65 20 28 3c 3e 29 | 20 7b 0d 20 20 20 20 24 |ile (<>)| {.    $|
|00000320| 79 20 2e 3d 20 24 2e 20 | 2e 20 24 5f 3b 0d 20 20 |y .= $. |. $_;.  |
|00000330| 20 20 69 66 20 28 65 6f | 66 28 29 29 20 7b 0d 09 |  if (eo|f()) {..|
|00000340| 69 66 20 28 24 2e 20 3d | 3d 20 33 29 20 7b 70 72 |if ($. =|= 3) {pr|
|00000350| 69 6e 74 20 22 6f 6b 20 | 34 5c 6e 22 3b 7d 20 65 |int "ok |4\n";} e|
|00000360| 6c 73 65 20 7b 70 72 69 | 6e 74 20 22 6e 6f 74 20 |lse {pri|nt "not |
|00000370| 6f 6b 20 34 5c 6e 22 3b | 7d 0d 20 20 20 20 7d 0d |ok 4\n";|}.    }.|
|00000380| 7d 0d 0d 69 66 20 28 24 | 79 20 65 71 20 22 31 61 |}..if ($|y eq "1a|
|00000390| 20 6c 69 6e 65 5c 6e 32 | 61 20 6c 69 6e 65 5c 6e | line\n2|a line\n|
|000003a0| 33 61 20 6c 69 6e 65 5c | 6e 22 29 0d 20 20 20 20 |3a line\|n").    |
|000003b0| 7b 70 72 69 6e 74 20 22 | 6f 6b 20 35 5c 6e 22 3b |{print "|ok 5\n";|
|000003c0| 7d 0d 65 6c 73 65 0d 20 | 20 20 20 7b 70 72 69 6e |}.else. |   {prin|
|000003d0| 74 20 22 6e 6f 74 20 6f | 6b 20 35 5c 6e 22 3b 7d |t "not o|k 5\n";}|
|000003e0| 0d 0d 60 44 65 6c 65 74 | 65 20 2d 79 20 49 6f 2e |..`Delet|e -y Io.|
|000003f0| 61 72 67 76 2e 74 6d 70 | 60 3b 0d 00 00 00 00 00 |argv.tmp|`;......|
|00000400| 00 00 01 00 00 00 01 6e | 00 00 00 6e 00 00 00 3e |.......n|...n...>|
|00000410| a9 a0 26 5f 61 bb 6c 20 | 54 b6 01 16 a9 4b 20 a5 |..&_a.l |T....K .|
|00000420| ea 1f 12 04 20 2f 06 22 | 2f 01 2f 02 0a 24 00 c4 |.... /."|/./..$..|
|00000430| 06 61 72 67 76 2e 74 da | 02 00 00 00 54 45 58 54 |.argv.t.|....TEXT|
|00000440| 4d 50 53 20 00 00 00 00 | 00 00 00 00 00 00 76 05 |MPS ....|......v.|
|00000450| 00 00 54 45 58 54 4d 50 | 53 20 00 00 00 00 00 00 |..TEXTMP|S ......|
|00000460| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000470| 00 00 a5 8c 0c 18 00 00 | 03 7b 00 00 01 ac 2f 06 |........|.{..../.|
|00000480| 64 20 2f 01 0e 38 00 24 | 01 e4 4a 42 66 1c 72 36 |d /..8.$|..JBf.r6|
|00000490| 00 af 6d 3f 80 c1 34 00 | e4 30 03 19 80 c1 34 00 |..m?..4.|.0....4.|
|000004a0| 22 02 af 6d 60 22 24 00 | af c8 6d e4 42 42 26 01 |"..m`"$.|..m.BB&.|
|000004b0| 33 78 0f d4 82 d1 80 03 | d2 81 b0 83 65 04 90 83 |3x......|....e...|
|000004c0| 52 01 51 cc 28 23 c0 26 | 04 00 00 0f 1d a8 9f 65 |R.Q.(#.&|.......e|
|000004d0| 72 00 12 09 01 00 00 14 | 0a 00 02 00 00 00 02 c5 |r.......|........|
|000004e0| bd 00 43 44 45 46 00 3f | 00 4e fa 09 e5 10 cb 0e |..CDEF.?|.N......|
|000004f0| 0f 18 3a 2e 05 3e 2e 25 | da 24 1c 7c 00 0a 1f a8 |..:..>.%|.$.|....|
|00000500| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 77 61 6c |...H..Mo|naco.wal|
|00000510| 6c 20 4c 6f 63 6b 65 64 | 20 24 0d 0d 70 72 69 6e |l Locked| $..prin|
|00000520| 74 20 22 31 2e 2e 00 06 | 00 03 00 50 00 20 01 dd |t "1....|...P. ..|
|00000530| 02 3d 00 50 00 20 01 dd | 02 3d a5 8c e2 a3 00 00 |.=.P. ..|.=......|
|00000540| 03 6c 00 00 03 6c 00 00 | 00 f9 01 00 00 00 00 1e |.l...l..|........|
|00000550| 00 50 00 20 01 dd 02 3d | 00 50 00 20 01 dd 02 3d |.P. ...=|.P. ...=|
|00000560| 00 00 00 f9 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000570| 01 00 00 00 01 6e 00 00 | 00 6e 00 00 00 3e 00 2b |.....n..|.n...>.+|
|00000580| a4 ec 07 b8 00 00 00 1c | 00 3e 00 00 4d 50 53 52 |........|.>..MPSR|
|00000590| 00 01 00 0a 03 ed ff ff | 00 00 00 00 00 00 00 00 |........|........|
|000005a0| 03 f0 ff ff 00 00 00 4c | 00 31 af c4 00 00 00 00 |.......L|.1......|
|000005b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+