981コメント390KB

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

■ このスレッドは過去ログ倉庫に格納されています

0001nobodyさん

2008/03/03(月) 05:07:32ID:???

このスレッドは、他のスレッドでは書き込めない超低レベル、
もしくは質問者自身何が何だが分からない質問を勇気を持って書き込むスレッドです。
Perl使いが優しくコメントを返しますが、
お礼はPerlの布教と初心者の救済をお願いします。

0709nobodyさん

2008/10/05(日) 16:08:06ID:???

クッキー食いたくなった

0710nobodyさん

2008/10/05(日) 16:51:17ID:???

>>704
全角スペースが含まれていて、}が閉じてないとか？
エラー内容が伏せられてるから、あてずっぽうで。

URLはhttp://example.com辺りを使えば被らない事がrfc2606保障されてる。

0711700

2008/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の人からは腐ったコードに見えると思うので改良点が有ったら
教えてください。Ｃの人から見ても腐ってる、というのはこの際勘
弁。

0712700

2008/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'

0715700

2008/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なのですが、ソースコードが見当たらないです。
すいませんがご存知の方教えてほしいです。

0755nobodyさん

2008/10/18(土) 10:53:04ID:???

>>754
配布元ウェブサイトに行くとそのあたりのことを書いてありますが。

0756nobodyさん

2008/10/18(土) 11:46:59ID:TpRddp7o

また質問です。
Apache2.2.6から2.2.10にアップグレードする場合、
古いApacheを消さず、そのままアップグレードってできますか？
環境はwindowsXPです。

0757nobodyさん

2008/10/18(土) 11:48:06ID:TpRddp7o

誤爆しました。すいません。

0758nobodyさん

2008/10/18(土) 18:51:00ID:???

Larry Wall に、Programming Perl の第4版をいつ書くのかを聞きたいのですが、どこで聞けますか？

0759nobodyさん

2008/10/18(土) 21:19:53ID:???

使用しているモジュールのバージョンアップ後に
lwpでhttpsサイトのソースをgetで取ると一部が抜けてしまう
状態になったのですが、Crypt-SSLeayを削除したところ
問題なく取得できるようになりました。
最近のバージョンではCrypt-SSLeayは使わなくなったのでしょうか？

0760759

2008/10/18(土) 21:31:03ID:???

すんません、なんか勘違いしていたようです・・・

あれこれやってるうちにp5-Net-SSLeayの方も入れてました。
これも消したところ接続不能に…
一方ずつ試してみたところ、Crypt-SSLeayの方では>>759の状態になるのですが
Crypt-SSLeayを削除してNet-SSLeayを入れたところ正常になりました。
LWPではCrypt-SSLeayの方を使ってたと思うんですが、Net-SSLeayに変わったのかな・・

BASIC認証もおかしくなったしportupgradeでまとめてあげたのが悪かったのか…(´・ω・`)

0761nobodyさん

2008/10/24(金) 04:49:19ID:kVbR7JUN

perlで入力された文を単語に分割し、単語ごとに改行し、a.txtファイルへ追加書き込みを行うプログラムを具体的にそのプログラムを書いて教えてください。

0762nobodyさん

2008/10/24(金) 12:59:37ID:???

単語に分けるには形態素解析とか使うのが常套だと思うが
ここに書くには面倒だな

0763nobodyさん

2008/10/24(金) 13:48:31ID:???

くだ質問失礼します。

あるPerlスクリプトでMIME::Toolsを利用しているのですが
MIME::Tools内でFile::Tempをインクルード？しようとしているときに
File::Temp Vresion 0.18 Required--This only Version 0.12と表示され
スクリプトが動作しません。

CPANではFile::TempのVer 0.12の配布は終わったらしくインストールできません。
そこでtar.gzを探してインストールしてみたのですがエラーは改善しません。
CPANでインストールしたものを-Dオプションで削除しても同様でした。

CPANでインストールしたものとtarボールからインストールしたモジュールは
同居できないのでしょうか？

もしそうだとするとこのエラーは解決しないのでしょうか。

動作OSはDebian Etchです。

0764nobodyさん

2008/10/24(金) 14:02:11ID:???

>>763
> File::Temp Vresion 0.18 Required--This only Version 0.12

File::Temp Vresion 0.18 が必要--これはたったの Version 0.12

0765763

2008/10/24(金) 14:33:43ID:???

>>764
レスありがとうございます。
英語を誤読していましたか。お恥ずかしいです。

で、CPANでFile::Tempと念のためMIME::Toolsを最新にしてみました。
File::TempはVre 0.20、MIME::Toolsは5.427に上がりました。

ですが元のParlスクリプトを実行すると
全く同じエラーが表示されます。
バージョン番号を誤認しているようなのですが
そもそもParlやCPANはどこでバージョンを管理しているのでしょうか。

0766nobodyさん

2008/10/24(金) 14:48:26ID:???

思い込みと決めつけ

0767nobodyさん

2008/10/24(金) 14:57:09ID:???

>>765
コンソールから、
perl -MFile::Temp -e "pritn $File::Temp::VERSION" (Unix系ならシングルクオートで)
やってみ。
これで0.12が出たら、多分、システムにもともと入ってた0.12と新しく入れた0.18が共存してる。

OSとか分からんからはっきりとは言えないけど、そのシステムに合ったやり方で
モジュールのバージョンアップしないと(ActivePerlならppm、RHEL系Linuxならrpmなど)
違うファイルパスに二つのバージョンが入ってしまう、ってことも起こり得る。

0768763

2008/10/24(金) 15:22:04ID:???

>>767
レスありがとうございます。
教えていただいたコマンドを実行してみましたが何も表示されませんでした。
念のためsudoにてroot権限でも実行してみましたが同じでした。
（ちなみ動作環境はDebian Etchです）

とりあえず共存の可能性があるとのことご指摘があったので
Perlのモジュールが格納されてそうなディレクトリを
調べてみたいと思います。

0769nobodyさん

2008/10/24(金) 16:55:38ID:???

>>768
大変失礼した。>>767の"pritn"は"print"のtypoだ。pritnてなんだよ(w)
あと、OSちゃんと書いてたの見落としてた。ごめん。

で、なにも表示されないってことだけど、それはおかしいと思う。
(モジュールが入ってなければなんらかのエラーが出るはず。bashからなら囲いの""を’’にしてみて)

Deb系のことは詳しく知らないからあくまでも参考だけど、RHEL系の場合/usr/lib/perl5 以下に、
5.8.8とかsite_perl、vendor_perlみたいなディレクトリがいくつかあって、例えばrpmから入れたらvendorに入るけど、
tarから手動でmakeとかするとsite_perlに入ったりする。(モジュールによって違う)

0770763

2008/10/24(金) 20:41:34ID:???

>>769
フォローありがとうございます。
SSHクライアントの表示がおかしかったようです。
実行結果をリダイレクトしてviで覗いたら
0.20と記録されていました。

で、途中報告です。
実は動かそうとしているスクリプトは
後出しで申し訳ないのですがほかのサーバで動作していた
Movable Type関係のスクリプトなのです。
で、Movable Type内にもPerlのライブラリがあるらしく
そちらとバッティングしている可能性が大きくなってきました。

今回Debianに移行評価テストをしているのですが
ディストリビュートのディレクトリ構成やパーミッションの違いが
影響しているのもあるようです。
引き続き調べてみて、報告したいと思います。

0771nobodyさん

2008/10/24(金) 20:50:49ID:???

まず自分自身を評価しろよ

0772763

2008/10/24(金) 23:18:20ID:???

結果報告です。

途中経過に書いた通りなのですが
Movable Type 内にextlibというディレクトリがあり
その中にFile::Tempの0.12がインストールされていました。

動作させようとしていたスクリプトが
Movable Typeで提供しているライブラリを優先させて
インクルードさせていたために
CPANでインストールしても有効にならないということでした。

で、Movable Type内のFile::Tempをリネームして
スクリプトを実行したところバージョンチェックに引っかかりませんでした。

ただその後jcode.pmの実行中にたくさんのエラーを吐いて
処理が止まっていました。
これ以上深追いしても私の手で解決するには時間がかかると判断し
今回の評価作業は打ち切りました。

ただ今回初めてPerlでの作業を行って勉強になりました。
コメントしてくだった方に感謝します。

0773nobodyさん

2008/11/11(火) 14:43:56ID:???

test.cgi?page=1　にアクセスすると
<html><body>1</body></html>
と表示され、test.cgi?page=2　だと
<html><body>2</body></html>
…というふうに数字が増えていき、これをpage=10までやる。

という場合どうしたらいいですか？

0774nobodyさん

2008/11/11(火) 15:10:13ID:???

printf(<<HTML, ($ENV{QUERY_STRING}=~/(\d+)/)[0]+1);
Content-type: text/html

<html><body>%d</body></html>
HTML

0775773

2008/11/11(火) 16:08:15ID:???

>>774
ありがとうございます。エラーになってしまって表示されません…。
値の設定とかが必要なのでしょうか？

0776nobodyさん

2008/11/11(火) 16:21:08ID:???

10まで、とか条件抜けてるけど、エラーにはならんぞ。
先頭の #!/path/・・・/perl とか、パーミッションとかは問題ないな？

0777773

2008/11/11(火) 16:49:28ID:???

print "Content-type: text/html\n\n<html><body>%d</body></html>"
で%dと表示されるので環境に問題はないと思うのですが…。

先頭の#!/path/・・・/perl の次の行から>>774を貼り付けてtest.cgiで保存し
ブラウザでアクセスしているのですが、何か根本的に間違えていますか？

0778nobodyさん

2008/11/11(火) 16:52:57ID:???

そこまでやってて環境とエラー内容を書かないのはなんでだ
まあ普通は CGI.pm 使うとこからやった方がいいが。

0779773

2008/11/11(火) 17:15:43ID:???

すみません、動きました！
文末にスペースが入っちゃってました。
ありがとうございます！

0780nobodyさん

2008/11/14(金) 01:53:06ID:???

既存のＣＧＩを少し変えて、件数ごとのページ送りができるようにしたいと思っています。
送り方は何でもいいのですが、例えばこんな感じで↓

$hyouji=表示件数
$cnt = 0;
for (@logdat) {
$cnt++;
next if ($cnt < $pageno + 1);
next if ($cnt > $pageno + $hyouji);
print "$logdat[$cnt-1]<hr>";
}
print "<form action=\"$script\" method=\"post\">\n";
$next = $pageno + $hyouji;
$back = $pageno - $hyouji;
if ($next < $cnt) {
print "<input type=\"submit\" name=\"page=$next\" value=\"次の$hyouji件\">\n";
}

ただ、元のCGIに以下のような記述があり、どうすればこれを保持したまま上のボタンが
機能するようになるのかがわかりません。

my($cl)=$ENV{'CONTENT_LENGTH'};
read(STDIN, $a, $cl);
foreach (split(/&/, $a)){
($arg, $val)=split(/=/, $_);
$val =~ s/\+/ /g;
$val =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/ego;
}
undef $a;

どうかご教授ください…

0781nobodyさん

2008/11/14(金) 02:08:39ID:???

http://www.google.com/search?q=%E3%81%94%E6%95%99%E6%8E%88

0782nobodyさん

2008/11/14(金) 02:18:37ID:???

ご教示ください…

0783nobodyさん

2008/11/14(金) 02:45:52ID:???

…はうざキモイ

0784nobodyさん

2008/11/14(金) 02:53:52ID:???

ご教示ください！

0785nobodyさん

2008/11/14(金) 22:30:27ID:SnXSZwdH

なぜ1になるんだ！

print ("RlNG" ne uc "ring");

0786nobodyさん

2008/11/14(金) 22:43:17ID:???

ＲＩＮＧとＲｌＮＧは違う

0787nobodyさん

2008/11/15(土) 08:06:22ID:???

Perlをゼロから勉強したいんですが、お勧めの書籍ってなんですか？

0788nobodyさん

2008/11/15(土) 14:37:47ID:???

>>787
じっくりやりたいならまずCを勉強する。そうすれば
http://www.namazu.org/~tsuchiya/perl/info/perl-ja_toc.html
オンラインマニュアルで充分だ。

0789nobodyさん

2008/11/15(土) 19:04:08ID:???

誰かが書き込んだので私も^^
>>787さん
実は私も超初心者で何からどうすればよいのかわかんなかったので
２ｃｈで聞いてみた
たまたま答えた人がこう言ったんですけど（その後、誰もフォローもしないので）
おもいっきり信じてしまいました
「Perlでなんでもできるよ。Perlは簡単なので初心者向きだよ」ってね
しかし、Perlにできることは限られていました
それに簡単ではありません
ちょっと込み入ったことをやろうとしたら
参考書20冊買いました。でもできませんでした。
何が言いたいのかというと
Perlで時間潰すくらいなら初めからCがいいです。もしくはC++ね
Perl使いの最高峰レベルで難しいことやるよりは
Cプログラマヘタレレベルのほうが簡単に色んなことができました
VC++がいいかも知れません
Cはプログラムの王様です
やりたいことが難しいことになるほど
いずれCにいかなきゃなあって思うはずだよ
それなら最初からCかC++の方が絶対いいよ
私はPerlスレでオモイッキリ小馬鹿にされまくって結局何もできないまま挫折しました
今はCの超～～～初心者ですが既に私のやりたいことできました
悪いことはいわないのでCかC++（VC++なら無料でできます）がいいよ
Perlスレの解答者は自己満足で人をけなしてばかり
あなたをオモチャにするだけで、あなたの役には立ちません
マジでCかC++がいいとおもう
もし、どうしてもPerlに拘るのならここで質問しない方がいい
いじくられて小馬鹿にされるだけです
CからみたらPerl使いなんて何もできないヘタレですよ
そのくせ生意気にも人様を小馬鹿にするのが趣味なんです
とにかくC（もしくはC++またはVC++）です！

0790nobodyさん

2008/11/15(土) 19:59:23ID:???

>20冊買いました
お前perl or C以前にセンス無いからやめちまえ。
参考書買って「読む」って事が分ってないだろ…
「実際の例題とか自分で打って実行してみる」
それが「読む」って事だよ。

0791nobodyさん

2008/11/15(土) 20:01:25ID:???

20冊も読んでたらそれなりになってるだろ普通。

0792nobodyさん

2008/11/15(土) 20:25:57ID:???

Perlとかこれからすたれる言語はやめたほうがいいよ。
RubyかPythonあたりにしなさい。

0793nobodyさん

2008/11/15(土) 20:27:24ID:???

>>787さん見ましたか
ここの連中はこうやって煽るばかりです
そして私が質問するとできないのでみんな消えちゃうんですよｗ
20冊読んでってわかんないから挫折したんだよ
Cのほうが圧倒的にいいよ
Perlなんて何もできないくせに難しいだけ
やっと覚えてもちょっと計算するか文字列扱うくらいだろ
例えば半自動でいいからヤフーのIDを10分で200個作れるのか
そう3秒に1個ね
できてから言え！
ここで迷解答してればいいよ

>>787
とにかくPerlやPHPやjavaスクリプトとかはやらないほうがいい
JAVAも遅い
Cだよ
も少し込み入ったことやるならC++
VC++使えばPerlより簡単だ
貼り付ければほぼ完了だもん
Perlは口ばっかし
お前らやってみろよヤフID
私は簡単にVC++で作れたよ
あのままPerlやってても多分、今でも作れなかったと思う
そういうサンプル皆無なんだもん
そのくせ「なんでもできる」だからねｗ
はらいてー
LWPだっけあれでどこまでできるか試してみればいいだろ
何もできないよ

0794nobodyさん

2008/11/15(土) 20:33:12ID:???

おい！
どうした迷解答者
また言い放題で消えちゃったか
そうなると思ってたよ
はよヤフID3秒で作れるソースくれくれ
ほらほら

0795nobodyさん

2008/11/15(土) 20:34:55ID:???

Perl云々ってなんでこんない質問者をいじくりたおすかな
自分じゃ何もできないくせに
おら
はよヤフID製作マシーンだせよ
お前らホント口先だけだな
C++がいいよマジで。

0796nobodyさん

2008/11/15(土) 20:41:53ID:???

Perlで粋がってる奴ってなんなんだ？
私は挫折したけど
ホント今、思い出しても
振り回されっぱなしで何も習得できなかったよなあ
おい20冊読んでわからん奴はむいてないとか言った奴
お前は早急にヤフーID製作ソフト作ってみ
私はC++で1日で作れたよ
お前は人様を小馬鹿にするんだから
私より早く作れるのを頼むよｗｗｗ
口先くん
まあ、未だにPerlで作れないけど
別にいいよ
私は前から言ってたけどPerl覚えるためにPerlやるんじゃないって
簡単に挫折しないで目標を達成
これを以前言ったら「それPerl」って言われたけど
Perlじゃなにもできないよ
Perl解答者はヤフーId1分間に20個以上は作れるのか？
私はPerl全くできないのと同じレベルだけど
私は作ったよC++でね
簡単さ

0797nobodyさん

2008/11/15(土) 20:44:46ID:???

人をけなすより
作ってから言え！
PerlじゃC++の足元にも及びません
世界中が認めますよ
それなのにPerlできない奴を見つけて遠吠え
情けないやつらだ

0798nobodyさん

2008/11/15(土) 20:49:46ID:???

>>797
それはまさに今キミがやってることそのものだ

0799nobodyさん

2008/11/15(土) 20:53:32ID:???

ここはCGI作ったら一人前だと勘違いしてる奴ばかり
サーバサイドって作れるように言語がそういう仕様なんだから作れて当たり前
私がクライアント操作を知りたいって言えばみんな消える
サーバサーバサーバ
どの解説書もサーバサーバサーバ
うんざり！
そんなことより本当に必要な解説書はPerl本にはなかったな
私の言う本当のクライアント操作のサンプルはPerlではない

0800nobodyさん

2008/11/15(土) 20:57:10ID:???

サーバサーバわっしょいわっしょい
そういう時代じゃないと思う
Perlの解説本を買えば
みーーーーーんな
お決まりのCGI
サーバサイドって言う割には遅すぎて細かいことは
「サーバサーバ」の掛け声でごまかしちゃう
さーば！さーば！さーば！
もうちょっとクライアント側に詳しい解説本はないのか探しまくったけど
ない
当たり前だ
Perl自体が、私の言うクライアント操作できないじゃん！
さーば！さーば！さーば！あほか。

0801nobodyさん

2008/11/15(土) 20:59:31ID:???

自慢のサーバサイドもCの前では非力すぎて話にならない
もっとゴロゴリ力業の必要な私が言うクライアント操作なんて夢物語
サーバ！サーバ！って言ってるあいだはわかんあいだろね
本当に難しいのはクライアント操作だったんだ

0802nobodyさん

2008/11/15(土) 21:01:56ID:???

Perl解説本100冊買えば100冊ともサーバのことばっかし
その割には
サーバとしては小回りきかない
中途半端
ほんと時間の無駄だったわ
こんなのでクライアント操作を模索してた自分が無知すぎて
perlの実態わかったとき自分をワロタ

0803nobodyさん

2008/11/15(土) 21:03:08ID:???

さーば！さーば！さーば！
あほか
解説本どおりにすりゃあほでもできる
そんなことよりクライアント操作だ
Perlじゃ無理！！！！

0804nobodyさん

2008/11/15(土) 21:06:40ID:???

さーば！さーば！さーば！
なんでもさーば！
絶対さーば！
さーばさいどは凄いんだぞ～～

さーば信者はカス
本当に難しいのはクライアント操作
それをここで聞いてた私も速く気づけばよかったとオモイッキリ後悔してるよ
こいつらクライアント操作はできないくせに
サーバのことがわかったら一人前に
人様を小馬鹿にしやがって。
さーば！さーば！さーば！さーば！・・・死ぬまでやっtればいいよ

0805nobodyさん

2008/11/15(土) 21:08:07ID:???

だいたいPerlがサーバサイドって思っているのは
perl使いだけですよ
細かなことができないのに
なんでサーバサイドなんだよ
CGI作れるってだけだろ
ぽかーーーーん

0806nobodyさん

2008/11/16(日) 01:41:39ID:???

ちょっと込み入ったことをやろうとしたら
参考書20冊買いました。でもできませんでした。
　↓
Perl使いの最高峰レベルで難しいことやるよりは
Cプログラマヘタレレベルのほうが簡単に色んなことができました

ちょっと込み入ったことはできなかったが最高峰には到達したようだ。

0807nobodyさん

2008/11/16(日) 05:58:56ID:???

なんか痛い無能がわいてるな

0808nobodyさん

2008/11/16(日) 06:04:08ID:???

Perlなんて所詮はテキスト処理をちょこっとするだけのスクリプト言語
それがたまたまUNIX系サーバに載ってるって事でCGIを作るのに丁度良かっただけ

この痛い奴はどんな幻想持ってたんだ？
Perl云々でなく自分が無能だって事を理解しようね

0809nobodyさん

2008/11/16(日) 10:21:26ID:???

今時、Perlを始めるなんて信じられない

■ このスレッドは過去ログ倉庫に格納されています