1 2 34 / 4 页

论坛徽章:: 0

31楼 [报告]

发表于 2009-04-18 12:19 |只看该作者

原帖由 blackold 于 2009-4-18 11:51 发表
补习了bash function，也写个“纯bash“的递归函数：

treexml.sh

./treexml.sh urfile

速度比较快!

目录中包含空格会出错的

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

blackold

大富大贵

论坛徽章:: 5

32楼 [报告]

发表于 2009-04-18 12:25 |只看该作者

回复 #31 springwind426 的帖子

嗯，没有考虑空格文件名。因为空格文件名转换xml也没有意义。

[ 本帖最后由 blackold 于 2009-4-18 12:43 编辑 ]

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

tyrone.dev

丰衣足食

论坛徽章:: 0

33楼 [报告]

发表于 2009-04-20 14:02 |只看该作者

perl作的话也可以吧
#!/usr/bin/perl

print "<root>\n" ;
dir_to_xml( "." ,  "." , " " ) ;
print "</root>\n" ;

sub dir_to_xml {
      local ( $basedir , $file , $indent ) = @_ ;
      local @lines = `ls -1 "$basedir/$file" ` ;

      foreach ( @lines ) {
            chop ;

            if ( -d "$basedir/$file/$_" ) {
                     print "$indent<$_>\n" ;
                     dir_to_xml( $basedir ."/" . $file , $_ ,  $indent . "  " ) ;
                     print "$indent</$_>\n" ;
            } else {
                     print "$indent$_\n" ;
            }

      }
}