![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
![](http://oshiete.xgoo.jp/images/v2/common/profile/M/noimageicon_setting_01.png?e8efa67)
超初心者です。
辞書から不必要な文字を消そうをしていますが、はじめのファイルを読み出すから
行き詰っています。
下が使いたい辞書データです。
------------
word,trans,exp,level,memory,modify,pron,filelink
"さまざまな理由から [さまざまなりゆうから]","(exp) for various reasons","",0,0,0,""
"さめざめ","(adv) sorrowfully/anguishedly","",0,0,0,""
"さもしい","(adj) selfish/self-seeking/self-interested/mean","",0,0,0,""
"さようならホームラン","(n) game-ending home run (baseball)","",0,0,0,""
"さよならホームラン","(n) game-ending home run (baseball)","",0,0,0,""
"さらけ出す [さらけだす]","(v5s) to expose/to disclose/to lay bare/to confess","",0,0,0,""
"さらさら","(adj-na,adv,n,vs) (1) rustling/murmuring/(2) fluently/(3) silky (hair)/(P)","",0,0,0,""
"さらば","(conj,int) farewell","",0,0,0,""
"さん","(suf) Mr or Mrs/(P)","",0,0,0,""
"さーたーあんだぎー","(n) type of Okinawan doughnut (donut)","",0,0,0,""
"さ来週 [さらいしゅう]","(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,""
"ざあっ","(n) (onom) sound of water","",0,0,0,""
"ざくざく","(adj-na,adv) lots of coins or jewels/cutting up roughly/mixing gravel/walking on frost","",0,0,0,""
"ざけんなよ","(exp) (X) (vulg) fuck you!/""don't fuck around""/""don't be a screw off""","",0,0,0,""
"ざっくざっく","(adv) crunch crunch/thud thud/tramp tramp","",0,0,0,""
"ざっくばらん","(adj-na,n) frankness","",0,0,0,""
"ざっと","(adv) roughly/in round numbers/(P)","",0,0,0,""
"ざぶんと","(adv) with a splash","",0,0,0,""
------------------
そして組んだのがこれです。
use encoding "cp932";
$/ = "\r\n";
open(DIC, "+> DicData.csv") or die("Error:$!");
while(<DIC>){
$data = $_;
}
if($a =~ /"/){
$a =~ s/"//g;
}
close(DIC);
-----------
お恥ずかしい限りです。
なにとぞよろしくお願いします。
A 回答 (4件)
- 最新から表示
- 回答順に表示
No.2
- 回答日時:
> open(DIC, "+> DicData.csv") or die("Error:$!");
"+>"を使うと、ファイルの内容をクリアしてから読み書き両用に使います。
これ以上説明はしんどいのでコードで・・・
たぶんやりたいのはこういうことでしょう。
#!/usr/bin/env perl
use strict;
use warnings;
undef $/;
open my $fh, '<', "DicData.csv" or die $!;
my $data = <$fh>;
close $fh;
$data =~ s/"//g;
open my $fh, '>', "DicData.csv" or die $!;
print $fh $data;
close $fh;
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- 英語 英文の添削お願いします。【長文です。】 マッチングアプリで相手を言い負かしている時のやつです。 色々 1 2023/07/01 02:12
- その他(SNS・コミュニケーションサービス) 自分のpcがハッキングされたようなメールが来たのですがどうすればいいですか? 4 2022/10/02 16:14
- 戦争・テロ・デモ ウクライナ、メル友に五千円要求されてさ 1 2022/04/02 09:38
- 英語 "In a considerable effect to those..." の In は正しいか? 3 2023/06/22 07:58
- TOEFL・TOEIC・英語検定 英検準1級英作文の添削をお願いします。 ポイントはCurriculumとGlobalizationを 4 2023/05/29 11:33
- 公的扶助・生活保護 保証人? 1 2022/05/17 22:42
- 英語 英語の質問です。 When I taught in high school, I wanted to 4 2023/08/19 16:10
- MySQL 参考書に従って入力したつもりでしたが、最後はエラーがでました。 1 2022/09/28 03:45
- 英語 できるだけ直訳で英語の翻訳をお願いします。(英語→日本語) 1 2022/10/15 20:59
- 英語 英訳お願いします 進級試験に合格しました。 I passed the test for promot 4 2023/02/22 23:24
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Perlで特定行から特定行までを...
-
window.open でのファイル指定方法
-
VBAでCSVファイルの特定行を書...
-
ReadLineでの読み出し行を指定する
-
awkスクリプトでダブルクォーテ...
-
VBAで巨大なファイルの途中から...
-
ExcelをCSV書き出す場合のシー...
-
VBAでCSVファイルを途中行まで...
-
htaccessで特定のディレクトリ...
-
fopenでディレクトリ内の全ファ...
-
ファイル出力の改行コードをLFに
-
エクセルVBAで素数だけを出力す...
-
fgets で値が取得できない
-
エクセルVBA コードが同じでも...
-
配列の中に重複文字列があるか...
-
DOSコマンドで、標準出力を出力...
-
MATLABのm-fileについて
-
openした後、closeしないでプロ...
-
WindowsでPerlをする際,1行目の...
-
バッチファイルの作り方(CSV→...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Perlで特定行から特定行までを...
-
Perlの初心者です。2重ループ...
-
perlでcsvファイルを読む(ダブ...
-
Argument "\\\\n" isn't numeri...
-
perlにてスペースの削除に苦労...
-
Perl初心者です。同一データを...
-
ファイルの3行目までを出力したい
-
先頭の単語が一致した時のデー...
-
Java CSVファイルをカンマごと...
-
FTP接続時失敗時、接続先名をcs...
-
データファイルからのデータの...
-
MATLAB std::exceptionエラー
-
cgiのログの書き方
-
エラーチェック、ファイルに特...
-
Perlで空白行を削除
-
perl:パターンマッチを使ったif...
-
CSVファイルのデータの行数を取...
-
外部ファイルからの指定行と指...
-
コマンド上の行間
-
perlでファイルの比較
おすすめ情報