【Perl】初心者コーナーPart10
#!/usr/binbin/perl -T
no strict;
use Asian::Pussy qw/:sexy :healthy/;
no strict;
use Asian::Pussy qw/:sexy :healthy/;
953 ：nobodyさん：02/03/26 12:00 ID:pm1MjUop
Ｐｅｒｌ４で作ったＢＢＳがＩＥ以外で表示できません。
ナゼなのでしょうか。
１．ＮＮの場合、Ｐｅｒｌが出力したソースが表示されます。
２.Ｏｐｅｒａの場合はファイルダウンロードのダイアログが起動します。
ＩＥでは問題ないんですけど
私がアフォだからっていう以外の理由を知りたいです。
お願いします。
ナゼなのでしょうか。
１．ＮＮの場合、Ｐｅｒｌが出力したソースが表示されます。
２.Ｏｐｅｒａの場合はファイルダウンロードのダイアログが起動します。
ＩＥでは問題ないんですけど
私がアフォだからっていう以外の理由を知りたいです。
お願いします。
print "Content-type: text/html\n\n";
ってやってるあたりがおかしいから。
ってやってるあたりがおかしいから。
>955
君の良いと正解の良いには違いがある可能性があります。
とりあえずソース晒してください。
君の良いと正解の良いには違いがある可能性があります。
とりあえずソース晒してください。
>>956
その「あたり」でいいですか？
print<<END;
Content-type: text/html\n\n
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN">
<html>
<head>
<META http-equiv="Content-Type" content="text/html; charset=Shift_JIS">
その「あたり」でいいですか？
print<<END;
Content-type: text/html\n\n
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN">
<html>
<head>
<META http-equiv="Content-Type" content="text/html; charset=Shift_JIS">
>957
それ以前にprintをしている可能性は？
それ以前にprintをしている可能性は？
>958
なさそうです。敢えて言えばサブルーチン名にPrintPageっていうのを使ってます。これは問題ないですよね。
なさそうです。敢えて言えばサブルーチン名にPrintPageっていうのを使ってます。これは問題ないですよね。
ヒアドキュメントの中に\n\nとか書いても解釈されるんだ。はじめて知った。
とりあえずCGIファイルの先頭あたりで
print "Content-type: text/html\n\n";
して様子を見てみるとよいかと。
とりあえずCGIファイルの先頭あたりで
print "Content-type: text/html\n\n";
して様子を見てみるとよいかと。
>960
ヒアドキュメントでも
print <<'END';
ってやったら解釈されないから注意。
シングルクォーテーションだと解釈されないのは同じだから。
でも、覚えておくと逆に便利な事もある。
メアドをプリントする時とか\入れなくて済むし。
ヒアドキュメントでも
print <<'END';
ってやったら解釈されないから注意。
シングルクォーテーションだと解釈されないのは同じだから。
でも、覚えておくと逆に便利な事もある。
メアドをプリントする時とか\入れなくて済むし。
>>960
>とりあえずCGIファイルの先頭あたりでprint "Content-type: text/html\n\n";
これで正常になりました。
やはり以前のステップに問題があるんだろうと思いますが
現象が解消したので、じっくりゆっくり調べます。
本当にありがとうございました。
>とりあえずCGIファイルの先頭あたりでprint "Content-type: text/html\n\n";
これで正常になりました。
やはり以前のステップに問題があるんだろうと思いますが
現象が解消したので、じっくりゆっくり調べます。
本当にありがとうございました。
964 ：超・超初心者：02/03/26 14:40 ID:6InRaAYk
どなたか助けて下さい！以下の２つのプログラムの作り方が
全然わかりません。
任意の１０億までの数を入力して、
その素因数分解して、その結果を出力
するプログラムをＰＥＲＬを使って作成
してください。
ファイル名と文字列を入力すると、
その文字列がそのファイルに含まれるか
どうかを検査し、含まれていた場合は、
ファイルの何行目に含まれているかを
出力するプログラムをＰＥＲＬを使って
作成してください。
どうか、宜しくお願いいたします。
全然わかりません。
任意の１０億までの数を入力して、
その素因数分解して、その結果を出力
するプログラムをＰＥＲＬを使って作成
してください。
ファイル名と文字列を入力すると、
その文字列がそのファイルに含まれるか
どうかを検査し、含まれていた場合は、
ファイルの何行目に含まれているかを
出力するプログラムをＰＥＲＬを使って
作成してください。
どうか、宜しくお願いいたします。
>作成してください。
宿題は自分でやりましょうね。
はい次の方。
宿題は自分でやりましょうね。
はい次の方。
＞作成してください。
ぉぃぉぃ
宿題？
素因数分解は遅くていいなら簡単だけど。
速くするのは数論の知識も必要になってくる。
grepみたいなのはものすごく簡単だけど。
教えない。
ぉぃぉぃ
宿題？
素因数分解は遅くていいなら簡単だけど。
速くするのは数論の知識も必要になってくる。
grepみたいなのはものすごく簡単だけど。
教えない。
967 ：のび太：02/03/26 16:00 ID:Kul7lxpG
perlでhtmlファイルを書き出し、それと同時に違うサーバーにFTP転送しています。
元ファイルの作成と転送そのものは問題なく動作してるのですが、
コピーしたファイルが元のファイルと比べて内容が変わってしまいます。
※内容が変わるというのは、ファイルが最後までコピーされない感じです（100行あったら90行までしか）
テーブルを使用してるのでレイアウトがグチャグチャに。。。
これはどのような原因が考えられるでしょうか？
ちなみに出力したファイルが全て書き込まれる前に転送しちゃってるのかな？と思い
転送の前にスリープとかやってみても結果は変わりませんでした。
元ファイルの作成と転送そのものは問題なく動作してるのですが、
コピーしたファイルが元のファイルと比べて内容が変わってしまいます。
※内容が変わるというのは、ファイルが最後までコピーされない感じです（100行あったら90行までしか）
テーブルを使用してるのでレイアウトがグチャグチャに。。。
これはどのような原因が考えられるでしょうか？
ちなみに出力したファイルが全て書き込まれる前に転送しちゃってるのかな？と思い
転送の前にスリープとかやってみても結果は変わりませんでした。
>>967
どらえもんに頼んで下さい
どらえもんに頼んで下さい
969 ：ほげ：02/03/26 16:09 ID:gjNyJjgt
>>967
モールス信号で伝送してください
モールス信号で伝送してください
>>969
むしろ手旗信号
むしろ手旗信号
>>967
スリープしても意味無い。closeしなされ。
スリープしても意味無い。closeしなされ。
>>964
$x = ファイル名
$y = 文字列
$cnt = 1;
open(IN,$x);
while(<IN>){
if($_ =~ /$y/){ print "$cnt行目\n"; }
$cnt++;
}
close(IN);
$x = ファイル名
$y = 文字列
$cnt = 1;
open(IN,$x);
while(<IN>){
if($_ =~ /$y/){ print "$cnt行目\n"; }
$cnt++;
}
close(IN);
>>964
$i = $in = $ARGV[0];
for($prime=2;$prime <= $in && $prime<1000000000;$prime++) {
if ( ($i % $prime) == 0 ) {
$power{$prime}++;
$i = $i / $prime;
$prime = 2;
}
}
foreach(sort {$a<=>$b} keys %power) {
$n = $power{$_};
if ($n == 1) {
$term = $_;
} else {
$term = "$_^".$n;
}
push(@result,$term);
}
print "$in = ",join(" * ",@result),"\n";
$i = $in = $ARGV[0];
for($prime=2;$prime <= $in && $prime<1000000000;$prime++) {
if ( ($i % $prime) == 0 ) {
$power{$prime}++;
$i = $i / $prime;
$prime = 2;
}
}
foreach(sort {$a<=>$b} keys %power) {
$n = $power{$_};
if ($n == 1) {
$term = $_;
} else {
$term = "$_^".$n;
}
push(@result,$term);
}
print "$in = ",join(" * ",@result),"\n";
>>973
つっこみどころ満載でお届けしております。（藁
つっこみどころ満載でお届けしております。（藁
>>980
次スレよろしく
次スレよろしく
977 ：nobodyさん：02/03/26 22:34 ID:7ingtp1l
$b=$a-1;
print "a-1=$b";
というのを$bを使わないで
print join("", "a-1=", $a-1);
って書くのは普通ですか？もっと良い方法ありますか？
join使うとhtml出力するときとか、めちゃめちゃ分かりづらくなるんですが。
print "a-1=$b";
というのを$bを使わないで
print join("", "a-1=", $a-1);
って書くのは普通ですか？もっと良い方法ありますか？
join使うとhtml出力するときとか、めちゃめちゃ分かりづらくなるんですが。
>>977
printf "a-1=%f", $a - 1;
# or
print "a-1=${ \do{ $a - 1} }";
print "a-1=@{[ $a - 1]}"
好きな方法を試されよ。
printf "a-1=%f", $a - 1;
# or
print "a-1=${ \do{ $a - 1} }";
print "a-1=@{[ $a - 1]}"
好きな方法を試されよ。
>977
なんで join でくっつけるの？ つっくける意味がわからん。
print '$a-1= ',($a-1),"\n";
または
print "\$a-1= ${\( $a - 1 )}\n";
なんで join でくっつけるの？ つっくける意味がわからん。
print '$a-1= ',($a-1),"\n";
または
print "\$a-1= ${\( $a - 1 )}\n";
>>977
もしくはprintfだな。
もしくはprintfだな。
982 ：977：02/03/26 23:03 ID:7ingtp1l
あれーそんなにいっぱい方法が．．。
979さんと980さんのはピリオドじゃなくてカンマでいいんですか？
なんかdoってのが一番しっくりきそうなので使ってみます。
てか、今までずっとjoinでやってた．．。人に見せなくてよかった。
ありがとうございます！
979さんと980さんのはピリオドじゃなくてカンマでいいんですか？
なんかdoってのが一番しっくりきそうなので使ってみます。
てか、今までずっとjoinでやってた．．。人に見せなくてよかった。
ありがとうございます！
ppm install Net-SMTP すると、
Error installing package 'Net-SMTP': Could not locate a PPD file for package Net-SMTP
ってエラーが出るんだけど、なにこれ？
プロキシ使ってないのに・・・
http://www.activestate.com/packages/
に Net-SMTP が見当たらないのと関係ある？
Error installing package 'Net-SMTP': Could not locate a PPD file for package Net-SMTP
ってエラーが出るんだけど、なにこれ？
プロキシ使ってないのに・・・
http://www.activestate.com/packages/
に Net-SMTP が見当たらないのと関係ある？
984 ：983：02/03/27 05:02 ID:LXoBMXbo
ちなみに
ppm install Net-Ping
は成功しました。回線不調ともちがうようです。う〜ん・・・
ppm install Net-Ping
は成功しました。回線不調ともちがうようです。う〜ん・・・
>>983
libnet.ppd
libnet.ppd
>>985さんどうもです。
ppm install libnetでインストールできました。
その後、
ttp://member.nifty.ne.jp/hippo2000/perltips/net/smtp.htm
>なおこのドキュメントではlibnetモジュールをインストールしたときに
>作成されるC:\Perl\html\lib\site\Net\SMTP.htmlを、
なんてのも見つけました。注意不足でしたか
ppm install libnetでインストールできました。
その後、
ttp://member.nifty.ne.jp/hippo2000/perltips/net/smtp.htm
>なおこのドキュメントではlibnetモジュールをインストールしたときに
>作成されるC:\Perl\html\lib\site\Net\SMTP.htmlを、
なんてのも見つけました。注意不足でしたか
987 ：帝国 ◆9qoWuqvA ：02/03/27 11:30 ID:BFIdDUdC
Perlで質問なんですが、
$folderで指定したフォルダ内に
フォームで受け取ったファイル名（$filename）とパーミッション（$permission）で、
空ファイルを生成する方法を教えてほしいんですが・・
もしかしてcgi-lib.plとか使いますか？？
$folderで指定したフォルダ内に
フォームで受け取ったファイル名（$filename）とパーミッション（$permission）で、
空ファイルを生成する方法を教えてほしいんですが・・
もしかしてcgi-lib.plとか使いますか？？
>987
フォルダのパーミッションがきちんと設定されてればopen(MAKE,">$filename");でできる。
パーミッションはchmodで変えれ。
フォルダのパーミッションがきちんと設定されてればopen(MAKE,">$filename");でできる。
パーミッションはchmodで変えれ。
989 ：帝国 ◆9qoWuqvA ：02/03/27 11:58 ID:BFIdDUdC
>989
パーミッションの数字はなににしてる？
パーミッションの数字はなににしてる？
$permissionの中身は何？
てかパーミッション設定するのに変数使う必要あるんだろうか・・・・
$file="\.\/$folder\/$filename";
chmod 666,$file;
とかじゃﾀﾞﾒ？
てかパーミッション設定するのに変数使う必要あるんだろうか・・・・
$file="\.\/$folder\/$filename";
chmod 666,$file;
とかじゃﾀﾞﾒ？
nobodyに0700にされる罠。
993 ：帝国 ◆9qoWuqvA ：02/03/27 12:39 ID:BFIdDUdC
パーミッションはフォームにいれた値。
だから変数に格納する必要が。。
だから変数に格納する必要が。。
パーミッションは８進数で設定するのは別に罠ではないという罠。
立たぬなら 立つまでまとう Perlスレ
立たぬなら 立つまでまとう Perlスレ
996 ：nobodyさん：02/03/27 16:20 ID:Uw889VO5
996!
997!
998
999!!!
1000get!
1001 ：１００１：
このスレッドは１０００を超えました。
もう書けないので、新しいスレッドを立ててくださいです。。。
もう書けないので、新しいスレッドを立ててくださいです。。。