sironekotoroの日記

Perl で楽をしたい

2013-12-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 = ("〇","壱","二","三…