removido
(usa Nenhuma)
Enviado em 14/07/2013 - 22:31h
Como faço para esse script abaixo funcionar no Wheeze?
#!/usr/bin/perl
my $arg= "$ARGV[0]\n";
sub rtrim($)
{
my $string = shift;
$string =~ s/\s+$//;
return $string;
}
while(1){
my $dir = rtrim($arg);
opendir DH, $dir or die "Can’t open $dir: $!";
$count2=1;
while ($name = readdir DH) {
next unless $name=~/\.jpg$|\.png$|\.JPG$|\.PNG$/;
system "pcmanfm --set-wallpaper \"$dir/$name\"";
print "pcmanfm --set-wallpaper \"$dir/$name\"";
system "sleep 150";
$count2++;
}
}