home *** CD-ROM | disk | FTP | other *** search
/ CD Actual Thematic 7: Programming / CDAT7.iso / Share / Java / ScriptBuilder / NOSB30_TRIAL.exe / data1.cab / Program_Files / scriptlib3.sbl / ROOT72 / DATA
Unknown  |  1998-10-05  |  1.2 KB
open in: MacOS 8.1     |     Win98     |     DOS

view JSON data     |     view as text


This file was not able to be converted.
This format is not currently supported by dexvert.

ConfidenceProgramDetectionMatch TypeSupport
100% file SIMH tape data default (weak)
99% file data default
100% TrID DiskDupe 5.12 disk image default (weak)


hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 18 00 00 00 75 63 61 73 | 65 5f 74 6f 5f 6c 63 61 |....ucas|e_to_lca|
|00000010| 73 65 5f 66 69 6c 65 6e | 61 6d 65 73 18 00 00 00 |se_filen|ames....|
|00000020| 75 63 61 73 65 5f 74 6f | 5f 6c 63 61 73 65 5f 66 |ucase_to|_lcase_f|
|00000030| 69 6c 65 6e 61 6d 65 73 | 04 00 00 00 50 65 72 6c |ilenames|....Perl|
|00000040| ec 00 00 00 51 75 69 63 | 6b 6c 79 20 72 65 6e 61 |....Quic|kly rena|
|00000050| 6d 65 73 20 61 6c 6c 20 | 6d 69 78 65 64 20 63 61 |mes all |mixed ca|
|00000060| 73 65 20 66 69 6c 65 73 | 20 73 70 65 63 69 66 69 |se files| specifi|
|00000070| 65 64 20 6f 6e 20 74 68 | 65 20 63 6f 6d 6d 61 6e |ed on th|e comman|
|00000080| 64 6c 69 6e 65 20 69 6e | 74 6f 20 74 68 65 69 72 |dline in|to their|
|00000090| 20 6c 6f 77 65 72 63 61 | 73 65 20 28 69 66 20 69 | lowerca|se (if i|
|000000a0| 6e 76 6f 6b 65 64 20 61 | 73 20 6c 6f 63 61 73 65 |nvoked a|s locase|
|000000b0| 29 20 6f 72 20 75 70 70 | 65 72 63 61 73 65 20 28 |) or upp|ercase (|
|000000c0| 69 66 20 69 6e 76 6f 6b | 65 64 20 61 73 20 75 70 |if invok|ed as up|
|000000d0| 63 61 73 65 29 20 65 71 | 75 69 76 61 6c 65 6e 74 |case) eq|uivalent|
|000000e0| 73 2e 20 52 65 6e 61 6d | 65 73 20 61 6c 6c 20 66 |s. Renam|es all f|
|000000f0| 69 6c 65 73 20 69 6e 20 | 63 75 72 72 65 6e 74 20 |iles in |current |
|00000100| 64 69 72 65 63 74 6f 72 | 79 20 77 68 65 6e 20 6e |director|y when n|
|00000110| 6f 20 63 6f 6d 6d 61 6e | 64 6c 69 6e 65 20 61 72 |o comman|dline ar|
|00000120| 67 75 6d 65 6e 74 73 20 | 67 69 76 65 6e 2e 0d 0a |guments |given...|
|00000130| b7 03 00 00 23 21 2f 75 | 73 72 2f 62 69 6e 2f 70 |....#!/u|sr/bin/p|
|00000140| 65 72 6c 0d 0a 23 0d 0a | 23 20 46 75 6e 63 74 69 |erl..#..|# Functi|
|00000150| 6f 6e 3a 20 75 63 61 73 | 65 5f 74 6f 5f 6c 63 61 |on: ucas|e_to_lca|
|00000160| 73 65 5f 66 69 6c 65 6e | 61 6d 65 73 0d 0a 23 0d |se_filen|ames..#.|
|00000170| 0a 23 20 44 45 53 43 3a | 20 71 75 69 63 6b 6c 79 |.# DESC:| quickly|
|00000180| 20 72 65 6e 61 6d 65 73 | 20 61 6c 6c 20 6d 69 78 | renames| all mix|
|00000190| 65 64 20 63 61 73 65 20 | 66 69 6c 65 73 20 73 70 |ed case |files sp|
|000001a0| 65 63 69 66 69 65 64 20 | 6f 6e 20 74 68 65 20 63 |ecified |on the c|
|000001b0| 6f 6d 6d 61 6e 64 6c 69 | 6e 65 20 69 6e 74 6f 0d |ommandli|ne into.|
|000001c0| 0a 23 20 74 68 65 69 72 | 20 6c 6f 77 65 72 63 61 |.# their| lowerca|
|000001d0| 73 65 20 28 69 66 20 69 | 6e 76 6f 6b 65 64 20 61 |se (if i|nvoked a|
|000001e0| 73 20 6c 6f 63 61 73 65 | 29 20 6f 72 20 75 70 70 |s locase|) or upp|
|000001f0| 65 72 63 61 73 65 20 28 | 69 66 20 69 6e 76 6f 6b |ercase (|if invok|
|00000200| 65 64 20 61 73 0d 0a 23 | 20 75 70 63 61 73 65 29 |ed as..#| upcase)|
|00000210| 20 65 71 75 69 76 61 6c | 65 6e 74 73 2e 20 52 65 | equival|ents. Re|
|00000220| 6e 61 6d 65 73 20 61 6c | 6c 20 66 69 6c 65 73 20 |names al|l files |
|00000230| 69 6e 20 63 75 72 72 65 | 6e 74 20 64 69 72 65 63 |in curre|nt direc|
|00000240| 74 6f 72 79 20 77 68 65 | 6e 20 6e 6f 0d 0a 23 20 |tory whe|n no..# |
|00000250| 63 6f 6d 6d 61 6e 64 6c | 69 6e 65 20 61 72 67 75 |commandl|ine argu|
|00000260| 6d 65 6e 74 73 20 67 69 | 76 65 6e 2e 0d 0a 23 0d |ments gi|ven...#.|
|00000270| 0a 0d 0a 24 63 6c 5f 61 | 72 67 75 6d 65 6e 74 73 |...$cl_a|rguments|
|00000280| 20 3d 20 40 41 52 47 56 | 3b 0d 0a 69 66 20 28 20 | = @ARGV|;..if ( |
|00000290| 24 63 6c 5f 61 72 67 75 | 6d 65 6e 74 73 20 3e 20 |$cl_argu|ments > |
|000002a0| 30 20 29 20 7b 0d 0a 09 | 40 66 69 6c 65 6e 61 6d |0 ) {...|@filenam|
|000002b0| 65 73 20 3d 20 40 41 52 | 47 56 3b 0d 0a 7d 20 65 |es = @AR|GV;..} e|
|000002c0| 6c 73 65 20 7b 0d 0a 09 | 6f 70 65 6e 64 69 72 28 |lse {...|opendir(|
|000002d0| 44 49 52 2c 27 2e 27 29 | 20 7c 7c 20 64 69 65 20 |DIR,'.')| || die |
|000002e0| 22 43 61 6e 27 74 20 6f | 70 65 6e 20 63 75 72 72 |"Can't o|pen curr|
|000002f0| 65 6e 74 20 64 69 72 65 | 63 74 6f 72 79 22 3b 0d |ent dire|ctory";.|
|00000300| 0a 09 40 66 69 6c 65 6e | 61 6d 65 73 20 3d 20 72 |..@filen|ames = r|
|00000310| 65 61 64 64 69 72 28 44 | 49 52 29 3b 0d 0a 09 63 |eaddir(D|IR);...c|
|00000320| 6c 6f 73 65 64 69 72 28 | 44 49 52 29 3b 0d 0a 7d |losedir(|DIR);..}|
|00000330| 0d 0a 0d 0a 66 6f 72 20 | 28 40 66 69 6c 65 6e 61 |....for |(@filena|
|00000340| 6d 65 73 29 20 7b 0d 0a | 09 6e 65 78 74 20 69 66 |mes) {..|.next if|
|00000350| 20 24 5f 20 65 71 20 27 | 2e 27 3b 0d 0a 09 6e 65 | $_ eq '|.';...ne|
|00000360| 78 74 20 69 66 20 24 5f | 20 65 71 20 27 2e 2e 27 |xt if $_| eq '..'|
|00000370| 3b 0d 0a 09 69 66 20 28 | 20 24 30 20 3d 7e 20 2f |;...if (| $0 =~ /|
|00000380| 28 28 5b 5e 5c 2f 5d 2a | 29 5c 2f 29 2a 6c 6f 63 |(([^\/]*|)\/)*loc|
|00000390| 61 73 65 2f 6f 20 29 20 | 7b 0d 0a 09 09 69 66 20 |ase/o ) |{....if |
|000003a0| 28 2f 5b 41 2d 5a 5d 2f | 6f 29 20 7b 0d 0a 09 09 |(/[A-Z]/|o) {....|
|000003b0| 09 24 66 6e 61 6d 65 20 | 3d 20 24 5f 3b 0d 0a 09 |.$fname |= $_;...|
|000003c0| 09 09 74 72 2f 41 2d 5a | 2f 61 2d 7a 2f 3b 0d 0a |..tr/A-Z|/a-z/;..|
|000003d0| 09 09 09 73 79 73 74 65 | 6d 20 22 6d 76 20 2d 69 |...syste|m "mv -i|
|000003e0| 20 24 66 6e 61 6d 65 20 | 24 5f 22 3b 0d 0a 09 09 | $fname |$_";....|
|000003f0| 7d 0d 0a 09 7d 20 65 6c | 73 69 66 20 28 20 24 30 |}...} el|sif ( $0|
|00000400| 20 3d 7e 20 2f 28 28 5b | 5e 5c 2f 5d 2a 29 5c 2f | =~ /(([|^\/]*)\/|
|00000410| 29 2a 75 70 63 61 73 65 | 2f 6f 20 29 20 7b 0d 0a |)*upcase|/o ) {..|
|00000420| 09 09 69 66 20 28 2f 5b | 61 2d 7a 5d 2f 6f 29 20 |..if (/[|a-z]/o) |
|00000430| 7b 0d 0a 09 09 09 24 66 | 6e 61 6d 65 20 3d 20 24 |{.....$f|name = $|
|00000440| 5f 3b 0d 0a 09 09 09 74 | 72 2f 61 2d 7a 2f 41 2d |_;.....t|r/a-z/A-|
|00000450| 5a 2f 3b 0d 0a 09 09 09 | 73 79 73 74 65 6d 20 22 |Z/;.....|system "|
|00000460| 6d 76 20 2d 69 20 24 66 | 6e 61 6d 65 20 24 5f 22 |mv -i $f|name $_"|
|00000470| 3b 0d 0a 09 09 7d 0d 0a | 09 7d 20 65 6c 73 65 20 |;....}..|.} else |
|00000480| 7b 0d 0a 09 09 64 69 65 | 20 22 69 6c 6c 65 67 61 |{....die| "illega|
|00000490| 6c 20 69 6e 76 6f 63 61 | 74 69 6f 6e 20 24 30 5c |l invoca|tion $0\|
|000004a0| 6e 22 3b 0d 0a 09 7d 0d | 0a 7d 0d 0a 23 23 23 23 |n";...}.|.}..####|
|000004b0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000004c0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000004d0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000004e0| 23 23 23 23 23 23 23 23 | 23 23 23 03 00 00 00 4e |########|###....N|
|000004f0| 2f 41 03 00 00 00 4e 2f | 41                      |/A....N/|A       |
+--------+-------------------------+-------------------------+--------+--------+