【Perl】初心者コーナー Part15
レス数が900を超えています。1000を超えると表示できなくなるよ。
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あたりを見よう。
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:???0884nobodyさん
02/09/12 23:03ID:???0885nobodyさん
02/09/12 23:03ID:???そいつ自身答えられないパターン多すぎなのも見ててうざ
0886nobodyさん
02/09/12 23:28ID:???0888nobodyさん
02/09/12 23:39ID:???いや今まで無視してたよ リアクションしてあげないのが一番だから。
ここに来て立て続けで軽く荒れてきたから
ちょうどいいかと思ってつっこんでみただけ。
0889nobodyさん
02/09/12 23:54ID:???0890888
02/09/13 00:03ID:???−−−−−−−−−−−−−−−−−−−−−−−−−−−
以下、普通のスレに戻って下さいませ。
0891nobodyさん
02/09/13 00:08ID:???0892nobodyさん
02/09/13 00:16ID:???これ以上乱れないように882で釘さした形だと思うが。887とかが俺を煽ってきただけだし
申し訳ないがもうレスらないんでよろ
0893nobodyさん
02/09/13 00:16ID:???1：自分はこう言う事がしたい。
2：それでこんな風にやってみたが･･･
3：それだとこんなエラーが出て上手く行かなかった。
1と3が無いと誰も答えられないよ。
良い回答は良い質問から。一緒に勉強しましょう。
~~~~~~~~~~~~~~~~~~~~~~~~~~
0894nobodyさん
02/09/13 03:15ID:R5wD3hCHスクリプトを書こうと思ってます。
mbxは複数のメールが１つのファイルになっていて
ピリオドだけが書かれた行がメールの区切りになっ
てます。そのmbxファイルを１つ１つのメールに
ばらして連番で出力したいのです。
#書いたプログラム-mbx.pl
open(OUT,">$n");
while(<STDIN>){
unless(/^\.$/){
print OUT;
}
else{
++$n;
}
#ここまで
で、実際にperl mbx.pl < hoge.mbx
とすると1に全て出力されてしまいます。
なにがいけないんでしょう？
0896nobodyさん
02/09/13 03:17ID:???改行文字忘れてるよ
0898nobodyさん
02/09/13 03:29ID:???unless(/^\.\n$/){
かな？
0900nobodyさん
02/09/13 03:43ID:???てか unless( $_ eq ".\n" ) でいいんじゃ...
0901nobodyさん
02/09/13 03:56ID:???と思ったんだけど。。。
0903nobodyさん
02/09/13 04:05ID:???こういう事か？
$n = 0;
while(<STDIN>){
next if($_ eq ".\n");
++$n;
open(OUT,">$n".'.mh');
print OUT;
close(OUT);
}
>>901
区切りに使われてるものが本文中に無変換で置かれてることは
ないだろう。もしあったらシステムが破綻する。
0904nobodyさん
02/09/13 04:05ID:???こんな感じでどう？
$n = 0;
loop: {
$n++;
open( OUT, ">$n" );
while ( <> ) {
if ( $_ eq ".\n" ) {
close OUT;
redo loop;
}
print OUT;
}
}
0906nobodyさん
02/09/13 04:16ID:???？
0907905
02/09/13 04:29ID:???0908nobodyさん
02/09/13 04:30ID:???>ないだろう。もしあったらシステムが破綻する。
よく考えたらそうですよね。
>>903>>904
両方試したけど各行ばらばらになって出力されてしまいます。
.mbxの改行コードはlfなんですが。
なんでだろう。。
レス数が900を超えています。1000を超えると表示できなくなるよ。