perl超初心的な質問

質問

perl初心者です。
辞書ファイルを編集するのに必要外な文字が多く、手作業では限界がありperlを使おうと思います。
ちまちまと自分で打ったのですが、いざ実行するとうまくいきません。
右も左もわからず途方にくれてます。

下が編集したい文です。
行の最初の”を削り、読んだものに上書きしたいのです。

"さ来週 [さらいしゅう]","(n-adv,n-t) week after next","",0,0,0,""
"さ迷う [さまよう]","(v5u) to loiter/to putter/to prowl/to wander about/to roam about/to knock around","",0,0,0,""
"ざあざあ","(adv) sound of rushing water/sound of pouring rain/white noise sound/(P)","",0,0,0,""

そして下の文が打ったperlの内容です。

$inputfile="DicA.csv";
open(DIC,"$inputfile") or die "$!";　　　-----------画面に表示される
while ($line1 = <DIC>){
$string =~ s/"//g;

open(OUT,"> DicA.csv");　　　　----------上書きされ空のファイルができる
$out1 = join(",",@array);
print OUT;
}
close(DIC)

お手数をおかけしてすみません。
困っています。
どうかよろしくお願いします。

回答No.1

osamuy · ベストアンサー

＞ 行の最初の”を削り、読んだものに上書きしたいのです。

ってことなら、書き換えたいファイルをa.txtとして、コマンドラインから、

perl -i.bak -pe "s/^.//" a.txt

――と実行してみるとか(各行の最初の1文字を強制的に削ります)。

参考URL：

http://perldoc.jp/docs/perl/5.10.0/perlrun.pod