mirror of
https://github.com/rkd77/elinks.git
synced 2024-11-02 08:57:19 -04:00
14 lines
303 B
Perl
14 lines
303 B
Perl
|
#!/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>,;
|
||
|
|
}
|