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

[0672 nobodyさん 2009/06/17(水) 18:33:52 ID:???]

$sample=~ s/(.*\n)/1-1$1/g;