- Timestamp:
- 2000-07-13T10:21:53+12:00 (24 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/New_Config_Format-branch/gsdl/bin/script/touc.pl
r630 r1279 1 #!/usr/ local/bin/perl5-w1 #!/usr/bin/perl -w 2 2 3 3 ########################################################################### … … 36 36 if (!parsargv::parse(\@ARGV, 37 37 'unicode', \$unicode, 38 'extended', \$extended, 38 'iso_8859_1', \$iso_8859_1, 39 'iso_8859_6', \$iso_8859_6, 40 'windows_1256', \$windows_1256, 39 41 'gb', \$gb)) { 40 42 print STDERR "\n usage: $0 [options]\n\n"; 41 43 print STDERR " options:\n"; 42 print STDERR " -utf8 input is in utf-8 or unicode (default)\n"; 43 print STDERR " -extended input is in extended ascii\n"; 44 print STDERR " -gb input is in GB or GBK\n\n"; 44 print STDERR " -unicode input is in utf-8 or unicode (default)\n"; 45 print STDERR " -iso_8859_1 input is in extended ascii (ISO-8859-1 Latin 1)\n"; 46 print STDERR " -iso_8859_6 input is in 8 bit Arabic (ISO-8859-6)\n"; 47 print STDERR " -windows_1256 input is in Windows 1256 (Arabic)\n"; 48 print STDERR " -gb input is in GB or GBK (simplified Chinese)\n\n"; 45 49 die "\n"; 46 50 } 47 51 48 52 $encoding = "utf8" if $unicode; 49 $encoding = "extended" if $extended; 53 $encoding = "iso_8859_1" if $iso_8859_1; 54 $encoding = "iso_8859_6" if $iso_8859_6; 55 $encoding = "windows_1256" if $windows_1256; 50 56 $encoding = "gb" if $gb; 51 57
Note:
See TracChangeset
for help on using the changeset viewer.