view release on metacpan or  search on metacpan

examples/stuffurls.pl  view on Meta::CPAN

my $srcfile = '/home/castaway/stuff';
$srcfile = prompt('x', 'Import from file:', '', $srcfile);
die "$!" unless(-e $srcfile);
print "Importing from $srcfile ...\n";

my $srcfh;
my $storeduris = 0;
my $doneimporting = 0;
my $parseuri = URI::Find->new(\&adduri);
open($srcfh, "<$srcfile") or die "Can't open $srcfile ($!)";
while(my $srcdata =  <$srcfh>)
{
    $storeduris += $parseuri->find(\$srcdata);
    last if($doneimporting);
}
close($srcfh);
print "Imported $storeduris URLs\n";

# print Dumper($bookmarks);

if(!-e "${bookmarksfilenew}")
{
    $bookmarks->write_file({filename => "${bookmarksfilenew}"});