回答編集履歴
5
編集
test
CHANGED
@@ -15,3 +15,19 @@
|
|
15
15
|
訂正しました
|
16
16
|
|
17
17
|
これでいけます。
|
18
|
+
|
19
|
+
|
20
|
+
|
21
|
+
コメントの判定は前から順次行なっているので、
|
22
|
+
|
23
|
+
|
24
|
+
|
25
|
+
最初の"でコメント開始、'をコメント、"でコメント終了
|
26
|
+
|
27
|
+
次に'でコメント開始、{"def"}をコメント、'でコメント終了
|
28
|
+
|
29
|
+
最後に"でコメント開始、'をコメント、"でコメント終了
|
30
|
+
|
31
|
+
|
32
|
+
|
33
|
+
って流れですね。
|
4
編集
test
CHANGED
@@ -4,7 +4,7 @@
|
|
4
4
|
|
5
5
|
```perl
|
6
6
|
|
7
|
-
my $var=`echo '"abc"' "
|
7
|
+
my $var=`echo '"abc"' "'"'{"def"}'"'"`;
|
8
8
|
|
9
9
|
print "$var";
|
10
10
|
|
3
訂正
test
CHANGED
@@ -4,12 +4,14 @@
|
|
4
4
|
|
5
5
|
```perl
|
6
6
|
|
7
|
+
my $var=`echo '"abc"' "\'"'{"def"}'"\'"`;
|
8
|
+
|
7
|
-
|
9
|
+
print "$var";
|
10
|
+
|
11
|
+
```
|
8
12
|
|
9
13
|
|
10
14
|
|
11
|
-
|
15
|
+
訂正しました
|
12
16
|
|
13
|
-
print "$var"
|
14
|
-
|
15
|
-
|
17
|
+
これでいけます。
|
2
編集
test
CHANGED
@@ -8,7 +8,7 @@
|
|
8
8
|
|
9
9
|
|
10
10
|
|
11
|
-
my $var=`echo "¥"abc¥"¥'{¥"def¥"}¥'"`;
|
11
|
+
my $var=`echo "¥"abc¥" ¥'{¥"def¥"}¥'"`;
|
12
12
|
|
13
13
|
print "$var"
|
14
14
|
|
1
コード追加
test
CHANGED
@@ -1 +1,15 @@
|
|
1
1
|
エスケープシーケンス¥をつけてください。
|
2
|
+
|
3
|
+
|
4
|
+
|
5
|
+
```perl
|
6
|
+
|
7
|
+
#!/usr/bin/perl
|
8
|
+
|
9
|
+
|
10
|
+
|
11
|
+
my $var=`echo "¥"abc¥"¥'{¥"def¥"}¥'"`;
|
12
|
+
|
13
|
+
print "$var"
|
14
|
+
|
15
|
+
```
|