"Точно обрезать текст по кол-ву символов и не обрезая слова..."

[ocehb]

# perl -MBenchmark -de0
  DB<1> $a = "You now have a regular structure in memory, one which is very easy to deal with programmatically. To achieve your boss's first objective, which is to convert elements to attributes, you need to replace references to arrays, as shown in Listing 10."
  DB<2> sub A () { return $a =~ m#^(.{,50})\s# ? $1 : substr $a,0,50; }         
  DB<3> sub B () { my $trim = substr $a,0,50; $trim =~ s#\s+\S*?$##; return $trim; }
  DB<4> timethese (1_000_000,{ 'A' => \&A,'B' => \&B })
Benchmark: timing 1000000 iterations of A, B...
         A: -6 wallclock secs (-5.79 usr + -0.04 sys = -5.83 CPU) @ -171526.59/s (n=1000000)
            (warning: too few iterations for a reliable count)
         B:  8 wallclock secs ( 7.74 usr +  0.05 sys =  7.79 CPU) @ 128369.70/s (n=1000000)

выделение памяти под $trim?, но и под return тоже выделяется...

Comments

[ocehb]

попробовал точнее:

# perl -MBenchmark=timethis -e 'sub A () { return $ARGV[1] =~ m#^(.{,50})\s# ? $1 : substr $ARGV[1],0,50; } timethis ($ARGV[0],\&A)' 10000000 "You now have a regular structure in memory, one which is very easy to deal with programmatically. To achieve your boss's"
timethis 10000000: 11 wallclock secs (11.41 usr +  0.03 sys = 11.44 CPU) @ 874316.94/s (n=10000000)
# perl -MBenchmark=timethis -e 'sub A () { my $trim = substr $ARGV[1],0,50; $trim =~ s#\s+\S*?$##; return $trim; } timethis ($ARGV[0],\&A)' 10000000 "You now have a regular structure in memory, one which is very easy to deal with programmatically. To achieve your boss's"
timethis 10000000: 187 wallclock secs (178.44 usr +  0.48 sys = 178.91 CPU) @ 55892.76/s (n=10000000)
#

[ocehb]

# perl -MBenchmark=timethis -e 'sub A () { my $trim = substr $ARGV[1],0,50; $trim = substr($trim, 0, rindex($trim, " ")); return $trim; } timethis ($ARGV[0],\&A)' 10000000 "You now have a regular structure in memory, one which is very easy to deal with programmatically. To achieve your boss's"
timethis 10000000: 26 wallclock secs (25.33 usr +  0.09 sys = 25.42 CPU) @ 393362.02/s (n=10000000)

удивлен

[amati-fi.livejournal.com]

всегда приятно поговорить с умным человеком ))

[ocehb]

к сожалению, ошибся.
правильно надо .{0,50}, тогда и результаты более-менее понятны.