Wallpaper Wechsel (Allgemeines zu Perl)

[thread]13838[/thread]

Wallpaper Wechsel

Leser: 30

Articles: hide open all | hide show old branches

+25 replies
jeans

2009-08-09 17:23
User since
2009-08-09
6 Artikel
BenutzerIn
Hi,

Ich bin gerade dabei ein Programm zu coden, das mein Wallpaer bei jeden Neustart wechselt. Nur leider haut das nicht so hin wie ich will :-(

Das hier ist mein Code:
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"); }
und das ist die Fehlermeldung:
Code: (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34

Microsoft Windows XP [Version 5.1.2600] (C) Copyright 1985-2001 Microsoft Corp. C:\Dokumente und Einstellungen\Ricco>wallpaer.pl Der Befehl "wallpaer.pl" ist entweder falsch geschrieben oder konnte nicht gefunden werden. C:\Dokumente und Einstellungen\Ricco>wallpaper.pl Unrecognized escape \D passed through at C:\Dokumente und Einstellungen\Ricco\wa llpaper.pl line 7. Unrecognized escape \R passed through at C:\Dokumente und Einstellungen\Ricco\wa llpaper.pl line 7. Unrecognized escape \A passed through at C:\Dokumente und Einstellungen\Ricco\wa llpaper.pl line 7. Unrecognized escape \M passed through at C:\Dokumente und Einstellungen\Ricco\wa llpaper.pl line 7. Unrecognized escape \W passed through at C:\Dokumente und Einstellungen\Ricco\wa llpaper.pl line 7. Unrecognized escape \W passed through at C:\Dokumente und Einstellungen\Ricco\wa llpaper.pl line 7. Unrecognized escape \D passed through at C:\Dokumente und Einstellungen\Ricco\wa llpaper.pl line 8. Unrecognized escape \R passed through at C:\Dokumente und Einstellungen\Ricco\wa llpaper.pl line 8. Unrecognized escape \A passed through at C:\Dokumente und Einstellungen\Ricco\wa llpaper.pl line 8. Unrecognized escape \M passed through at C:\Dokumente und Einstellungen\Ricco\wa llpaper.pl line 8. Unrecognized escape \W passed through at C:\Dokumente und Einstellungen\Ricco\wa llpaper.pl line 8. Kann Verz. nicht lesen: at C:\Dokumente und Einstellungen\Ricco\wallpaper.pl lin e 10. C:\Dokumente und Einstellungen\Ricco>
Was stimmt mit der Zeile 7 und 8 nicht?

Wäre nett von euch, wenn mir jemmand helfen könnte ;-)

Beachtet bitte, das ich Anfänger bin.
- +6 replies
- neniro
  
  2009-08-09 17:35
  
  User since
  2008-12-14
  79 Artikel
  BenutzerIn
  
  nimm in den beiden Zeilen einfache Anführungszeichen gegen die Interpolation!
  -- yet another amateur perl hacker
  - +5 replies
  - jeans
    
    2009-08-09 20:15
    User since
    2009-08-09
    6 Artikel
    BenutzerIn
    
    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"); }
    - +4 replies
    - MatthiasW
      
      2009-08-09 20:56
      
      User since
      2008-01-27
      367 Artikel
      BenutzerIn
      
      edit: Blödsinn
      
      edit2: Also es sieht so aus, als ob in $base_dir und $save_dir keine Verzeichnisse sondern Dateien stehen. Du behandelst sie aber wie Verzeichnisse. Das geht natürlich schief.
      
      MfG
      Last edited: 2009-08-09 20:59:40 +0200 (CEST)
      perl -E'*==*",s;;%ENV=~m,..$,,$&+42;e,$==f;$"++for+ab..an;@"=qw,u t,,print+chr;sub f{split}say"@{=} me"'
      - +3 replies
      - jeans
        
        2009-08-09 21:00
        
        User since
        2009-08-09
        6 Artikel
        BenutzerIn
        
        warum Blödsinn?
        
        +2 replies
        
        MatthiasW
        
        2009-08-09 21:01
        
        User since
        2008-01-27
        367 Artikel
        BenutzerIn
        
        Ich hatte Blödsinn geschrieben ;)
        perl -E'*==*",s;;%ENV=~m,..$,,$&+42;e,$==f;$"++for+ab..an;@"=qw,u t,,print+chr;sub f{split}say"@{=} me"'
        
        jeans
        
        2009-08-09 21:02
        
        User since
        2009-08-09
        6 Artikel
        BenutzerIn
        
        Was willst du damit sagen?
        
        EDIT: Und wie schreib ich das richtig?
        
        Das sind ja 2 Wallpaper Bilder
        Last edited: 2009-08-09 21:19:20 +0200 (CEST)
- +14 replies
- topeg
  
  2009-08-09 22:48
  User since
  2006-07-10
  2611 Artikel
  BenutzerIn
  Ich habe zwar keine Windows, aber ich würde einen etwas anderen Ansatz wählen:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34
  
  #!/usr/bin/perl use strict; use warnings; # Use the Windows Registry Win32::Registry; # Dir of all useable Wallpapapers my $base_dir = 'C:\Dokumente und Einstellungen\Ricco\Lokale Einstellungen\Anwendungsdaten\Microsoft\Wallpaper\\'; # get the actual Wallpaper from Registry my $filename=$HKEY_CURRENT_USER->Open('Control Panel\Desktop')->GetValue('Wallpaper'); # Get all wallpapers in dir my @files=sort glob("${base_dir}*.*"); # find next wallpaper my $pos=0; # last if the actual walpaper is found in list while($pos<@files) { last if ($filename eq $files[$pos]); $pos++; } # at end of list begin at start. $pos=-1 if($pos>=$#files) # get the next wallpaper in list $pos++; $filename=$files[$pos]; # set the path in registry my $type=$HKEY_CURRENT_USER->Open('Control Panel\Desktop')->GetType('Wallpaper'); my $filename=$HKEY_CURRENT_USER->Open('Control Panel\Desktop')->SetValue('Wallpaper',$type,$filename);
  
  Die Idee ist den Wert direkt in der WinRegistry zu ändern, anstatt die Datei zu ersetzen. Das hat gleich mehrere Vorteile:
  -Der Wechsel ist schneller.
  -Es muss keine Datei ersetzt werden.
  -Das System bekommt sofort mit, dass der Hintergrund sich geändert hat.
  -Der Dateityp bleibt korrekt (jpeg != bmp != gif etc.)
  -Man wechselt tatsächlich immer zum nächsten Bild
  
  Aber wie schon gesagt, ich habe es nicht getestet. Das müssen dir andere helfen, die Windows verwenden.
  
  Edit:
  Code Zeile 12 ";" und Zeile 22 ")"
  Edit2:
  Fehlerhaftes quote in Zeile 9 beseitigt.
  Last edited: 2009-08-10 16:47:07 +0200 (CEST)
  - +13 replies
  - MatthiasW
    
    2009-08-10 10:55
    User since
    2008-01-27
    367 Artikel
    BenutzerIn
    
    So etwas ähnliches wollte ich gestern eigentlich auch noch posten, hatte aber leider keine Zeit mehr dafür.
    
    Nachdem der Wert in der Registry geändert wurde, musst du Windows nur noch dazu veranlassen das neue Bild auch anzuzeigen:
    
    Code (perl): (dl )
    
    `rundll32.exe user32.dll,UpdatePerUserSystemParameters`
    
    MfG
    perl -E'*==*",s;;%ENV=~m,..$,,$&+42;e,$==f;$"++for+ab..an;@"=qw,u t,,print+chr;sub f{split}say"@{=} me"'
    - +12 replies
    - jeans
      
      2009-08-10 14:46
      
      User since
      2009-08-09
      6 Artikel
      BenutzerIn
      
      ok, ich danke euch für euere Mühe ;-)
      
      Habe es gerade probiert, dann ist aber das hier gekommen:
      
      Code: (dl )
      
      1 2 3 4 5 6 7 8 9 10 11 12 13
      
      Microsoft Windows XP [Version 5.1.2600] (C) Copyright 1985-2001 Microsoft Corp. C:\Dokumente und Einstellungen\Ricco>w.pl Bareword found where operator expected at C:\Dokumente und Einstellungen\Ricco\w .pl line 12, near "my $filename=$HKEY_CURRENT_USER->Open('Control" (Might be a runaway multi-line '' string starting on line 9) (Do you need to predeclare my?) syntax error at C:\Dokumente und Einstellungen\Ricco\w.pl line 12, near "my $fil ename=$HKEY_CURRENT_USER->Open('Control Panel" Bad name after Desktop' at C:\Dokumente und Einstellungen\Ricco\w.pl line 12. C:\Dokumente und Einstellungen\Ricco>
      
      Wie würdest du das bei Linux realiesieren?
      Last edited: 2009-08-10 14:47:45 +0200 (CEST)
      - +9 replies
      - pq
        
        2009-08-10 14:58
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        2009-08-10T12:46:43 jeans
        Habe es gerade probiert, dann ist aber das hier gekommen:
        
        Code: (dl )
        
        1 2
        
        [...] (Might be a runaway multi-line '' string starting on line 9)
        
        was verstehst du jetzt an der fehlermeldung nicht? du hast einen syntaxfehler in deinem skript und solltest ihn fixen. vermutlich irgendwo ein quote vergessen.
        *wir* können ihn nicht fixen, denn wir sehen den passenden code ja nicht (und hellsehen können wir *immer* noch nicht)
        Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
        lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
        
        +8 replies
        
        jeans
        
        2009-08-10 15:21
        
        User since
        2009-08-09
        6 Artikel
        BenutzerIn
        
        Was für einen passenden code meinst du?
        
        +7 replies
        
        pq
        
        2009-08-10 16:09
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        zufällig den, der die fehlermeldung produziert?
        was denn sonst für einen?
        Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
        lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
        
        +6 replies
        
        topeg
        
        2009-08-10 16:20
        
        User since
        2006-07-10
        2611 Artikel
        BenutzerIn
        
        Das ist wahrscheinlich der, den ich geschrieben habe, ohne ihn testen zu können (kein Windows)
        Die beiden Fehler, die soweit ich weiß in dem Code waren, habe ich entfernt.
        
        +5 replies
        
        pq
        
        2009-08-10 16:25
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        ah, kein wunder. das letzte single quote in zeile 9 ist fälschlicherweise mit einem backslash versehen. sollte aber wirklich einfach zu finden sein, wenn man von perl so mit der nase draufgestupst wird...
        Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
        lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
        
        +4 replies
        
        topeg
        
        2009-08-10 16:31
        
        User since
        2006-07-10
        2611 Artikel
        BenutzerIn
        
        Das ist in meinem Code auch korrigiert.
        
        +3 replies
        
        pq
        
        2009-08-10 16:39
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        ist immer noch verkehrt.
        perl -c auf dein skript ausführen wär sicher angebracht.
        vorher stand da:
        my $xyz = 'C:...\';
        
        jetzt steht da:
        my $xyz = 'C:...\\\';
        
        einfach noch 2 backslashes dazutun ändert leider nix daran, dass da immer noch eins überbleibt.
        Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
        lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
        
        topeg
        
        2009-08-10 16:47
        
        User since
        2006-07-10
        2611 Artikel
        BenutzerIn
        
        Arg...
        Korrigiert...
        
        topeg
        
        2009-08-10 16:51
        
        User since
        2006-07-10
        2611 Artikel
        BenutzerIn
        
        obwohl...
        Ist doch richtig. ;-)
        
        Code: (dl )
        
        perl -e "print 'C:...\\\'"
        
        Dummer Scherz...
      - RPerl
        
        2009-08-10 15:12
        
        User since
        2006-11-26
        384 Artikel
        BenutzerIn
        
        Ich glaube du speicherst den code falsch ab.
        (ernsthaft)
        
        // edit: daran liegt es wohl doch nicht.
        Bei mir wirft der code auch den selben Fehler im Syntax.
        
        // edit 2: Spontan aufgefallen:
        
        z.B. Zeile 22:
        
        Code (perl): (dl )
        
        last if ($filename eq $files[$pos];
        
        muss heissen:
        
        Code (perl): (dl )
        
        last if ($filename eq $files[$pos]);
        
        Sind noch paar mehr solche Syntax Fehler drin.
        Last edited: 2009-08-10 15:27:47 +0200 (CEST)
      - topeg
        
        2009-08-10 15:25
        
        User since
        2006-07-10
        2611 Artikel
        BenutzerIn
        
        Zeile 12:
        Semikolon (;) am Ende vergessen.
        
        Quote
        Wie würdest du das bei Linux realiesieren?
        
        für Gnome:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
        
        #!/usr/bin/perl use strict; use warnings; use Gnome2::GConf; my $imgdir='/home/topeg/.BILDER/'; my $gpath='/desktop/gnome/background/picture_filename'; my $client = Gnome2::GConf::Client->get_default(); my $img=$client->get_string($gpath); my @imgs=sort glob("$imgdir*.*"); my $cnt=0; while($cnt<@imgs) { last if($img eq $imgs[$cnt]); $cnt++; } $cnt=-1 if($cnt>=$#imgs); $cnt++; $img=$imgs[$cnt]; $client->set($gpath, { type => 'string', data => $img });
- +4 replies
- Gast steve
  
  2009-09-03 07:08
  
  Hi,
  
  Du musst den Backslash "maskieren".
  
  Zeilen mit Pfadangaben müssen so ausssehen:
  my $base_dir = "C:\\Dokumente und Einstellungen\\Ricco\\Lokale Einstellungen\\Anwendungsdaten\\Microsoft\\Wallpaper\\Wallpaper1.jpg";
  
  Greets
  - +3 replies
  - Crian
    
    2009-09-03 09:30
    
    User since
    2003-08-04
    5872 Artikel
    ModeratorIn
    
    Oder du nimmst den Slash, das versteht auch Windows.
    s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;
    
    use strict; use warnings; Link zu meiner Perlseite
    - +2 replies
    - GwenDragon
      
      2009-09-03 13:39
      
      User since
      2005-01-17
      14767 Artikel
      Admin1
      
      2009-09-03T07:30:41 Crian
      Oder du nimmst den Slash, das versteht auch Windows.
      Na ja, Windows versteht das so nicht.
      Aber Perl setzt das intern um. ;)
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
      - pktm
        
        2009-09-03 14:03
        
        User since
        2003-08-07
        2921 Artikel
        BenutzerIn
        
        2009-09-03T11:39:38 GwenDragon
        2009-09-03T07:30:41 Crian
        Oder du nimmst den Slash, das versteht auch Windows.
        Na ja, Windows versteht das so nicht.
        Aber Perl setzt das intern um. ;)
        
        Kommt drauf an.
        
        Code: (dl )
        
        cd zwischen/test
        
        funktioniert bei mir :=
        http://www.intergastro-service.de (mein erstes CMS :) )

View all threads created 2009-08-09 17:23.