Как перенаправить SVN stderrs в / dev / null с помощью perl

Question

У меня есть скрипт, чтобы проверить, доступны ли какие-либо данные в репозитории SVN, но не добавлены в SVN. Это прекрасно работает для меня, но это дает stderr для добавления и отправки файлов, как показано ниже;

Adding         1/a
Sending        1/a
Transmitting file data ...........
Committed revision 529.

Код:

use strict;
use warnings;

sub notAdded {
        my @svnstatus = `svn st`;
        foreach my $status (@svnstatus) {
                chomp($status);
                if ($status =~ m/^?/) {
                        my ($symble, $left) = split(' ', $status);
                        system("svn add $left");
                }
        }
}

&notAdded();
system("svn commit -m 'comment'");

Может кто-нибудь предложить мне, как я могу перенаправить эту ошибку в / dev / null внутри скрипта.

Answer 1

Обычный способ скрыть нежелательный вывод в SVN - использовать флаг -q (quiet):

svn -q add nothere

ничего не отображает.

Answer 2

Или действительно простой способ:

system("svn add $left 2>/dev/null");