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

---

ﾘﾛｰﾄﾞ規制です｡10分ほどで解除するので､他のﾌﾞﾗｳｻﾞへ避難してください｡

---

146: 2013/01/23(水)01:52:30.08 AAS
>>145
ワンライナー

---

182(1): 2014/02/02(日)07:25:47.08 AAS
>>179
あるよ

---

299: 2014/06/11(水)22:22:53.08 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

---

357: 2015/03/13(金)20:55:35.08 ID:hJWhu2F/(1) AAS
なにこの良スレ

---

376: 2015/08/31(月)13:20:01.08 ID:Q0xjlAqa(1/2) AAS
Lisper な人？
多分、こういうことをお望みかな。

#!/usr/bin/perl

use Data::Dumper;

my @car = (1, 2);
my @cdr = (3, 4);
my @both = ( \@car, \@cdr);
省1

---

470: 2018/11/22(木)10:54:51.08 ID:iCX1SQ90(2/2) AAS
これでいけました！
foreach my $row (keys %table){
　print encode('cp932', "$table{$row}{'id'}\t$table{$row}{'count'}\t$table{$row}{'name'}\n");
}
>hash_test.pl
1 10 テスト1
2 5 テスト2
省8

---

513: 2024/03/16(土)09:16:48.08 ID:1WMRgWrv(1) AAS
ネタにマジレス

---

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

---

ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

ぬこの手 ぬこTOP 0.025s