Flickr::API::Request (Fragen zu Perl-Modulen)

[thread]18080[/thread]

Flickr::API::Request

Tags: perl5 Flickr Ähnliche Threads

Leser: 15

Articles: hide open all | hide show old branches

+6 replies
gubach

2013-01-23 17:39
User since
2011-09-06
23 Artikel
BenutzerIn
Kennt sich jemand mit dem Modul Flickr::API::Request aus??

Ich möchte ein Skript von mir erweitern, das folderweise Photos hochläd, wobei die Inhalte jedes Folders in der erweiterten Version in eine neu anzulegende Photoset (= Album) eingefügt werden sollen.

Dazu müsste ich noch folgende Operationen umsetzen:

- Erzeuge Photoset
- Ermittle dessen photosetid
- Füge zuletzt hochgeladenes Photo (repräsentiert durch bekannte photoid) in dieses Photoset

In dem Skript flickr-upload-set.pl
https://github.com/ddgenome/flickr-upload-set/blob...
müssten hierzu alle Codeelemente vorhanden sein. Doch einige Elemente der dort vorhandenen Perlsyntax verstehe ich nicht bzw. bei der testweisen Anwendung bekomme ich Syntaxerrors, sodass ich jemanden mit genauerer Kenntnis des Moduls suche, den ich fragen könnte; entweder über das Forum oder email.

Konkret 1: Beim der Erzeugung eines Albums bekomme ich in der ersten Zeile schon einen Syntaxerror angezeigt, den ich nicht finde; Klammern stimmen doch alle.
Code: (dl )

1 2 3 4 5 6 7 8

my $req = Flickr::API::Request->new({ method => 'flickr.photosets.create', args => { auth_token => $auth_token, title => $photosetname, primary_photo_id => $photoid, }, });
- +5 replies
- GUIfreund
  
  2013-01-23 18:16
  User since
  2011-08-08
  559 Artikel
  BenutzerIn
  Gibt es einen Grund, warum du die Fehlermeldung nicht verrätst?
  
  Hast du am Anfang
  
  Code (perl): (dl )
  
  1 2
  
  use strict; use warnings;
  
  stehen? Wenn das nicht weiterhilft, füge noch
  use diagnostics;
  hinzu.
  Gruß
  GUIfreund
  - +4 replies
  - gubach
    
    2013-01-24 10:14
    User since
    2011-09-06
    23 Artikel
    BenutzerIn
    
    Ich verwende diagnostics; nachfolgend also die Standard-Fehlermeldungen; line 91 bezieht sich auf
    
    Code: (dl )
    
    my $req = Flickr::API::Request->new({
    
    Entsprechend der Fehlermeldung würde ich ein Komma- oder Semikolon-Fehler bei dem Aufruf von Flickr::API::Request erwarten, aber ich habe diesen aus der angegebenen Quelle übernommen. Daher die Frage an jemanden, der diesen Aufruf schon mal richtig verwendet hat, ob an der entsprechenden Zeichensetzung doch was falsch ist. Im Editor habe ich "korrespondierende Klammern anzeigen" eingestellt und überprüft.
    
    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
    
    syntax error at flickr_folder_upload_V0.2.plx line 91, near "my " syntax error at flickr_folder_upload_V0.2.plx line 120, near "}" syntax error at flickr_folder_upload_V0.2.plx line 129, near "}" Execution of flickr_folder_upload_V0.2.plx aborted due to compilation errors (#1) (F) Probably means you had a syntax error. Common reasons include: A keyword is misspelled. A semicolon is missing. A comma is missing. An opening or closing parenthesis is missing. An opening or closing brace is missing. A closing quote is missing. Often there will be another error message associated with the syntax error giving more information. (Sometimes it helps to turn on -w.) The error message itself often tells you where it was in the line when it decided to give up. Sometimes the actual error is several tokens before this, because Perl is good at understanding random input. Occasionally the line number may be misleading, and once in a blue moon the only way to figure out what's triggering the error is to call perl -c repeatedly, chopping away half the program each time to see if the error went away. Sort of the cybernetic version of S<20 questions>. Uncaught exception from user code: syntax error at flickr_folder_upload_V0.2.plx line 91, near "my " syntax error at flickr_folder_upload_V0.2.plx line 120, near "}" syntax error at flickr_folder_upload_V0.2.plx line 129, near "}" Execution of flickr_folder_upload_V0.2.plx aborted due to compilation errors. at flickr_folder_upload_V0.2.plx line 211
    - +3 replies
    - GUIfreund
      
      2013-01-24 12:19
      
      User since
      2011-08-08
      559 Artikel
      BenutzerIn
      
      Der Fehler wird am Anfang von Zeile 91 gefunden. Prinzipiell könnte da ein "exotisches" nicht druckbares Zeichen stehen. Ist aber hier unwahrscheinlich, da du copy&paste gemacht hast. Ich vermute den Fehler am Ende der vorangehenden Kodezeile, z. B. ein zuvor optionales ; oder am Ende ein } und der neue Kode muss davor statt dahinter.
      
      Wenn du nichts finden kannst, setze mal folgende Zeile vor Zeile 91:
      
      Code (perl): (dl )
      
      my $nanu = 'nanu';
      
      Wenn der Fehler in die neue Zeile wandert, ist sicherlich der Kode davor schuld. Wenn du nichts finden kannst, poste den Kode mal. Bleibt der Fehler aber an der alten Stelle, hilft wohl nur, den hineinkopierten Kode auszukommentieren und Stück für Stück wieder zu aktivieren.
      Gruß
      GUIfreund
      - +2 replies
      - gubach
        
        2013-01-24 16:16
        
        User since
        2011-09-06
        23 Artikel
        BenutzerIn
        
        danke für den Hinweis etwas direkt voran zu stellen; Semikolonfehler gefunden. Skript läuft jetzt durch; doch es wird in Flickr kein neues Album angezeigt, sodass wohl keines erzeugt wird. Potenziell könnte dies an dem Attribut auth_token => $auth_token liegen. Hierzu verwende ich den Eintrag in ~/.flickrrc der sich aus der Anmeldung von flickr_upload ergeben hat.
        
        Code: (dl )
        
        1 2 3 4
        
        auth_token= lange zeichenkette is_public=0 is_friend=1 is_family=1
        
        In dem Skript flickr-upload-set.pl wird nach der Erzeugung des Albums ein Code eingefügt, der prüft, ob ein Album erzeugt wurde (Zeile 235ff). Hier fangen dann meine Verständnisprobleme an und es ist unklar, ob und was ich davon überhaupt benötige, da ich alles so einfach wie möglich behandeln will.
        
        Code: (dl )
        
        1 2 3 4 5
        
        my $res = $ua->execute_request($req); if ($res->{success} != 1) { warn("failed to create photoset $photoset"); exit(10); }
        
        $ua bezieht sich auf einen Flickr::Upload Call (Zeile 73ff)
        
        Code: (dl )
        
        1 2 3
        
        my $ua = Flickr::Upload->new( {'key' => $api_key, 'secret' => $not_so_secret} ); $ua->agent( "flickr_upload_set/$version" ); $ua->env_proxy();
        
        wobei $api_key und $not_so_secret anscheinend aus ~/.flickrrc gelesen werden (Zeile 32ff):
        
        Code: (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
        
        if( open CONFIG, "< $ENV{HOME}/.flickrrc" ) { while( <CONFIG> ) { chomp; s/#.*$//; # strip comments next unless m/^\s*([a-z_]+)=(.+)\s*$/io; if( $1 eq "key" ) { $api_key = $2; } elsif( $1 eq "secret" ) { $not_so_secret = $2; } else { $args{$1} = $2; } } close CONFIG; }
        
        nur bei mir ist dort nur auth_token zu finden; was das mit dem $not_so_secret auf sich hat, und wie er erzeugt/gefunden wird, muss mir noch jemand erklären.
        
        GUIfreund
        
        2013-01-24 21:05
        
        User since
        2011-08-08
        559 Artikel
        BenutzerIn
        
        Freut mich, dass ich dir bei dem Syntaxfehler helfen konnte. Aber von Flickr habe ich Null Ahnung, da muss ich passen.
        Gruß
        GUIfreund

View all threads created 2013-01-23 17:39.