Which produces things like:#!/usr/bin/perl # url.pl -- Windows .url to html table converter. use strict; use warnings; use File::Glob ':glob'; expand(); print "<ul>\n"; foreach (@ARGV) { filter($_); } print "</ul>\n"; sub filter { my $file = shift; open FILE, $file or die "Couldn't open: $file $!\n";; while(<FILE>) { if (/BASEURL=/) { s/BASEURL=//; print "<li><a href=\"$_\">$_</a></li>\n"; last; } } close(FILE); } sub expand { my @list; foreach (@ARGV) { foreach(bsd_glob($_)) { push @list,$_; } } @ARGV = @list; }
–hsm
"Never try to teach a pig to sing…it wastes your time and it annoys the pig."In reply to Pesky little URL files to HTML by hsmyers
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |