Rozdiely pre scripts/ep/secure-atl/encoder.pl medzi verziami 1.4 a 1.5
| verzia 1.4, 2002/03/13 13:51:03 |
verzia 1.5, 2002/04/10 13:11:26 |
| Riadok 41 my $AUTO_ENCODE_1_PREFIX = ''; |
|
| Riadok 41 my $AUTO_ENCODE_1_PREFIX = ''; |
|
| my $START_SWITCH_CASE_STR = 'aAbBcC'; |
my $START_SWITCH_CASE_STR = 'aAbBcC'; |
| my $END_SWITCH_CASE_STR = 'CcBbAa'; |
my $END_SWITCH_CASE_STR = 'CcBbAa'; |
| |
|
| |
=pot |
| print '-' x 60, "\n"; |
print '-' x 60, "\n"; |
| print(STDERR "Encoder starts...\n"); |
print(STDERR "Encoder starts...\n"); |
| print(STDERR "To use encode shortcuts, specify by: %<string>%\n"); |
print(STDERR "To use encode shortcuts, specify by: %<string>%\n"); |
| Riadok 50 printf(STDERR "To decode <string> use: % |
|
| Riadok 51 printf(STDERR "To decode <string> use: % |
|
| printf(STDERR "To switch case of <string> use: %s <string> %s\n", |
printf(STDERR "To switch case of <string> use: %s <string> %s\n", |
| $START_SWITCH_CASE_STR, $END_SWITCH_CASE_STR); |
$START_SWITCH_CASE_STR, $END_SWITCH_CASE_STR); |
| print '-' x 60, "\n"; |
print '-' x 60, "\n"; |
| |
=cut |
| |
|
| while (<STDIN>) { |
while (<STDIN>) { |
| # chomp; |
# chomp; |
Platon Group <platon@platon.sk> http://platon.sk/
|
|