Christian Hansen chansen
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| $ perl benchmarks/bench.pl | |
| perl: 5.020001 (darwin 13.3.0) | |
| Encode: 2.60 | |
| Unicode::UTF8: 0.60 | |
| ar.txt: code points: 14308 (U+0000..U+007F: 2698 U+0080..U+07FF: 11610) | |
| Rate Encode Unicode::UTF8 | |
| Encode 4121/s -- -83% | |
| Unicode::UTF8 24613/s 497% -- |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| #!/usr/bin/perl | |
| use strict; | |
| use warnings; | |
| use Carp qw[]; | |
| use Time::Moment 0.19 qw[]; | |
| sub YEAR () { 365.2425 } | |
| sub MONTH () { YEAR / 12 } | |
| sub DAY () { 1 } |
chansen
/ result.txt
Last active
August 29, 2015 14:25
Benchmark of slurping UTF-8 encoded file in Perl
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| $ perl benchmarks/slurp.pl | |
| perl: 5.023001 (darwin 14.4.0) | |
| Encode: 2.75 | |
| Unicode::UTF8: 0.60 | |
| PerlIO::encoding: 0.21 | |
| PerlIO::utf8_strict: 0.006 | |
| ar.txt: Size: 25918 Code points: 14308 (U+0000..U+007F: 2698 U+0080..U+07FF: 11610) | |
| Rate :encoding(UTF-8) Encode :utf8_strict Unicode::UTF8 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| #!/usr/bin/perl | |
| use strict; | |
| use warnings; | |
| use IO::Socket qw[]; | |
| use Net::FastCGI::Constant qw[ :type FCGI_NULL_REQUEST_ID FCGI_HEADER_LEN ]; | |
| use Net::FastCGI::Protocol qw[ build_record parse_header get_type_name ]; | |
| sub fatal ($;$); | |
| sub timeout (&$$); |
chansen
/ benchmark results
Created
April 11, 2011 21:27
Comparison of hash objects with packed objects (SvPV)
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| /opt/perl/5.13.11/bin/perl packed_vs_hash.pl | |
| Benchmarking constructor | |
| Rate hash pack | |
| hash 445987/s -- -10% | |
| pack 496264/s 11% -- | |
| Benchmarking accessor | |
| Rate vec hash | |
| vec 1190203/s -- -9% | |
| hash 1308227/s 10% -- |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| #!/usr/bin/perl | |
| use strict; | |
| use warnings; | |
| use CGI::Fast qw[]; | |
| use FCGI qw[]; | |
| use IO::Socket::INET qw[]; | |
| use Net::FastCGI::Constant qw[:common :type :role]; | |
| use Net::FastCGI::IO qw[ read_record |
chansen
/ fix_latin.pl
Created
December 26, 2011 22:22
Decodes UTF-8, interpreting ill-formed UTF-8 sequences as CP1252, posted in reply to <http://blog.endpoint.com/2011/12/sanitizing-supposed-utf-8-data.html>
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| #!/usr/bin/perl | |
| use strict; | |
| use warnings; | |
| use Encode qw[find_encoding]; | |
| use Unicode::UTF8 qw[decode_utf8]; | |
| { | |
| my $encoding = find_encoding('Windows-1252') | |
| or die q/Couldn't find Windows-1252 encoding/; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| #!/usr/bin/perl | |
| use strict; | |
| use warnings; | |
| do 'us_federal_holidays.pl'; | |
| # Test cases extracted from <http://www.opm.gov/Operating_Status_Schedules/fedhol/Index.asp> | |
| my @tests = ( | |
| [ 1997, '1997-01-01', '1997-01-20', '1997-02-17', '1997-05-26', '1997-07-04', | |
| '1997-09-01', '1997-10-13', '1997-11-11', '1997-11-27', '1997-12-25' ], |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| diff --git a/ext/PerlIO-scalar/scalar.xs b/ext/PerlIO-scalar/scalar.xs | |
| index eac682b..d324bdd 100644 | |
| --- a/ext/PerlIO-scalar/scalar.xs | |
| +++ b/ext/PerlIO-scalar/scalar.xs | |
| @@ -125,6 +125,18 @@ PerlIOScalar_tell(pTHX_ PerlIO * f) | |
| return s->posn; | |
| } | |
| +IV | |
| +PerlIOScalar_eof(pTHX_ PerlIO * f) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| ssh-rsa AAAAB3NzaC1yc2EAAAABIwAAAQEAvkbSjboxgPOsq6rbKxww8taPipuM17Fj9xURQjIkEiunb+6mBumR+ct1d//O5Va6/t/srAg14KeQWEY6Ody+EC8DVI02TtX4buBc1rAL7BCRarLrTJCNYpJ9VLhu+h/u2x/3SgdMfHsBKbs65jqDIsSooXjyuJz3GDWrMDculQqwCiGGhkNPkzjdB1cXIOt8PEMRYV8/A/yqZtfIgd9lumT069m3xc1uKSScSpTSI4BeLMRTfydh5JlLATrBEPqHT/Iudb8xy37YdO0v0Et03eL5j8BID7RAZlnNq6ECV22doqBZ2UrfYnaqY/HeiekqaY52vNnATZ0pXlRItKvkuw== chansen@cpan.org |
OlderNewer