14/05/07 06:28:00.20 WoJ0c0N0
+() は scalar () とほぼ同等。
+{}は、ブロック中の戻り値（？）をスカラーとして評価しますって意味。
+()は、リストとして評価しませんよーって意味。
perldocのperlopの
Terms and List Operators (Leftward)
と
Unary "+"
を参照してください。
281:278
14/05/07 09:44:31.49 NfbdqxRr
>>279-280
なるほど、+{ } と同じような使い方だったんですね、ありがとうございました。
perldocもこれから読んでみます、多謝。
282:デフォルトの名無しさん
14/05/17 17:23:28.43 syasv/b2
windowsの隠しファイルを判別する方法を教えてください
283:デフォルトの名無しさん
14/05/17 18:53:12.61 9KhUrEje
>>282
URLﾘﾝｸ(search.cpan.org)
use Win32::File qw(GetAttributes HIDDEN);
GetAttributes($ARGV[0], my $attr) or die $!;
print +($attr & HIDDEN) ? 1 : 0;
284:デフォルトの名無しさん
14/05/17 18:54:17.69 syasv/b2
>>283
ありがとうございます
285:デフォルトの名無しさん
14/05/24 13:13:06.88 JzdRsmzF
掲示板のCGIを設置したんだけど、<a href="./bbs/mtbbs.cgi?">って感じにリンクするようにして、URLﾘﾝｸ(172)では、ちゃんと作動したんだけど、
実際にFTPに転送すると、作動しないどころか画面が写らない
500エラーが出てくる
原因に関してはまだわかんなくて、調べてるんだけど、そもそも思ったのが<a href="./bbs/mtbbs.html">ならまだしも<a href="./bbs/mtbbs.cgi?">なんて、直にリンクすることなんてできるの？
286:デフォルトの名無しさん
14/05/24 17:20:37.74 Cq+cm/k7
>>285
WebProg板へドゾー
287:デフォルトの名無しさん
14/05/25 10:23:53.30 iOXakntE
>>285
リンクはできる
動かない原因は別にある
288:デフォルトの名無しさん
14/06/04 10:34:27.77 8N6swAY/
知恵袋で質問したら回答どころか閲覧すらなさすぎワロタ・・・
289:デフォルトの名無しさん
14/06/04 15:39:06.30 ZiHf6GEW
早くマジレスしろ屑やろう
290:デフォルトの名無しさん
14/06/05 04:14:43.22 tjfA5i3O
質問してもどうせまともに答えてくれないんだろうな
どこ行っても解決しないわ
291:デフォルトの名無しさん
14/06/05 06:34:54.17 Mvr5+GEe
Web以外で最近なんか未解決質問あったっけここ
292:デフォルトの名無しさん
14/06/05 19:01:58.49 aZWI6Ot4
>>291
今日も元気に残件なす！
293:デフォルトの名無しさん
14/06/08 05:04:05.20 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
URLﾘﾝｸ(blog.audiofan.net)
[Perl] XML::FeedPP - RSS・RDF・Atomフィードの解析・生成・変換・結合
URLﾘﾝｸ(www.kawa.net)
XML::FeedPP
URLﾘﾝｸ(metacpan.org)
URLﾘﾝｸ(search.cpan.org)
294:デフォルトの名無しさん
14/06/10 06:01:49.29 hRaawaun
>>293
WebProg
URLﾘﾝｸ(nozomi.2ch.net)
295:デフォルトの名無しさん
14/06/10 12:30:22.68 zpbxFFHG
URLﾘﾝｸ(s1.gazo.cc)
こういった10行で一組のデータの中に
---
市民の...
yerles
warrior
---
というパターンが多くあります。
マッチ検索したいのは
---
市民の...
dog
warrior
---
というパターンです。
"市民"という文字を見つけたら
2行下に
"dog"という文字があるならば
その、"市民の..."を出力して欲しいです。
ファイル読んで単純マッチするぐらいしか今はできません
open (my $in , "<" , "./cdatan_5_101.s2");
while (<in>){
if (/yerles/){print "matched\n"}
}
close $in;
}
296:デフォルトの名無しさん
14/06/10 13:44:16.05 kKsVvptA
>>295
URLﾘﾝｸ(ideone.com)
297:デフォルトの名無しさん
14/06/10 13:58:26.18 kKsVvptA
手抜きすぎた。
>>295
URLﾘﾝｸ(ideone.com)
298:デフォルトの名無しさん
14/06/10 14:45:55.30 zpbxFFHG
凄い。ありがとう。
出てきたshiftとか勉強してみます
感謝
299:デフォルトの名無しさん
14/06/11 22:22:53.08 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:デフォルトの名無しさん
14/06/12 13:15:46.45 qt4Roz23
恰好をつけるなら、リングバッファでも書くところですが、回答としては、あんまりだと思ったので。
2行固定なら、別に使わなくても。
perl -ne '($_, $x, $y) = ($x, $y, $_); $y =~ /dog/ && /市民/ && print' File
何も考えなくていいなら、正規表現でバッサリ。
perl -e 'print((local $/ = <>) =~ /(^.*市民.*\n).*\n.*dog/gm)' File