- 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/togb.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 39 'gb', \$gb)) { 40 40 print STDERR "\n usage: $0 [options]\n\n"; 41 41 print STDERR " options:\n"; 42 print STDERR " -u tf8input 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";42 print STDERR " -unicode input is in utf-8 or unicode (default)\n"; 43 print STDERR " -iso_8859_1 input is in extended ascii (ISO-8859-1 Latin 1)\n"; 44 print STDERR " -gb input is in GB or GBK (simplified Chinese)\n\n"; 45 45 die "\n"; 46 46 } 47 47 48 48 $encoding = "utf8" if $unicode; 49 $encoding = " extended" if $extended;49 $encoding = "iso_8859_1" if $iso_8859_1; 50 50 $encoding = "gb" if $gb; 51 51
Note:
See TracChangeset
for help on using the changeset viewer.