- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
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";
}
guest 27.07.2009 17:43 # +3
Я вижу в этом коде сиськи!
miwomare 25.08.2021 07:30 # 0