1
0
mirror of https://github.com/rkd77/elinks.git synced 2024-12-04 14:46:47 -05:00
elinks/contrib/conv/links2elinks_bookmarks.pl

14 lines
303 B
Perl
Raw Normal View History

#!/usr/bin/perl
# Usage example:
# ./links2elinks_bookmarks.pl < ~/.links2/bookmarks.html >> ~/.config/elinks/bookmarks
use 5.036;
while (<>) {
state $d = 0;
$d++ if m,^<DL>$,;
$d-- if m,^</DL>$,;
say "$1\t\t$d\tF" if m,<DT><H3>(.*)</H3>,;
say "$2\t$1\t$d\t" if m,<DT><A HREF="(.*)">(.*)</A>,;
}