tofias

#!/usr/bin/perl

# Description: http://daringfireball.net/2010/08/open_urls_in_safari_tabs
# License: See below.
# http://gist.github.com/507356

# UPDATE for "Create and run the AppleScript" portion of Gruber's original script
# http://gist.github.com/1990793

use strict;

gruber

use strict;
use warnings;
use URI::Escape qw(uri_escape_utf8);
use open IO  => ":utf8",		# UTF8 by default
		  ":std";				# Apply to STDIN/STDOUT/STDERR

my $query = do { local $/; <> };
$query =~ s/^\s+//g;
$query =~ s/\s+$//g;

erikrose

"""BBEdit UNIX filter that wraps one or more optionally-indented, commented
lines to 79 chars, preserving indentation.

Just select all the lines (in their entirety) the comment spans, and invoke.
Works with #, --, and //-style comments.

For example, this... ::

    # Upping this to 10000 makes it 3x faster. 10000 takes 15.936s. 5000 takes 16.303s.

gruber

#!/usr/bin/perl

# Description: http://daringfireball.net/2010/08/open_urls_in_safari_tabs
# License: See below.
# http://gist.github.com/507356

use strict;
use warnings;
use URI::Escape;