Perl初心者スレ（マジレス回答）

Perl初心者スレ（マジレス回答） (523ﾚｽ)
上下前次 1-新

233(4): 2014/02/19(水)20:04 AAS
上みたいなプログラミングを組んで、A=とB=にそれぞれ任意の数字を入れるとA*Bの答えが表示されるようにしたいんですが、
いざ実行してみても上のプログラミングがそのまま表示されるだけで正しい結果が得られないのですが、
どうしたらよいでしょうか。

234(6): 2014/02/19(水)20:09 AAS
というか、どこかおかしいところがあるでしょうか？

235: 2014/02/19(水)20:33 AAS
>>232-234
おかしいのはお前の頭だ
基本的なこともできてないくせに他人に質問とか頭腐ってんじゃねーの

236: 2014/02/19(水)20:36 AAS
>>234
>>232 >>233が板違いだということに気付かないのがおかしい。

平気で板違いの書き込みをするキチガイは迷惑。

お前みたいなクズはリアルでも迷惑がられてるんだから自覚しろ。

237(1): 2014/02/19(水)20:41 AAS
>>232=基礎をやらずにいきなりプログラミングから入る典型的なゴミ
目的達成までの手順すら把握できてないからプログラミング以前の問題
何やっても駄目な奴のパターン
人生乙

238: 2014/02/19(水)20:41 AAS
しね

239: 2014/02/19(水)20:47 AAS
>>237
人生乙は言い過ぎ。

高卒以上なら人生乙だけど、
>>232-234みたいな小学生は
中高で挽回できる可能性がある。

240: 2014/02/19(水)20:49 AAS
一人芝居乙ですｗｗｗｗ

241: 2014/02/19(水)20:50 AAS
＞上みたいなプログラミングを組んで、A=とB=にそれぞれ任意の数字を入れるとA*Bの答えが表示されるようにしたいんですが、
＞いざ実行してみても上のプログラミングがそのまま表示されるだけで正しい結果が得られないのですが、
日記はブログに書け

＞どうしたらよいでしょうか。
今すぐプログラミングやめろ
そして二度とくるな

242: 2014/02/19(水)20:53 AAS
Perl系スレは質問者が叩かれると張り切って答える奴がいるから　質問したら自演で自分を叩くのが常套手段

243: 2014/02/19(水)20:56 AAS
>>234
スレ違いのネタで荒らす以外やることないわけ？

244: 2014/02/19(水)20:59 AAS
スレ違いどころか板違い
頭が悪いにも程がある
発達障害かもな

245: 2014/02/19(水)21:03 AAS
>>232
馬鹿はPerlコミュニティの質を下げるだけだからこっちに行ってくれ。
2chｽﾚ:php

246: 2014/02/19(水)21:11 AAS
>>232
PHPなら一瞬で片付く案件
<?php
$x = $_GET['name1'] * $_GET['name2'];
echo( $_GET['name1'] . " * " . $_GET['name2'] . " = " . $x );
?>

247: 2014/02/19(水)21:16 AAS
>>234
入門書1冊読めば大抵書いてあるはずだが・・・
本1冊買えない乞食か？
そんなに金がないならプログラムなんかやめてバイトでもしたほうがいい
日雇いでも書籍1〜3冊買える金もらえるぞ

248(1): 2014/02/19(水)21:27 AAS
初心者スレってかいてあるだろーが字よめねぇのかよカス

249: 2014/02/19(水)21:34 AAS
書籍すら読めないのは初心者以前に脳に異常がある

250(1): 2014/02/19(水)21:42 AAS
>>248
だよね。
初心者だったらスレ違いだろうが板違いだろうが
気違いだろうが許されるよね。

251: 2014/02/19(水)22:23 AAS
>>250
板違いは許されんよ。
基地外はスルーだよ。
頭悪いのはテキトーに対応するべきだよ。

252: 2014/02/20(木)01:17 AAS
初心者は自力で解決しようとしない奴のことではないぞ

253(2): 2014/02/20(木)19:53 AAS
>>232
A*B　=　$A * $B

の部分を

A*B　=　@{[ $A * $B ]}

254(1): 2014/02/20(木)20:41 AAS
>>253
板違いのゴミ(>>253)にエサを与えないでください。
エサを与えるとゴミ知能の>>253が味をしめて今後も荒らしに来るようになります。

255(1): 2014/02/21(金)00:11 AAS
と荒らしが申しております

256(1): 2014/02/21(金)01:00 AAS
>>255を見れば分かるが

「板違いは荒らし」という人間＝荒らし

この思考回路がPerl厨

257: 2014/02/21(金)02:50 AAS
>>256
残念ながら、思考回路も間違ってるしPerl厨でもないなあ
板違いの指摘そのものは問題ではないよ、実際のところ >>232 は板違いだしな

ただ板違いへの対応ってのは
・板違いと指摘する
・徹底してスルーする
であるし
省8

258: 2014/02/21(金)02:51 AAS
＞「板違いは荒らし」という人間＝荒らし
Perl厨はいちいちこんなこと考えてないと思うぞ。
単に気に入らない奴=荒らしってことだと思われる。

259(4): 2014/02/22(土)22:30 AAS
質問させてください。
現在、NEなのですが、社内SEを目指しています。
その時に、サーバ作業を簡単に処理させる言語が必要にりそうなのですが、
Perlは向いていますでしょうか？
掲示板とかを作るつもりはありません。作業の効率化が目的です。
隣の席のプログラマさんに聞くと、
Perlは古くてCGIにはもう未来がないよー、ってお勧めされないのですが…

260(1): 2014/02/22(土)23:19 AAS
>>259
IT系で上を目指そうって人間に何でPerlなんて選択肢があるわけ？
そこらへん考えたほうがいいよ。

SEならITに関しては常に最新の動向を知るためにアンテナ張ってなきゃならないし、
アンテナ張ってればPerlがいかに駄目かというこてが分かる。
SE目指すならその辺りを自分で調べられるようになってたほうがいい。

261(1): 2014/02/22(土)23:25 AAS
>>259
PHPのほうがいい
作業を簡単に処理させるスクリプトとかって最初はそのつもりがなくても便利ならそのまま他のものを作るときに組み込んだりする
エンジニア以外でも有用な場合はWebインターフェースにして提供することなるけどその場合にPHPで書いてあるとインターフェース作るだけですぐに提供できる

262(1): 2014/02/22(土)23:28 AAS
>>259
マジレスすると今現在はRuby
但し3ヵ月後、半年後は分からん
自分でその情報を追えないならSEはやめとけ
今現在既に追えてないみたいだけど

263(1): 2014/02/22(土)23:50 AAS
>>259
そもそもその文脈でCGIは全く関係ないよ。そこに気付けないなんて釣りだろ？

264(1): 2014/02/22(土)23:56 AAS
>>260-263
ありがとうございます！
javaか、PHPか、perlで悩んでました。
色々調べると、PHPが入り易そうなので、、
明日、本屋に行って、決めます。

※CGIは、掲示板とか作るのであって、検索とかするのとは違うなあ、
と思いながら、プログラマさんの意見を聞いていました。

265: 2014/02/23(日)00:03 AAS
>>264
やっぱ釣りだったか

266(2): 2014/02/23(日)00:08 AAS
PHPが第一候補だったのですが、某サイトで、

PHPは、WEB系以外には、まったく意味がない、との様なコメントがあり、困りました。
javaは、いきなり入るには、まだ敷居が高いかなと悩みました。
perlは、単に簡単な、検索や置換には適しているようなコメントで一気に候補に挙がりました。

これらから悩んでいたんです。コメントありがとうございます。

267(1): 2014/02/23(日)00:20 AAS
>>266
そのコメントとやらの投稿日時と信憑性も確認しろよ
まさか去年の夏以前の投稿で、しかも第一線で活躍してい"た"奴の投稿じゃないだろうな

3ヵ月以内の投稿で、しかも第一線で活躍してい"る"人の投稿なら信用しろ
そしてそういう人ならまずPerlを候補に挙げることはない

まぁ第一線で活躍してるわけでもない俺のこんな匿名の投稿も信憑性がないだろうから
第一線で活躍してる人がPerlなんか使わないということは自分の目で確認してくれ

268: 2014/02/23(日)00:24 AAS
>>267
投稿日時、第一線は確認していませんでした。
すみません、助言、ありがとうございます。

269(1): 2014/02/23(日)00:27 AAS
>>266
PHPがWeb系以外に使えんのは本当
Perlでも良いけど、RubyやPythonも有効だよ
まあ、まずは最初にシェルスクリプトだけどね

270(1): 2014/02/23(日)00:38 AAS
と言うか、PerlスレにPHPのこと聞く時点で釣り

271: 2014/02/23(日)00:39 AAS
>>269
＞PerlとLispが結婚して隔世遺伝が黒魔術で生まれた言語。
＞Javaは硬度8くらい、Pythonは6くらいになるのに対して、Rubyは3くらいになる。

との記事を見つけました。いつの記述かわからないのですが（汗）
Rubyも明日、本屋で漁ってみます。ありがとうございます。

272: 2014/02/23(日)00:40 AAS
>>270
すみません。退散します。
みなさん、マジレス、ありがとうございます。

273: 2014/03/05(水)06:22 AAS
>>232-234
_EOM_なんて使っちゃだめだよ。見づらい。

print "Content-type: text/html\n\n";
print "<html>";
print "<body>";
print "A*B　=　$A * $B";
print "</body>";
省1

274(3): 2014/03/25(火)21:15 ID:dz69sIJc(1/3) AAS
print "あいうえお";

↑これを文字コードをeuc-jpで保存してコマンドプロントからこのファイルを実行して
コマンドプロンプト上に文字化けなく　あいうえお　と出力させるにはどういうコードを追加すればいいの？

275(1): 2014/03/25(火)21:25 ID:dz69sIJc(2/3) AAS
>>274はちょっと疑問に思っただけで何かするのに必要なワケじゃないので無理して
答えようとしないで下さい。たぶんちょっとググった程度で分かるようなことではないです。

276(1): 2014/03/25(火)21:54 ID:En8OrmpQ(1) AAS
>>274-275
外部ﾘﾝｸ[pod]:perldoc.jp

use encoding 'euc-jp', STDOUT => 'cp932';

但し Perl 5.18.0 以降、encoding プラグマは非推奨で将来的に削除される予定。
外部ﾘﾝｸ[html]:perldoc.perl.org

277: 274 2014/03/25(火)22:08 ID:dz69sIJc(3/3) AAS
>>276
うおお、すごい、あっさり出来てしまった・・。
今日一日↓こんなのでやろうとして泥沼にハマってました。

use encoding "euc-jp";
binmode STDOUT, ':encoding(cp932)';

スーパーハカーさんどうもありがとう〜

278(2): 2014/05/07(水)01:39 ID:NfbdqxRr(1/2) AAS
print +(3,2,1,),"\n";

↑これ、+記号を消すと改行が反映されなくなるんですが、この+記号って
どういう意味ですか？ググるためのキーワードだけでもおねがいします。
ググると +{ } は出てきたんですが +( ) はなぜか見つかりませんでした。

279(1): 2014/05/07(水)04:47 ID:nyTYPDB6(1) AAS
>>278
(print(3,2,1)), "\n";

280(1): 2014/05/07(水)06:28 ID:WoJ0c0N0(1) AAS
+() は scalar () とほぼ同等。
+{}は、ブロック中の戻り値（？）をスカラーとして評価しますって意味。
+()は、リストとして評価しませんよーって意味。

perldocのperlopの
Terms and List Operators (Leftward)
と
Unary "+"
省1

281: 278 2014/05/07(水)09:44 ID:NfbdqxRr(2/2) AAS
>>279-280
なるほど、+{ } と同じような使い方だったんですね、ありがとうございました。
perldocもこれから読んでみます、多謝。

282(1): 2014/05/17(土)17:23 ID:syasv/b2(1/2) AAS
windowsの隠しファイルを判別する方法を教えてください

283(1): 2014/05/17(土)18:53 ID:9KhUrEje(1) AAS
>>282
外部ﾘﾝｸ[pm]:search.cpan.org

use Win32::File qw(GetAttributes HIDDEN);
GetAttributes($ARGV[0], my $attr) or die $!;
print +($attr & HIDDEN) ? 1 : 0;

284: 2014/05/17(土)18:54 ID:syasv/b2(2/2) AAS
>>283
ありがとうございます

285(2): 2014/05/24(土)13:13 ID:JzdRsmzF(1) AAS
掲示板のCGIを設置したんだけど、<a href="./bbs/mtbbs.cgi?">って感じにリンクするようにして、外部ﾘﾝｸ:172では、ちゃんと作動したんだけど、
実際にFTPに転送すると、作動しないどころか画面が写らない
500エラーが出てくる

原因に関してはまだわかんなくて、調べてるんだけど、そもそも思ったのが<a href="./bbs/mtbbs.html">ならまだしも<a href="./bbs/mtbbs.cgi?">なんて、直にリンクすることなんてできるの？

286: 2014/05/24(土)17:20 ID:Cq+cm/k7(1) AAS
>>285
WebProg板へドゾー

287: 2014/05/25(日)10:23 ID:iOXakntE(1) AAS
>>285
リンクはできる
動かない原因は別にある

288: 2014/06/04(水)10:34 ID:8N6swAY/(1) AAS
知恵袋で質問したら回答どころか閲覧すらなさすぎワロタ・・・

289: 2014/06/04(水)15:39 ID:ZiHf6GEW(1) AAS
早くマジレスしろ屑やろう

290: 2014/06/05(木)04:14 ID:tjfA5i3O(1) AAS
質問してもどうせまともに答えてくれないんだろうな
どこ行っても解決しないわ

291(1): 2014/06/05(木)06:34 ID:Mvr5+GEe(1) AAS
Web以外で最近なんか未解決質問あったっけここ

292: 2014/06/05(木)19:01 ID:aZWI6Ot4(1) AAS
>>291
今日も元気に残件なす！

293(1): 2014/06/08(日)05:04 ID:LT2twBt5(1) AAS
複数のRSSフィードを結合して一つのRSSを生成したい。
その際、「生成されたフィード記事のリンクURLすべてを任意のリンク先に指定する。」
このやり方を教えてください。

XML::FeedPP、XML::TreePPというモジュールを用い、下記のCGIプログラムを使用して自動更新する１つのフィードを生成するところまでは出来ました。
しかし、他の部分はチョロチョロと変えることができるのですが、記事リンクだけはどうしても変えることができません。全部の記事リンクを、ある１つのリンクに変換したいだけです。

#!/usr/bin/perl

use XML::TreePP;
省18

294: 2014/06/10(火)06:01 ID:hRaawaun(1) AAS
>>293
WebProg
2ch板:php

295(2): 2014/06/10(火)12:30 ID:zpbxFFHG(1/2) AAS
画像ﾘﾝｸ[jpg]:s1.gazo.cc
こういった10行で一組のデータの中に
---
市民の...

yerles
warrior
---
省19

296: 2014/06/10(火)13:44 ID:kKsVvptA(1/2) AAS
>>295
外部ﾘﾝｸ:ideone.com

297: 2014/06/10(火)13:58 ID:kKsVvptA(2/2) AAS
手抜きすぎた。

>>295
外部ﾘﾝｸ:ideone.com

298: 2014/06/10(火)14:45 ID:zpbxFFHG(2/2) AAS
凄い。ありがとう。
出てきたshiftとか勉強してみます
感謝

299: 2014/06/11(水)22:22 ID:PCU6+AOL(1) AAS
どこに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
とか、で節約すりゃいい。、、、けど、今時そんなの気にする必要もないだろ

上のワンライナーでやってる事は、
省2

300(1): 2014/06/12(木)13:15 ID:qt4Roz23(1) AAS
恰好をつけるなら、リングバッファでも書くところですが、回答としては、あんまりだと思ったので。
2行固定なら、別に使わなくても。
perl -ne '($_, $x, $y) = ($x, $y, $_); $y =~ /dog/ && /市民/ && print' File

何も考えなくていいなら、正規表現でバッサリ。
perl -e 'print((local $/ = <>) =~ /(^.*市民.*\n).*\n.*dog/gm)' File

301: 2014/07/13(日)23:15 ID:m+RTKRIb(1) AAS
>>300
1ヵ月以上もお前のレスにレスがつかないのはなぜか分かる？
お前みたいなゴミクズは誰も必要としてないからだよ。
一般社会ではあからさまに無視するわけにもいかないから当たり障りのない対応をしてもらってると思うけど、
お前ハッキリ言って迷惑だから。

ゴミクズはネットでもリアルでもできるだけ社会と接点持つな。

302: 2014/07/26(土)13:51 ID:5yhnFgSu(1/2) AAS
Test Summary Report
-------------------
t/config-finder.t (Wstat: 512 Tests: 0 Failed: 0)
Non-zero exit status: 2
Parse errors: Bad plan. You planned 26 tests but ran 0.
Files=86, Tests=923, 636 wallclock secs ( 2.64 usr 1.67 sys + 247.77 cusr 297.98 csys = 550.05 CPU)
Result: FAIL
省17

303: 2014/07/26(土)14:09 ID:mdOIZXZW(1) AAS
make test had returned bad status, won't install without force
まけ出来てるのならいんすこ自体は可能

304: 2014/07/26(土)15:10 ID:5yhnFgSu(2/2) AAS
force installでcygwinの方に入れました
正常に動作します
ありがとうございました

Linuxの方は、手っ取り早く
sudo aptitude install ack-grep
しました

おかげさまで両方にackが揃いました
省1

305: 2014/08/06(水)20:37 ID:Wa4hIBKh(1/3) AAS
xmlを取得して中身を
s|。|。<br>|g;
して句読点ごとに改行させたかったのですがどうしても出来ません
なにか理由があるのでしょうか
初心者なもんで変な質問をしていたらすいません

306(1): 2014/08/06(水)20:41 ID:itqhygIz(1/3) AAS
文字コード

307(1): 2014/08/06(水)20:43 ID:E5F7+XJp(1/3) AAS
エスパーじゃないんだから、そんな質問で答えれる訳ないだろ。
せめてサンプルとなる簡単なxmlを出せよ・・・

308(2): 2014/08/06(水)21:39 ID:Wa4hIBKh(2/3) AAS
申し訳ないです

>>306
デコードはしています

>>307
申し訳ありません
wikipedia.simpleapi.net/api?keyword=Test&output=xml

309: 2014/08/06(水)22:33 ID:E5F7+XJp(2/3) AAS
>>308
テストした結果、普通に置き換えできます。
取得方法に問題があるんだろう。
ってか、こんな質問の仕方じゃスレ全部埋まるわ・・・
問題が起きてるサンプルコード出してみ

310(1): 2014/08/06(水)22:37 ID:itqhygIz(2/3) AAS
>>308
ちげーよ
utf8のファイルをeucのスクリプトでマッチしようとしたんじゃないの、ってこと

311(1): 2014/08/06(水)22:48 ID:Wa4hIBKh(3/3) AAS
>>310
shift-jisのスクリプトでマッチさせようとしました
不味かったでしょうか

312: 2014/08/06(水)23:05 ID:itqhygIz(3/3) AAS
>>311
なら、どっちかの文字コードにencodeして合わせる

313: 2014/08/06(水)23:07 ID:E5F7+XJp(3/3) AAS
いや、よほど特別な事情がない限りは utf-8 のソースにするべき。
外部ﾘﾝｸ:d.hatena.ne.jp
この辺読んで理解するべき。

上下前次 1-新書関写板覧索設栞歴

あと 210 ﾚｽあります
ｽﾚ情報赤ﾚｽ抽出画像ﾚｽ抽出歴の未読ｽﾚ AAｻﾑﾈｲﾙ

ぬこの手ぬこTOP 0.018s