正規表現の話～perlがAll I Wantを翻訳（？）するとどうなるのか～ - 合法SESおじさんがPGを目指す日記
こんばんは。瀬野です。 正規表現を勉強してます。 さて、perlで避けて通れない正規表現で面白いことが出来たので書いておきます。 唐突ですが、昔flash全盛期の頃にAll I Wantという曲が流行ったのを覚えてますでしょうか？ 知ってる方は友達になれそうですので今度飲みに行きましょう。知らない奴は聞け。オフスプは良いぞ ちなみにこんな曲です www.youtube.com lyrics(歌詞)を正規表現でperlくんが翻訳暗号化したものがこちらです。 #! /usr/bin/env perl use strict; use warnings; my $ofsply = ### 著作権の都合により歌詞削除 ### ."\n\n"; $ofsply =~ tr[a-mn-zA-MN-z][n-za-mN-ZA-M]; print "\n"; print "All I want The Of
テーブルを作る話(超うすあじ) - 合法SESおじさんがPGを目指す日記
瀬野です。 今日はなんかやる気ないです。 内容も薄いです。 とりあえずテーブルのコードだけ <!DOCTYPE html> <html> <head> <meta charset="utf-8"> <title>太陽系の惑星</title> <link rel="stylesheet" type="text/css" href="table_style.css"> </head> <body> <table> <colgroup span="1"></colgroup> <colgroup> <col class="semi-major"> <col class="radius"> </colgroup> <caption><big>表1.太陽系の惑星</big></caption> <thead> <tr><th>惑星名</th><th>軌道長判定<br><small>(天文単位)</s
番外：アライさんまたやってしまったねぇ～ - 合法SESおじさんがPGを目指す日記
おはようございます。瀬野です。 朝からの更新です。 さっきやってしまったことメモ #! /usr/bin/env perl use strict; use warnings; #HTML本体の出力 print "<html>\n"; print "<body>\n"; print "<p>CGIの世界へようこそ!</p>\n"; print "</body>\n"; print "</html>\n"; perl hello.pl > hello.pl hello.plを開く >全消し< 正しくは perl hello.pl > hello.html <html> <body> <p>CGIの世界へようこそ!</p> </body> </html> 正しくhtmlが錬成出力されました。
perlでテキスト読み込んでHTMLファイルを生成する話 - 合法SESおじさんがPGを目指す日記
こんばんは。本日2回目の更新、瀬野です。 今回はperlでHTMLファイルを作ってみました。 このプログラムに makehtml.pl #! /usr/bin/env perl use strict; use warnings; my %keyword = ( '----' => '<hr>', '-mail' => '<a href="mailto:seno@hoge.com">hoge.com</a>', '-home' => '<a href="http://www.seno.com/">http://www.seno.com/</a>', '-notice' => 'リンクはご自由に。フィードバックはお気軽に。', ); if (@ARGV == 0) { #引数が何もなかったので、使い方を表示して終了 print "Usage: perl makehtml.pl input.tx
perlでhtmlのテーブルを書く話 - 合法SESおじさんがPGを目指す日記
瀬野です。 senobro.hatenablog.com 前回こんなん書いたんですが、まあつまんないですよね。内容的に んで、今回はテーブルをPerlで書いてみようと思いました。 テーブルはエクセルの表みたいなもんです。格子状にデータが入ってるあれです。 メアド、名前、年齢順になってる配列データを元にテーブルを作ってみます。 test4-6 #! /usr/bin/env perl use strict; use warnings; #メアド、名前、年齢の配列データ my @info = ( 'seno@foo.com:Seno Foo:68', 'Gohan@hoge.com:Gohan Tabetai:24', 'Bread@fuga.com:Bread:36', ); #html化して表示 print "<html><table border=\"1\">\n"; my $num =
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
