east-prompt-splitline.pl

来自「This a good VPN source」· PL 代码 · 共 23 行

#!/usr/bin/perl

@klips_out=();

while(<>) {
  s/^((east|west|sunrise|sunset|road|nic|north|south|pole|park|beet|carrot):\~\#)/\1\n/;
  s/\n ((east|west|sunrise|sunset|road|nic|north|south|pole|park|beet|carrot):\~\#)/\n\1\n/g;
  if(/^\s*klips_debug:/) {
    push(@klips_out, $_);
  } elsif(/^\<\d\>(klips_debug:.*)/) {
    push(@klips_out, "$1\n");
  } elsif(/^\<\d\>.*/) {
    next;
  } else {
    print;
  }
}

foreach $klips (@klips_out) {
  print $klips;
}