探検
Perl初心者スレ（マジレス回答）
2012/10/07(日) 00:48:39.00
どうぞー
233デフォルトの名無しさん
2014/02/19(水) 20:04:58.23 上みたいなプログラミングを組んで、A=とB=にそれぞれ任意の数字を入れるとA*Bの答えが表示されるようにしたいんですが、
いざ実行してみても上のプログラミングがそのまま表示されるだけで正しい結果が得られないのですが、
どうしたらよいでしょうか。
いざ実行してみても上のプログラミングがそのまま表示されるだけで正しい結果が得られないのですが、
どうしたらよいでしょうか。
234デフォルトの名無しさん
2014/02/19(水) 20:09:03.95 というか、どこかおかしいところがあるでしょうか？
235デフォルトの名無しさん
2014/02/19(水) 20:33:02.58236デフォルトの名無しさん
2014/02/19(水) 20:36:13.45237デフォルトの名無しさん
2014/02/19(水) 20:41:12.79238デフォルトの名無しさん
2014/02/19(水) 20:41:52.31 しね
239デフォルトの名無しさん
2014/02/19(水) 20:47:40.29240デフォルトの名無しさん
2014/02/19(水) 20:49:37.80 一人芝居乙ですｗｗｗｗ
241デフォルトの名無しさん
2014/02/19(水) 20:50:45.28 ＞上みたいなプログラミングを組んで、A=とB=にそれぞれ任意の数字を入れるとA*Bの答えが表示されるようにしたいんですが、
＞いざ実行してみても上のプログラミングがそのまま表示されるだけで正しい結果が得られないのですが、
日記はブログに書け
＞どうしたらよいでしょうか。
今すぐプログラミングやめろ
そして二度とくるな
＞いざ実行してみても上のプログラミングがそのまま表示されるだけで正しい結果が得られないのですが、
日記はブログに書け
＞どうしたらよいでしょうか。
今すぐプログラミングやめろ
そして二度とくるな
242デフォルトの名無しさん
2014/02/19(水) 20:53:44.83 Perl系スレは質問者が叩かれると張り切って答える奴がいるから 質問したら自演で自分を叩くのが常套手段
243デフォルトの名無しさん
2014/02/19(水) 20:56:43.89 >>234
スレ違いのネタで荒らす以外やることないわけ？
スレ違いのネタで荒らす以外やることないわけ？
244デフォルトの名無しさん
2014/02/19(水) 20:59:52.26 スレ違いどころか板違い
頭が悪いにも程がある
発達障害かもな
頭が悪いにも程がある
発達障害かもな
245デフォルトの名無しさん
2014/02/19(水) 21:03:24.03246デフォルトの名無しさん
2014/02/19(水) 21:11:38.56 >>232
PHPなら一瞬で片付く案件
<?php
$x = $_GET['name1'] * $_GET['name2'];
echo( $_GET['name1'] . " * " . $_GET['name2'] . " = " . $x );
?>
PHPなら一瞬で片付く案件
<?php
$x = $_GET['name1'] * $_GET['name2'];
echo( $_GET['name1'] . " * " . $_GET['name2'] . " = " . $x );
?>
247デフォルトの名無しさん
2014/02/19(水) 21:16:25.09248デフォルトの名無しさん
2014/02/19(水) 21:27:19.38 初心者スレってかいてあるだろーが字よめねぇのかよカス
249デフォルトの名無しさん
2014/02/19(水) 21:34:53.78 書籍すら読めないのは初心者以前に脳に異常がある
250デフォルトの名無しさん
2014/02/19(水) 21:42:16.32251デフォルトの名無しさん
2014/02/19(水) 22:23:35.20252デフォルトの名無しさん
2014/02/20(木) 01:17:13.12 初心者は自力で解決しようとしない奴のことではないぞ
253デフォルトの名無しさん
2014/02/20(木) 19:53:03.78254デフォルトの名無しさん
2014/02/20(木) 20:41:02.18255デフォルトの名無しさん
2014/02/21(金) 00:11:06.41 と荒らしが申しております
256デフォルトの名無しさん
2014/02/21(金) 01:00:44.16257デフォルトの名無しさん
2014/02/21(金) 02:50:14.54 >>256
残念ながら、思考回路も間違ってるしPerl厨でもないなあ
板違いの指摘そのものは問題ではないよ、実際のところ >>232 は板違いだしな
ただ板違いへの対応ってのは
・板違いと指摘する
・徹底してスルーする
であるし
>>254 が板違いのゴミと呼ぶ >>253 は
「板違い」ではなく「板違いに誤った対応をした人物」でしかない。
しかも内容は相手を煽るような罵倒語ばかり。
誤った煽りは、結果的にはその人物の発言を増やすことになる。
だから >>254 も荒らしってことなんだよ。
ああ、荒らしにレスするのも荒らしだからな
俺が荒らしと言われても、勿論構わないよ？
荒らしにレスしたことには間違いないしな。
残念ながら、思考回路も間違ってるしPerl厨でもないなあ
板違いの指摘そのものは問題ではないよ、実際のところ >>232 は板違いだしな
ただ板違いへの対応ってのは
・板違いと指摘する
・徹底してスルーする
であるし
>>254 が板違いのゴミと呼ぶ >>253 は
「板違い」ではなく「板違いに誤った対応をした人物」でしかない。
しかも内容は相手を煽るような罵倒語ばかり。
誤った煽りは、結果的にはその人物の発言を増やすことになる。
だから >>254 も荒らしってことなんだよ。
ああ、荒らしにレスするのも荒らしだからな
俺が荒らしと言われても、勿論構わないよ？
荒らしにレスしたことには間違いないしな。
258デフォルトの名無しさん
2014/02/21(金) 02:51:46.89 ＞「板違いは荒らし」という人間 ＝ 荒らし
Perl厨はいちいちこんなこと考えてないと思うぞ。
単に 気に入らない奴=荒らし ってことだと思われる。
Perl厨はいちいちこんなこと考えてないと思うぞ。
単に 気に入らない奴=荒らし ってことだと思われる。
259デフォルトの名無しさん
2014/02/22(土) 22:30:28.45 質問させてください。
現在、NEなのですが、社内SEを目指しています。
その時に、サーバ作業を簡単に処理させる言語が必要にりそうなのですが、
Perlは向いていますでしょうか？
掲示板とかを作るつもりはありません。作業の効率化が目的です。
隣の席のプログラマさんに聞くと、
Perlは古くてCGIにはもう未来がないよー、ってお勧めされないのですが…
現在、NEなのですが、社内SEを目指しています。
その時に、サーバ作業を簡単に処理させる言語が必要にりそうなのですが、
Perlは向いていますでしょうか？
掲示板とかを作るつもりはありません。作業の効率化が目的です。
隣の席のプログラマさんに聞くと、
Perlは古くてCGIにはもう未来がないよー、ってお勧めされないのですが…
260デフォルトの名無しさん
2014/02/22(土) 23:19:05.46 >>259
IT系で上を目指そうって人間に何でPerlなんて選択肢があるわけ？
そこらへん考えたほうがいいよ。
SEならITに関しては常に最新の動向を知るためにアンテナ張ってなきゃならないし、
アンテナ張ってればPerlがいかに駄目かというこてが分かる。
SE目指すならその辺りを自分で調べられるようになってたほうがいい。
IT系で上を目指そうって人間に何でPerlなんて選択肢があるわけ？
そこらへん考えたほうがいいよ。
SEならITに関しては常に最新の動向を知るためにアンテナ張ってなきゃならないし、
アンテナ張ってればPerlがいかに駄目かというこてが分かる。
SE目指すならその辺りを自分で調べられるようになってたほうがいい。
261デフォルトの名無しさん
2014/02/22(土) 23:25:59.25 >>259
PHPのほうがいい
作業を簡単に処理させるスクリプトとかって最初はそのつもりがなくても便利ならそのまま他のものを作るときに組み込んだりする
エンジニア以外でも有用な場合はWebインターフェースにして提供することなるけどその場合にPHPで書いてあるとインターフェース作るだけですぐに提供できる
PHPのほうがいい
作業を簡単に処理させるスクリプトとかって最初はそのつもりがなくても便利ならそのまま他のものを作るときに組み込んだりする
エンジニア以外でも有用な場合はWebインターフェースにして提供することなるけどその場合にPHPで書いてあるとインターフェース作るだけですぐに提供できる
262デフォルトの名無しさん
2014/02/22(土) 23:28:04.79263デフォルトの名無しさん
2014/02/22(土) 23:50:35.64 >>259
そもそもその文脈でCGIは全く関係ないよ。そこに気付けないなんて釣りだろ？
そもそもその文脈でCGIは全く関係ないよ。そこに気付けないなんて釣りだろ？
264デフォルトの名無しさん
2014/02/22(土) 23:56:23.80 >>260-263
ありがとうございます！
javaか、PHPか、perlで悩んでました。
色々調べると、PHPが入り易そうなので、、
明日、本屋に行って、決めます。
※CGIは、掲示板とか作るのであって、検索とかするのとは違うなあ、
と思いながら、プログラマさんの意見を聞いていました。
ありがとうございます！
javaか、PHPか、perlで悩んでました。
色々調べると、PHPが入り易そうなので、、
明日、本屋に行って、決めます。
※CGIは、掲示板とか作るのであって、検索とかするのとは違うなあ、
と思いながら、プログラマさんの意見を聞いていました。
265デフォルトの名無しさん
2014/02/23(日) 00:03:57.16 >>264
やっぱ釣りだったか
やっぱ釣りだったか
266デフォルトの名無しさん
2014/02/23(日) 00:08:16.47 PHPが第一候補だったのですが、某サイトで、
PHPは、WEB系以外には、まったく意味がない、との様なコメントがあり、困りました。
javaは、いきなり入るには、まだ敷居が高いかなと悩みました。
perlは、単に簡単な、検索や置換には適しているようなコメントで一気に候補に挙がりました。
これらから悩んでいたんです。コメントありがとうございます。
PHPは、WEB系以外には、まったく意味がない、との様なコメントがあり、困りました。
javaは、いきなり入るには、まだ敷居が高いかなと悩みました。
perlは、単に簡単な、検索や置換には適しているようなコメントで一気に候補に挙がりました。
これらから悩んでいたんです。コメントありがとうございます。
267デフォルトの名無しさん
2014/02/23(日) 00:20:28.63 >>266
そのコメントとやらの投稿日時と信憑性も確認しろよ
まさか去年の夏以前の投稿で、しかも第一線で活躍してい"た"奴の投稿じゃないだろうな
3ヵ月以内の投稿で、しかも第一線で活躍してい"る"人の投稿なら信用しろ
そしてそういう人ならまずPerlを候補に挙げることはない
まぁ第一線で活躍してるわけでもない俺のこんな匿名の投稿も信憑性がないだろうから
第一線で活躍してる人がPerlなんか使わないということは自分の目で確認してくれ
そのコメントとやらの投稿日時と信憑性も確認しろよ
まさか去年の夏以前の投稿で、しかも第一線で活躍してい"た"奴の投稿じゃないだろうな
3ヵ月以内の投稿で、しかも第一線で活躍してい"る"人の投稿なら信用しろ
そしてそういう人ならまずPerlを候補に挙げることはない
まぁ第一線で活躍してるわけでもない俺のこんな匿名の投稿も信憑性がないだろうから
第一線で活躍してる人がPerlなんか使わないということは自分の目で確認してくれ
268デフォルトの名無しさん
2014/02/23(日) 00:24:33.24269デフォルトの名無しさん
2014/02/23(日) 00:27:42.14270デフォルトの名無しさん
2014/02/23(日) 00:38:05.80 と言うか、PerlスレにPHPのこと聞く時点で釣り
271デフォルトの名無しさん
2014/02/23(日) 00:39:36.75 >>269
＞PerlとLispが結婚して隔世遺伝が黒魔術で生まれた言語。
＞Javaは硬度8くらい、Pythonは6くらいになるのに対して、Rubyは3くらいになる。
との記事を見つけました。いつの記述かわからないのですが（汗）
Rubyも明日、本屋で漁ってみます。ありがとうございます。
＞PerlとLispが結婚して隔世遺伝が黒魔術で生まれた言語。
＞Javaは硬度8くらい、Pythonは6くらいになるのに対して、Rubyは3くらいになる。
との記事を見つけました。いつの記述かわからないのですが（汗）
Rubyも明日、本屋で漁ってみます。ありがとうございます。
272デフォルトの名無しさん
2014/02/23(日) 00:40:48.81273デフォルトの名無しさん
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>";
_EOM_なんて使っちゃだめだよ。見づらい。
print "Content-type: text/html\n\n";
print "<html>";
print "<body>";
print "A*B = $A * $B";
print "</body>";
print "</html>";
274デフォルトの名無しさん
2014/03/25(火) 21:15:29.29ID:dz69sIJc print "あいうえお";
↑これを文字コードをeuc-jpで保存してコマンドプロントからこのファイルを実行して
コマンドプロンプト上に文字化けなく あいうえお と出力させるにはどういうコードを追加すればいいの？
↑これを文字コードをeuc-jpで保存してコマンドプロントからこのファイルを実行して
コマンドプロンプト上に文字化けなく あいうえお と出力させるにはどういうコードを追加すればいいの？
275デフォルトの名無しさん
2014/03/25(火) 21:25:34.52ID:dz69sIJc >>274はちょっと疑問に思っただけで何かするのに必要なワケじゃないので無理して
答えようとしないで下さい。たぶんちょっとググった程度で分かるようなことではないです。
答えようとしないで下さい。たぶんちょっとググった程度で分かるようなことではないです。
276デフォルトの名無しさん
2014/03/25(火) 21:54:24.41ID:En8OrmpQ >>274-275
http://perldoc.jp/docs/modules/encoding/encoding.pod
use encoding 'euc-jp', STDOUT => 'cp932';
但し Perl 5.18.0 以降、encoding プラグマは非推奨で将来的に削除される予定。
http://perldoc.perl.org/encoding.html#WARNING
http://perldoc.jp/docs/modules/encoding/encoding.pod
use encoding 'euc-jp', STDOUT => 'cp932';
但し Perl 5.18.0 以降、encoding プラグマは非推奨で将来的に削除される予定。
http://perldoc.perl.org/encoding.html#WARNING
277274
2014/03/25(火) 22:08:05.94ID:dz69sIJc >>276
うおお、すごい、あっさり出来てしまった・・。
今日一日↓こんなのでやろうとして泥沼にハマってました。
use encoding "euc-jp";
binmode STDOUT, ':encoding(cp932)';
スーパーハカーさんどうもありがとう〜
うおお、すごい、あっさり出来てしまった・・。
今日一日↓こんなのでやろうとして泥沼にハマってました。
use encoding "euc-jp";
binmode STDOUT, ':encoding(cp932)';
スーパーハカーさんどうもありがとう〜
278デフォルトの名無しさん
2014/05/07(水) 01:39:02.09ID:NfbdqxRr print +(3,2,1,),"\n";
↑これ、+記号を消すと改行が反映されなくなるんですが、この+記号って
どういう意味ですか？ググるためのキーワードだけでもおねがいします。
ググると +{ } は出てきたんですが +( ) はなぜか見つかりませんでした。
↑これ、+記号を消すと改行が反映されなくなるんですが、この+記号って
どういう意味ですか？ググるためのキーワードだけでもおねがいします。
ググると +{ } は出てきたんですが +( ) はなぜか見つかりませんでした。
279デフォルトの名無しさん
2014/05/07(水) 04:47:36.14ID:nyTYPDB6 >>278
(print(3,2,1)), "\n";
(print(3,2,1)), "\n";
280デフォルトの名無しさん
2014/05/07(水) 06:28:00.20ID:WoJ0c0N0 +() は scalar () とほぼ同等。
+{}は、ブロック中の戻り値（？）をスカラーとして評価しますって意味。
+()は、リストとして評価しませんよーって意味。
perldocのperlopの
Terms and List Operators (Leftward)
と
Unary "+"
を参照してください。
+{}は、ブロック中の戻り値（？）をスカラーとして評価しますって意味。
+()は、リストとして評価しませんよーって意味。
perldocのperlopの
Terms and List Operators (Leftward)
と
Unary "+"
を参照してください。
281278
2014/05/07(水) 09:44:31.49ID:NfbdqxRr282デフォルトの名無しさん
2014/05/17(土) 17:23:28.43ID:syasv/b2 windowsの隠しファイルを判別する方法を教えてください
283デフォルトの名無しさん
2014/05/17(土) 18:53:12.61ID:9KhUrEje >>282
http://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;
http://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デフォルトの名無しさん
2014/05/17(土) 18:54:17.69ID:syasv/b2 >>283
ありがとうございます
ありがとうございます
285デフォルトの名無しさん
2014/05/24(土) 13:13:06.88ID:JzdRsmzF 掲示板のCGIを設置したんだけど、<a href="./bbs/mtbbs.cgi?">って感じにリンクするようにして、http://172では、ちゃんと作動したんだけど、
実際にFTPに転送すると、作動しないどころか画面が写らない
500エラーが出てくる
原因に関してはまだわかんなくて、調べてるんだけど、そもそも思ったのが<a href="./bbs/mtbbs.html">ならまだしも<a href="./bbs/mtbbs.cgi?">なんて、直にリンクすることなんてできるの？
実際にFTPに転送すると、作動しないどころか画面が写らない
500エラーが出てくる
原因に関してはまだわかんなくて、調べてるんだけど、そもそも思ったのが<a href="./bbs/mtbbs.html">ならまだしも<a href="./bbs/mtbbs.cgi?">なんて、直にリンクすることなんてできるの？
286デフォルトの名無しさん
2014/05/24(土) 17:20:37.74ID:Cq+cm/k7 >>285
WebProg板へドゾー
WebProg板へドゾー
287デフォルトの名無しさん
2014/05/25(日) 10:23:53.30ID:iOXakntE288デフォルトの名無しさん
2014/06/04(水) 10:34:27.77ID:8N6swAY/ 知恵袋で質問したら回答どころか閲覧すらなさすぎワロタ・・・
289デフォルトの名無しさん
2014/06/04(水) 15:39:06.30ID:ZiHf6GEW 早くマジレスしろ屑やろう
290デフォルトの名無しさん
2014/06/05(木) 04:14:43.22ID:tjfA5i3O 質問してもどうせまともに答えてくれないんだろうな
どこ行っても解決しないわ
どこ行っても解決しないわ
291デフォルトの名無しさん
2014/06/05(木) 06:34:54.17ID:Mvr5+GEe Web以外で最近なんか未解決質問あったっけここ
292デフォルトの名無しさん
2014/06/05(木) 19:01:58.49ID:aZWI6Ot4 >>291
今日も元気に残件なす！
今日も元気に残件なす！
293デフォルトの名無しさん
2014/06/08(日) 05:04:05.20ID: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
http://blog.audiofan.net/archives/491385.html
[Perl] XML::FeedPP - RSS・RDF・Atomフィードの解析・生成・変換・結合
http://www.kawa.net/works/perl/feedpp/feedpp.html
XML::FeedPP
https://metacpan.org/pod/XML::FeedPP#feed-remove_item-index-or-link
http://search.cpan.org/~kawasaki/XML-FeedPP-0.43/lib/XML/FeedPP.pm
その際、「生成されたフィード記事のリンク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
http://blog.audiofan.net/archives/491385.html
[Perl] XML::FeedPP - RSS・RDF・Atomフィードの解析・生成・変換・結合
http://www.kawa.net/works/perl/feedpp/feedpp.html
XML::FeedPP
https://metacpan.org/pod/XML::FeedPP#feed-remove_item-index-or-link
http://search.cpan.org/~kawasaki/XML-FeedPP-0.43/lib/XML/FeedPP.pm
294デフォルトの名無しさん
2014/06/10(火) 06:01:49.29ID:hRaawaun295デフォルトの名無しさん
2014/06/10(火) 12:30:22.68ID: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;
}
こういった10行で一組のデータの中に
---
市民の...
yerles
warrior
---
というパターンが多くあります。
マッチ検索したいのは
---
市民の...
dog
warrior
---
というパターンです。
"市民"という文字を見つけたら
2行下に
"dog"という文字があるならば
その、"市民の..."を出力して欲しいです。
ファイル読んで単純マッチするぐらいしか今はできません
open (my $in , "<" , "./cdatan_5_101.s2");
while (<in>){
if (/yerles/){print "matched\n"}
}
close $in;
}
296デフォルトの名無しさん
2014/06/10(火) 13:44:16.05ID:kKsVvptA297デフォルトの名無しさん
2014/06/10(火) 13:58:26.18ID:kKsVvptA298デフォルトの名無しさん
2014/06/10(火) 14:45:55.30ID:zpbxFFHG 凄い。ありがとう。
出てきたshiftとか勉強してみます
感謝
出てきたshiftとか勉強してみます
感謝
299デフォルトの名無しさん
2014/06/11(水) 22:22:53.08ID: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...略
でわかる。
普通に配列に突っ込んで、マイナスのインデクスでアクセスすりゃいいやん。
$ 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デフォルトの名無しさん
2014/06/12(木) 13:15:46.45ID:qt4Roz23 恰好をつけるなら、リングバッファでも書くところですが、回答としては、あんまりだと思ったので。
2行固定なら、別に使わなくても。
perl -ne '($_, $x, $y) = ($x, $y, $_); $y =~ /dog/ && /市民/ && print' File
何も考えなくていいなら、正規表現でバッサリ。
perl -e 'print((local $/ = <>) =~ /(^.*市民.*\n).*\n.*dog/gm)' File
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:08.85ID:m+RTKRIb >>300
1ヵ月以上もお前のレスにレスがつかないのはなぜか分かる？
お前みたいなゴミクズは誰も必要としてないからだよ。
一般社会ではあからさまに無視するわけにもいかないから当たり障りのない対応をしてもらってると思うけど、
お前ハッキリ言って迷惑だから。
ゴミクズはネットでもリアルでもできるだけ社会と接点持つな。
1ヵ月以上もお前のレスにレスがつかないのはなぜか分かる？
お前みたいなゴミクズは誰も必要としてないからだよ。
一般社会ではあからさまに無視するわけにもいかないから当たり障りのない対応をしてもらってると思うけど、
お前ハッキリ言って迷惑だから。
ゴミクズはネットでもリアルでもできるだけ社会と接点持つな。
302デフォルトの名無しさん
2014/07/26(土) 13:51:21.84ID:5yhnFgSu 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
Failed 1/86 test programs. 0/923 subtests failed.
Makefile:945: recipe for target 'test_classic' failed
make: *** [test_classic] Error 255
PETDANCE/ack-2.12.tar.gz
/usr/bin/make test -- NOT OK
//hint// to see the cpan-testers results for installing this module, try:
reports PETDANCE/ack-2.12.tar.gz
Running make install
make test had returned bad status, won't install without force
Failed during this command:
PETDANCE/ack-2.12.tar.gz : make_test NO
Windous上のcygwinとLinuxでCPANのackをインストールしているところでつまずきました
上のエラーはcygwinの方のエラーです
これは、curlを使えば回避できるそうですが http://d.hatena.ne.jp/katz_24/20130210/1366387522
setup.exeを利用したインストールでも何故かインストールができずに手詰まりになりました
ack-2.12.tar.gz を回答してみても訳が分かりません
ackをインストールする手はありますか?
-------------------
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
Failed 1/86 test programs. 0/923 subtests failed.
Makefile:945: recipe for target 'test_classic' failed
make: *** [test_classic] Error 255
PETDANCE/ack-2.12.tar.gz
/usr/bin/make test -- NOT OK
//hint// to see the cpan-testers results for installing this module, try:
reports PETDANCE/ack-2.12.tar.gz
Running make install
make test had returned bad status, won't install without force
Failed during this command:
PETDANCE/ack-2.12.tar.gz : make_test NO
Windous上のcygwinとLinuxでCPANのackをインストールしているところでつまずきました
上のエラーはcygwinの方のエラーです
これは、curlを使えば回避できるそうですが http://d.hatena.ne.jp/katz_24/20130210/1366387522
setup.exeを利用したインストールでも何故かインストールができずに手詰まりになりました
ack-2.12.tar.gz を回答してみても訳が分かりません
ackをインストールする手はありますか?
303デフォルトの名無しさん
2014/07/26(土) 14:09:06.14ID:mdOIZXZW make test had returned bad status, won't install without force
まけ出来てるのならいんすこ自体は可能
まけ出来てるのならいんすこ自体は可能
304デフォルトの名無しさん
2014/07/26(土) 15:10:46.74ID:5yhnFgSu force installでcygwinの方に入れました
正常に動作します
ありがとうございました
Linuxの方は、手っ取り早く
sudo aptitude install ack-grep
しました
おかげさまで両方にackが揃いました
感謝します
正常に動作します
ありがとうございました
Linuxの方は、手っ取り早く
sudo aptitude install ack-grep
しました
おかげさまで両方にackが揃いました
感謝します
305デフォルトの名無しさん
2014/08/06(水) 20:37:58.86ID:Wa4hIBKh xmlを取得して中身を
s|。|。<br>|g;
して句読点ごとに改行させたかったのですがどうしても出来ません
なにか理由があるのでしょうか
初心者なもんで変な質問をしていたらすいません
s|。|。<br>|g;
して句読点ごとに改行させたかったのですがどうしても出来ません
なにか理由があるのでしょうか
初心者なもんで変な質問をしていたらすいません
306デフォルトの名無しさん
2014/08/06(水) 20:41:08.65ID:itqhygIz 文字コード
307デフォルトの名無しさん
2014/08/06(水) 20:43:50.60ID:E5F7+XJp エスパーじゃないんだから、そんな質問で答えれる訳ないだろ。
せめてサンプルとなる簡単なxmlを出せよ・・・
せめてサンプルとなる簡単なxmlを出せよ・・・
308デフォルトの名無しさん
2014/08/06(水) 21:39:48.88ID:Wa4hIBKh309デフォルトの名無しさん
2014/08/06(水) 22:33:25.28ID:E5F7+XJp310デフォルトの名無しさん
2014/08/06(水) 22:37:04.17ID:itqhygIz311デフォルトの名無しさん
2014/08/06(水) 22:48:45.57ID:Wa4hIBKh312デフォルトの名無しさん
2014/08/06(水) 23:05:36.50ID:itqhygIz >>311
なら、どっちかの文字コードにencodeして合わせる
なら、どっちかの文字コードにencodeして合わせる
313デフォルトの名無しさん
2014/08/06(水) 23:07:49.58ID:E5F7+XJp いや、よほど特別な事情がない限りは utf-8 のソースにするべき。
http://d.hatena.ne.jp/perlcodesample/20091118/1246679588
この辺読んで理解するべき。
http://d.hatena.ne.jp/perlcodesample/20091118/1246679588
この辺読んで理解するべき。
314デフォルトの名無しさん
2014/08/18(月) 11:10:58.79ID:Umc6CSTk > perl -e "print (5+5)/3"
10
なんで？
10
なんで？
315デフォルトの名無しさん
2014/08/18(月) 19:48:40.74ID:3b1Nz6uJ print -e "print((5+5)/3)"
316デフォルトの名無しさん
2014/08/19(火) 07:25:44.81ID:o0wKf1/G >>314
http://perldoc.jp/docs/perl/5.18.1/perlfunc.pod
> 括弧を使うときには、単純な、(しかし、ときには驚く結果となる規則が 適用できます:
> 関数に見えるならば、それは関数で、優先順位は関係ありません。
(略)
> Perl に -w スイッチを付けて実行すれば、こういったものには警告を 出してくれます。
http://perldoc.jp/docs/perl/5.18.1/perlfunc.pod
> 括弧を使うときには、単純な、(しかし、ときには驚く結果となる規則が 適用できます:
> 関数に見えるならば、それは関数で、優先順位は関係ありません。
(略)
> Perl に -w スイッチを付けて実行すれば、こういったものには警告を 出してくれます。
317デフォルトの名無しさん
2014/08/19(火) 20:11:13.78ID:pX43W7dG 2000年には既にwarnings実装してんのに
なんで未だに、-w推薦文章なんか残してんだろーね？
-Mwarningsのエイリアスって訳でもねーし。
なんで未だに、-w推薦文章なんか残してんだろーね？
-Mwarningsのエイリアスって訳でもねーし。
318デフォルトの名無しさん
2014/09/02(火) 01:23:02.48ID:ytxIDh0v 【誤】print -e "print ((5+5)/3)"
【正】perl -e "(print(5+5)) / 3"
ついでに -w と -Mwarnings は別物。-Mwarnings で -w の代わりになるわけではない。
【正】perl -e "(print(5+5)) / 3"
ついでに -w と -Mwarnings は別物。-Mwarnings で -w の代わりになるわけではない。
319デフォルトの名無しさん
2014/09/02(火) 02:10:54.86ID:EB7tqG6E だが共に生きることはできる
320デフォルトの名無しさん
2014/09/02(火) 04:04:55.52ID:smXsHdMQ >>318
-w ≠ warningsは常識だろ。
で、「use Unicodeは、use Jcodeの代りじゃない」ってレベルの事を言ってるぞ、おまえさん。
-wが石頭だから、より制御しうるwarningsを実装したんだろが。
-w ≠ warningsは常識だろ。
で、「use Unicodeは、use Jcodeの代りじゃない」ってレベルの事を言ってるぞ、おまえさん。
-wが石頭だから、より制御しうるwarningsを実装したんだろが。
321デフォルトの名無しさん
2014/09/02(火) 07:00:12.46ID:DO1XeoYm 5.20のperllexwarnがスッキリしててﾜﾗﾀ。
322デフォルトの名無しさん
2014/10/02(木) 21:11:40.29ID:5+m7m9lZ 常識の根拠は常識は常識だから（真顔）
323デフォルトの名無しさん
2014/11/05(水) 08:46:59.07ID:aEzkt3Do 再帰中に再帰の深さを出したいんだけどlocal使っていい？
local $::count = $::count + 1;
もっと普通の方法ある？
local $::count = $::count + 1;
もっと普通の方法ある？
324デフォルトの名無しさん
2014/11/05(水) 11:35:00.61ID:+yDKEom1 引数で渡す
sub foo {
my ($arg, $count) = @_;
...;
foo($arg, $count) if $count++ < 10;
}
sub foo {
my ($arg, $count) = @_;
...;
foo($arg, $count) if $count++ < 10;
}
325デフォルトの名無しさん
2014/11/05(水) 14:22:15.13ID:aEzkt3Do ありがとーーー。
複製される変数の数には変わりがないよね、たぶん。
上はグローバル変数と言うのが気に入らなくて、下は引数で扱う値が増えるのが気に入らないが。
複製される変数の数には変わりがないよね、たぶん。
上はグローバル変数と言うのが気に入らなくて、下は引数で扱う値が増えるのが気に入らないが。
326デフォルトの名無しさん
2014/11/05(水) 16:45:55.49ID:aEzkt3Do while(@all){ ((shift @all) eq 'cut') and last; }
whileを修飾子として書くと落ちるんだが誰か理由を教えてくれー
((shift @all) eq 'cut') and last while(@all);
evalでも落ちた
whileを修飾子として書くと落ちるんだが誰か理由を教えてくれー
((shift @all) eq 'cut') and last while(@all);
evalでも落ちた
327デフォルトの名無しさん
2014/11/11(火) 22:49:14.07ID:AzojYpxL 英数混じった文字列の中から2桁の数字にマッチさせたいのですが、
/\d\d/だと3桁以上の数字の前2桁にもマッチしてしまいます。
/^(\d\d)\D|\D(\d\d)\D|\D(\d\d)$|^(\d\d)$/ こんなことするより簡単な方法ないでしょうか？
/\d\d/だと3桁以上の数字の前2桁にもマッチしてしまいます。
/^(\d\d)\D|\D(\d\d)\D|\D(\d\d)$|^(\d\d)$/ こんなことするより簡単な方法ないでしょうか？
328デフォルトの名無しさん
2014/11/12(水) 00:09:33.46ID:WHJDipVn [^\d]\d{2}[^\d]
329デフォルトの名無しさん
2014/11/12(水) 02:38:25.07ID:T/b7ogJF % perl -le 'print q{22} =~ /[^\d]\d{2}[^\d]/'
% perl -le 'print q{22} =~ /(?<!\d)\d{2}(?!\d)/'
1
% perl -le 'print q{22} =~ /(?:^|\D)\d{2}(?:$|\D)/'
1
% perl -le 'print q{22} =~ /(?<!\d)\d{2}(?!\d)/'
1
% perl -le 'print q{22} =~ /(?:^|\D)\d{2}(?:$|\D)/'
1
330327
2014/11/12(水) 22:11:30.88ID:obciIUzc /(?<!\d)\d{2}(?!\d)/
これが期待通りの結果が得られました。
(?<!)とか(?!)とかこれまで使ったこと無かったので勉強になりました。
ありがとうございました。
これが期待通りの結果が得られました。
(?<!)とか(?!)とかこれまで使ったこと無かったので勉強になりました。
ありがとうございました。
331デフォルトの名無しさん
2014/11/13(木) 00:03:57.67ID:w30Rb1CY テストパターンに英字が入ってませんぜ
332デフォルトの名無しさん
2014/11/13(木) 05:25:18.91ID:iJHzIgO3 \b使えよ。便利だぞ。
333デフォルトの名無しさん
2014/11/13(木) 05:51:07.66ID:DTTQy1M/ そりゃ\b使って期待通りの結果が出るなら使うだろ
レスを投稿する
ニュース
- 日本行き空路４９万件キャンセル 中国自粛呼びかけ 日本行きチケット予約の約３２％に相当 ★2 [ぐれ★]
- 【中国局長】両国関係に「深刻な影響」 首相発言の撤回要求 [蚤の市★]
- 【卓球】早田ひな、「総額100万スられた」「ずっと憧れていたスペインとイタリア…」ヨーロッパ旅行で悲劇 スリ被害を告白 [muffin★]
- 外務省局長は無言で厳しい表情…日中の高官協議終了か 高市首相“台湾”発言で中国が強硬対応 発言撤回求めたか…★3 [BFU★]
- 【インバウンド】中国人観光客の日本での消費額は年間約2兆円超…中国政府は公務員の出張取り消し [１ゲットロボ★]
- 日経平均の下落率３％超す、財政懸念で長期金利上昇 ★2 [お断り★]
- 【実況】博衣こよりのえちえち歌枠🧪★2
- 【画像】外務省局長「この度はうちの🦎がすみません…」中国「……」 [165981677]
- 産経新聞「高市早苗の答弁さぁ……思慮が足りてなくね？官僚と詰めずに思いつきで話しているでしょ」 [175344491]
- 【高市速報】日本人の３割「中国への武力行使に踏み切る必要がある」ANN世論調査 [931948549]
- 【雑談】暇人集会所part18
- 外務省局長、よくわからないまま帰国へ [834922174]