hiroyukim https://blog.hatena.ne.jp/hiroyukim/ (ヽ´ω`)　 https://hiroyukim.hatenablog.jp/ while /\A(.*?)/.match(str) Regexp.last_match end \Aは ^と似た働きをしますが、大きな違いは ^が文字列中に埋め込まれた改行の直後にもマッチする場合があるのに対して、この演算子は常に文字列の先頭にのみマッチするということです。で、これをperlに変えるには、如何するべきか、改行なくしちゃうのが一番早いか。 my $str =~ s/\n//g; うーん。http://www.kt.rim.or.jp/~kbk/regex/regex.html#PERL-BBUFER 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fhiroyukim.hatenablog.jp%2Fentry%2F20080201%2F1201881249" title=" [perl][ruby][\A] - (ヽ´ω`)　" 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 2008-02-01 00:54:09 rich https://hiroyukim.hatenablog.jp/entry/20080201/1201881249 1.0 100%