Thread Wallpaper Wechsel (24 answers)
Opened by jeans at 2009-08-09 17:23

jeans
 2009-08-09 20:15
#124014 #124014
User since
2009-08-09
6 Artikel
BenutzerIn
[default_avatar]
Danke, aber was stimmt jetzt in der Zeile 10 nicht?

So geths beidemale nicht:

Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

#!/usr/bin/perl

use strict;
use warnings;
use File::Copy;

my $base_dir = 'C:\Dokumente und Einstellungen\Ricco\Lokale Einstellungen\Anwendungsdaten\Microsoft\Wallpaper\Wallpaper1.jpg';
my $save_dir = 'C:\Dokumente und Einstellungen\Ricco\Lokale Einstellungen\Anwendungsdaten\Microsoft\Wallpaper1.bmp';

opendir (BASE, $base_dir) || die 'Kann Verz. nicht lesen:';
my @dir = grep { $_ !~ /^..?$/ && -f "$base_dir/$_" } readdir(BASE);
closedir (BASE);
foreach my $file (@dir){
copy("$base_dir/$file", "$save_dir/$file");

}


Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

#!/usr/bin/perl

use strict;
use warnings;
use File::Copy;

my $base_dir = 'C:\Dokumente und Einstellungen\Ricco\Lokale Einstellungen\Anwendungsdaten\Microsoft\Wallpaper\Wallpaper1.jpg';
my $save_dir = 'C:\Dokumente und Einstellungen\Ricco\Lokale Einstellungen\Anwendungsdaten\Microsoft\Wallpaper1.bmp';

opendir (BASE, $base_dir) || die "Kann Verz. nicht lesen:";
my @dir = grep { $_ !~ /^..?$/ && -f "$base_dir/$_" } readdir(BASE);
closedir (BASE);
foreach my $file (@dir){
copy("$base_dir/$file", "$save_dir/$file");

}

View full thread Wallpaper Wechsel