“解析”的适当方法是什么perl中某些格式的字符串？

Question

Closed. This question does not meet Stack Overflow guidelines. It is not currently accepting answers.

---

这个问题似乎不是关于在

闭合 2年前。

Answer 1

#!/usr/bin/perl
use warnings;
use strict;
use utf8;
use open OUT => ':encoding(UTF-8)', ':std';

use Term::ANSIColor;

my %symbol = (
    user       => '\\u',
    hostname   => colored('\\h', 'cyan'),
    pwd        => '\\w',
    git_status => colored('$(echo OK)', 'green'),
    '|>'       => '▶');


my $string = shift;

my $re = join '|', map quotemeta, sort { length $b <=> length $a } keys %symbol;
$string =~ s/($re)/$symbol{$1}/g;
print $string;

另存为stript.pl，然后在bash中：

PS1=$(prompt.pl '|> user |> hostname |> pwd |> git_status |>')