小编Ale*_*ham的帖子

XML ::简单的perl,带有混合的xml文件

我有一个DEMO.xml文件,如下所示.

<?xml version="1.0"?>
<data>
<pattern>123456</pattern>
<pattern>654321</pattern>
<pattern>abcdefg</pattern>
<pattern owners="alex">heloworld</pattern>
<pattern owners="alex">perlprogramming</pattern>
</data>
Run Code Online (Sandbox Code Playgroud)

这是我的perl代码来解析这个文件:

use XML::Simple;
use strict;
use Data::Dumper;

my $xml = new XML::Simple;
my $data = $xml->XMLin("DEMO.xml");
print Dumper($data);
Run Code Online (Sandbox Code Playgroud)

这就是我得到的:

$VAR1 = {
          'pattern' => [
                       '123456',
                       '654321',
                       'abcdefg',
                       {
                         'owners' => 'alex',
                         'content' => 'heloworld'
                       },
                       {
                         'owners' => 'alex',
                         'content' => 'perlprogramming'
                       }
                     ]
        };
Run Code Online (Sandbox Code Playgroud)

我可以知道如果只是打印出xml标签的内容,我该怎么办?

预期输出可能如下所示:

123456
654321
acdefg
heloworld
perlprogramming
Run Code Online (Sandbox Code Playgroud)

非常感谢!

亚历克斯

xml perl

5
推荐指数
1
解决办法
96
查看次数

jQuery Datatable按列标题排序

基本上,jQuery Datatable允许我们按列索引对数据进行排序.

"order": [1, 'desc']
Run Code Online (Sandbox Code Playgroud)

我想知道我们是否可以按列标题名称排序?例如:

"order": ['my_column_name', 'desc']
Run Code Online (Sandbox Code Playgroud)

谢谢Alex

jquery datatables

5
推荐指数
2
解决办法
5292
查看次数

Python列表中的命名元素

在PHP中,我可以在列表中命名元素,如:

<?php
    list($name,$address,$home) = array("Alex","Taiwan","Vietnam");
    echo $address."\n";
?>
Run Code Online (Sandbox Code Playgroud)

产量:台湾

它可以在Python中使用相同的功能吗?我厌倦了这样做:

list = ["Alex","Taiwan","Vietnam"]
print list[1] 
Run Code Online (Sandbox Code Playgroud)

python

0
推荐指数
1
解决办法
308
查看次数

查找:Perl中的文件-在symlink目录中搜索

有谁知道如何使File:Find可以搜索symlink目录?

我在一个真实的目录

/home/alex/mydir1 
Run Code Online (Sandbox Code Playgroud)

和里面的一个符号链接目录

/home/alex/mydir1/test -> ../mydir2
Run Code Online (Sandbox Code Playgroud)

这是我的代码:

#!/depot/perl-5.8.3/bin/perl
use strict;
use File::Find qw(find);

my $path = "/home/alex/mydir1";

find(\&Search,follow => 1, $path);

sub Search{
    my $path = $File::Find::name;
    print $path."\n";
}
Run Code Online (Sandbox Code Playgroud)

结果是:

/home/alex/mydir1
/home/alex/mydir1/test
Run Code Online (Sandbox Code Playgroud)

为什么不通过/ home / alex / mydir2搜索并打印出其中的每个文件?谁能告诉我该怎么做?

感谢你并致以真诚的问候。

亚历克斯

perl file-find

0
推荐指数
1
解决办法
652
查看次数

标签 统计

perl ×2

datatables ×1

file-find ×1

jquery ×1

python ×1

xml ×1