webcollage, la suite

Le
Jo Engo
Bon maintenant je n'ai plus de flood sur stderr ce qui est déjà pas mal
et j'ai l'intuition que ça fait à peu près ce que voulait l'auteur
précédent. Voici le diff :

< $img = "//" unless ($img =~ m@^/@s);
< $img = "http:$img" unless ($img =~ m/^http/s);

> unless ($img =~ m/^http/s) { $img = "//$img" unless ($img =~ m@^/@s);
> $img = "https:$img";}
2158c2158,2161
< my ($id) = ($img =~ m@/d+/(d+)_([da-f]+)_@si);

> my $id;
> unless (($id) = ($img =~ m@/d+/(d+)_([da-f]+)_@si)){
> print STDERR "$img doesn't match regexp";
> }

ne me reste plus qu'à «tester en production» puis contacter le(s)
auteur(s) pour leur proposer le patch, à moins que l'un d'entre vous
voient une couille dans le potage

Je pourrait virer :


2158c2158,2161
< my ($id) = ($img =~ m@/d+/(d+)_([da-f]+)_@si);

> my $id;
> unless (($id) = ($img =~ m@/d+/(d+)_([da-f]+)_@si)){
> print STDERR "$img doesn't match regexp";
> }

qui m'a servi à débugger.

--
Le verbe « souffrir » n'a de sens qu'à l'indicatif présent
et à la première personne.
-+- Gilbert Cesbron (1913-1979), de petites choses. -+-
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Nicolas George
Le #26520676
Jo Engo , dans le message
Voici le diff :

FAQ : toujours utiliser diff -u, jamais diff tout court.
Jo Engo
Le #26520695
Le Tue, 02 Jul 2019 17:27:26 +0000, Nicolas George a écrit :
FAQ : toujours utiliser diff -u, jamais diff tout court.


u comme unnified j'ai dû oublier…
cela donne donc :
diff -u /usr/lib/xscreensaver/webcollage.old /usr/lib/xscreensaver/
webcollage
--- /usr/lib/xscreensaver/webcollage.old 2019-06-24
23:14:42.471407636 +0200
+++ /usr/lib/xscreensaver/webcollage 2019-07-02 19:06:03.973188052
+0200
@@ -2149,13 +2149,16 @@
my ($img) = ($chunk =~ m@"displayUrl": *"(.*?)"@six);
next unless defined ($img);
$img =~ s/\//gs;
- $img = "//" unless ($img =~ m@^/@s);
- $img = "http:$img" unless ($img =~ m/^http/s);
+ unless ($img =~ m/^http/s) { $img = "//$img" unless ($img =~ m@^/@s);
+ $img = "https:$img";}
my ($user) = ($chunk =~ m/"pathAlias": *"(.*?)"/si);
next unless defined ($user);
- my ($id) = ($img =~ m@/d+/(d+)_([da-f]+));
+ my $id;
+ unless (($id) = ($img =~ m@/d+/(d+)_([da-f]+))){
+ print STDERR "$img doesn't match regexpn";
+ }
my ($page) = "https://www.flickr.com/photos/$user/$id/";
# $img =~ s/_[a-z](.[a-zd]+)$/$1/si; # take off "thumb" suffix

--
Comment appelle-t-on une série de divisions dans un processeur
Pentium ?
Des approximations successives.
Publicité
Poster une réponse
Anonyme