You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
9 lines
298 B
9 lines
298 B
2 years ago
|
#! /usr/bin/env perl
|
||
|
|
# 为文本行编号，按标准输入输出，适于 vim 过滤器
|
||
|
|
# 可选参数一指定分隔符，参数二指定间隔空白量（默认一个 tab）
|
||
|
|
|
||
|
|
my $sep = shift || "";
|
||
|
|
my $num = shift || 0;
|
||
|
|
$sep .= ($num > 0) ? (" " x $num) : "\t";
|
||
|
|
while (<>) { print "$.$sep$_"; }
|