うさぎのしっぽ

プログラミングとか。備忘録として使ってるブログです。あとは趣味少し。 間違いなどありましたらご指摘ください(・3・)

Perl

PerlでWebAPIにアクセスしたい…のでモジュールを入れる【TwitterAPI】

エラーばっかり出る。このやろう。 参考: Perl - LWPでOauthクリア。とりあえずTwitterのタイムライン取得。 - Qiita 1.Httpsに対応したモジュールが入ってない LWP/Protocol/https.pmが入ってなかった悲しみ。 管理者権限ないので、 ブラウザからDL→解凍…

モジュールチェック【Perl】

参考:Perlモジュール確認方法 WLPが入ってるか確認したかった。 find `perl -e 'print "@INC"'` -name '*.pm' -print これを実行してみて、出力が多すぎたのでとりあえず書き出して、 find `perl -e 'print "@INC"'` -name '*.pm' -print > ./pl_module.txt…

引数にある全てのファイルが存在していたら真を返すサブルーチン【perl】

サンプルコード # 指定された全てのファイルが存在していたら真,1つでも不足していたら偽を返すサブルーチン sub files_exist{ my(@list)= @_; my $num = @list; my $counter=0; foreach $fname(@list){ if (-f fname) { $counter++; } if($counter >= $num…

【perl】複数行まとめてコメントアウトする

=pod と =cut で囲む. =podコメント1コメント2コメント3=cut 【 駄目な例】= の前にタブを挿入したら動かなかった =podコメント1コメント2コメント3 =cut

xmlをシンプルにするためのPerl

使いまわししやすそうなので置いておく. XMLファイルを読み込んで必要な行だけ抽出するperl. 見どころはタグの中身だけ拾ってくる部分かな. ブログに乗せるためにちょこちょこいじったからそのままだと動かないかも ($value)=$line=~/<count>(.*?)<\/count>/; # <count></count></count>…

文字列を空白で分割する(perl)

意外と苦戦したので。 慣れない言語だと思わぬところで躓きますね… やりたかったこと →スペースとタブで文字を分割 今考えると露骨におかしいコード わかりにくいけど第一引数の()の中にスペースとタブが入ってます my @splited_array = split(/( |)/, $line…