【Perl】初心者コーナー Part15
■ このスレッドは過去ログ倉庫に格納されています
0001nobodyさん
02/08/08 23:19ID:???1：自分はこう言う事がしたい。
2：それでこんな風にやってみたが･･･
3：それだとこんなエラーが出て上手く行かなかった。
1と3が無いと誰も答えられないよ。
良い回答は良い質問から。一緒に勉強しましょう。
CGIだけど、なんか質問ある？ Part 6 （その2)
http://pc.2ch.net/test/read.cgi/php/1025930486/
参考書籍の話題は【【Perl,CGI】参考書籍 第２版】
http://pc.2ch.net/test/read.cgi/php/988809842/
その他の雑多な話題は、【CGIに依存しないPerlの話題一般】
http://pc.2ch.net/test/read.cgi/php/991313362/
スクリプトの改造依頼は 【スクリプト改造工房 Part4】
http://pc.2ch.net/test/read.cgi/php/1012839651/
過去ログ、その他の役立ち情報は>>2-10あたりを見よう。
0784nobodyさん
02/09/09 01:52ID:ewVE42mBありがとうございます
試して見ます
0785741
02/09/09 02:12ID:2XJWXXjE0786741
02/09/09 02:49ID:2XJWXXjE0788787
02/09/09 03:07ID:???0789nobodyさん
02/09/09 03:08ID:EyAemdpt$n = 40;
$subject = substr($subject,0,$n+1);
$tmp = chop($subject)."\0".$tmp while($subject);
$tmp =~ s/(?<=[\x81-\x9f\xe0-\xfc])\0(.)\0/$1\0\0/g;
$subject = substr($tmp,0,$n*2).'....';
$subject =~ tr/\0//d;
print $subject;
>>741
読み込みオープンのロックは1。それも他の書き込みに対するロックなので
読み込みには無力。
書き込みで開いてロックしときな。
0791nobodyさん
02/09/09 03:26ID:???エンコードして切ってデコードって言いたいんじゃないの？こんなふうに。
$n = 40;
$subject = substr($subject,0,$n+1);
$subject =~ s/([\W])/sprintf("%%%02X",unpack("C",$1))/ge;
$subject = substr($subject,0,$n);
$subject =~ s/(%[a-f\d]|%)$//i;
$subject =~ s/%([a-f\d]{2})/pack("H2",$1)/egi;
print $subject;
0792791
02/09/09 03:42ID:???0793nobodyさん
02/09/09 03:43ID:PULoisdM空行を削除するにはどうしたらいいんですか？
あたりまえだと思うけど
while(<STDIN>){
s/^$//;
}
としても駄目なんです。。
0794nobodyさん
02/09/09 04:47ID:???@line = <IN>;
$n = @line;
for($i=0; $i<$n; $i++){
if($line[$i] eq "\n"){
$line[$i] = '';
}
}
かな…？
0795名無しさん＠Ｍｅａｄｏｗ
02/09/09 05:44ID:???print unless /^$/;
で逝けますYO
0796Ｔ女の竹田
02/09/09 07:59ID:???Shift-JIS
$subject = ($subject =~ /([\x0-\x7e\xa0-\xdf]|[\x81-\xbf\xe0-\xfc][\x40-\xfc]){40}/s) ? $& : $subject;
EUC-JP
$subject = ($subject =~ /([\x0-\x7e]|[\x8E\xA1-\xFE][\xA1-\xFE]){40}/s) ? $& : $subject;
これでどうかな？
0797nobodyさん
02/09/09 09:52ID:OPX6Zz9+パスワードが違ったらはじくのを作りたいんですが正しく動作しません
どこをどう直せばいいでしょうか？
if ($pass != xxxx){
print "aho";
exit;
}
0799nobodyさん
02/09/09 10:16ID:OPX6Zz9+パスワードが違ったらahoと表示させたいんですよ
eqだと合ってたらahoですよね？
そこまでわかってて何故neにたどりつけないのか謎
ちなみにパスワードは暗号化したほうが良いよ
0801nobodyさん
02/09/09 10:41ID:OPX6Zz9+neでやっても500Internal...がでてきちゃうんですよ
0802nobodyさん
02/09/09 10:54ID:OPX6Zz9+passが違う場合にif内を実行したらcgiを終了させるものを作りたいんですよ
（passが合ってるならifより後を実行）
0803 ◆TpctYDQ6
02/09/09 10:56ID:YALFpbWAprint "aho";
exit;
}
で、エラーなら問題は別のところでしょ。
0804nobodyさん
02/09/09 11:04ID:OPX6Zz9+print "Content-type: text/html; charset=EUC-JP\n";
を加えたら正しく動きました。ｽﾏﾝｺ
首釣って逝ってきます。
0806nobodyさん
02/09/10 01:33ID:???その方法でいけました。
ただ、
while(<STDIN>){
s/hoge/hage/;
s/omeko/sasete/;
print;
}
みたいな置換と一緒に空行を削除したい
場合はどうすればいいの？
ifをネストすればいけると思うんだけど
書けないので教えてください。
0807適当さん
02/09/10 06:52ID:???while(<STDIN>){
if($_ ne"\n"){
s/hoge/hage/;
s/omeko/sasete/;
print;
}
}
0808nobodyさん
02/09/10 12:40ID:???今日が、その年その月の第何週何日目か？
を求める方法を教えて下さい。
例えば今日の場合、第２週の３日目なので
出力結果を23と得たいです。
お願いします。
0809名無しさん＠Ｍｅａｄｏｗ
02/09/10 12:47ID:???while(<STDIN>){
next if /^$/;
s/omae/bakaka/;
s/omae/ahoka/;
print;
}
でもええよ。
0810nobodyさん
02/09/10 12:59ID:???($sec , $min , $hour , $mday , $mon , $year , $week) = localhost(time);
print (int($mday/7)+1)*10 + $week ;
0811nobodyさん
02/09/10 12:59ID:???∧‖∧
0812nobodyさん
02/09/10 13:02ID:???それだと2-6日は必ず第1週になるよ…
0813nobodyさん
02/09/10 13:29ID:???0814∧‖∧
02/09/10 13:46ID:???仕様書の意味取り違えてました。
($sec , $min , $hour , $mday , $mon , $year , $week) = localtime(time);
print (int(($mday+8-$week)/7))*10 + $week;
かな？
0815Ｔ女の竹田
02/09/10 19:32ID:???>>808を読むと日曜が始まりみたいだけど、それなら
($sec , $min , $hour , $mday , $mon , $year , $wday) = localtime(time);
として、
第何週かは
int(($mday + 12 - $wday) / 7)
何日目かは
$wday + 1
だと思う。たぶん…
0816nobodyさん
02/09/10 20:37ID:???>>815
ランダムに日付を変えて何度かテストしてみても
期待通りの結果が得られて大丈夫でした。
ちなみに、利用するのは
いつも巡回する複数サイトの一部記事を
引っこ抜いて表示させるものです。
新しく追加するサイトのファイル名が
今回質問させていただいたフォーマットでした。
ありがとうございました。
0817nobodyさん
02/09/10 21:40ID:ApnEpI8Hリャマ本第2版、P172の問題2が分かりません。
題意は、Unixのmvコマンドと同じ働きをするプログラムを書け、
という内容で、ヒントとして、第2引数がディレクトリの場合も考慮せよと。
で、漏れの解答はこんな感じです。変数の名前、正規表現の
区切り文字は末尾の解答例に合わせてます。
($old, $new) = @ARGV;
if (-d $new){
$basename = $old;
$basename =~ s#^/.*/##g;
$new = $new . "/$basename";
}
rename($old, $new) or
die "Cannot rename $old to $new: $!";
一応は思った通りの動きをします。メデタシ。
ところが、解答例は、4行目が以下のようになってる。
($basename = $old) =~ s#.*/##s;
勿論、こちらも思った通りの動作をしますです。
かっこは、漏れの解答での3行目と4行目を合体させてだけなので
無視するとして、よく分からないのは、右辺です。
1) s/ は置換だけど、後の/sは一体何?
2) .*/ だと、頭の/が残るような気がするんだけど。。。
なんでだろう。。。?
0818nobodyさん
02/09/10 21:44ID:Lqs0IC/U0819817
02/09/10 21:45ID:ApnEpI8Hルートディレクトリの「/」も 「.*/」で、「.」にマッチするやん!
ってゆーか、これだと、
# test.pl aaa ~/bbb
の場合、エラーになるよね?
ニョロがマッチしないから。。。
で、1)の方は、おながいします。
0820nobodyさん
02/09/10 21:45ID:???1）については
ttp://namazu.org/~tsuchiya/perl/info/perl-ja_44.html#SEC44
0821817
02/09/10 21:59ID:ApnEpI8Hははぁ、なるほど!
文字列を単一行として扱う、ということですね。
だけど、この問題の場合、こんなオプションが必要なのでしょうか?
勘違いしているかもしれないけど、漏れの理解では、深いディレクトリ
を処理すると、引数が複数行になってしまうことがあるかもしれないので
sをつける、と思ってるのですが、この考えによると、普通mvするとき
引数に改行なんか入れないですよね?
そもそも、んな深いディレクトリを掘ることってあまりないので、
今まで思いもよらなかったし、そもそもmvコマンドで引数に改行
入れてもいいのかどうかも分からん。。。
0822nobodyさん
02/09/10 22:32ID:???0823nobody
02/09/11 02:17ID:Zh9eBVFzcrypt関数の使い方で聞きたいことがあります。
（例）
print "文字列を暗号化します。適当に文字をいれて下さい\n";
$get = <STDIN>
$key ="sp";
$pass = crypt($get,$key);
print "暗号化された文字列は$passです\n";
この$keyの部分は任意の二文字を入れるんだけど
それってどういう意味があるんでしょうか？
これによって暗号化される結果などが違ってくるのでしょうか？？。
特に意識することではないんでしょうか？
0827nobodyさん
02/09/11 03:13ID:???0828nobodyさん
02/09/11 12:43ID:???どうかおしえてつかーさい。
0829nobodyさん
02/09/11 12:58ID:???「LWP」で検索。
0830nobodyさん
02/09/11 13:13ID:l0g0P0Oz7枚くらい読みこまなきゃいけないんですけど長ったらしくて。
0832nobodyさん
02/09/11 14:44ID:???馬 鹿 ば っ か し だ な（藁
おれをふくめてな。
0833nobodyさん
02/09/11 15:06ID:???オクレ兄さあああああああああああああああんッッッ
0834名無しさん＠Ｍｅａｄｏｗ
02/09/11 16:09ID:???別ファイル（仮にloading.plとする）に
require "a.pl";
require "b.pl";
.
.
.
って書いといて、本ファイルでは
require "loading.pl";
だけで逝けるよ。
さすがに、require "a.pl", "b.pl" ...;はだめでしょ。
0836nobodyさん
02/09/11 18:55ID:???0837nobodyさん
02/09/11 18:59ID:???byとほほパパ
0838nobodyさん
02/09/11 20:31ID:ofaOgNivすまそ。教えてください。
0839nobodyさん
02/09/11 20:32ID:???index
後は検索しる。
0840nobodyさん
02/09/11 20:39ID:ofaOgNivindexって何番目にあるかを検索するだけですよね？
どうやって使うのかが分からないです。
0841nobodyさん
02/09/11 20:45ID:???特定の文字列を探したかったんでしょ？
使い方は検索しる。
文字列を探して抜き出してどうこうしたいってなら、
substrを使うとか、indexを使わず正規表現に頼るとか。
後は検索しる。
0842839
02/09/11 20:48ID:ofaOgNiv使い方何となく分かりました。ありがとう！
0843nobodyさん
02/09/11 21:12ID:???0844名無しさん＠Ｍｅａｄｏｗ
02/09/11 21:48ID:???ユーザーが作ったサブルーティン、ライブラリ、モジュール。
（反対語：）組み込み関数
ユーザー定義を関数にするんじゃないか？
0845nobodyさん
02/09/11 21:49ID:wdtzvpz40847847
02/09/12 14:36ID:???$value =~ s/<br>/\r/g;
$value =~ s/<br>/\n/g;
このようにフォームデータを変換するのと逆に、
すべてのOSの改行文字に対応して、改行を<br>に変換することはできますか？
フォームのtextareaのvalue=""にログを入れたいのですが。
0848847
02/09/12 14:37ID:???0849nobodyさん
02/09/12 14:42ID:???つーか、\nで十分。
0851nobodyさん
02/09/12 17:28ID:???print "<a href=\"$NUM.jpg\">$NUM</a>";
}
としたのですが、上手く動きませんでした。
For文は
for(NUM =0; ここの条件が成り立ってるとき動作する; NUM++)
こういう事ではないのでしょうか？
while文で
while(-e "$FileAddress$NUM.jpg" eq "1")
こうしたらできたのですが・・・
0852851
02/09/12 17:34ID:???-e でファイルが存在を調べるか、
readdir で一覧を取得するか どちらかを考えたのですが
どちらの方が効率が良いと思うでしょうか？
ご教授頂けないでしょうか、お願いいたします
0853nobodyさん
02/09/12 17:51ID:???0854>>847
02/09/12 18:16ID:???$syu =~ s/\x0D/<BR>/g;
$syu =~ s/\x0A/<BR>/g;
>>847
この産業で出来るぞ。
0856nobodyさん
02/09/12 18:22ID:V0oL4dfDsub Filerock {
my $now = time();
my $lockfile = "lock";
my $locking = "lock.now";
for($_=5; $_>=0; $_--){
if(rename($lockfile, $locking)){
utime($now, $now, $locking);
$SIG{'INT'} = $SIG{'HUP'} = $SIG{'QUIT'} = $SIG{'TERM'} = "intProc"; # 割り込みで中断するときの処理を定義
&Dbmopen;
return;
}
sleep 1 if $_;
}
&Header("フォームエラー");
print "<h2>ロックちう</h2>\n<hr>\n";
&Footer;
exit;
}
こんなんで良いんでしょうか。
もっと効率の良いコードがあればアドヴァイス願います。
0857nobodyさん
02/09/12 18:25ID:???0858nobodyさん
02/09/12 18:31ID:NNUPZyEk0861初心者厨房
02/09/12 19:24ID:jvK2X5HWどうしてなんでしょうか。教えてください。お願いします。
#!/usr/local/bin/perl
print "Content-type: text/html\n\n";
print 10+5 # 足し算
print " / "; # 区切り
print 10-5; # 引き算
print " / "; # 区切り
print 10*5; # 掛け算
print " / "; # 区切り
print 10/5; # 割り算
print " / "; # 区切り
print 10%5; # 剰余算
_END_
0862nobodyさん
02/09/12 19:26ID:???0863nobodyさん
02/09/12 19:27ID:???↓
print 10+5; # 足し算
エラーメッセージぐらい読め
0869nobodyさん
02/09/12 19:39ID:???0870初心者厨房
02/09/12 19:54ID:ODncwTzE0871nobodyさん
02/09/12 20:01ID:???もう（#･∀･）ｶｴﾚ!
http://pc.2ch.net/test/read.cgi/php/1028646335/
↑みてこい
#!/usr/local/bin/perl -w
か
perl -wc hoge.pl
print 10/5;
print " / ";
↑きもい書き方やめれ
$f=10/5;print "$f /";
0872名無しさん＠Ｍｅａｄｏｗ
02/09/12 20:07ID:???荒らしさん、こんにちは
あなたの存在がエラーです
0873初心者厨房
02/09/12 20:08ID:ODncwTzE0875nobodyさん
02/09/12 20:15ID:???これはいろんなとこにコピペしてください。
みんなで台風を起こしましょう。
東京駅を中心に右回りです。
９月２２日夜９時にみんなでいっせいに「フゥー」と吹くのです。
注意
周りに障害物のないところでやりましょう（なるべく高いところ）
「フゥー」以外に扇風機やうちわを使ってもかまいません。
！東京を壊しましょう！
0876初心者厨房
02/09/12 20:15ID:ODncwTzE0877nobodyさん
02/09/12 21:03ID:???print "Content-type: text/html\n\n;
$atai='値';
print '「$atai」（シングルクォート文字列では展開されない）/';
print "「$atai」（ダブルクォート文字列では展開される)";
_END_
何がまちがってんの？
0878nobodyさん
02/09/12 21:11ID:???1：自分はこう言う事がしたい。
2：それでこんな風にやってみたが･･･
3：それだとこんなエラーが出て上手く行かなかった。
1と3が無いと誰も答えられないよ。
良い回答は良い質問から。一緒に勉強しましょう。
0882nobodyさん
02/09/12 21:54ID:???上級者ぶってツッコミ入れてるのも知ったかぶりだからとんちんかんだし
とりあえず初心者嘲笑いたいなら的確に回答してやってからにするのが筋ってもんじゃないの
0883nobodyさん
02/09/12 22:47ID:???■ このスレッドは過去ログ倉庫に格納されています