相关疑难解决方法(0)

我需要匹配所有这些开始标记:

<p>
<a href="foo">

但不是这些:

<br />
<hr class="foo" />

我想出了这个,并希望确保我做对了.我只抓住了a-z.

<([a-z]+) *[^/]*?>

我相信它说:

• 找一个小于,然后
• 然后,查找(并捕获)az一次或多次
• 然后找到零个或多个空格
• 找到任何字符零次或多次,贪婪/,然后
• 找到一个大于

我有这个权利吗？更重要的是,你怎么看？

如何qx使用我的$opt变量执行Perl的函数？

之前(工作):

my @df_output = qx (df -k /tmp);

我想请使用-k,-g或-H:

my @df_output = qx (df -$opt /tmp);

我必须检查磁盘卷上的可用空间并使用df -h生成此输出的命令

Filesystem            Size  Used Avail Use% Mounted on
/dev/md0               27G   24G  2.1G  92% /
udev                  506M  112K  506M   1% /dev
/dev/sda1             102M   40M   63M  39% /boot

这篇剧本

my (@space, @freesp);
@space = grep /\/dev\/md0/,`df -h`;
print "@space\n";

给了我

/dev/md0               27G   24G  2.1G  92% /

我可以在空白上分割出值$freesp[0],$freesp[1]等等.

但我想G用空格删除或替换它,以便我可以比较$freesp[3]一些值,并可以继续我的脚本.

那么我必须使用的正则表达式是什么,或者还有其他更好的方法吗？

这段代码对我有用,但我正朝着我提到的方向前进.

#!/usr/bin/perl

use strict;
use warnings;

my (@space, @freesp);

@space = grep /\/dev\/md0/, `df`;

print "@space\n";

for (@space) {
    chomp;
    @freesp = …