初めてreactを触ってみたのですが、とても難しかったです。
未だにjavascriptもいまいち分かってないので、復習をしときたいです。
APIの最適なとり方が分からず、ずっと右往左往してなんとか取れても
n19015 n19015
This file contains hidden or 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
| use strict; | |
| use warnings; | |
| my @clas = qw/<meta property="og:title" content="だしうま！白だしみぞれ鍋 | おいしいレシピ｜ヤマキ株式会社" \/> | |
| <meta property="og:type" content="article"> | |
| <meta property="og:url" content="https:\/\/www.yamaki.co.jp\/recipe\/%e3%81%a0%e3%81%97%e3%81%86%e3%81%be%ef%bc%81%e7%99%bd%e3%81%a0%e3%81%97%e3%81%bf%e3%81%9e%e3%82%8c%e9%8d%8b" \/> | |
| <meta property="og:image" content="https:\/\/www.yamaki.co.jp\/recipe\/wp-content\/uploads\/6597baacb7e219ec93cfabb608a11406.jpg"> | |
| <meta property="og:site_name" content="おいしいレシピ｜ヤマキ株式会社"> | |
| <meta property="fb:app_id" content=""> | |
| <meta property="og:locale" content="ja_JP"> | |
| <meta property="og:description" content="おいしいレシピ｜自然の味を大切に！カツオパックのヤマキホームページです。削りたてのかつおぶしで作っためんつゆを使ってパパッと作れる簡単レシピや、だしの旨味が引き立つ本格和風レシピ、いつものメニューがぐっとおいしくなるかつおだしの活用術など便利な情報が満載。" \/> |
This file contains hidden or 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
| use strict; | |
| use warnings; | |
| my @cal = qw/<!doctypehtml> | |
| <htmllang="ja"> | |
| <head> | |
| <title>概要<\/title> | |
| <linkrel="stylesheet"href="style.css"> | |
| <scriptsrc="https:\/\/kit.fontawesome.com\/e8ff6f43df.js"crossorigin="an onymous"><\/script> | |
| <\/head> |
This file contains hidden or 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; | |
| my @cal = ("1月1日","5/21","10/46","7/14","3/6"); | |
| foreach(@cal) { | |
| if ($_ =~ /\d{1,2}\/\d{1,2}/) { | |
| my $name = substr($_, -2); | |
| if ($name > 31){ | |
| }else { |
This file contains hidden or 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; | |
| my $count = 1; | |
| while ($count < 101) { | |
| if ($count % 15 == 0) { | |