perl

パラメータを取得できなかったときに リダイレクトする。 perl php

docomoの携帯から個体識別番号を取得するためには、 hoge.php?uid=NULLWGDOCOMO とユーザーに記述させなければなりません。hoge.php、もしくはhoge.cgiにアクセスをしたときに、 自動的に?uid=NULLWGDOCOMOを付加させるプログラム phpバージョン perlバージ…

php、perlで文字列の置換

入力フォームに090-0000-0000といれ、submitしたら 09000000000と、ハイフンを取る。"-"を""という空文字列に置換するのです。文字列の処理の基本。 <html> <head> <meta http-equiv="content-type" content="text/html"; charset="utf-8"> </head> <body> </body></html>

perlで文字の切り出し(文字列の削除)

文字を切り出す関数substr。 $foo = substr( $strings , n , m ); で$strings という文字列のn番目の文字からmバイト切り出す。 $a = substr('abcdef', 1, 3); で、bcdがとれる。これを利用してURLのディレクトリだけ削除した文字列を取得するプログラム。 #…

sprintf perl

去年の売り上げが110億円 今年の売り上げが125億円でした。 増減率を百分率、小数第一位までで求めなさい。という、小学校5年生くらいの問題をperlにやらせるとこうなります。 1 #! /usr/bin/perl 2 3 use strict; 4 use CGI::Carp qw(fatalsToBrowser); 5 …

.htaccessでCGIの環境を設定する。

AddType application/x-httpd-cgi .cgi と記述。 ".htaccess"という名前で、cgiを動かしたいディレクトリに保存。 (パーミッションは644)実行したいcgiファイルのパーミッションを755にして、実行。

.htaccesでベーシック認証をかける。

パスワードを入れないとサイトに入れません! という設定をします。まず、パーミッション644になっている.htaccessに以下の文を加える AuthUserFile /home/foo/.htpasswd #フルパスで記述 AuthGroupFile /dev/null AuthName "Secret Area" #その先にある領域…

Perlの基礎を学びました。

昨日は一日かけてPerlの基礎を学びました。 で、完成したのがhotpepperのAPIを使った検索サイト。 「ザ・焼き肉検索」。 ローカルホスト上でしか動きませんが。住所をクリックすると、別タブでgoogleマップが開く。 カスタマーが入力した値を(新宿で検索!…