Perlでよく使うモノを並べてみよう

[0001 nobodyさん 02/12/26 10:59 ID:7gPWZ3Cy]

例）CGIデコード

# 環境変数取得
if ($ENV{'REQUEST_METHOD'} eq "POST"){
read(STDIN, $query, $ENV{'CONTENT_LENGTH'});
} else {
$query = $ENV{'QUERY_STRING'};
}

# デコード
@args = split(/&/, $query);
foreach $i (@args) {
($name, $val) = split(/=/, $i);
$val =~ tr/+/ /;
$val =~ s/%([0-9a-fA-F][0-9a-fA-F])/pack('C', hex($1))/eg;
$cgi{$name} = $val;
}


こんな感じでよく使うものを出していきましょう。

[0002 nobodyさん 02/12/26 11:06 ID:???]

　　　　　　　　　　　　 立
　　　　　　　　　初　　て
　　　　　　　　　め　　て
　　　　　　　　　て　　み
　　　　　　駄　 わ　　て
　　　　　　ス.　 か
　　　　　　レ 　 る
　　　　　　か
　　　圖　 な


　 Λ＿Λ
　（　´∀｀）
　（　　　　）

[0003 nobodyさん 02/12/26 11:19 ID:DQIeVDZ8]

質問です。
ただCGIでHTMLを読み込んで表示させたいのですがどうすればよいでつか？
本当にただindex.htmを外から読み込んでそのまま表示させるだけです。

[0004 nobodyさん 02/12/26 11:54 ID:???]

>>3

$_ = `cat ./mona.html`;
print "$_";
exit;

[0005 nobodyさん 02/12/26 14:17 ID:???]

使うもの？

ああ、秀丸。

[0006 nobodyさん 02/12/26 14:32 ID:???]

俺はパソコンをよく使うよ。

[0007 nobodyさん 02/12/26 15:52 ID:ODLR2vri]

>>1のは、use strict;のときちゃんと動かないし、修正。
my $query;
if ($ENV{REQUEST_METHOD} eq "POST"){
　read(STDIN, $query, $ENV{CONTENT_LENGTH});
} else {
　$query = $ENV{QUERY_STRING};
}

my @args = split(/&/, $query);
my %cgi; #良くないかも。use var ...
foreach (@args) {
　my ($name, $val) = split(/=/);
　$val =~ tr/+/ /;
　$var =~ s/%([0-9A-Fa-f][0-9A-Fa-f])/pack('H2', $1)/eg;
　$cgi{$name} = $val;
}

[0008 nobodyさん 02/12/26 16:12 ID:???]

use CGI;

[0009 nobodyさん 02/12/26 16:33 ID:???]

#!/usr/bin/perl

[0010 nobodyさん 02/12/26 16:40 ID:???]

perl -cw

[0011 nobodyさん 02/12/26 17:55 ID:???]

use strict;

[0012 nobodyさん 02/12/26 18:32 ID:FAw+iTTP]

exit;

[0013 nobodyさん 02/12/26 19:13 ID:ySTy6JdW]

# コメント(糞スレ)

[0014 nobodyさん 02/12/26 19:32 ID:ODLR2vri]

my %param = @_;

[0015 nobodyさん 02/12/26 19:36 ID:???]

1 ? 1 : 0

[0016 nobodyさん 02/12/26 19:38 ID:???]

%tmp;
@tmp{@label} = split(/<>/, $line);
return \%tmp;

[0017 nobodyさん 02/12/26 19:41 ID:???]

$line =~ s/\x0D?\x0A?$//;

[0018 nobodyさん 02/12/26 19:42 ID:???]

while (defined(my $line = <IN>)) {

[0019 nobodyさん 02/12/26 19:45 ID:???]

>>16
my %tmp;で、、サブルーチンとかにして使う・・

[0020 nobodyさん 02/12/26 19:50 ID:???]

>>15
本当によく使うのかと（略）

[0021 名無し 02/12/26 20:02 ID:???]

use File::Find;
しかし、遅いよね。
便利だけど。

[0022 Jack ◆JkImxxVPHA 02/12/26 20:31 ID:7gPWZ3Cy]

sub tag_to_tex {
$_[0] =~ s/&/&/g;
$_[0] =~ s/\"/"/g;
$_[0] =~ s/>/>/g;
$_[0] =~ s/</</g;
$_[0] =~ s/\n/<BR>/g;
return ($_[0]);
}

タグを文字に。

[0023 nobodyさん 02/12/26 20:41 ID:???]

"はエスケープしなくてもいい

[0024 nobodyさん 02/12/26 20:43 ID:???]

until (0) { redo } continue { next }

[0025 nobodyさん 02/12/26 21:54 ID:???]

>>23
ふぅん、普通にエラーが出るが。
君は局所に注目しすぎる癖があるね。

[0026 nobodyさん 02/12/26 22:36 ID:ODLR2vri]

>>25
正規表現中でのダブルクオートには何も意味がない。から、エスケープする必要はない。

$a = '"' と同じような考え方。

[0027 nobodyさん 02/12/26 23:41 ID:???]

use CGI::Carp 'fatalsToBrowser';
use Data::Dumper;

[0028 nobodyさん 02/12/27 05:49 ID:+69413BS]

require 'jcode.pl';

[0029 山崎渉 03/01/15 13:40 ID:???]

（＾＾）