Maniac Programmer’s Blog
Блог помешанного программиста
Palindrom Checker
Категория: Perl
Комментариев: 1
Палиндром — слово или предложение, которое одинаково читается слева направо и справа налево
Эта Perl-программа проверяет, является-ли указанное слово палиндромом, или нет.
#!/usr/bin/perl
if (!@ARGV){
die ("Usage: palindrom.pl word\n");
}
$text = $ARGV[0];
if (length($text) < 4){
die ("Error: Word must be not less than 4 leters\n");
}
if ($text =~ m/(.)(.). ?\2\1/){
print "Result: Match\n";
}
else{
print "Result: Not match\n";
}
|
|
Поблагодарить автора
 Webmoney Z163628999150, R617151845974
|
Похожие записи
Комментариев: 1
Комментарии
оставить комментарий
Предыдущая запись
« RightJS, новый JavaScript-фреймворк Следующая запись
C# и PostgreSQL »
« RightJS, новый JavaScript-фреймворк Следующая запись
C# и PostgreSQL »
Записи в RSS
Подписка по E-mail
Подписка через Twitter
17:57
Функцию reverse уже отменили?
$text =~ s/\W//g;
$txet = reverse ($text);
if ($text =~ /$txet/i){
print «Result: Match\n»;
}
else{
print «Result: Not match\n»;
}