#!/usr/bin/perl -w

# 1. Copy this to a new file in BBEdit (bottom bar of the file window)
# 2. Choose Unix (LF) for line endings 
# 3. Save it to ~/Library/Application Support/BBEdit/Text Filters/
# 4. Relaunch BBEdit
# 5. Invoke the script in "Text > apply text filter >" menu
# 6. Presto!

while(<>) {
	my $line = $_;
	
	# If you wish, you can personalize you regex by change the patterns...
	# ...between "s/" and "/ge" in the next line.
	# The slash in the middle divides the search and replace patterns.
	# The "e" part executes the replace as Perl code...
	# ...incrementing the value of the former number by one.
	
	$line =~ s/(\d+)/($1 + 1)/ge;
	print $line;
}

#!/usr/bin/perl -w

# 1. Copy this to a new file in BBEdit (bottom bar of the file window)
# 2. Choose Unix (LF) for line endings 
# 3. Save it to ~/Library/Application Support/BBEdit/Text Filters/
# 4. Relaunch BBEdit
# 5. Invoke the script in "Text > apply text filter >" menu
# 6. Presto!

while(<>) {
	my $line = $_;
	
	# If you wish, you can personalize you regex by change the patterns...
	# ...between "s/" and "/ge" in the next line.
	# The slash in the middle divides the search and replace patterns.
	# The "e" part executes the replace as Perl code...
	# ...incrementing the value of the former number by one.
	
	$line =~ s/(\d+)/($1 + 1)/ge;
	print $line;
}

http://www.pagelab.com.br

Text filter to increment numbers by one with regex in BBEdit (Mac only)

BBEdit text filter - increment value by one

regex, mac, perl

Perl