bjjb · February 19, 2014 16:25
diff --git a/pb2list b/pb2list
 #! /usr/bin/env perl

 # Takes input like
 #   1
 #   2
 #   3
 # and outputs
 # (1, 2, 3)
 #
 # Useful for converting a single column of SQL IDs to a list that you can use
 # in a query.

 while(<>) {
  chomp;
  print $. == 1 ? "(" : ", ";
  print;
 }
 print(")");
	#! /usr/bin/env perl

	# Takes input like
	# 1
	# 2
	# 3
	# and outputs
	# (1, 2, 3)
	#
	# Useful for converting a single column of SQL IDs to a list that you can use
	# in a query.

	while(<>) {
	chomp;
	print $. == 1 ? "(" : ", ";
	print;
	}
	print(")");
No results found