Perlコーディング初心者質問スレ Part 59

**nobodyさん** · 2009/02/16(月) 11:42:29

Perlのコーディングで困ってる人のスレです。

【投稿する際の注意】
質問するときは内容をよく吟味してから投稿してください。
「コマンドの意味がわかんない」とかはマニュアル見ましょう。
回答者さんは何でも屋じゃありません。

1：自分はこういう事がしたい。
2：それでこんな風にやってみたが･･･
3：こんなエラーが出て上手く行かなかった。

最低でも1と3が無いと誰も答えられないよ。
良い回答は良い質問から。一緒に勉強しましょう。

お勧めサイトは >2 以降

前スレ　http://pc11.2ch.net/test/read.cgi/php/1218030872/

**nobodyさん** · 2009/06/18(木) 21:21:41

while(@data){
my @tmp = $_ =~ /[^\t\n]+/g;
print join "\t", map{$tmp[$_] unless $_ == 3}(1..8);
}
こんな感じ？テストはしてない

**nobodyさん** · 2009/06/18(木) 21:22:37

X }(1..8);
O }(0..7);

**nobodyさん** · 2009/06/18(木) 21:30:15

>>696
$data2 =~ s/\bred\t//g;
$data2 =~ s/^red\t|(?<=\t)red\t|\tred\z//g;
$data2 = join("\t", grep{$_ ne 'red'} split(/\t/, $data2));

お好きなのをどうぞ。