Listing URLs to stdout

One of the few things I find handy about Windows are .url files. But like most things, the implementation is a bit of a pain in the ass---fine for clicking on, much less fine to talk about in email. Quite a while back I wrote a quick and dirty script to get me what I needed, but then either forgot what machine the script is on or just plain lost it. Needed it again today, so I wrote another. Posting this one for anyone else who might find it handy and so as my dementia proceeds, there might be a chance I can find it again---enjoy!!

#!/usr/bin/perl
# listurl.pl -- list url to stdout
use strict;
use warnings;
use diagnostics;

listurl($_) for (map {glob} @ARGV);

sub listurl {
    open(URL,$_[0]) or die "Couldn't open $_[0]: $!";
    while (<URL>) {
        print $1,"\n" if (/^URL=(.*)/);
    }
}
[download]

--hsm

"Never try to teach a pig to sing...it wastes your time and it annoys the pig."

Comment on Listing URLs to stdout Download Code

Replies are listed 'Best First'.
•Re: Listing URLs to stdout by merlyn (Sage) on Jan 09, 2005 at 20:25 UTC
Amazing you'd have to go through that much horsing around in Windows. In Unix, I can't tell if that's much different from simply: `grep '^URL=' .url` [download] with no code to write. {grin} Well, ok, a little reduction: `perl -ne 's/^URL=// and print' .url` [download] -- Randal L. Schwartz, Perl hacker Be sure to read my standard disclaimer if this is a reply.	[reply] [d/l] [select]
Re^2: Listing URLs to stdout by hsmyers (Canon) on Jan 10, 2005 at 00:48 UTC
Thank you for reminding me that I keep forgetting to use grep for something other than project maintenance! Like wise for the one liner!! --hsm "Never try to teach a pig to sing...it wastes your time and it annoys the pig."	[reply]
Re^2: Listing URLs to stdout by Aristotle (Chancellor) on Jan 10, 2005 at 22:50 UTC
Golf: `perl -pe's/^URL=\|.//s' .url` [download] Unix golf: `sed 's/^URL=//;t;d' .url` [download] Makeshifts last the longest.*	[reply] [d/l] [select]
Re^3: Listing URLs to stdout by hsmyers (Canon) on Jan 13, 2005 at 15:37 UTC
You perhaps missed the handicap of playing on greens designed in Redmond WA? The above sadly produces an error message: "'.' is not recognized as an internal or external command, operable program or batch file." --hsm "Never try to teach a pig to sing...it wastes your time and it annoys the pig."*	[reply]
Re^4: Listing URLs to stdout by gellyfish (Monsignor) on Jan 13, 2005 at 15:44 UTC
Re^5: Listing URLs to stdout by hsmyers (Canon) on Jan 13, 2005 at 20:19 UTC
Some notes below your chosen depth have not been shown here
Re^2: Listing URLs to stdout by jfroebe (Parson) on Jan 13, 2005 at 16:54 UTC
Hi Randal, Well, that may have been true before, but many of the GNU utilities have win32 native builds. Take a look at http://unxutils.sourceforge.net to get an idea. Jason L. Froebe Team Sybase member No one has seen what you have seen, and until that happens, we're all going to think that you're nuts. - Jack O'Neil, Stargate SG-1	[reply]