support perl-like file + line references

1 files changed, 6 insertions, 0 deletions

diff --git a/dwim.pl b/dwim.pl
index de14ae5..6e9ce00 100755
--- a/dwim.pl
+++ b/dwim.pl
@@ -36,6 +36,12 @@ for ($phrase) {
 		exec @LAUNCHER, @EDITOR, "-c", ":$2", "$p"
 	}
 
+	if (/^(.+) line (\d+)\.?$/) {
+		handle "file \" line \" line (like perl)";
+		my $p = path($1);
+		exec @LAUNCHER, @EDITOR, "-c", ":$2", "$p"
+	}
+
 	if (/^(.+):(.+)$/) {
 		handle "file:query (like grep)";
 		my $p = path($1);