質問編集履歴

2

スクリプトを書き加えました

2018/01/08 06:24

投稿

trm
trm

スコア117

test CHANGED
File without changes
test CHANGED
File without changes

1

スクリプトを書き加えました

2018/01/08 06:24

投稿

trm
trm

スコア117

test CHANGED
File without changes
test CHANGED
@@ -1 +1,59 @@
1
- 変数をwhile文で扱い変数の一つ一つの要素を取り出して変数の最後で終了するにはどうすればいいでしょうか?
1
+ ``変数をwhile文で扱い変数の一つ一つの要素を取り出して変数の最後で終了するにはどうすればいいでしょうか?
2
+
3
+ コード
4
+
5
+ #既存ファイルを読み込み、配列@aaa に入れる
6
+
7
+ open(IN,"<kokyakusyouhinjouhou/ID&sougousyouhindata.csv");
8
+
9
+ @aaa = <IN>;
10
+
11
+ close (IN);
12
+
13
+
14
+
15
+ $bbb = "";
16
+
17
+ $i=0;
18
+
19
+ $sub;
20
+
21
+ while(@aaa!=""){
22
+
23
+ while($sub!="\n"){
24
+
25
+ $sub=substr(@aaa,$i,1);
26
+
27
+ $bbb=$bbb+$sub;
28
+
29
+ $i=$i+1;
30
+
31
+ }
32
+
33
+ $sub=substr(@aaa,$i,1);
34
+
35
+ $bbb=$bbb+$sub;
36
+
37
+ while ($sub=" "){
38
+
39
+ $sub=(substr(@aaa,$i,1,"");
40
+
41
+ $bbb=$bbb+$sub;
42
+
43
+ $i=$i+1;
44
+
45
+ }
46
+
47
+ }
48
+
49
+
50
+
51
+ open(OUT,">kokyakusyouhinjouhou/ID&sougousyouhindata.csv");
52
+
53
+ print OUT "$bbb";
54
+
55
+ close(OUT);
56
+
57
+
58
+
59
+ ```