packages: pldnotify.awk - make urls unique in perl already, 1m win for medi...
glen
glen at pld-linux.org
Tue Oct 5 13:09:55 CEST 2010
Author: glen Date: Tue Oct 5 11:09:55 2010 GMT
Module: packages Tag: HEAD
---- Log message:
- make urls unique in perl already, 1m win for media info
---- Files affected:
packages:
pldnotify.awk (1.94 -> 1.95)
---- Diffs:
================================================================
Index: packages/pldnotify.awk
diff -u packages/pldnotify.awk:1.94 packages/pldnotify.awk:1.95
--- packages/pldnotify.awk:1.94 Tue Oct 5 13:02:36 2010
+++ packages/pldnotify.awk Tue Oct 5 13:09:50 2010
@@ -200,10 +200,14 @@
my $content = join q//, <>; \
my $root = new HTML::TreeBuilder; \
$root->parse($content); \
- my $links_r = $root->extract_links(); \
\
+ my %links = (); \
for (@{$root->extract_links(qw(a iframe))}) { \
my($link, $element, $attr, $tag) = @$_; \
+ $links{$link} = $tag; \
+ } \
+ \
+ while (my($link, $tag) = each %links) { \
print $tag, q/ /, $link, $/; \
} \
' " tmpfile
================================================================
---- CVS-web:
http://cvs.pld-linux.org/cgi-bin/cvsweb.cgi/packages/pldnotify.awk?r1=1.94&r2=1.95&f=u
More information about the pld-cvs-commit
mailing list