cerhu > comp.lang.* > comp.lang.perl

Jo Engo (02/07/2019, 19h04)
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);
Nicolas George (02/07/2019, 19h27)
Jo Engo , dans le message
<pan$8f070$96c4913a$5f509c2b$97de26c9>, a écrit :
> Voici le diff :


FAQ : toujours utiliser diff -u, jamais diff tout court.
Jo Engo (03/07/2019, 05h06)
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]+)_@si);
+ my $id;
+ unless (($id) = ($img =~ m@/\d+/(\d+)_([\da-f]+)_@si)){
+ print STDERR "$img doesn't match regexp\n";
+ }
my ($page) = "https://www.flickr.com/photos/$user/$id/";

# $img =~ s/_[a-z](\.[a-z\d]+)$/$1/si; # take off "thumb" suffix
Discussions similaires
Courroie de distribution sur Renault Clio de 1995 et 36000 km - La suite à la suite des aventures

URGENT : macro visual basic dans excel (suite, suite)

[Suite]Un abonné se déplace dans les locaux de Free: Son problème résolu[Suite]


Fuseau horaire GMT +2. Il est actuellement 16h09. | Privacy Policy