I don't know from where you got your information, but it appears to be incorrect.
Rate JavaFan JavaFan_noplus ikegami JavaFan 104/s -- -5% -16% JavaFan_noplus 109/s 5% -- -12% ikegami 123/s 19% 13% -- Rate JavaFan JavaFan_noplus ikegami JavaFan 109/s -- -2% -11% JavaFan_noplus 110/s 2% -- -10% ikegami 122/s 13% 11% -- Rate JavaFan JavaFan_noplus ikegami JavaFan 103/s -- -5% -21% JavaFan_noplus 109/s 5% -- -17% ikegami 131/s 27% 20% --
use strict; use warnings; use Benchmark qw( cmpthese ); my $ad = <<'__EOI__'; ------ Yahoo meow meow meow meow meow meow meow meow woof woof woof woof jabberwocky foo bar! foo!! __EOI__ my $email = join '', map chr(rand(26)+ord('a')), 1..2000; our $file = "$email\n$ad\cB" x 1000; cmpthese(-3, { ikegami => 'use strict; use warnings; my $x = our $file; $x +=~ s/------ Yahoo.*?(?=\cB)//sg;', JavaFan => 'use strict; use warnings; my $x = our $file; $x +=~ s/------ Yahoo[^\cB]*+//g;', JavaFan_noplus => 'use strict; use warnings; my $x = our $file; $x +=~ s/------ Yahoo[^\cB]*//g;', });
In reply to Re^3: How do I delete from a delimiter to the end of a file?
by ikegami
in thread How do I delete from a delimiter to the end of a file?
by wcw
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |