I went home for Thanksgiving this weekend, and while I was there, I wanted to grab a bunch of old bookmarks on my old computer, and then send the urls to myself back at college. However, IE doesn't have an "export bookmarks" feature. So, I wrote a quick one-off CGI script to go through the bookmarks folder and grab the urls from the files, and then spit them out in plain text format.
Update: Added $ENV{USERPROFILE} instead of hardcoded path thanks to a comment by $code or die.#!perl -w use strict; use CGI qw(header); use File::Find; print header(-type=>"text/plain"); find(\&wanted, $ENV{USERPROFILE}); sub wanted { stat $File::Find::name; return if -d; return unless -r && -f; open (BOOKMARK, $File::Find::name); my @bookmark=<BOOKMARK>; close (BOOKMARK); my $head; if ($bookmark[1] =~ /^BASEURL=/){$head=8} else{$head=4} print substr($bookmark[1],$head,length($bookmark[1])); }
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: Grab all IE bookmarks on a windows machine.
by Fastolfe (Vicar) on Nov 26, 2001 at 06:28 UTC | |
by chip (Curate) on Dec 13, 2001 at 05:03 UTC | |
by Fastolfe (Vicar) on Dec 13, 2001 at 21:45 UTC | |
Re: Grab all IE bookmarks on a windows machine.
by $code or die (Deacon) on Nov 26, 2001 at 18:10 UTC | |
Re: Grab all IE bookmarks on a windows machine.
by belg4mit (Prior) on Nov 26, 2001 at 07:35 UTC | |
by jryan (Vicar) on Nov 26, 2001 at 08:45 UTC | |
Re: Grab all IE bookmarks on a windows machine.
by Anonymous Monk on Dec 12, 2001 at 20:52 UTC | |
Re: Grab all IE bookmarks on a windows machine.
by Spudnuts (Pilgrim) on Dec 12, 2001 at 00:25 UTC |
Back to
Cool Uses for Perl