Previous Entry Поделиться Next Entry
truncate string by length and word
likhatskiy
Часто требуется обрезать строку по длине (ну возможно поставить в конце "..."). Проблема в том, что обрезание может попасть на часть слова, поэтому надо это слово обойти.
sub trunc {
    s/\s+?\S+?$//, return $_ for my $str = substr shift, 0, (shift || 1) + 1;
}
Вывод:
print trunc("11111 222  4444", 9);
#output: 11111 222
print trunc("11111 222  4444", 8);
#output: 11111
Метки: , ,

  • 1
Local women looking for one night stands Go Here dld.bz/chwZJ

  • 1
?

Log in

No account? Create an account