Perl初心者スレ（マジレス回答） (523ﾚｽ)
Perl初心者スレ（マジレス回答） http://mevius.5ch.net/test/read.cgi/tech/1349538519/
上
下
前次
1-
新
通常表示
512ﾊﾞｲﾄ分割
ﾚｽ栞
抽出解除
ﾚｽ栞
146: デフォルトの名無しさん [sage] 2013/01/23(水) 01:52:30.08 >>145 ワンライナー http://mevius.5ch.net/test/read.cgi/tech/1349538519/146
182: デフォルトの名無しさん [sage] 2014/02/02(日) 07:25:47.08 >>179 あるよ http://mevius.5ch.net/test/read.cgi/tech/1349538519/182
299: デフォルトの名無しさん [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...略 でわかる。 http://mevius.5ch.net/test/read.cgi/tech/1349538519/299
357: デフォルトの名無しさん [sage] 2015/03/13(金) 20:55:35.08 ID:hJWhu2F/ なにこの良スレ http://mevius.5ch.net/test/read.cgi/tech/1349538519/357
376: デフォルトの名無しさん [] 2015/08/31(月) 13:20:01.08 ID:Q0xjlAqa Lisper な人？ 多分、こういうことをお望みかな。 #!/usr/bin/perl use Data::Dumper; my @car = (1, 2); my @cdr = (3, 4); my @both = ( \@car, \@cdr); print( Dumper( \@both)); http://mevius.5ch.net/test/read.cgi/tech/1349538519/376
470: デフォルトの名無しさん [sage] 2018/11/22(木) 10:54:51.08 ID:iCX1SQ90 これでいけました！ 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 読込完了 1 10 テスト1 2 5 テスト2 出力完了 ただ、key を外して foreach my $row (%table)とすると下記の通り改行が入ります 1 10 テスト1 2 5 テスト2 出力完了 http://mevius.5ch.net/test/read.cgi/tech/1349538519/470
513: デフォルトの名無しさん [sage] 2024/03/16(土) 09:16:48.08 ID:1WMRgWrv ネタにマジレス http://mevius.5ch.net/test/read.cgi/tech/1349538519/513
ﾒﾓ帳
(0/65535文字)
上
下
前次
1-
新
書
関
写
板
覧
索
設
栞
歴
ｽﾚ情報
赤ﾚｽ抽出
画像ﾚｽ抽出
歴の未読ｽﾚ
AAｻﾑﾈｲﾙ
Google検索
Wikipedia
ぬこの手
ぬこTOP
0.017s