perl - 有没有办法让 screen 返回 session ID 或 pid？

Question

有没有办法让屏幕在创建新窗口时回显 session ID？

我正在使用 perl 编写脚本，我需要 screen 将 session ID 或 PID 返回给我，因此我将其记录在数组或哈希中。

Answer 1

你收集这些pid的目的是什么？在 perl 中它可能有点棘手。 Unix::PID 之类的东西可能会有所帮助( http://metacpan.org/pod/Unix::PID )，但我怀疑您的问题没有解决您要解决的实际问题。

由于您使用的是 screen -dmS <somename>你可以这样做:

my %screens;

for( $i = 0; $i < 10; $i++) {
  system("screen -dmS server$i");
}

open(my $fh, "screen -list|");
while (<$fh>){
  if (/Detached/) {
    /\s*(\d*)\.(.*?)\s/;
    my ($pid, $name) = ($1, $2);
    $screens{$name} = $pid;
  }
};