トップページ⇒php
981コメント390KB

くだすれPerl（超初心者用）2

■ このスレッドは過去ログ倉庫に格納されています
0001nobodyさん2008/03/03(月) 05:07:32ID:???
このスレッドは、他のスレッドでは書き込めない超低レベル、
もしくは質問者自身何が何だが分からない質問を勇気を持って書き込むスレッドです。
Perl使いが優しくコメントを返しますが、
お礼はPerlの布教と初心者の救済をお願いします。
0654nobodyさん2008/09/11(木) 09:24:19ID:???
お前は何を言ってるんだ
0655nobodyさん2008/09/11(木) 09:32:03ID:???
>>653

#!C:/Perl/bin/perl.exe
print "<html><head><title>テストperl</title></head><body>";
print "Hello world\n";
print "</body></html>";

をtest.plと保存して、
http://hoge/test.pl
をアクセスしてみろ。
0656nobodyさん2008/09/11(木) 10:01:19ID:???
ｗｗｗサーバ使った実行ならヘッダも書いとけ
0657nobodyさん2008/09/11(木) 10:20:26ID:???
Content-Type: text/html
0658nobodyさん2008/09/11(木) 10:55:26ID:???
>>649
用途に向いたデータ構造に変更しましょう。

> @hairetu1=[30,80,50,90]

もし本当にこうだとすると、以下と等価であり、
少々不自然で扱いづらいでしょう。

@hairetu1 = ( [30,80,50,90] );
# @hairetu1 は $hairetu1[0] に無名配列リファレンスを持つ、
# 1要素のみの配列になっている点に注意。

以下は一例です。

@hairetu = (
[qw( 30 3 a 3305 さん )],
[qw( 80 8 b 2206 はち )],
[qw( 50 5 c 1128 ご )],
[qw( 90 9 d 1128 きゅう )],
);

あとは値を比較した結果を使って @hairetu の要素を入れ換える操作を行えばおっけー。
その辺の操作は調べると見つかるのでがんばって。
0659nobodyさん2008/09/11(木) 11:03:43ID:???
>>658 余計わかりにくくなってる
0660nobodyさん2008/09/11(木) 11:05:32ID:???
ﾜﾛﾀ
0661nobodyさん2008/09/11(木) 11:07:57ID:n+/h4em7
あっはっはｗｗｗｗｗまだこのスレあったのかｗｗｗｗｗｗ
いつまでクソ言語にしがみついてんだよテメエらｗｗｗｗｗ
いま時代はRuby,php,pythonだろｗｗｗｗ
乗り遅れ乙ｗｗｗｗｗ
うぇっｗｗうぇｗｗｗ時代に乗れなくてくやしいのうｗｗくやしいのうｗｗｗｗｗｗ
0662nobodyさん2008/09/11(木) 11:13:08ID:???
>>649
my @hairetu1=(30,80,50,90);
my @hairetu2=(3,8,5,9);
my @hairetu3=qw/さん はち ご きゅう/;
my @hairetu4=qw/a b c d/;
my @hairetu5=(3305,2206,1600,1128);

my @array;
for (0..4) {
push @array, join(',', $hairetu1[$_], $hairetu2[$_], $hairetu3[$_], $hairetu4[$_], $hairetu5[$_]);
}
@array = sort { $b cmp $a } @array; # <=> かもしれないけどなんとなく cmp
print join("\n", @array); # この順にしたいんですよね

Excel みたいな「行と列」を思い浮かべながら @hairetu1, 略, @hairetu5 で
再現しようとするからどつぼなんだと思う。
0663nobodyさん2008/09/11(木) 12:05:15ID:???
my @hairetu1 = (30,80,50,90);
my @hairetu2 = (3,8,5,9);
my @hairetu3 = ('さん','はち','ご','きゅう');
my @hairetu4 = qw(a b c d);
my @hairetu5 = (3305,2206,1600,1128);

my @narabi = sort{$hairetu1[$b] <=> $hairetu1[$a]} (0..$#hairetu1);
foreach(\@hairetu1, \@hairetu2, \@hairetu3, \@hairetu4, \@hairetu5){
@{$_} = @{$_}[@narabi];
}

--

my @hairetu = ([30,3,'さん','a',3305], [80,8,'はち','b',2206],[50,5,'ご','c',1600], [90,9,'きゅう','d',1128]);
@hairetu = sort{$b->[0] <=> $a->[0]} @hairetu;

普通はこっち。
0664nobodyさん2008/09/11(木) 12:05:27ID:???
この超絶簡単な例題に、どうしたらそういう答え（つか思いきりバッドノウハウ）を
思いつくのか理解出来ん。データ構造が腐ってるってのを置いとくにしても、、、
my @ind = sort { $hairetu1[$b] <=> $hairetu1[$a] } 0 .. 3 ;
@hairetu1 = map{ $hairetu1[$_] } @ind ;
@hairetu2 = map{ $hairetu2[$_] } @ind ;
# 略
@hairetu5 = map{ $hairetu5[$_] } @ind ;

ちなみに自分でデータ構造から考えるなら二次元配列かhashにするに決ってる、こんなもん。
0665nobodyさん2008/09/11(木) 12:07:19ID:???
タイミングが悪かった
>>664は>>663に言ったもんじゃない
06666492008/09/11(木) 14:32:27ID:MBV8c4KU
皆さんどうもありがとうございます。助かります。
今から皆さんが教えてくれたのを全部試してやってみます。
つか自分超絶初心者です。。。
いいプログラム作れる様がんばります。
0667nobodyさん2008/09/11(木) 14:59:42ID:???
死んじゃダメだよ！ ゼッタイ。
06686622008/09/11(木) 15:35:31ID:???
>>664
俺ですね。
他の配列のソート順でｇｄｇｄしてたので、質問者さんがわかりそうな道具で
「こういう感覚ですかね？」と書こうとした（ものがアレすぎたのでお怒りになった）んですけど
寝とけばよかったです。0 .. 4 とか書いてるし。

くだすれなのに「腐ってる」「こんなもん」なんてことになってるのも、その怒りの余波だと思うので
質問者さん、すみません。
0669nobodyさん2008/09/11(木) 18:40:06ID:h0fBdZdn
初心者なんですが、すいません。
コードを読んでいると$hoge[2]とかいうのはわかるんですが、

$hoge[1][0][0]=3;
$hoge[1][0][1]=5;
$hoge[1][0][2]=7;
とかいうのが出てきたんですが、これは何を意味しているんでしょうか？
0670nobodyさん2008/09/11(木) 18:48:53ID:???
>>669
多次元配列
0671nobodyさん2008/09/11(木) 18:51:07ID:???
>>669
配列の配列の配列
0672nobodyさん2008/09/11(木) 18:51:22ID:???
どういう意味で多次元配列使ったかは本人に聞く以外にはないと思う
06736692008/09/11(木) 19:14:29ID:h0fBdZdn
多次元配列ですか。ありがとうございます。調べてみます。

ところで、
$hoge[1][0][0]=3;
$hoge[1][0][1]=5;
$hoge[1][0][2]=7;
の場合、

@hoge=( [ [*,*,*], [*,*,*], [*,*,*] ], [ [3,5,7], [*,*,*], [*,*,*] ], …)という感じでしょうか？

だとしたら、この3,5,7だけを
@list=(3,5,7)の様にひとつの配列にするにはどうすれば良いでしょうか。
何度もすいません。
0674nobodyさん2008/09/11(木) 19:16:46ID:???
@list = @{$hoge[1][0]}
06756692008/09/12(金) 00:22:15ID:Oy+yCkpG
>>674
ありがとうございました。
0676nobodyさん2008/09/22(月) 04:48:26ID:aVlitntf
すいません、超初心者です。
@a = ([5,8,0,50], [4,6,1,30], [3,7,1,200], [5,8,1,50], [3,8,0,150], [2,9,0,110])
grepを使って、上の配列から3つ目が1のものだけを抜き出して、
@b = ([4,6,1,30], [3,7,1,200], [5,8,1,50])
としたいのですが、どのように記述すればいいのでしょうか。
0677nobodyさん2008/09/22(月) 07:34:12ID:???
@b = grep { $_->[2] == 1 } @a
0678nobodyさん2008/09/23(火) 04:34:43ID:???
foreach $_ (@b) {
print "@$_\n";
}


↑結果を表示するには
このコードでいい？
0679nobodyさん2008/09/23(火) 05:20:37ID:???
やってみてから書き込め
0680nobodyさん2008/09/24(水) 10:17:33ID:???
それ！
それがだいじ
0681nobodyさん2008/09/24(水) 15:42:32ID:???
> ↑結果を表示するには
> このコードが窮極？

って質問すればいいんじゃないかな


0682nobodyさん2008/09/24(水) 16:12:52ID:???
TMTOWTDI
って答えが返ってくるんじゃないかな
06836762008/09/25(木) 01:55:10ID:rnTIMd1p
>>677
ありがとうございました。
返事が遅れてすいません。
なぜかホスト規制くらって2〜3日アクセスできませんでした。orz
0684nobodyさん2008/10/03(金) 16:52:32ID:Rl6ONEmX
すいません、超初心者です。

↓の様な記述ですが、
my $flag = (!$a) ? random(3) : random(11));
↑これは、
$aの値が無ければ3未満のランダムの数を$flagに代入、
$aの値が存在すれば11未満のランダムの数をで$flagに代入
ですよね。

ただ、↓の様なのがあって、どうしても意味がわかりません。
my $flag = (!$a) ? !($b >= random(100)) : (($c <= $a) ? random(3) : random(11));
↑これはどのように解すれば良いのでしょうか。
0685nobodyさん2008/10/03(金) 17:22:11ID:???
>>684
random てのが何を示すか分らんが…。
! ( $b >= random(100) ) は確実に0、1しか返さんから変に思えるが、
まあ、アリではあるので。
ポイントは、
1. 条件式「!($b >= random(100)) 」を式としてではなく値として利用。
2. 三項演算子の二段がさね。

my $res = COND ? TRUE_EXPR_1
　　　　: ( COND ? TRUE_EXPR_2
　　　　: FALSE_EXPR_2 ) # FALSE_EXPR_1
　　　　;

my $flag
　= ! $a # CONDITION
　? !($b >= random(100)) # TRUE_EXPRESSION
　:　# FALSE_EXPRESSION ( だかその中にさらに三項演算子）
　　(
　　($c <= $a) # CONDITION
　　? random(3) # TRUE_EXPRESSION
　　: random(11) # FALSE_EXPRESSION
　　)
　;

分けると
my $pre_flag = ($c <= $a) ? random(3) : random(11) ;
myy $flag = ! $a ? !($b >= random(100)) : $pre_flag ;
0686Perlについて教えてください。2008/10/03(金) 18:04:37ID:PunwVHG2
cgi掲示板なのですが、ログインすると文字化けしてまして、
コードがISO、西ヨーロッパなどとなってしまうのです。

そこで、headerの部分にcharset=を含めようとしてるのですが、
何度やっても、500エラーになってしまいます。


sub header {
print "Content-type: text/html\n\n";
print "<!--//HEAD//-->\n";
print "<html><head>\n";
print "<META http-equiv="Content-type" content="text/html; charset=Shift_JIS">\n"
print "<title>CGI Control Panel</title>\n";


print "<META http-equiv="Content-type" content="text/html; charset=Shift_JIS">\n"
↑
を追加して日本語になるように、お願い致します。
0687nobodyさん2008/10/03(金) 18:06:50ID:???
セミコロンが抜けてる
あと、Content-type: text/html; charset=云々
というのもあるよ。
0688nobodyさん2008/10/03(金) 18:22:45ID:???
>>686
マルチ氏ね
06896842008/10/04(土) 09:25:08ID:S1uyMhw/
>>685
なるほど、わかりました。
すいません。randomはrandの間違いでした。

my $flag = (!$a) ? !($b >= rand(100)) : (($c <= $a) ? rand(3) : rand(11));

つまり↑と↓は同じという理解で良い訳ですね。

my $flag;
if (!$a) {
$flag = !($b >= rand(100));
} elsif ($c <= $a) {
$flag = $rand(3);
} else {
$flag = $rand(11);
}

ありがとうございました。
0690nobodyさん2008/10/04(土) 10:53:07ID:uZuIKJns
「導入効果バツグン! PHP5.0+MySQL5.0で構築する最速Webシステム」
↑これおすすめ！
"register_globals = on"
を推奨していることについて気をつければ・・・ですが
0691nobodyさん2008/10/04(土) 18:05:45ID:???
専用鯖なら気にならんからな
0692nobodyさん2008/10/04(土) 18:06:47ID:???
>>691
なんで？
0693nobodyさん2008/10/04(土) 18:16:28ID:???
safe_modeと勘違いしてる悪寒
0694nobodyさん2008/10/04(土) 19:36:37ID:???
1 ******
2
3 aaa
4
5 ******

上のようなテキスト(数字は行番号)で、任意の文字列(aaa)にマッ
チしたら、囲まれた範囲(2行目〜4行目)を別ファイルにコピーする
コードはどう書けばいいでしょうか？

自分でも調べますが、perlは全く知らないので教えてくれる人がい
ると助かります。
0695nobodyさん2008/10/04(土) 19:50:09ID:???
1: > perlは全く知らないので
2: ところでaaa
3: aaa
4: aaa
5: これだと
6: aaa
7: どこからどこまでaaaが
8: aaa
9: aaa囲まれた
10: 範囲なんだ
0696nobodyさん2008/10/04(土) 20:01:11ID:???
>>694
簡単なのは「******」から次の「******」までをバッファリングして、
バッファの中に「aaa」があったらファイル開いて書き込む、とかかね。
06976942008/10/04(土) 20:31:56ID:???
>>696
なるほど、その発想は無かった。
0698nobodyさん2008/10/04(土) 21:35:30ID:???
696氏の方針で。
perl -0777ne 'print grep /^aaa$/m, /^\*{6}\n(.*?)(?=^\*{6}\n)/gms ' hoge.txt >fuga.txt

正規表現一回だと結構めんど
perl -0777ne 'print /^\*{6}\n((?:(?!^\*{6}\n).)*?^aaa\n(?:(?!^\*{6}\n).)*?)(?=^\*{6}\n)/gms ' hoge.txt >fuga.txt
06996942008/10/04(土) 22:21:09ID:???
>>698
ありがとう、参考にさせてもらいます。
07006942008/10/05(日) 14:05:30ID:???
お陰様で当初の目標は達成できました。どうもありがとう。

次は一歩すすんで、↓のようなテキストの場合、2-4行目と9-11行
目を別ファイルに保存したいのです。


1 *start*
2
3 aaa
4
5 *end*
6
7
8 *start*
9
10 aaa
11
12 *end*


ファイルをオープンしてwhile文で繰り返し処理をしたら行けるの
かな、と思ったのだけど、よく考えたらwhileは１行ずつしか読み
込まないからこの方法だと駄目なのですね。

分かる人がいたらお願いします。
0701nobodyさん2008/10/05(日) 14:13:01ID:???
>ファイルをオープンしてwhile文で繰り返し処理をしたら行けるの
>かな、と思ったのだけど、よく考えたらwhileは１行ずつしか読み
>込まないからこの方法だと駄目なのですね。

なにがダメなんだ？
0702nobodyさん2008/10/05(日) 14:19:41ID:???
後出し追加質問は良くない。
自分で何処まで書けたのか提示しないのも良くない。

この質問に答えた後に、「では…の様にするのはどうしたら良いでしょう？」
って来るのが目に見えてて答える気にはならん罠。
0703nobodyさん2008/10/05(日) 14:21:12ID:???
後から出すんだから追加質問に決まってたorz...
0704nobodyさん2008/10/05(日) 14:56:18ID:???
httpリクエストヘッダからクッキーを抜き出したいんだけどお願いします
クッキーを発行しているページへ下記の様にしましたけどエラーです
どなたか手直しお願いします
やりたいことは新しいクッキーを100個くらい集めたいです

use HTTP::Request;
use LWP::UserAgent;
　
my $ua = LWP::UserAgent->new;
my $request = HTTP::Request->new(GET => 'http://hoge.jp');

while(1){
my $response = $ua->request($request);
print $response->header('Set-Cookie'),"\n";
sleep 1;
0705nobodyさん2008/10/05(日) 14:58:35ID:???
>>704
hoge.jp は実在だから使うなと(ry
0706nobodyさん2008/10/05(日) 15:07:27ID:???
えぇええええ！
実在してたのかorz
この前、実在のアドレスは２ｃｈで晒すなと指摘を受けたので
気をつけたのに
>>705さんは私と多分どこかで遭遇してるね
いつも応援ありがとう
よろしく^^
0707nobodyさん2008/10/05(日) 15:09:29ID:???
実在はwww.hoge.jpの方だた。良く見ずに書いた。
あなたには非が無い。
07086942008/10/05(日) 16:00:04ID:???
>>702
それは申し訳ない。
次からはルールに倣って質問します。
0709nobodyさん2008/10/05(日) 16:08:06ID:???
クッキー食いたくなった
0710nobodyさん2008/10/05(日) 16:51:17ID:???
>>704
全角スペースが含まれていて、}が閉じてないとか？
エラー内容が伏せられてるから、あてずっぽうで。

URLはhttp://example.com辺りを使えば被らない事がrfc2606保障されてる。
07117002008/10/05(日) 17:06:32ID:???
自分で考えてみて、出来たことは出来た。
Ｃは知っているのでその知識で強引に実現した感じ。

=========
#!/usr/bin/perl

$i = 1;
open IN, "hoge.txt";

while (<IN>) {
if (/.*start.*/) {
$flag = on;
$string = "";
} elsif (/.*end.*/) {
open OUT, ">file$i";
print OUT $string;
$i += 1;
$flag = off;
close OUT;
} else {
if ($flag eq on) {
$string .= $_;
}
}
}

close IN;
=========

perlの人からは腐ったコードに見えると思うので改良点が有ったら
教えてください。Ｃの人から見ても腐ってる、というのはこの際勘
弁。
07127002008/10/05(日) 17:38:53ID:???
文字列aaaを含むという条件を忘れていたので追加しました。

========
#!/usr/bin/perl

$i = 1;
open IN, "hoge.txt";

while (<IN>) {
if (/.*start.*/) {
$flag = on;
$string = "";
} elsif (/.*end.*/) {
$_ = $string;
if (!/.*aaa.*/gms) {
next;
}
open OUT, ">file$i";
print OUT $string;
$i += 1;
$flag = off;
close OUT;
} else {
if ($flag eq on) {
$string .= $_;
}
}
}
close IN;
=======
0713nobodyさん2008/10/05(日) 19:23:20ID:???
>>712
正規表現の.*はいらない。gmsもいらない

あと、状態遷移のアルゴリズムはシグナル判定(start,end文の検出)を
状態判定(flagの検出)の内側に持ってきた方がよいと思われ。
0714nobodyさん2008/10/05(日) 19:31:32ID:???
>>712
裸の文字列は、C でも厳禁 => $flag = 'on', $flag eq 'on'
07157002008/10/05(日) 21:09:06ID:???
レスどうもです。

「こんなのperlを最大限に使えば半分以下のコードで済む」といっ
た間違いで無ければ、さしあたってはそれでいいです。とりあえず
動くものを書いて、根本的なロジックがおかしくなければ後は修正
するだけなので。

そういった間違いではないようなので、後はこれをブラッシュアッ
プしていきます。どうもありがとうございました。
0716nobodyさん2008/10/05(日) 21:42:03ID:???
たぶんこれからも「次の段階」がずっと続くような取り組みかたをしてて
「C脳の自分」（表現が悪くて申し訳ない。悪意はないです）が不安で訊いてしまうのかな？

ループ制御できてフラグ使えてパターンマッチ使えてるんだし
指摘されてる bare word とかそんなもんじゃないすか。

> 「こんなのperlを最大限に使えば半分以下のコードで済む」

'on' or 'off' のフラグ変数でなく範囲演算子 .. でフリップフロップ（>>46の使い方）させたら便利とか
フラグ変数使うにしても文字列比較より 1 か 0 のほうが楽とかコマゴマしたのはあるけど、
動きゃいいんです。
0717nobodyさん2008/10/05(日) 22:01:19ID:???
まぁ元々perlは最初からカチっと作るモノには向いてないからな
0718nobodyさん2008/10/05(日) 22:11:49ID:???
コード部分だけだったら8行。
シェバン行とuse strict; use warnings で11行。
そんなもん追求するには10年早い。
0719nobodyさん2008/10/05(日) 23:59:23ID:???
>>710さん
>>704です
ご指摘ありがとうございました
お陰さまで動くようになりました^^;
空行の全角スペースを削除して
最後の行に}を付け足しただけで
エラー無くなりました
ありがとうございました^^
0720nobodyさん2008/10/06(月) 01:08:02ID:???
WEBから抽出した文字列をテキスト保存する方法教えてください
0721nobodyさん2008/10/06(月) 01:19:35ID:???
>>720です
言葉足らずですいません
ファイル名は年月日時分秒で保存したいです
よろしくお願いします
0722nobodyさん2008/10/06(月) 03:55:49ID:???
>>720です
テキスト保存できるようになったのですが
ファイル名をTES-YYYYMMDDHHMMSS.txtにする方法わかりません
どなたか教えてください
お願いします
0723nobodyさん2008/10/06(月) 04:31:33ID:???
よく分からないんだがファイルをダウンロードした時の時刻をファイル名にするってこと？
それともファイルのタイムスタンプをファイル名にするってこと？
0724nobodyさん2008/10/06(月) 04:41:45ID:???
>>723さん
レスありがとうございます
>>720です
ダウンロードが完了した時刻をファイル名にしたいと思います
tes-08-10-06-04-41-50.txt
上記のようなファイル名が目標です
お時間のあるときにでも教えて頂けたら幸いです
0725nobodyさん2008/10/06(月) 05:06:00ID:???
use DateTime;

$filename = DateTime->now(time_zone => "+0900")->strftime("tes-%y-%m-%d-%H-%M-%S.txt");
0726nobodyさん2008/10/06(月) 06:00:00ID:???
>>725さんありがとうございます
>>720です
教えて頂いたコードでテストしてみたところ
Can't locate DateTime.pm in @INC (INC contains: C:/Perl/lib .) at tes.pl line 6.
BEGIN failed--compilation aborted at tes.pl line 6.
とエラーになります
当方の環境でしょうか？
WindowsXp　ActivePerl-5.8.8.822です
今日はオヤスミしますので、また明日にでも調べてみます
お疲れのところ本当にありがとうございました
0727nobodyさん2008/10/06(月) 06:41:21ID:???
>>712
use File::Slurp;
my $text = read_file('hoge.txt');

my @part = ($text =~ m|^\*start\*$((?:(?!^\*start\*$).)*?aaa.*?)^\*end\*$|gms);

for (my $i = 0; $i < @part; $i++) {
write_file('file' . ($i + 1), $part[$i]);
}

0728nobodyさん2008/10/06(月) 06:46:14ID:???
もう一行減らせるなw
0729nobodyさん2008/10/06(月) 07:29:33ID:???
>>720です
先人の残してくれたものを参考にさせて頂き
なんとか目標のものができました
みなさん本当にありがとうございました^^

use HTTP::Request;
use LWP::UserAgent;
use File::Find;
use File::Basename;
my $ua = LWP::UserAgent->new;
my $request = HTTP::Request->new(GET => 'ttp://www.ググル.co.jp/');
$i = 1;
while($n < 3){
$n++;
my $response = $ua->request($request);
print $response->header('Set-Cookie'),"\n";
sleep 1;
($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime(time);
@a = split($i);
$i = sprintf("TES-%s%04d年%02d月%02d日%02d時%02d分%02d秒%s", $a[0], $year+1900, $mon+1, $mday, $hour, $min, $sec, $a[1]);
open(DATAFILE, ">> $i.txt") or die("Error:$!");
print DATAFILE $response->header('Set-Cookie'),"\n";}

0730nobodyさん2008/10/06(月) 07:58:00ID:???
あぁ1箇所書きミスしてた^^;
まあいいかｗ
0731nobodyさん2008/10/06(月) 08:02:00ID:???
終ったんならいいけど、参考までに
use POSIX qw(strftime) ;
print strftime "%y年%m月%d日%H時%M分%S秒\n", localtime ;
0732nobodyさん2008/10/06(月) 08:02:45ID:???
年四桁%Y
0733nobodyさん2008/10/06(月) 08:13:21ID:???
>>731さん
>>732さん
今後の参考にさせて頂きます
レスありがとうございます^^
0734nobodyさん2008/10/07(火) 18:53:36ID:???
use strict;
use warnings;
use LWP::UserAgent;
use Time::Piece;
use IO::File;
my $fname = localtime->strftime("%Y年%m月%d日%H時%M分%S秒.txt");
my $ua = LWP::UserAgent->new;
my $req = HTTP::Request->new(GET=>'http://www.google.co.jp/');
my $res = $ua->request($req);
if ($res->is_success) {
my $io = IO::File->new("$fname", ">");
$io->print($res->content);
$io->close;
}
0735nobodyさん2008/10/08(水) 23:43:58ID:???
>>734さん
レス遅くなり申し訳ないです
サンプル作ってくれたんだ^^
ありがとう
環境の違いなのか4行目のuse Time::Piece;の部分がキャントロケートなんとかってエラーが出るんです
use Time::Piece;が当方のパソコンにインストールされていないってことなんでしょうか？
せっかく>>734さんが作ってくれたのに使えなくってすいません
ありがとうございました
0736nobodyさん2008/10/09(木) 00:43:23ID:???
CPAN使ったことないのか？
0737nobodyさん2008/10/12(日) 14:00:31ID:???
数日前にperlの勉強を始めた超初心者です。
配列の勉強中で下のようなのを書いたんですが、実行するとエラーになります。
どこが悪いのか分からないので教えていただけないでしょうか？

#!/user/bin/perl
$. = ",";
$\ = "\n";
@data = (3,6,7);

print @data;
%data[1] = 'six';
print @data;

%data[5] = 9;
print @data;

@data = (1,2);
print @data;
0738nobodyさん2008/10/12(日) 14:09:49ID:???
一行目
0739nobodyさん2008/10/12(日) 14:35:35ID:???
>>738
あ、基本的なところが；；
直して実行してみましたが、まだエラーになります(ﾉд`)
他に変なところは無いでしょうか？
0740nobodyさん2008/10/12(日) 14:47:38ID:???
%data[1] => $data[1]
%data[5] => $data[5]
0741nobodyさん2008/10/12(日) 15:16:41ID:???
エラー文くらい読もうぜ
0742nobodyさん2008/10/12(日) 15:25:44ID:???
すみません；；
ありがとうございます；；；
0743nobodyさん2008/10/12(日) 21:56:41ID:???
初心者がつまづく最初の難関だよねー
なんで配列の要素にアクセスするのに、
％じゃなくて＄なんだよと。
0744nobodyさん2008/10/12(日) 22:56:30ID:???
なんでと言われてもなぁ
0745nobodyさん2008/10/13(月) 01:27:50ID:???
>>743
なんで%が出てくる理由があるのかと
0746nobodyさん2008/10/14(火) 12:12:13ID:???
なんで説明に => 使うんだよ・・・
0747nobodyさん2008/10/14(火) 12:28:13ID:???
うんうん
0748nobodyさん2008/10/14(火) 14:49:26ID:W0wcfnrq
漠然とした質問ですみません。
今ＨＰ乗せてるブロバイダでperl4が対応しなくなるので、ソーすを変更しろと
いう通知が来ました。無料公開のＣＧＩを拾ってきて掲示板や質問を埋めて
もらってメールを受けるのを使った程度の記憶しかありませんｗ
４から５に変更するにはどうしたらいいのでしょうか？
0749nobodyさん2008/10/14(火) 15:25:39ID:???
たぶんそのまんまでいいよ。
0750nobodyさん2008/10/14(火) 15:47:00ID:???
4→5になるのはPHPのような気がする。
0751nobodyさん2008/10/14(火) 15:47:24ID:CJyY9JPp
リンゴはコマンドプロンプト無いけどどこで実行確認するの？
0752nobodyさん2008/10/14(火) 18:34:16ID:???
OSXのことかね。
ssh起動してターミナルでGo。
0753nobodyさん2008/10/14(火) 19:19:11ID:CJyY9JPp
>>752
ありがとう！
0754nobodyさん2008/10/18(土) 08:37:31ID:TpRddp7o
Embperlというperlモジュールを追加したいのですが、
追加中に
Apache source not found, enter path name or q to quit
といわれてしまいます。
Apacheのソースコードなどが必要ということでしょうか？
Apacheのバージョンが2.2.6なのですが、ソースコードが見当たらないです。
すいませんがご存知の方教えてほしいです。
■ このスレッドは過去ログ倉庫に格納されています