- 1 名前：デフォルトの名無しさん mailto:sage [2012/10/07(日) 00:48:39.00 ]
- どうぞー
- 230 名前：デフォルトの名無しさん [2014/02/19(水) 01:19:55.57 ]
- 必要あるやつが実装すればいいだけのことだな
- 231 名前：デフォルトの名無しさん mailto:sage [2014/02/19(水) 15:50:16.30 ]
- これからは質問者が来ても全部>>230のレスしか返りません。
- 232 名前：デフォルトの名無しさん [2014/02/19(水) 20:01:53.86 ]
- #!/usr/bin/perl
$buffer = $ENV{QUERY_STRING};
@pairs = split( /&/, $buffer );
foreach $pair ( @pairs ){
( $name, $value ) = split( /=/, $pair );
$FORM{$name} = $value;
}
$A = $FORM{name1};
$B = $FORM{name2};
print "Content-type: text/html\n\n";
print << "_EOM_";
<html>
<body>
A*B = $A * $B
</body>
</html>
_EOM_
- 233 名前：デフォルトの名無しさん [2014/02/19(水) 20:04:58.23 ]
- 上みたいなプログラミングを組んで、A=とB=にそれぞれ任意の数字を入れるとA*Bの答えが表示されるようにしたいんですが、
いざ実行してみても上のプログラミングがそのまま表示されるだけで正しい結果が得られないのですが、
どうしたらよいでしょうか。
- 234 名前：デフォルトの名無しさん [2014/02/19(水) 20:09:03.95 ]
- というか、どこかおかしいところがあるでしょうか？
- 235 名前：デフォルトの名無しさん mailto:sage [2014/02/19(水) 20:33:02.58 ]
- >>232-234
おかしいのはお前の頭だ
基本的なこともできてないくせに他人に質問とか頭腐ってんじゃねーの
- 236 名前：デフォルトの名無しさん mailto:sage [2014/02/19(水) 20:36:13.45 ]
- >>234
>>232,>>233が板違いだということに気付かないのがおかしい。
平気で板違いの書き込みをするキチガイは迷惑。
お前みたいなクズはリアルでも迷惑がられてるんだから自覚しろ。
- 237 名前：デフォルトの名無しさん mailto:sage [2014/02/19(水) 20:41:12.79 ]
- >>232=基礎をやらずにいきなりプログラミングから入る典型的なゴミ
目的達成までの手順すら把握できてないからプログラミング以前の問題
何やっても駄目な奴のパターン
人生乙
- 238 名前：デフォルトの名無しさん [2014/02/19(水) 20:41:52.31 ]
- しね
- 239 名前：デフォルトの名無しさん mailto:sage [2014/02/19(水) 20:47:40.29 ]
- >>237
人生乙は言い過ぎ。
高卒以上なら人生乙だけど、
>>232-234みたいな小学生は
中高で挽回できる可能性がある。
- 240 名前：デフォルトの名無しさん [2014/02/19(水) 20:49:37.80 ]
- 一人芝居乙ですｗｗｗｗ
- 241 名前：デフォルトの名無しさん mailto:sage [2014/02/19(水) 20:50:45.28 ]
- ＞上みたいなプログラミングを組んで、A=とB=にそれぞれ任意の数字を入れるとA*Bの答えが表示されるようにしたいんですが、
＞いざ実行してみても上のプログラミングがそのまま表示されるだけで正しい結果が得られないのですが、
日記はブログに書け
＞どうしたらよいでしょうか。
今すぐプログラミングやめろ
そして二度とくるな
- 242 名前：デフォルトの名無しさん mailto:sage [2014/02/19(水) 20:53:44.83 ]
- Perl系スレは質問者が叩かれると張り切って答える奴がいるから 質問したら自演で自分を叩くのが常套手段
- 243 名前：デフォルトの名無しさん mailto:sage [2014/02/19(水) 20:56:43.89 ]
- >>234
スレ違いのネタで荒らす以外やることないわけ？
- 244 名前：デフォルトの名無しさん mailto:sage [2014/02/19(水) 20:59:52.26 ]
- スレ違いどころか板違い
頭が悪いにも程がある
発達障害かもな
- 245 名前：デフォルトの名無しさん mailto:sage [2014/02/19(水) 21:03:24.03 ]
- >>232
馬鹿はPerlコミュニティの質を下げるだけだからこっちに行ってくれ。
kohada.2ch.net/test/read.cgi/php/1390166591/
- 246 名前：デフォルトの名無しさん mailto:sage [2014/02/19(水) 21:11:38.56 ]
- >>232
PHPなら一瞬で片付く案件
<?php
$x = $_GET['name1'] * $_GET['name2'];
echo( $_GET['name1'] . " * " . $_GET['name2'] . " = " . $x );
?>
- 247 名前：デフォルトの名無しさん mailto:sage [2014/02/19(水) 21:16:25.09 ]
- >>234
入門書1冊読めば大抵書いてあるはずだが・・・
本1冊買えない乞食か？
そんなに金がないならプログラムなんかやめてバイトでもしたほうがいい
日雇いでも書籍1〜3冊買える金もらえるぞ
- 248 名前：デフォルトの名無しさん [2014/02/19(水) 21:27:19.38 ]
- 初心者スレってかいてあるだろーが字よめねぇのかよカス
- 249 名前：デフォルトの名無しさん mailto:sage [2014/02/19(水) 21:34:53.78 ]
- 書籍すら読めないのは初心者以前に脳に異常がある
- 250 名前：デフォルトの名無しさん mailto:sage [2014/02/19(水) 21:42:16.32 ]
- >>248
だよね。
初心者だったらスレ違いだろうが板違いだろうが
気違いだろうが許されるよね。
- 251 名前：デフォルトの名無しさん mailto:sage [2014/02/19(水) 22:23:35.20 ]
- >>250
板違いは許されんよ。
基地外はスルーだよ。
頭悪いのはテキトーに対応するべきだよ。
- 252 名前：デフォルトの名無しさん [2014/02/20(木) 01:17:13.12 ]
- 初心者は自力で解決しようとしない奴のことではないぞ
- 253 名前：デフォルトの名無しさん mailto:sage [2014/02/20(木) 19:53:03.78 ]
- >>232
A*B = $A * $B
の部分を
A*B = @{[ $A * $B ]}
- 254 名前：デフォルトの名無しさん mailto:sage [2014/02/20(木) 20:41:02.18 ]
- >>253
板違いのゴミ(>>253)にエサを与えないでください。
エサを与えるとゴミ知能の>>253が味をしめて今後も荒らしに来るようになります。
- 255 名前：デフォルトの名無しさん mailto:sage [2014/02/21(金) 00:11:06.41 ]
- と荒らしが申しております
- 256 名前：デフォルトの名無しさん mailto:sage [2014/02/21(金) 01:00:44.16 ]
- >>255を見れば分かるが
「板違いは荒らし」という人間 ＝ 荒らし
この思考回路がPerl厨
- 257 名前：デフォルトの名無しさん mailto:sage [2014/02/21(金) 02:50:14.54 ]
- >>256
残念ながら、思考回路も間違ってるしPerl厨でもないなあ
板違いの指摘そのものは問題ではないよ、実際のところ >>232 は板違いだしな
ただ板違いへの対応ってのは
・板違いと指摘する
・徹底してスルーする
であるし
>>254 が板違いのゴミと呼ぶ >>253 は
「板違い」ではなく「板違いに誤った対応をした人物」でしかない。
しかも内容は相手を煽るような罵倒語ばかり。
誤った煽りは、結果的にはその人物の発言を増やすことになる。
だから >>254 も荒らしってことなんだよ。
ああ、荒らしにレスするのも荒らしだからな
俺が荒らしと言われても、勿論構わないよ？
荒らしにレスしたことには間違いないしな。
- 258 名前：デフォルトの名無しさん mailto:sage [2014/02/21(金) 02:51:46.89 ]
- ＞「板違いは荒らし」という人間 ＝ 荒らし
Perl厨はいちいちこんなこと考えてないと思うぞ。
単に 気に入らない奴=荒らし ってことだと思われる。
- 259 名前：デフォルトの名無しさん mailto:sage [2014/02/22(土) 22:30:28.45 ]
- 質問させてください。
現在、NEなのですが、社内SEを目指しています。
その時に、サーバ作業を簡単に処理させる言語が必要にりそうなのですが、
Perlは向いていますでしょうか？
掲示板とかを作るつもりはありません。作業の効率化が目的です。
隣の席のプログラマさんに聞くと、
Perlは古くてCGIにはもう未来がないよー、ってお勧めされないのですが…
- 260 名前：デフォルトの名無しさん mailto:sage [2014/02/22(土) 23:19:05.46 ]
- >>259
IT系で上を目指そうって人間に何でPerlなんて選択肢があるわけ？
そこらへん考えたほうがいいよ。
SEならITに関しては常に最新の動向を知るためにアンテナ張ってなきゃならないし、
アンテナ張ってればPerlがいかに駄目かというこてが分かる。
SE目指すならその辺りを自分で調べられるようになってたほうがいい。
- 261 名前：デフォルトの名無しさん mailto:sage [2014/02/22(土) 23:25:59.25 ]
- >>259
PHPのほうがいい
作業を簡単に処理させるスクリプトとかって最初はそのつもりがなくても便利ならそのまま他のものを作るときに組み込んだりする
エンジニア以外でも有用な場合はWebインターフェースにして提供することなるけどその場合にPHPで書いてあるとインターフェース作るだけですぐに提供できる
- 262 名前：デフォルトの名無しさん mailto:sage [2014/02/22(土) 23:28:04.79 ]
- >>259
マジレスすると今現在はRuby
但し3ヵ月後、半年後は分からん
自分でその情報を追えないならSEはやめとけ
今現在既に追えてないみたいだけど
- 263 名前：デフォルトの名無しさん mailto:sage [2014/02/22(土) 23:50:35.64 ]
- >>259
そもそもその文脈でCGIは全く関係ないよ。そこに気付けないなんて釣りだろ？
- 264 名前：デフォルトの名無しさん mailto:sage [2014/02/22(土) 23:56:23.80 ]
- >>260-263
ありがとうございます！
javaか、PHPか、perlで悩んでました。
色々調べると、PHPが入り易そうなので、、
明日、本屋に行って、決めます。
※CGIは、掲示板とか作るのであって、検索とかするのとは違うなあ、
と思いながら、プログラマさんの意見を聞いていました。
- 265 名前：デフォルトの名無しさん mailto:sage [2014/02/23(日) 00:03:57.16 ]
- >>264
やっぱ釣りだったか
- 266 名前：デフォルトの名無しさん mailto:sage [2014/02/23(日) 00:08:16.47 ]
- PHPが第一候補だったのですが、某サイトで、
PHPは、WEB系以外には、まったく意味がない、との様なコメントがあり、困りました。
javaは、いきなり入るには、まだ敷居が高いかなと悩みました。
perlは、単に簡単な、検索や置換には適しているようなコメントで一気に候補に挙がりました。
これらから悩んでいたんです。コメントありがとうございます。
- 267 名前：デフォルトの名無しさん mailto:sage [2014/02/23(日) 00:20:28.63 ]
- >>266
そのコメントとやらの投稿日時と信憑性も確認しろよ
まさか去年の夏以前の投稿で、しかも第一線で活躍してい"た"奴の投稿じゃないだろうな
3ヵ月以内の投稿で、しかも第一線で活躍してい"る"人の投稿なら信用しろ
そしてそういう人ならまずPerlを候補に挙げることはない
まぁ第一線で活躍してるわけでもない俺のこんな匿名の投稿も信憑性がないだろうから
第一線で活躍してる人がPerlなんか使わないということは自分の目で確認してくれ
- 268 名前：デフォルトの名無しさん mailto:sage [2014/02/23(日) 00:24:33.24 ]
- >>267
投稿日時、第一線は確認していませんでした。
すみません、助言、ありがとうございます。
- 269 名前：デフォルトの名無しさん mailto:sage [2014/02/23(日) 00:27:42.14 ]
- >>266
PHPがWeb系以外に使えんのは本当
Perlでも良いけど、RubyやPythonも有効だよ
まあ、まずは最初にシェルスクリプトだけどね
- 270 名前：デフォルトの名無しさん mailto:sage [2014/02/23(日) 00:38:05.80 ]
- と言うか、PerlスレにPHPのこと聞く時点で釣り
- 271 名前：デフォルトの名無しさん mailto:sage [2014/02/23(日) 00:39:36.75 ]
- >>269
＞PerlとLispが結婚して隔世遺伝が黒魔術で生まれた言語。
＞Javaは硬度8くらい、Pythonは6くらいになるのに対して、Rubyは3くらいになる。
との記事を見つけました。いつの記述かわからないのですが（汗）
Rubyも明日、本屋で漁ってみます。ありがとうございます。
- 272 名前：デフォルトの名無しさん mailto:sage [2014/02/23(日) 00:40:48.81 ]
- >>270
すみません。退散します。
みなさん、マジレス、ありがとうございます。
- 273 名前：デフォルトの名無しさん mailto:sage [2014/03/05(水) 06:22:38.93 ]
- >>232-234
_EOM_なんて使っちゃだめだよ。見づらい。
print "Content-type: text/html\n\n";
print "<html>";
print "<body>";
print "A*B = $A * $B";
print "</body>";
print "</html>";
- 274 名前：デフォルトの名無しさん mailto:sage [2014/03/25(火) 21:15:29.29 ID:dz69sIJc]
- print "あいうえお";
↑これを文字コードをeuc-jpで保存してコマンドプロントからこのファイルを実行して
コマンドプロンプト上に文字化けなく あいうえお と出力させるにはどういうコードを追加すればいいの？
- 275 名前：デフォルトの名無しさん mailto:sage [2014/03/25(火) 21:25:34.52 ID:dz69sIJc]
- >>274はちょっと疑問に思っただけで何かするのに必要なワケじゃないので無理して
答えようとしないで下さい。たぶんちょっとググった程度で分かるようなことではないです。
- 276 名前：デフォルトの名無しさん mailto:sage [2014/03/25(火) 21:54:24.41 ID:En8OrmpQ]
- >>274-275
perldoc.jp/docs/modules/encoding/encoding.pod
use encoding 'euc-jp', STDOUT => 'cp932';
但し Perl 5.18.0 以降、encoding プラグマは非推奨で将来的に削除される予定。
perldoc.perl.org/encoding.html#WARNING
- 277 名前：274 mailto:sage [2014/03/25(火) 22:08:05.94 ID:dz69sIJc]
- >>276
うおお、すごい、あっさり出来てしまった・・。
今日一日↓こんなのでやろうとして泥沼にハマってました。
use encoding "euc-jp";
binmode STDOUT, ':encoding(cp932)';
スーパーハカーさんどうもありがとう〜
- 278 名前：デフォルトの名無しさん mailto:sage [2014/05/07(水) 01:39:02.09 ID:NfbdqxRr]
- print +(3,2,1,),"\n";
↑これ、+記号を消すと改行が反映されなくなるんですが、この+記号って
どういう意味ですか？ググるためのキーワードだけでもおねがいします。
ググると +{ } は出てきたんですが +( ) はなぜか見つかりませんでした。
- 279 名前：デフォルトの名無しさん mailto:sage [2014/05/07(水) 04:47:36.14 ID:nyTYPDB6]
- >>278
(print(3,2,1)), "\n";
- 280 名前：デフォルトの名無しさん mailto:sage [2014/05/07(水) 06:28:00.20 ID:WoJ0c0N0]
- +() は scalar () とほぼ同等。
+{}は、ブロック中の戻り値（？）をスカラーとして評価しますって意味。
+()は、リストとして評価しませんよーって意味。
perldocのperlopの
Terms and List Operators (Leftward)
と
Unary "+"
を参照してください。
- 281 名前：278 mailto:sage [2014/05/07(水) 09:44:31.49 ID:NfbdqxRr]
- >>279-280
なるほど、+{ } と同じような使い方だったんですね、ありがとうございました。
perldocもこれから読んでみます、多謝。
- 282 名前：デフォルトの名無しさん mailto:sage [2014/05/17(土) 17:23:28.43 ID:syasv/b2]
- windowsの隠しファイルを判別する方法を教えてください
- 283 名前：デフォルトの名無しさん mailto:sage [2014/05/17(土) 18:53:12.61 ID:9KhUrEje]
- >>282
search.cpan.org/dist/Win32-File/File.pm
use Win32::File qw(GetAttributes HIDDEN);
GetAttributes($ARGV[0], my $attr) or die $!;
print +($attr & HIDDEN) ? 1 : 0;
- 284 名前：デフォルトの名無しさん mailto:sage [2014/05/17(土) 18:54:17.69 ID:syasv/b2]
- >>283
ありがとうございます
- 285 名前：デフォルトの名無しさん mailto:sage [2014/05/24(土) 13:13:06.88 ID:JzdRsmzF]
- 掲示板のCGIを設置したんだけど、<a href="./bbs/mtbbs.cgi?">って感じにリンクするようにして、172では、ちゃんと作動したんだけど、
実際にFTPに転送すると、作動しないどころか画面が写らない
500エラーが出てくる
原因に関してはまだわかんなくて、調べてるんだけど、そもそも思ったのが<a href="./bbs/mtbbs.html">ならまだしも<a href="./bbs/mtbbs.cgi?">なんて、直にリンクすることなんてできるの？
- 286 名前：デフォルトの名無しさん mailto:sage [2014/05/24(土) 17:20:37.74 ID:Cq+cm/k7]
- >>285
WebProg板へドゾー
- 287 名前：デフォルトの名無しさん mailto:sage [2014/05/25(日) 10:23:53.30 ID:iOXakntE]
- >>285
リンクはできる
動かない原因は別にある
- 288 名前：デフォルトの名無しさん [2014/06/04(水) 10:34:27.77 ID:8N6swAY/]
- 知恵袋で質問したら回答どころか閲覧すらなさすぎワロタ・・・
- 289 名前：デフォルトの名無しさん [2014/06/04(水) 15:39:06.30 ID:ZiHf6GEW]
- 早くマジレスしろ屑やろう
- 290 名前：デフォルトの名無しさん [2014/06/05(木) 04:14:43.22 ID:tjfA5i3O]
- 質問してもどうせまともに答えてくれないんだろうな
どこ行っても解決しないわ
- 291 名前：デフォルトの名無しさん mailto:sage [2014/06/05(木) 06:34:54.17 ID:Mvr5+GEe]
- Web以外で最近なんか未解決質問あったっけここ
- 292 名前：デフォルトの名無しさん mailto:sage [2014/06/05(木) 19:01:58.49 ID:aZWI6Ot4]
- >>291
今日も元気に残件なす！
- 293 名前：デフォルトの名無しさん mailto:sage [2014/06/08(日) 05:04:05.20 ID:LT2twBt5]
- 複数のRSSフィードを結合して一つのRSSを生成したい。
その際、「生成されたフィード記事のリンクURLすべてを任意のリンク先に指定する。」
このやり方を教えてください。
XML::FeedPP、XML::TreePPというモジュールを用い、下記のCGIプログラムを使用して自動更新する１つのフィードを生成するところまでは出来ました。
しかし、他の部分はチョロチョロと変えることができるのですが、記事リンクだけはどうしても変えることができません。全部の記事リンクを、ある１つのリンクに変換したいだけです。
#!/usr/bin/perl
use XML::TreePP;
use XML::FeedPP;
my $feed = XML::FeedPP::RDF->new();
$feed->merge( "結合したいrssフィード1" );
$feed->merge( "結合したいrssフィード2" );
my $now = time();
$feed->sort_item();
$feed->pubDate( $now );
my $atom = $feed->to_file( "index.rdf", "UTF-8" );
print "Content-type: text/plain\n\n";
print "出力完了\n";
使ってるレンタルサーバーはロリポップです。
複数のフィード（RSS、Atomなど）をまとめるCGI
blog.audiofan.net/archives/491385.html
[Perl] XML::FeedPP - RSS・RDF・Atomフィードの解析・生成・変換・結合
www.kawa.net/works/perl/feedpp/feedpp.html
XML::FeedPP
https://metacpan.org/pod/XML::FeedPP#feed-remove_item-index-or-link
search.cpan.org/~kawasaki/XML-FeedPP-0.43/lib/XML/FeedPP.pm
- 294 名前：デフォルトの名無しさん mailto:sage [2014/06/10(火) 06:01:49.29 ID:hRaawaun]
- >>293
WebProg
nozomi.2ch.net/php/
- 295 名前：デフォルトの名無しさん mailto:sage [2014/06/10(火) 12:30:22.68 ID:zpbxFFHG]
- ttp://s1.gazo.cc/up/88224.jpg
こういった10行で一組のデータの中に
---
市民の...
yerles
warrior
---
というパターンが多くあります。
マッチ検索したいのは
---
市民の...
dog
warrior
---
というパターンです。
"市民"という文字を見つけたら
2行下に
"dog"という文字があるならば
その、"市民の..."を出力して欲しいです。
ファイル読んで単純マッチするぐらいしか今はできません
open (my $in , "<" , "./cdatan_5_101.s2");
while (<in>){
if (/yerles/){print "matched\n"}
}
close $in;
}
- 296 名前：デフォルトの名無しさん mailto:sage [2014/06/10(火) 13:44:16.05 ID:kKsVvptA]
- >>295
ideone.com/0A9TR0
- 297 名前：デフォルトの名無しさん mailto:sage [2014/06/10(火) 13:58:26.18 ID:kKsVvptA]
- 手抜きすぎた。
>>295
ideone.com/NUuEtp
- 298 名前：デフォルトの名無しさん mailto:sage [2014/06/10(火) 14:45:55.30 ID:zpbxFFHG]
- 凄い。ありがとう。
出てきたshiftとか勉強してみます
感謝
- 299 名前：デフォルトの名無しさん mailto:sage [2014/06/11(水) 22:22:53.08 ID:PCU6+AOL]
- どこにshiftの出番があるのか？と思ったらそう言うことか。
普通に配列に突っ込んで、マイナスのインデクスでアクセスすりゃいいやん。
$ perl -Mvars=@a -lne 'push @a, $_ ; next if !/dog/ ; next if $a[-3] !~ /市民/ ; print $a[-3]' File
メモリ喰いが気になるのなら、
$ perl -Mvars=%h -lne '$h{$.} = $_ if /市民/ ; next if !/dog/ ; next if ! defined $h{$. - 2} ; print $h{$. - 2}' File
とか、で節約すりゃいい。、、、けど、今時そんなの気にする必要もないだろ
上のワンライナーでやってる事は、
$ perl -MO=Deparse -Mvars...略
でわかる。
- 300 名前：デフォルトの名無しさん mailto:sage [2014/06/12(木) 13:15:46.45 ID:qt4Roz23]
- 恰好をつけるなら、リングバッファでも書くところですが、回答としては、あんまりだと思ったので。
2行固定なら、別に使わなくても。
perl -ne '($_, $x, $y) = ($x, $y, $_); $y =~ /dog/ && /市民/ && print' File
何も考えなくていいなら、正規表現でバッサリ。
perl -e 'print((local $/ = <>) =~ /(^.*市民.*\n).*\n.*dog/gm)' File
|
 |
