Skip to content

Instantly share code, notes, and snippets.

@http-engine
http-engine / hoge.pl
Created December 9, 2009 02:42 — forked from yusukebe/hoge.pl
my $s1 = "\x3d"; # =
print $s1 . "\n";
my $text = 'hogehogeho\x3dhogehoge';
my ($s2) = $text =~ m/(\\x[0-9a-z]{2})/;
print $s2 . "\n"; # \x3d ここで = を出したい
package Benchmark::Wrap;
use strict;
use warnings;
use Benchmark ();
BEGIN {
*_runloop = ¥&Benchmark::runloop;
}