- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
sub title {
my ($str, $len) = @_;
while (1) {
last if substr($str, $len, 1) eq ' ';
++$len;
}
return substr($str, 0, $len) . "...";
}
Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
−109.5
sub title {
my ($str, $len) = @_;
while (1) {
last if substr($str, $len, 1) eq ' ';
++$len;
}
return substr($str, 0, $len) . "...";
}
аналог Index.
klem4 15.01.2010 13:10 # 0
guest 18.01.2010 01:36 # 0
klem4 18.01.2010 17:56 # −1
guest 15.01.2010 18:58 # 0
// Ваш Ф.Р. (фанат регулярок)
guest 16.01.2010 13:06 # 0