winebarrel https://blog.hatena.ne.jp/winebarrel/ so what https://so-wh.at/ PERL 非破壊的な置換ってどうやるんだろう？ #!/usr/bin/env perl use warnings; use strict; use Carp; sub url_decode { my ($str) = @_; $str =~ s/%([\da-f]{2})/pack('C', hex($1))/egi; return $str; } my $x = "%83E%83B%83L%83y%83f%83B%83A"; print url_decode($x), "\n"; 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fso-wh.at%2Fentry%2F20090501%2Fp3" title=" URLデコード - so what" class="embed-card embed-blogcard" scrolling="no" frameborder="0" style="display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;"></iframe> Hatena Blog https://hatena.blog 2009-05-01 00:00:00 rich https://so-wh.at/entry/20090501/p3 1.0 100%