Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Développement Développement Langage Perl webcollage, la suite

webcollage, la suite

2 réponses
Avatar
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\n";
> }

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\n";
> }

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. -+-
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Nicolas George
Jo Engo , dans le message
<pan$8f070$96c4913a$5f509c2b$, a écrit :
Voici le diff :

FAQ : toujours utiliser diff -u, jamais diff tout court.
Avatar
Jo Engo
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.