00000000 00000018 00000030 00000048 00000060 00000078 00000090 000000A8 000000C0 000000D8 000000F0 00000108 00000120
| 23 21 22 45 3A 5C 6E 75 65 76 6F 5C 70 65 72 6C 5C 62 69 6E 5C 70 65 72 6C 2E 65 78 65 22 0D 0A 23 23 0D 0A 23 23 20 20 70 72 69 6E 74 65 6E 76 20 2D 2D 20 64 65 6D 6F 20 43 47 49 20 70 72 6F 67 72 61 6D 20 77 68 69 63 68 20 6A 75 73 74 20 70 72 69 6E 74 73 20 69 74 73 20 65 6E 76 69 72 6F 6E 6D 65 6E 74 0D 0A 23 23 0D 0A 0D 0A 70 72 69 6E 74 20 22 43 6F 6E 74 65 6E 74 2D 74 79 70 65 3A 20 74 65 78 74 2F 70 6C 61 69 6E 3B 20 63 68 61 72 73 65 74 3D 69 73 6F 2D 38 38 35 39 2D 31 5C 6E 5C 6E 22 3B 0D 0A 66 6F 72 65 61 63 68 20 24 76 61 72 20 28 73 6F 72 74 28 6B 65 79 73 28 25 45 4E 56 29 29 29 20 7B 0D 0A 09 24 76 61 6C 20 3D 20 24 45 4E 56 7B 24 76 61 72 7D 3B 0D 0A 09 24 76 61 6C 20 3D 7E 20 73 7C 5C 6E 7C 5C 5C 6E 7C 67 3B 0D 0A 09 24 76 61 6C 20 3D 7E 20 73 7C 22 7C 5C 5C 22 7C 67 3B 0D 0A 09 70 72 69 6E 74 20 22 24 7B 76 61 72 7D 3D 5C 22 24 7B 76 61 6C 7D 5C 22 5C 6E 22 3B 0D 0A 7D 0D 0A | #!"E:\nuevo\perl\bin\per l.exe" ## ## printenv -- demo CGI program whi ch just prints its envir onment ## print "Con tent-type: text/plain; c harset=iso-8859-1\n\n"; foreach $var (sort(keys (%ENV))) { $val = $ENV {$var}; $val =~ s|\n|\ \n|g; $val =~ s|"|\\"| g; print "${var}=\"${v al}\"\n"; } |