perl
エクセルのデータを固定長テキストファイルにします。 エクセルはテキストファイルにコピペすると、以下のようになるので、これをインプットにします。 文字コード：SJIS（というかcp932） 区切り文字：TAB 改行コード：CRLF 正規表現以外でよく使う処理です…
少し前まではGDでプログラミングするよりもGD自体をセットアップが環境によって面倒でしたが、最近は(gd-2.0.35)特許が切れたGIFなども再サポートされているので、比較的楽に導入できるようになったみたいです。Cygwinなんかでも。以下、雑感です。 LinuxのG…
Perlで、QRコードを生成する - undiscoの日記の、CGI版です。qrディレクトリを作って、権限を与えておけばそこに生成されます。 #!/usr/bin/perl use strict; use warnings; use GD; use GD::Barcode::QRcode; use CGI; my $q = new CGI; my $url = $q->para…
Perlで、パスワードをハッシュ化してユーザー情報を管理する - undiscoの日記の続きです。セッション管理というか、セッションIDを吐いてCookieに記録するだけです。 ユーザーIDとパスワードの認証後に実行します。CGI::SessionとCGI::Cookieを使用し、セッ…
Perlで、パスワードをハッシュ化してDBに格納、ユーザー情報を管理するプログラムです。ユーザー登録と、ログイン機能があります。DBはMySQLを使用しました。学習用にシンプルに作りました。動作はしますが、内容についてご指摘いただけると幸いです。 きっ…
Crypt::CBC - 暗号ブロック連鎖(Cipher Block Chaining)モードでデータを暗号化します - perldoc.jpPerlによる共通鍵暗号方式でのSocket通信。クライアント部分。 DESは8ビットしか(超･未満)暗号化できないけれど、Crypt::CBCを使えば8ビットを超えるのデー…
LWP::Simpleで書いていたら出た。 XML::SAXから見つからないということだったので、CPANでXML::SAXをインストールしたら出なくなった。iniファイル以前に該当モジュール自体がインストールされていなかったらしい。
シェル上ではエラーなく実行できることを確認しているperl-CGIスクリプトが、ブラウザ上でたたくとブラウザ内は白い表示のままになる。スクリプト自体はFTPにてアップロードして実行しました。CGI表示テスト用スクリプト #!/usr/bin/perl use strict; use wa…
CGIとして実行するとwwwとか何かしらのユーザーとして実行するので、権限についての対処が必要となります。以下の手順で行いました。 コピー先のフォルダのパーミッションを777にしておく cp -pでタイムスタンプを保持したままコピー statで取得 #!/usr/bin/…
Flash上にgifファイルのようなビットマップデータ(ラスタデータ)を表示させたい場合、縦横いずれかでも2880ピクセルまでと制限されています。 Flash Professional チュートリアル＆記事 メモ : Flash Player では、ビットマップの最大サイズは幅、高さいずれ…
AU(EZweb)のキャッシュがきついから更新リンクを作ることに。リファラーを取ってLocationするだけ。 #!/usr/bin/perl use strict; my $ref; $ref = $ENV{'HTTP_REFERER'}; print "Location:$ref\n\n"; キャッシュ対策はHTMLでも <meta http-equiv="cache-control" content="no-cache" /></meta>
標準入力の文字列にルビを振って表示するプログラム。 #!/usr/bin/perl use strict; use warnings; #対応を定義 my %hash = ('A','エー','B','ビー','C','シー','D','ディー','E','イー','F','エフ','G','ジー','H','エイチ','I','アイ','J','ジェイ','K','…
簡単に作ったのだけれど、warningが出る。 #!/usr/bin/perl use strict; use warnings; use LWP::UserAgent; my $ua = LWP::UserAgent->new; my $req = HTTP::Request->new(GET => 'http://example.com/basic.html'); #パラメタにユーザー名とパスワードを入…
構造も理解しない、タグも1種類前提、ただ囲んであるタグの値を取得するだけ。サンプルではxmlファイルを読んでいるけど、ウェブサービスAPIで取得してきたXMLっぽい単品データを変数にして処理するのにも使えたりします。 #!/usr/bin/perl use strict; use …
シェルとPerlで。スピード重視で手抜きでももっとましなの作りたいのだけれど。 元データ作成 シェルで $ find /nantoka/nantoka/public_html/ -name *.html >nantoka.txt こんなのがでてくる(nantoka.txt) /index.html /profile.html /news/index.html /con…
最近このモジュールを使っている記事を読まないのですが、GD::Barcode::QRcodeを使ってやってます。数百個のQRコード(URLのパラメタが違うだけとか)を生成する必要があって、これにループさせてURLをファイル名をいじってシェルで実行しています。生成パラメ…
