- 1 名前：nobodyさん mailto:sage [2006/09/10(日) 13:33:48 ID:???]
- このスレッドは、他のスレッドでは書き込めない超低レベル、
もしくは質問者自身何が何だが分からない質問を勇気を持って書き込むスレッドです。
Perl使いが優しくコメントを返しますが、
お礼はPerlの布教と初心者の救済をお願いします。
- 101 名前：nobodyさん [2007/03/22(木) 13:03:52 ID:RsfMZKm1]
- $value = '%e6%97%a5%e6%9c%ac%e8%aa%9e';
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
として走らせたところ、スクリプトをウェブサーバを通して呼んだときと
同じサーバのコマンドラインから呼んだときで
$valueの中が変わってきてしまいます。
linuxコマンドライン：ﾂづ可づ卍づｱﾂつｲ
linux上ウェブサーバ：にほんご
どうしてこうなっちゃうんでしょうか・・
コマンドラインから呼んだときでも"にほんご"とする方法はありますか？
- 102 名前：nobodyさん mailto:sage [2007/03/22(木) 13:08:13 ID:???]
- そのコンソールは日本語表示に対応してますか
- 103 名前：101 mailto:sage [2007/03/22(木) 14:06:12 ID:???]
- ごめんなさいよくわからないです。
linuxのサーバへはwindows上のtelnetでつないでまして、
さきほど、簡単にprintで"にほんご"と表示させるだけ、
もしくはファイルとして保存するだけのスクリプトを
スクリプト自体の文字コードをいろいろ変えて走らせてみたところ、
どれも漢字混じりでぐちゃぐちゃっとなり、まともに出ませんでした。
これって対応してないって事ですかね。。
- 104 名前：nobodyさん mailto:sage [2007/03/23(金) 12:35:39 ID:???]
- せめてTeraterm使ってください
- 105 名前：nobodyさん mailto:sage [2007/03/26(月) 05:21:22 ID:???]
- 表示文字コードを変更できないプロンプトってあるの？
- 106 名前：nobodyさん [2007/04/18(水) 00:42:41 ID:2fOrfnuV]
- #ディレクトリを開く
print "変換するフォルダのパスを入力してください\n";
$folder_path = <STDIN>;
chomp($folder_path); #改行コード削除
opendir(DIR, "$folder_path");
@file = readdir(DIR);
closedir(DIR);
#ファイル名を調べる
foreach (@file)
{
#htmlファイルなら処理
if( $_ =~ /.html/ ){
print "$1\n"; ##ここは呼ばれるが$1が空##
#ファイルを開く
open(F, "+< $_.$1" );
#ファイル１行読み込む
while($line = <F>){
#iso-8859-1をShift_JISに変換
if( $line =~ s/charset=iso-8859-1/charset=Shift_JIS/ ){
print(F "$line");
}
}
close(F);
}
}
htmlファイルの文字コードをかえるコードを書きたいのですが、うまくいきません。
どこが、間違ってるのでしょうか？
- 107 名前：nobodyさん mailto:sage [2007/04/18(水) 01:10:01 ID:???]
- まずエラーメッセージを書こうぜ
- 108 名前：106 [2007/04/18(水) 01:17:05 ID:2fOrfnuV]
- #ディレクトリを開く
print "変換するフォルダのパスを入力してください\n";
$folder_path = <STDIN>;
chomp($folder_path); #改行コード削除
opendir(DIR, "$folder_path");
@file = readdir(DIR);
closedir(DIR);
#ファイル名を調べる
foreach (@file)
{
#htmlファイルなら処理
if( $_ =~ /([A-Za-z0-9_]*\.html)/ ){
print (STDOUT "$1");
#ファイルを開く
if( !open(F, "+< $floder_path.$1" ) ){
printf(STDOUT "HTML読み込み失敗\n");
}
#ファイル１行読み込む
while($line = <F>){
print(STDOUT "変換\n");
#iso-8859-1をShift_JISに変換
if( $line =~ s/charset=iso-8859-1/charset=Shift_JIS/ ){
print(F "$line");
}
}
close(F);
}
}
としたところ、
ファイル名 HTML読み込み失敗
と表示されます。
- 109 名前：nobodyさん mailto:sage [2007/04/18(水) 01:22:04 ID:???]
- じゃ動いてんじゃん
- 110 名前：106 [2007/04/18(水) 01:23:05 ID:2fOrfnuV]
- ループにはいるまえに、カレントディレクトリをへんこうし
#カレントディレクトリ変更
chdir("$folder_path");
open(F, "+< $floder_path.$1" )を
open(F, "+< $1" )とすると置換の部分は実行できました。
しかし、置換前の文字が残ってしまいます
- 111 名前：nobodyさん mailto:sage [2007/04/18(水) 01:59:13 ID:???]
- >置換の部分は実行できました。
>しかし、置換前の文字が残ってしまいます
バカじゃないんだから実行前の入力文字列と実行後の出力文字列くらい出せや
- 112 名前：nobodyさん mailto:sage [2007/04/18(水) 02:06:45 ID:???]
- 香ばしいなぁｗ 俺にもあったわこんな時代ｗｗｗ
>>108
ファイル変換系の処理は「読み込むファイルに書き戻す」よりも
「読み込みつつ別のファイルに書き出す」ようにした方がいい。
書き出しが終わった後で削除＆リネームすればいいだけだし、
途中で処理が止まっても安全。
あと微妙に板違いだから次からはプログラム板行けなｗ
- 113 名前：106 [2007/04/18(水) 02:57:11 ID:2fOrfnuV]
- 別ファイルに書き出しでやってみます
ありがとうございました。
つぎからはプログラム板逝きます
- 114 名前：nobodyさん mailto:ファンより [2007/04/18(水) 03:45:43 ID:???]
- 島根県のみなさん、パチンコをするなら、
優良パチンコ店 エ○トワン
に行こう！ 遠隔（※１）をやっていないパチンコ店は「エイ○ワン」だけ！
違法ロム（※２）を使っていないパチンコ店も「エイト○ン」だけ！
○イトワンでは、遠隔等が可能な設備は入れていません。 ロムも、警察がチェックしやすくしています。
詳しい方はご存知の通り、どんなにパチンコの遊戯人口が変動しても、その市場規模は変わりません（※３）。
要するに、客が減っても、残った客から絞り盗る量を増やして調整しているのです。
しかし、何故それが可能なのか？…ご理解頂けると思いますが、９割以上の店が確実に遠隔等を行ってます。
１万店以上のパチンコ店の中で、遠隔も違法ロムも確実にやってないのは「○イトワン」ただ１店です！
※１…遠隔とは
「お、あの客は新顔だな。勝たせて味を占めさせるか。遠隔操作で設定変更しよ」
「客が減ってきたな。ま、設定を絞めて（違法）、１人あたりから搾る量を増やせばいいか」
「あのオヤジ負け続けてるからそろそろ辞めるかもな。今日は勝たせてやるか」
※２…違法ロムとは
「うちのアタリ確率は、もちろん他と同じ『○○○分の１』ですよ！（ロムいじってるからウソだけど）」
※３ 市場規模 遊戯人口
平成06年 30兆4,780億円 2,930万人
平成08年 30兆0,630億円 2,760万人
平成10年 28兆0,570億円 1,980万人
平成12年 28兆6,970億円 2,020万人
平成14年 29兆2,250億円 2,170万人
平成16年 29兆4,860億円 1,790万人
- 115 名前：nobodyさん mailto:sage [2007/04/24(火) 12:15:29 ID:???]
- perlでそれなりに大きなCGIを作ることになったのですが
いろいろな関数をまとめた物を作るときに
それらを単純にまとめただけの外部plファイルを
requireして使いまわすよりも、パッケージ化や
モジュール化して使ったほうが良いと
聞いたのですが、何故でしょうか
- 116 名前：nobodyさん mailto:sage [2007/04/24(火) 14:22:11 ID:???]
- パッケージ化することによって、関数（メソッド）や変数（属性）の名前衝突を避けることができ、
モジュールをつかいまわす場合に有効。
- 117 名前：nobodyさん [2007/04/24(火) 14:37:40 ID:RJoF4cmJ]
- Windowsマシンで、Apache + ActivePerlを使用して、ローカルでPerlの勉強をしているんですが、
Perlのコードにエラーがあると、
use Strict; を記述しても、500 Internal Server Errorになってしまいます。
（どういうエラーが出たか教えてくれない）
エラーを表示させるにはどうしたらいいんでしょうか。
各バージョンは、
Perl v5.8.8
Apache 2.0.59
です。
- 118 名前：nobodyさん mailto:sage [2007/04/24(火) 17:10:54 ID:???]
- >>116
なるほど。変数名の衝突を気にしなくてもいいのは便利ですね
これからパッケージの勉強からしてみます
ありがとうございました
- 119 名前：nobodyさん mailto:sage [2007/04/24(火) 17:23:24 ID:???]
- >>117
スクリプトの頭に
BEGIN {print "Content-Type: text/plain\n\n"; $| = 1; open(STDERR, '>&STDOUT')}
とでも書いとけ
- 120 名前：nobodyさん [2007/04/25(水) 02:24:17 ID:lSJlnLTR]
- >>117
モジュールつかっとけ
use CGI::Carp qw(fatalsToBrowser);
ttp://perldoc.jp/docs/modules/CGI.pm-2.89/CGI/Carp.pod
- 121 名前：nobodyさん mailto:sage [2007/04/25(水) 20:53:26 ID:???]
- [ディレクトリ構成]
xxx/
index.html
data/
post.dat
cgi-bin/
xxx/
post.cgi
と置いてあります。このとき
#!C:/Perl/bin/perl
open(OUT,">> ../../xxx/data/post.dat");
print OUT "$FORM{'posturl'}\n";
close(OUT);
と post.cgi に記述してみたのですが、うまく
post.dat のほうに $FORM{'posturl'} の内容が書き込めていないようでした。
パスの設定ミスだとは思うのですが…
環境は,windows xp sp2 上 でApache/2.0.45 を使用しております。
どうぞよろしくお願い致します m(__)m
- 122 名前：nobodyさん mailto:sage [2007/04/25(水) 22:02:43 ID:???]
- それだけじゃさっぱり
- 123 名前：nobodyさん mailto:sage [2007/04/25(水) 22:56:34 ID:???]
- 自己解決スマソ。
open(OUT,">> ../../htdocs/xxx/data/post.dat");
とすれば良かったみたいです。
htdocs/
- xxx/index.html
- xxx/data/post.dat
cgi-bin/xxx/post.cgi
webプログラムってプログラム以外の部分がややこしい…
- 124 名前：nobodyさん [2007/04/26(木) 16:20:32 ID:Xsmaee58]
- ■ Perl言語 ■ 何でも質問コーナー ■
mixi.jp/view_bbs.pl?id=17607679&comm_id=1401396
Perlに関すること、cgiに関すること
なんでも質問できるコーナーです(たとえばApacheとかでもOKとします！)
（Web系であればOK）
ルール：
Google検索で調べてわかるようなことでも質問してもOKです
（初心者のうちは、どの情報を取捨選択したらイイのかわからないと思うので）
回答してくださるかたは、暖かく質問者を迎えてやってください
o(^^o) (o^^)o
- 125 名前：nobodyさん mailto:sage [2007/05/01(火) 16:23:34 ID:???]
- PerlでファイルアップロードCGIを作ろうとしています。
「1. ファイルを選ぶ 2. 確認画面 3. 送信完了」と動作させようとして
躓きました。2. 確認画面を表示しない場合はうまくいくのですが、
確認画面を間に挟むと空のファイルがアップロードされてしまいます。
1 から直接 3 にいくプログラムは次のように組んであります。
1. CGI.pmを使ってfilefield('file');でファイル選択させる。
3. $fh = upload('file'); でファイルの情報を得て、
while(read...){print...} でファイルを書き込む。
2 をはさむときは、param('fh', $fh); print hidden('fh');
として情報を保存しました。
たぶん、上の方法では必要な情報を保存しきれていないのだと
思うのですが、どうすればよいかわかりません。よろしくお願いします。
- 126 名前：nobodyさん mailto:sage [2007/05/03(木) 02:37:57 ID:???]
- 無理
- 127 名前：初心スレ861(481) [2007/05/25(金) 22:03:25 ID:1LPPhSSe]
- 質問です
if(a=1){
if(b=1){
print "○○○"
}
}
というようにＩＦの中でＩＦは可能ですか？
- 128 名前：nobodyさん mailto:sage [2007/05/25(金) 22:17:31 ID:???]
- 歴史にIFなど無いのだよ
- 129 名前：nobodyさん mailto:sage [2007/05/25(金) 23:10:03 ID:???]
- >>127
なぜ不可能だと思うんですか？
- 130 名前：nobodyさん mailto:sage [2007/05/25(金) 23:29:35 ID:???]
- >>129
うごいていたプログラムのＩＦの中にＩＦ入れたら壊れたからです
何か他にげんいんがあるのかお
- 131 名前：nobodyさん mailto:sage [2007/05/25(金) 23:47:26 ID:???]
- お前のプログラム知識だよ
- 132 名前：nobodyさん mailto:sage [2007/05/26(土) 05:47:48 ID:???]
- if(a=1)
なんか懐かしいなw
こういうの見たの15年ぶりだよ。
- 133 名前：nobodyさん mailto:sage [2007/05/26(土) 23:39:33 ID:???]
- perl 関連スレッドに機会があったらいつか書こうと思って
たんだが、機会が無いのでここに独り言として書く。
[初心者のための perldoc ]
perldoc は、本を開かなくともいつでも開くことが出来る手軽なリファレンスだ。
ターミナルで「perldoc perl」と打ち込むだけで概要が出てくる。SYNOPSIS に
リストがつらつら書かれているがそれぞれ perldoc で呼び出すことができる
1. とりあえず基礎の基礎を読んでみたいなら「perldoc perlintro」
( for, while, if などもここを最初に )
array of array などなら「perldoc perllol」
正規表現なら、「perldoc perlre」
スイッチ（所謂コマンドラインオプション）なら「perldoc perlrun」
etc...
これらの文章中 see perlxxxx.... と書かれていたら素直に
「perldoc perlxxxx」すればよい。
2. 個々の関数について調べたいなら
「perldoc -f reverse」
などと f オプションを付けて実行する。
3. 取り敢えず、なんか判らんって時。例えば「配列」
「perldoc -q array」
faq の中から array を含む文章拾ってくれる。但し question のみ。
4. 個々の説明文 pod にアクセスしたい時
「perldoc Tie::File」
「perldoc strict」
5. 「perldoc -h」すれば、perldoc の使い方の説明が出てくる。
perldoc の中身には例文も出てくるので、英語が判らんでも 2ch に
相談するまえに見てみることをお勧めする。
どーしても、という方には web 上にはそれなりに翻訳された perldoc が
あるのでターミナルで「perldoc perl」でリストの中から目星を付け、
そのファイル名で検索するのも良い。
（但し最新版ではない事がほとんどなので注意が必要）
- 134 名前：nobodyさん [2007/05/29(火) 00:59:04 ID:+KVPsKMz]
- 質問です。
#!/usr/bin/perl
open (IN,"< http://あｑｗせｄｒｆｔｇｙふじこ/test.dat") ;
@LINES = <IN>;
close(IN);
print "Content-type: text/html\n\n";
print "<html><head></head><body>";
foreach(@LINES){
print $_ . "\n";
}
print "</body></html>";
}
こんな感じでhttpから始まるURLをうって
ファイルを開いて処理したいんですがどうやら読めないっぽいです。
open (IN,"test.dat") ;
に変えると動いてくれるのですが、、、
仕様上不可能なんでしょうか？
- 135 名前：nobodyさん mailto:sage [2007/05/29(火) 01:19:04 ID:???]
- >>134
allow_url_fopen が効いてる PHP みたいな、裏でどうにかしてくれる仕掛けはありません。
LWP使えば外部のファイル自体は取得できるけど。
- 136 名前：nobodyさん [2007/05/29(火) 02:04:54 ID:+KVPsKMz]
- >>135
こんな時間にレスあり ＞＜
use LWP::Simple;
$a = get("http://くぁｗせｄｒｆｇｙふじこ/test.dat");
で取得できました。ありがとうございました。
これで気持ちよく眠れます。
- 137 名前：nobodyさん mailto:sage [2007/06/03(日) 00:26:01 ID:???]
- 久しぶりにperlでcgi作ろうかと思うんだけど、今はutf8で書くのが一般意的？
- 138 名前：nobodyさん mailto:sage [2007/06/03(日) 13:53:14 ID:???]
- なんでもおｋ
- 139 名前：nobodyさん mailto:sage [2007/06/05(火) 13:52:29 ID:???]
- ブラウザで操作をして
自サーバ内のファイルを別サーバへコピーしたいんですが（セキュアFTPサーバ)
Net::FTP
を使って、セキュアなFTPサーバへ接続は出来ますか？
もしくは、可能な別モジュールってありますか？
- 140 名前：nobodyさん [2007/06/07(木) 14:40:32 ID:TOlQmlY8]
- すいません。
定期的にフォーム部品の個数が変わるフォームで、
１コでも未記入があった場合にエラーが出したいんです。
radio1
radio2
radio3
textarea1
textarea2
radio4
・
・
・
その時によって、フォーム部品の数が増えたり減ったりします。
汎用的に未記入があった時にエラーを返すにはどうしたらいいでしょう？
- 141 名前：nobodyさん mailto:sage [2007/06/07(木) 15:58:44 ID:???]
- フォームにフィールド一覧をhiddenで入れておくとか
- 142 名前：nobodyさん mailto:sage [2007/06/07(木) 16:38:40 ID:???]
- それはだめだろｗ
- 143 名前：nobodyさん mailto:sage [2007/06/07(木) 17:31:11 ID:???]
- エンティティボディに=&か=$があったら落とせばいい
- 144 名前：nobodyさん mailto:sage [2007/06/07(木) 17:33:24 ID:???]
- それでは駄目
仕様上は未入力のフィールドは送信しなくてもいいことになってるんで
- 145 名前：nobodyさん mailto:sage [2007/06/07(木) 17:51:47 ID:???]
- そんな細やかなもんなら全部やるしか無いでしょ
どのみちレングスや内容を全部調べるんだろうし
- 146 名前：nobodyさん mailto:sage [2007/06/08(金) 11:15:29 ID:???]
- >>144
inputがあるのに未入力を検出したいってんなら>>143で問題ないと思うのだが。
>仕様上は未入力のフィールドは送信しなくてもいいことになってるんで
って何の仕様の話？
- 147 名前：nobodyさん mailto:sage [2007/06/08(金) 12:03:20 ID:???]
- >>146
HTML 4.01
- 148 名前：140 [2007/06/08(金) 13:54:24 ID:i/tb2omn]
- 144は私ではないです。
みなさんありがとうございます。
>143さんの方法が良さそうですね。
ところで、エンティティボディって何の事でしょう・・・・？
すいません、ぐぐってみます；
- 149 名前：nobodyさん [2007/06/08(金) 17:32:56 ID:rRYhakqE]
- お世話になっております。
今現在Perlを使用したCGIを作成していて困った事があるので相談させていただきます。
HTML側が
----------------
<form method="POST" ENCTYPE="multipart/form-data" action="edit_completion.cgi">
<input type="file" name="TENSOU">
：
----------------
としていて受け取るCGI側を
----------------
：
my $cgi = new CGI;
my $image = $cgi->param('TENSOU');
my $file_name="./test.jpg";
my $buffer;
open(OUT, ">$file_name") or die(qq(Can't open "$file_name".));
binmode OUT;
while (read($image, $buffer, 1024)) {
print OUT $buffer;
}
close OUT;
：
----------------
としているのですがうまく受け取れません、、、
上記perlは昔自分が書いたものを参考にしたのですが
ナニを参考にしたのか覚えていません。
どこか使用方法が載っているURL等お教えいただけないでしょうか？
- 150 名前：nobodyさん mailto:sage [2007/06/09(土) 13:37:43 ID:???]
- ttp://www.harukaze.net/~mishima/perl/module/upload_by_CGI_pm.html
ここを参考にしたら？
- 151 名前：nobodyさん mailto:sage [2007/06/10(日) 18:01:18 ID:???]
- Perlを勉強し始めて一ヶ月ぐらいかな・・・
仕事の傍らちょこちょこやってて
今「続・初めてのPerl」のオブジェクト指向とかリファレンスのトコ
そこ入ったらいきなりクラスとかメソッドとか初出の単語が連発してきてかなり混乱
なかなか頭に入ってこなくて泣きそう(つωと)
- 152 名前：nobodyさん mailto:sage [2007/06/10(日) 20:07:23 ID:???]
- >>151
「続・初めて」
は題名に反して、「リャマ、ラクダ、CookBook、Best Practice、etc.」を
読んだ後に読む本だぞ。
- 153 名前：nobodyさん mailto:sage [2007/06/11(月) 00:16:13 ID:???]
- >>152
レスありがとうございます
う、そうなんですか・・・もっと吟味すればよかった(・ω・｀)
リャマは読み終わりましたのでラクダ本検討してみます
しかし高い・・・
後、やっぱりUnix環境整えた方がいいですよね
今までWindowsのみでやってきたので、Unixの事はチンプンカンプンですけど
WindowsみたいにOSのパッケージを買えばいいのかな・・・調べてみようと思います
ありがとうございました
- 154 名前：nobodyさん mailto:sage [2007/06/11(月) 01:57:28 ID:???]
- ム板「質問箱 30」の704 からの流れも参考にしとけ。
後半は、マカーなので分らんw
が、Windows だけで完結してそうな人も多いし、Cygwin
辺りで慣れるだけじゃダメなのかなあ。
もちろん業務とかが絡む人は別だけど。
- 155 名前：nobodyさん mailto:sage [2007/06/11(月) 02:16:08 ID:???]
- 「原題」ってなんだったっけ、ってサイトに行ってみたら
ttp://www.oreilly.co.jp/books/4873111676/
絶版になったのか、、、
- 156 名前：nobodyさん [2007/06/11(月) 23:50:11 ID:kL3eCwRQ]
- Perl初心者です。
スクリプトの文法チェックをしたいのですがどなたかいいツール知りませんか？
検索してみたのですがなかなかいいのが見つからなくて。
- 157 名前：nobodyさん mailto:sage [2007/06/12(火) 02:23:49 ID:???]
- 文法チェックなら perl -c でやりゃいいじゃん。
もう少し厳しくみるなら perl -wc
perldoc perlrun くらいはしといてくれ。
- 158 名前：nobodyさん [2007/06/12(火) 12:32:30 ID:0KbPnFiH]
- >>157
ありがとう、早速試してみます。
- 159 名前：nobodyさん mailto:sage [2007/06/12(火) 12:43:31 ID:???]
- >>157
ここは超初心者用だ
お前のような排他的な奴は出て行け
- 160 名前：nobodyさん mailto:sage [2007/06/12(火) 14:08:36 ID:???]
- >>159
排他って言葉の意味わかってるのか?
- 161 名前：nobodyさん [2007/06/12(火) 16:16:31 ID:0KbPnFiH]
- ついでにおすすめのエディタもお聞きしたいのですが？
- 162 名前：nobodyさん mailto:sage [2007/06/12(火) 16:55:27 ID:???]
- >>161
windows?
秀丸とかEmEditor、金出したくなければ
xyzzyあたり。
- 163 名前：nobodyさん [2007/06/12(火) 17:19:53 ID:0KbPnFiH]
- >>162
windowsです。
普段は秀丸を利用しています。
秀丸はHTMLは書きやすいのですがPerlは微妙です。
Perlに特化した感じのエディタがないかいろいろ検索中ですがなかなかいいのが見つからなくて。
- 164 名前：nobodyさん mailto:sage [2007/06/12(火) 18:56:13 ID:???]
- ｘｙｚｚｙとか、unixで主に使われるエディタなら
perl用のモードがあるよ
Emacsとかvimとか。
windows用もあるけど、初心者お断り的な
ところがあるから、慣れるまでは
大変かも。
希望の機能とかはあるの?
- 165 名前：nobodyさん [2007/06/12(火) 21:45:38 ID:0KbPnFiH]
- >>164
やっぱ色分けはわかりやすいほうがいいですね。
秀丸はヒアドキュメントの部分がわかりづらくて。
あとは文法チェックやプレビュー機能なんかがあればうれしいですね。
開発環境にこだわるのはある程度知識身につけてからのほうがいいのでしょうか…
なんせまだPerl勉強して１ヶ月もたってないもので…
- 166 名前：nobodyさん mailto:sage [2007/06/12(火) 23:26:18 ID:???]
- PerlEditor ただしUTF-8非対応
Eclipse + PerlPlugin
- 167 名前：nobodyさん mailto:sage [2007/06/12(火) 23:37:16 ID:???]
- >>165
つーかまずコード書こうや
道具選びはそれからでも遅くない
- 168 名前：nobodyさん mailto:sage [2007/06/13(水) 02:12:53 ID:???]
- >>165
最初はそんなにでかいコード書くこともないだろうから、
それこそメモ帳でなきゃ適当なエディタでいいと思うけどね。
とりあえずこいつは構文チェックをしてくれるらしい
activestate.com/Products/komodo_ide/feature_list.plex
体験版はあるみたいだけど基本的に金だして買わなきゃいけないし、
ドキュメントは英語だけ。
ところでプレビュー機能ってなに? CGIでも作るの?
- 169 名前：nobodyさん [2007/06/13(水) 12:39:29 ID:Ij6cMTyX]
- とりあえずエディタはこれかPerlEditor落ち着こうと思います。
www.forest.impress.co.jp/lib/stdy/program/progeditor/perlhajime.html
PerlはCGI作るために勉強しはじめました。
とりあえず10日で覚えるPerl/CGIという入門書を読んで勉強中です。
- 170 名前：nobodyさん mailto:sage [2007/06/13(水) 18:17:02 ID:???]
- 私は一晩で学ぶSQLを買いました。最終的に3年かかりました。
- 171 名前：nobodyさん mailto:sage [2007/06/14(木) 13:02:46 ID:???]
- ワロタ
- 172 名前：nobodyさん [2007/06/14(木) 19:02:31 ID:MrJTWOJA]
- CGIで質問フォームを作ってそれが完了したと同時にメールが送られるようにしてるんだけど、
一定文字数を越えると文字化けしてしまう。。
誰かこの文字化けが何系の文字コードか分かる方います？？
$"$($($($($($($($($($($($($($($($($($($($($($($($($($($($($($($($($($($($3$3$G2~9T$*$*$*$*$*$*$*$*$*$*$*$*$
- 173 名前：nobodyさん mailto:sage [2007/06/14(木) 19:21:03 ID:???]
- 別スレに書き込みますすいません。
- 174 名前：nobodyさん [2007/06/15(金) 18:43:38 ID:3CYhNC9F]
- Perlを勉強するうえで読んでおいたほうがいい書籍ってなんですか？
- 175 名前：nobodyさん mailto:sage [2007/06/15(金) 19:41:34 ID:???]
- >>174
1. ああっ女神さまっ 1～34巻
2. 逮捕しちゃうぞ 文庫版1～4巻
3. 大人のCGIスクリプト
- 176 名前：nobodyさん mailto:sage [2007/06/15(金) 20:12:22 ID:???]
- 女神はクソアニメだろ…
- 177 名前：nobodyさん mailto:sage [2007/06/15(金) 20:55:45 ID:???]
- 銀英伝全巻（余裕があるなら、アニメ版全巻も）
- 178 名前：nobodyさん mailto:sage [2007/06/15(金) 21:51:09 ID:???]
- それが僕には楽しかったから(小学館プロダクション)
ニーチェ入門 (筑摩書房)
本当の潜水艦の戦い方 (光人社)
- 179 名前：nobodyさん [2007/06/15(金) 22:38:03 ID:3CYhNC9F]
- まじめに教えてくださいよ
- 180 名前：nobodyさん mailto:sage [2007/06/15(金) 22:48:57 ID:???]
- あいまい3cm
- 181 名前：nobodyさん mailto:sage [2007/06/15(金) 22:51:37 ID:???]
- 答えていますとも。
>SF を読むこと。
>だじゃれや言葉あそびへの理解を深めること。
>母国語できちんと文が書けるようになること。
>多くのハッカーは「おたく」というレッテルを受け入れています。
>それは自分が普通の社会的期待から自由だと宣言する方法の一つなのです。
ttp://cruel.org/freeware/hacker.html
- 182 名前：nobodyさん [2007/06/16(土) 21:27:44 ID:0wRsaGP2]
- Perl勉強しただけでハッカーになれるんですか？
- 183 名前：nobodyさん mailto:sage [2007/06/17(日) 08:54:43 ID:???]
- perlしか知らなくてもハッカーになれるヤツはなるし
全言語覚えてもハッカーになれないヤツはなれない
要は応用力の問題
- 184 名前：nobodyさん mailto:sage [2007/06/20(水) 21:35:54 ID:???]
- よろしければご教示願います。
PerlのCGIからEXEを叩くだけのSYSTEM関数を呼ぼうとしているのですが
処理自体はバックグラウンドでやらせて、制御は画面に戻したいので
「res = SYSTEM(1, @args)」で実行しようとすると、-1が戻されてしまいます。
「res = SYSTEM(@args)」でやれば問題なく動くのですが…
第一引数に1を設定した場合は実行不可になる、といったような
事例はあるのでしょうか？
（検索キー「SYSTEM」では該当が多すぎて…）
- 185 名前：nobodyさん mailto:sage [2007/06/20(水) 22:20:47 ID:???]
- >>184
つかそもそもsystem関数の使い方わかってないだろ
「perl system」でググるくらいの検索能力は身につけようぜ兄弟
- 186 名前：nobodyさん mailto:sage [2007/06/20(水) 22:35:16 ID:???]
- win 用の特別な記法があるのかと思ってググりまくった俺、マカー。orz...
- 187 名前：nobodyさん mailto:sage [2007/06/20(水) 23:12:17 ID:???]
- >>185
いやあの・・・すいません。
「@args」と書いてあるところが、叩かせようとしているEXEの
引数つきコマンドラインです。
system関数の記事ならいくつもHITしますが、第一引数に1をセット
しての使い方についての記述はほとんどなかったので…
（この書き方自体がwin専用らしいですが）
- 188 名前：nobodyさん mailto:sage [2007/06/21(木) 00:30:05 ID:???]
- >>187
最初に「Windows+ActivePerlの環境です」とかくらいは書いた方が良いと思うんだ。
@argsの内容とかも。argsなんて名前の配列にコマンドまで入ってるなんてあまり想像しない。
で、たぶん-1返してるのは@argsの中のプログラム側だからそっちを調べないと無理かも。
- 189 名前：nobodyさん [2007/06/26(火) 18:01:07 ID:pgSc3qoH]
- perl、cgiを独学で勉強しているが理解できない；；
１０日で覚える～の本を参考書にしてるけど１０日じゃ理解できないYO・・
学習能力ねぇから難しいなぁｗ
- 190 名前：nobodyさん mailto:sage [2007/06/26(火) 23:19:15 ID:???]
- この手のは学習能力というより意欲の問題。
若干相性はあるがね。
- 191 名前：nobodyさん mailto:sage [2007/06/26(火) 23:32:33 ID:???]
- 人間必要に駆られないと覚えないから。
1. 何を作りたいか決める
2. とにかく作り始める
3. 詰まったら実現方法を参考書で調べる
4. 2に戻る
あとメモを取った方が効率が上がる。特殊変数全部メモるとか。
それさえあれば何時でも何処でも（少なくとも自分だけは）必ず何でも書けるメモを作る。
- 192 名前：nobodyさん mailto:sage [2007/06/26(火) 23:38:09 ID:???]
- 「10日で覚える～」を買って本当に10日で習得したって話は聞かないから
>>189はあんまり気にしなくていいよ。
>>191
必要に駆られると覚えるの早いよなあ。納期とか。
- 193 名前：189 [2007/06/27(水) 11:43:36 ID:qSRVuZRU]
- 関数が覚えられないからメモをしっかりとってやってみます＾＾；
ゲームとか掲示板を思い通りに作りたいのでまずは基礎からって
感じだと思ったので、とにかく習うより慣れるかな～
- 194 名前：189 [2007/06/28(木) 17:14:56 ID:/27P2PeN]
- 質問なんですがよろしくです
#! c:/perl/bin/perl
open(IN, "+<./count.dat");
$count = <IN>;
++$count;
seek(IN,0,0);
print IN $count;
close(IN);
こんなアクセスカウンターがあったとして./count.datの中に
１２が書き込まれていたら次にアクセスしたら１３になりますよね？
seek関数でファイルの先頭に持ってきているのはわかるんだけど
先頭にそのまま持ってきたら１３１２にならない理由を教えてほしいっす＞＜
- 195 名前：nobodyさん mailto:sage [2007/06/28(木) 17:44:35 ID:???]
- ファイルにはインサートモードは無い
- 196 名前：189 [2007/06/28(木) 17:53:34 ID:/27P2PeN]
- インサートモードって何ですか？
seek(IN,0,0);
の、部分だけ消してアクセスすると１２１３になるけど
seek(IN,0,0);
が、あることにより上書きになるの？
- 197 名前：nobodyさん mailto:sage [2007/06/28(木) 17:58:37 ID:???]
- 常に上書きだ
書き込みポイント（シーク位置）が読んだことにより後ろになってるだけ
末尾で上書きすれば追加と同じだろう
メモリでも挿入ってのは、データを後ろにずらしてから上書きしてるんだよ。
- 198 名前：189 [2007/06/28(木) 18:16:42 ID:/27P2PeN]
- ？？？（´･ω・`）
seek(IN,0,0); は、
常に上書きって覚えとけば問題ないのかな？
ありがとうございますです。
- 199 名前：nobodyさん mailto:sage [2007/06/28(木) 18:26:31 ID:???]
- あーもういいやそれで
- 200 名前：nobodyさん [2007/06/30(土) 14:41:50 ID:zANvV/vQ]
- こういう範囲指定を → 4.43.96.0/24
このように変換 → 4.43.96.0-4.43.96.255
したいのですが、良い方法を教えてください。
|
 |
