Perl
エラーばっかり出る。このやろう。 参考: Perl - LWPでOauthクリア。とりあえずTwitterのタイムライン取得。 - Qiita 1.Httpsに対応したモジュールが入ってない LWP/Protocol/https.pmが入ってなかった悲しみ。 管理者権限ないので、 ブラウザからDL→解凍…
参考:Perlモジュール確認方法 WLPが入ってるか確認したかった。 find `perl -e 'print "@INC"'` -name '*.pm' -print これを実行してみて、出力が多すぎたのでとりあえず書き出して、 find `perl -e 'print "@INC"'` -name '*.pm' -print > ./pl_module.txt…
サンプルコード # 指定された全てのファイルが存在していたら真,1つでも不足していたら偽を返すサブルーチン sub files_exist{ my(@list)= @_; my $num = @list; my $counter=0; foreach $fname(@list){ if (-f fname) { $counter++; } if($counter >= $num…
=pod と =cut で囲む. =podコメント1コメント2コメント3=cut 【 駄目な例】= の前にタブを挿入したら動かなかった =podコメント1コメント2コメント3 =cut
使いまわししやすそうなので置いておく. XMLファイルを読み込んで必要な行だけ抽出するperl. 見どころはタグの中身だけ拾ってくる部分かな. ブログに乗せるためにちょこちょこいじったからそのままだと動かないかも ($value)=$line=~/<count>(.*?)<\/count>/; # <count></count></count>…
意外と苦戦したので。 慣れない言語だと思わぬところで躓きますね… やりたかったこと →スペースとタブで文字を分割 今考えると露骨におかしいコード わかりにくいけど第一引数の()の中にスペースとタブが入ってます my @splited_array = split(/( |)/, $line…