質問編集履歴
3
Perl以前にやったこと
test
CHANGED
File without changes
|
test
CHANGED
@@ -70,4 +70,4 @@
|
|
70
70
|
ちなみにXML::XSLTを用いてtransformする方法は試してそれは成功していますが、perlの中でソートを変えたいのが今回の主旨です。
|
71
71
|
|
72
72
|
### 補足
|
73
|
-
当初はwindowsのactiveperlで動作確認してみたのですが、今回の動作には適さないことがわかり、それでLinux(VirtualBox6.4、centos7.6)で操作しています。
|
73
|
+
当初はwindowsのactiveperlで動作確認してみたのですが、今回の動作には適さないことがわかり、それでLinux(VirtualBox6.4、centos7.6)で操作しています。また、Perl以前にPython3でも試してみたのですが、肝心のXML操作の時点で躓きました(日本語のXMLにうまく対応してくれない)。
|
2
plの中身を修正
test
CHANGED
File without changes
|
test
CHANGED
@@ -13,16 +13,21 @@
|
|
13
13
|
|
14
14
|
```test.pl
|
15
15
|
# 一部抜粋
|
16
|
+
#!/usr/bin/perl
|
17
|
+
use Spreadsheet::ParseXLSX;
|
18
|
+
use XML::Simple;
|
19
|
+
use open ":utf8";
|
20
|
+
|
16
21
|
my $results = []; #xml出力用オブジェクト
|
17
22
|
for my $worksheet ( $workbook->worksheets() ) {
|
18
23
|
#中略
|
24
|
+
my $ar_tmp = {}; #ここに取得した値を代入していく
|
19
25
|
$result ->{'id'} = $ar_tmp[0]; #id
|
20
26
|
$result ->{'kind'} = $ar_tmp[1]; #kind
|
21
27
|
$result ->{'name'} = $ar_tmp[2]; #name
|
22
28
|
$result ->{'area'} = $ar_tmp[3]; #area
|
23
29
|
$result ->{'place'} = $ar_tmp[4]; #place
|
24
|
-
push @$results, $result
|
30
|
+
push @$results, $result;
|
25
|
-
}
|
26
31
|
}
|
27
32
|
|
28
33
|
#xml出力
|
1
使用環境について
test
CHANGED
File without changes
|
test
CHANGED
@@ -65,4 +65,4 @@
|
|
65
65
|
ちなみにXML::XSLTを用いてtransformする方法は試してそれは成功していますが、perlの中でソートを変えたいのが今回の主旨です。
|
66
66
|
|
67
67
|
### 補足
|
68
|
-
当初はwindowsのactiveperlで動作確認してみたのですが、今回の動作には適さないことがわかり、それでLinux(VirtualBox6.4)で操作しています。
|
68
|
+
当初はwindowsのactiveperlで動作確認してみたのですが、今回の動作には適さないことがわかり、それでLinux(VirtualBox6.4、centos7.6)で操作しています。
|