小编Jue*_*gen的帖子

在NF之前的最后一个论点?

我之前尝试打印过这个论点$NF.然而$NF--,不做的伎俩.这是什么解决方案?问题是,我不知道有多少args,所以我总是需要$NF和arg之前.

亲切的问候

克林斯曼

host -t ptr 1.1.1.1 | awk '/pointer/ {num=split($0,a, "."); print a[num-2] "." a[num-1] ;}'

foo.tld
Run Code Online (Sandbox Code Playgroud)

awk

14
推荐指数
1
解决办法
1万
查看次数

Vim粘贴-d''开箱即用的行为?

vi/vim可以做paste -d ' '其他:r !paste -d ' '吗?

如果有的话,调用的本机vi/vim命令是什么?

vim paste

13
推荐指数
1
解决办法
2163
查看次数

perl rand lc/uc

我试图在我的42个字符密码中获得随机小写/大写字母.不知怎的,我反而得到:

ucclcjuczlclucmlc0lcdlc5lc0ucdlccucmucquc5ucslc4lckucxuctlcvlcquclucpuc0ucvlczucducauczlcauc7lciucmlcplcjucolchucmucpuc9lcilcqlck

这是我的代码:

@a = (0 .. 9, 'a' .. 'z');
@case = ('lc','uc'); 
my $x = join '', map { scalar $case[rand(0-2)],  $a[int rand @a]}  0 .. 42;
print "$x\n";
Run Code Online (Sandbox Code Playgroud)

任何提示?

perl password-generator

2
推荐指数
3
解决办法
1371
查看次数

Perl打印$(^ b)

当我找到Perl时$^O,我很好奇是否有更多这样的变量,因为^提醒我一个正则表达式.当我进入

print "$(^b)";
Run Code Online (Sandbox Code Playgroud)

它提出了一些数字:

1000 81 90 91 92 93 100 150 1000
Run Code Online (Sandbox Code Playgroud)

这些意味着什么?这是某种0xdeadbeef吗?

perl

-1
推荐指数
1
解决办法
133
查看次数

标签 统计

perl ×2

awk ×1

password-generator ×1

paste ×1

vim ×1