自动图片上传为Tiltviewer画廊-系统运维-优客志

自动图片上传Tiltviewer Gallery

如果您使用Tiltviewer，您可能会知道，如果要上传，假设您要手动编辑Gallery.xml文件并手动输入每个文件名和属性，请输入10个新图片。这是非常令人沮丧的。

这个小脚本会为您自动执行：只需将文件放在正确的目录中，相应地更改此脚本，您就可以走了！

#!/usr/bin/perl

system ("/bin/cat /dev/null >gal.xml");

open (XML, ">>gal.xml");
my $somedir = './imgs';
opendir DH, $somedir or die "Cannot open $somedir: $!";
my @files = grep { ! -d } readdir DH;
closedir DH;

print XML "<tiltviewergallery>
        <photos>";


        foreach (@files) {
                chomp $_;
                my $file = $_;
                print XML "<photo imageurl=\"imgs/$file\" linkurl=\"http://mydomain/imgs/$file\"
                         showFlipButton=\"true\">
                                     <title>\"$file\"</title>
                                                    <description>\"$file\"</description></photo>";


                }

                       print XML "</photos>
                        </tiltviewergallery>";