回答編集履歴
2
a
answer
CHANGED
|
@@ -1,5 +1,5 @@
|
|
|
1
1
|
互換性の高いPerlのワンライナーで
|
|
2
2
|
|
|
3
3
|
```bash
|
|
4
|
-
perl -pe 's/^.*?([A-Z]{3}).*?
|
|
4
|
+
perl -pe 's/^.*?([A-Z]{3}).*?M\/(\d{3}).*?$/mojo=$1 suji=$2/' < sample.txt
|
|
5
5
|
```
|
1
a
answer
CHANGED
|
@@ -1,5 +1,5 @@
|
|
|
1
1
|
互換性の高いPerlのワンライナーで
|
|
2
2
|
|
|
3
3
|
```bash
|
|
4
|
-
perl -pe 's/^.*?([A-Z]{3}).*?\/M\/(\d{3}).*?$/mojo=$1 suji=$2/
|
|
4
|
+
perl -pe 's/^.*?([A-Z]{3}).*?\/M\/(\d{3}).*?$/mojo=$1 suji=$2/' < sample.txt
|
|
5
5
|
```
|