週報 2024/04/28 川はただ流れている 4/20(土) 初期値依存性 さいきん土曜日は寝てばかり。平日で何か消耗しているらしい。やったことと言えば庭いじりと読書くらい。 ベランダの大改造をした。 サンドイッチ 一年前に引っ越してからこんな配置だったのだけど、さいきん鉢を増やしたら洗濯担当大臣の妻氏…
#!/usr/bin/perl exit system( "/bin/ping -w1 -c1 hoge" ); $ ./hoge $ echo $? 0なんでもいいからエラー取得しようと思ったけどこれで戻り値が取得できなかった。 system()の戻り値の上位8ビットに system()内で起動したプログラムの戻り値が入っている。 exit()でシェルに返される戻り値は 呼び出し側では下位8ビットしか取得できない。 なので、8ビット右シフトしてから返す。 #!/usr/bin/perl exit system( "/bin/ping -w1 -c1 hoge" )>>8; $ ./hoge $ echo $? 2
1. 非同期プログラミング with Perl 2010/08/07 Japan Perl Association 代表理事 株式会社ライブドア 牧 大 輔 (@lestrrat) 3. 普通の書き方 use strict; use LWP::UserAgent; my @urls = qw( http://www.livedoor.com/ http://www.dena.jp/ http://mixi.jp/ http://www.gaiax.co.jp/ ); my $ua = LWP::UserAgent->new(); foreach my $url (@urls) { my $res = $ua->get( $url ); ... }
NAME Config::Simple - simple configuration file class SYNOPSIS use Config::Simple; # --- Simple usage. Loads the config. file into a hash: Config::Simple->import_from('app.ini', \%Config); # --- OO interface: $cfg = new Config::Simple('app.ini'); # accessing values: $user = $cfg->param('User'); # getting the values as a hash: %Config = $cfg->vars(); # updating value with a string $cfg->param('User
「ウェブリブログ」は 2023年1月31日 をもちましてサービス提供を終了いたしました。 2004年3月のサービス開始より19年近くもの間、沢山の皆さまにご愛用いただきましたことを心よりお礼申し上げます。今後とも、BIGLOBEをご愛顧賜りますよう、よろしくお願い申し上げます。 ※引っ越し先ブログへのリダイレクトサービスは2024年1月31日で終了いたしました。 BIGLOBEのサービス一覧
ファイルを読み込んだり、書き込んだりする場合はファイルハンドルという名前を付けますが、 このファイルハンドルとは、どのファイルを読み書きするかを関連付けるものです。 書式 open (ファイルハンドル, "> ファイル名"); print ファイルハンドル 書き出す内容; close (ファイルハンドル); 下の例では 配列を test.txt というファイルに書き出しています。 #!/usr/local/bin/perl @aaa = ("佐藤\n","竹内\n","近藤\n"); open (OUT,"> test.txt"); print OUT @aaa; close (OUT); print "Content-type: text/html\n\n"; print "<META http-equiv=\"Content-Type\" content=\"text/html; ch
フォームからの送信で日本語のような 2バイト文字を送信した場合、 %を含む意味不明な文字列になって送信されるのをご存知でしょうか? これはURLエンコードと言い、特殊記号や日本語などの文字列も正しく 送信する為に行われており、実際に表示やファイルに書き出す場合、 これらを元に戻してやる必要があります。 例えばフォームから受け取ったデータが $formin という変数に入っていた場合は、受け取った後 の処理に次のソースを加えて下さい。 # + 記号を半角スペースに戻す $formin =~ tr/+/ /; #URLエンコードデータをデコードする $formin =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; URLエンコードされたデータで半角スペースは + 記号に、2バイト文字は %16進数値 といった 形にエンコードされています
CGI-Perl 基礎実地編 - 実習12 (標準ファイル入出力) ■test12.cgi ------ ↓ ここから ↓ ------ #!/usr/local/bin/perl #// 準備 $fname = 'test.txt'; $cufld = '.'; $dbfld = '/w_test/'; $path = $ENV{'PATH_INFO'}; #// 動作環境セット if (($i = index($path, $dbfld)) != -1) { $cufld = '..' . substr($path, $i, $i + length($dbfld) - 1); } #// ファイル書き込み open(FILE, ">$cufld/$fname") or die; print FILE 'やっほ〜。', "\n"; print FILE 'うまくライトできるかしらん。(^
Perl で CGI を開発するうえで役に立つ Perl モジュールはいくつもありますが、 その中でも有名なモジュールと言えば CGI.pm でしょう。 かつては Perl5 に標準モジュールとして組み込まれていた定番モジュールです。 しかし、Perl による CGI 開発が少なくなってきたという動向も影響したせいか、 最新の Perl5 では標準モジュールから外されてしまいました。 しかし、いまなお、多くのレンタルサーバーで利用することができます。 本記事では、CGI.pm の基本的な使い方を解説します。 また、もし最新の Perl5 の環境で CGI.pm がインストールされていないレンタルサーバーでも、 CGI.pm を組み込む方法についても解説します。 目次 CGI.pm のバージョンアップに伴う変化 前述の通り、かつて CGI.pm は Perl5 の標準モジュールでした。 その
ファイルをオープンすると、ファイルからテキストデータを読み込むだけでなく、ファイルに対してテキストデータを書き込むこともできます。ここでは Perl のプログラムでファイルからテキストデータを書き込む方法について解説します。
配列に入れると配列の各要素に全てが読み込まれますが、 @aaa = <IN>; の部分で スカラー変数に入れると ($a = <IN>;) 一行のみの読み込みが行われます。 何らかの理由で先頭行のみ、読み込みを行いたい場合はスカラー変数に入れます。 $a = <IN>; と一行読み込んだ後は、<IN> は読み込んだ先頭行が消えています。 例えば下のソースを見て下さい。 #!/usr/local/bin/perl open (IN,"test.txt"); #test.txtというファイルを読み込む $aaa = <IN>; #先頭行を変数 $aaa に入れる(ここで変数 $aaaは使いません) print <IN>; #ファイルハンドルをprintすると先頭行を除く行が表示されます close (IN); #ファイルハンドルを閉じる exit; $a = <IN>; などして一行読み込むと
最初の Perl プログラム(Linux) 昔から言語を勉強するときに最初に学ぶことは, 画面に「Hello, world」と出力するプログラムを作ることです。 日本語なら「こんにちは!」と出力すればいいでしょう。 Perl なら次のようになります。 #! /usr/bin/perl print "こんにちは!\n"; これを hello.pl というファイル名で作ります。 次に,このプログラムに実行許可を与えます。 chmod 755 hello.pl hello.pl を実行するには次のように打ち込みます。 ./hello.pl 画面に「こんにちは!」と表示されることを確認して下さい。 最初の CGI(Linux) これはまだ CGI ではありません。 これを CGI にするには,次のように直します。 #! /usr/bin/perl print "Content-type: text
2023/03/20 · 例えば次のように記述します。 open(DATAFILE, "data.txt");. 上記の場合では、プログラムが実行されているディレクトリと同じ ...
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く