sironekotoroの日記

Perl で楽をしたい

2013-01-01から1年間の記事一覧

Perl入学式 #5 (自習)最終問題

テストの為にやり直し 以下の機能があるYAPCモジュールを実装してください - 来年のYAPC::Asiaは2014年8月28日から30日に開催予定です. 日付を教えてくれるモジュールを2人で作りましょう - YAPC::year()で年を4桁の整数で返します(テストをAの人が, コード…

serverman VPSでsendmailの設定 その他

うごかない を うごかす 最終的には動かせたけど、どうして動いたのかよくわからない google様に「VPS sendmai」「linux sendmail」「sendmail 初心者」とかで検索しまくって、いろんなサイトに書いてあることを参考にひたすら設定ファイル書き換え とりあえ…

Perl言語プログラミングレッスン[入門編] 第7章

いきなりsplitと正規表現の使い方でおぉ、となる my @number = split (/\D+/, '31 and 41, 592 and 653'); print join (',' , @number); #31,41,592,653 なるほど、正規表現の\D+、つまり数字以外を区切り文字にする訳か。なるほど。 つまり次の一文で'300ye…

Perl入学式 #5

無念 12月8日も、補講の1月11日も参加できない けど、スライドが公表されてるから自習は可能 mapとgrep 構文が同じだと初めて知った。というか意識してなかった。 map {条件式} 配列 grep {条件式} 配列 練習問題 引数として与えられた文字列が, 数値A…

serverman VPSで自作スクリプトをcronで動かす

動かなかった まずは基本に立ち戻る */10 * * * * ping -c1 localhost >> /home/pingtext.txt' ちゃんとファイルが出来てる うごかないー */10 * * * * perl /home/script/makerss.pl このスクリプト、sqliteのDBに、RSS発行に必要な情報が保存される仕組み…

Perl言語プログラミングレッスン[入門編] 第6章

おおお いきなりびっくりした。こういうのありなのか。 "Hiroshi Yuki , 70,83,41", my ( $name, @score ) = split( /,/, $line ); つまり、Hiroshi Yuki , 70,83,41はカンマでsplitされHiroshi Yuki 70 83 41になる そして、最初のHiroshi Yukiが$nameに入…

serverman VPSで自作スクリプトを動かす

XML::Parserでつまずく 以前作ったyoutube searchをVPSで動かそうと思ったが・・・エラー WebService::Simpleが入ってなかった cpanm sudo WebService::Simple XML::Parserが入らない・・・ Windowsでも、Macでもここで引っ掛かった気がする 開発環境と、ロ…

データをSQLiteに落としこむ

SQLite ズルしております FireFoxの「SQLite Manager」アドオンを使ってデータベースの骨組みを作る。 作ったDBにPerlで情報を溜め込んでみたり、読み込んでみたりの実験中。 use strict体質 use strict 忘れてスクリプト書いて、その後にuse scriptしてもエ…

ServersMan@VPS を契約する

なぜVPSを? 幸い、普段の業務でTeratermとLinux使っているので、sshで操作することへの抵抗はなかった。 Perlの学習を進めるにつれて、ローカル環境ではなくサーバで動かしてみたいと思うようになった。 Amazon CE2でやるんだ!とか思ってたけど、とりあえ…

ドットインストール HTML入門(新版)

HTML入門が新しくなってたので、そちらで受講再開。完了。 HTML入門 (全16回) - プログラミングならドットインストール 前半はウンウン、と聞いていたけど、後半になると知らないことが。 リスト系 ul : unorderd list ol : orderd list li : list item テー…

Perl言語プログラミングレッスン[入門編] 第5章

5-3 use strict; use warnings; use utf8; my $kan_num = "五"; my %hash = ( 〇 => 0, 壱 => 1, 二 => 2, 三 => 3, 四 => 4, 五 => 5, 六 => 6, 七 => 7, 八 => 8, 九 => 9, 拾 => 10, ); print $hash{"$kan_num"} . "\n"; # my @kan = ("〇","壱","二","三…

初めてのDevel::NYTProf

かっこいい 昨日のPerlBeginneersで見てカッコ良さげだったので! cpanm --sudo Devel::NYTProfでインストール perl -d:NYTProf target.plでファイル吐き出し このとき、ターミナルのカレントフォルダに吐き出されるので注意 いやまぁ、あたりまえか nytprof…

初めてのTest::Simple

Test::Simple 昨日のPerlBeginnersで取り上げられてたのを試す。 今までテスト書いたことは無かった TDD(Test Driven Development)って言葉は知っていたけど、知っていただけ Test Firstも聞いたことがあっただけ Test::Moreのperldoc見に行ったら 待った! …

Perl Beginners #11

magnolia: Perl-Beginnersに参加したら、音速でCPAN Authorになった話 人からのフィードバックがspeedupにつながる レベル高杉ぃ beginners Session テスト文化を現場に定着させるには? Test::More 既存の手元にあるチェックプログラムをテストモジュールに…

Perl言語プログラミングレッスン[入門編] 第4章

4-2 use strict; use warnings; my $time = '01:23:45'; my @array = split( ':', $time ); my ( $hour, $min, $sec ) = @array[ 0, 1, 2 ]; print "$hour時$min分$sec秒\n" それに対する結城先生の回答 my ( $hour, $min, $sec ) = split(/:/ , $time); 鮮…

Net::PingとNet::Ping::Externalがインストールできなくてびっくりした(MacOSX 10.8)

原因はMacOSXのファイアウォールを有効にしていたから Net::PingとNet::Ping::Externalがインストールできなくてびっくりする 前日にOnyXでアクセス権の修正とかやってたからそいつが原因だろうか?とガクブルする。 cpanmのエラーログみて、127.0.0.1へのpi…

ドットインストール HTML入門

HTML入門 (全22回) - プログラミングならドットインストール 何を知っていて、何を知らないのか?をハッキリさせるためには、一番初歩の初歩から始めるのが良いということで。 HTMLについてはgoogle先生頼りのメモ帳直書き派 大昔のホームページビルダーが吐…

mojolicious::Liteで文字化けるー(解決

やりたいこと 基礎(ドットインストールと「Perl言語プログラミングレッスン」)だけでは眠いので、チャレンジ的にやりたいことをやってみていることにしている。 一時流行った遅延学習法ってやつか 今回はユースケベー氏の「Webサービスの作り方」と「Perl…

ドットインストール Bootstrap 3.0 入門 終了

Bootstrap 3.0 すごい Bootstrap 3.0入門 (全18回) - プログラミングならドットインストール とりあえず、Webのデザインがある程度固まった人用のものであった。 実験的に取り入れてみたけど、あれもこれも、ってなると雑然としそう。 あと、動的にパラメー…

Perl言語プログラミングレッスン[入門編] 第3章

その他 冒頭からその他とか 先週、Perlの勉強の後にみた「まどかマギカ [新編]」の後遺症中。 今回からその日の勉強ややったこと単位ではなくもっと細かい粒度でblogに記事を残してみる。 一つの記事にいくつものエントリ突っ込むの検索性が悪かった IF修飾…

自作スクリプト 20131110

自作スクリプトで必要なデータが収集できた 某サイトからランキングをスクレイピングで取得する 取得したランキングから、順位と曲名とアーティスト名を正規表現で抜き出し、ハッシュリファレンスに取り込む。 曲名とアーティスト名を引数として渡すと、yout…

自作スクリプト 20131101

スクレイピングして某サイトのランキングをテキストで出力 とうとう、やっと、動いたー!長かった。構想自体はずっと昔からあったけど、技術も知識もなくて完成しなかった・・・しかしなんとか本日動くところまでこぎつけた。 今となってはfor文も知らないで…

Macbook Airの環境整備 20131020

誘惑に負けてteitoku入れてしまう 艦これ専用ブラウザー Teitoku - geta6 | makebooth 五航戦まったく来る気配なし。3-2突破のために駆逐艦隊育成中(主に演習で) sublime text2で矩形選択 altキー押しながら選択 sublime text2で定型文(use strict)とか…

Perl入学式in東京 #4 復習 その1

まずは第3回の復習問題 score.plの復習。リファレンスを初めてあつかったときはこれ解くのに3日くらいかかったけど、2時間くらいで解けるように。 やはり鬼門は問4。ハッシュリファレンスの中に配列を入れる、ってところで???となる。というか、問題…

Perl入学式 YAPC::2013 の復習 その2

workshop-YAPC-Asia/slide.md at master · perl-entrance-org/workshop-YAPC-Asia · GitHub 引数をハッシュにして受け取る'GetOpt::Long'のところでしばし詰まる。スライドでは、existsを使ってkeyの有無を確認、となっているのだけどハッシュでは既にkeyが…

Perl入学式in東京 #4

Perl入学式in東京 #4 on Zusaar Prrl入学式 YAPC::2013に引き続き参加。会場は五反田のDNP(大日本印刷)さんのビルの大きな会議室。広くてよいところだったなぁ。 五反田駅前でうどん食べてから参加。 今回は正規表現がテーマ。 実は正規表現はちょっとだけ…

Perl入学式 YAPC::2013 の復習 その1

Acme::Nyaa 実行するたびに結果が違う。芸が細かい。YAPC::2013当日は気づかなかった。 初CPAN登録、猫系PerlモジュールAcme::Nyaa作りました。 ちなみに作者の方は、YAPC::ASIA 2013 のPerl入学式でボッチだった自分のテーブルにきて、気さくに話しかけてく…

Macbook Airの環境整備 20131014

MacOS X Mountain Lionのダッシュボードを無効化 いまいち使い道がないように思えたので無効にする。 無効にするにはターミナルから以下を実行して再起動(またはkillall dock) defaults write com.apple.dashboard mcx-disabled -boolean true 元に戻すとき…

Perl入学式 #3 復習問題の続き3

やっと終わった。#3の練習問題で一番きつかったのはしょっぱなのvote.plだなぁ。来週なったらちゃんと書けるか心配。 #!/usr/bin/env perl use strict; use warnings; use Data::Dumper; # binmode STDOUT, ":utf8"; my $papix = { name => 'papix', affil…

Macbook Airの環境整備 20131013

日本語入力 日本語の「ぁ」、ちいさい「あ」を入力するのに、Windowsで15年近く「la」と入力してきたんで、それにあわせて入力設定を変更 「xa」って入力すればWindowsでもMacでも「ぁ」って出るんだから「xa」に慣れておくってのも一理あるよねー 思って…