🚀 go-pugleaf

On 20/01/2023 at 11.52, heby wrote:
> Czy jest jakiś gotowiec, który pozwoli mi na taką sztuczkę:
>
> 1) dostanie plik tekstowy na stdin
> 2) każdy ciąg znaków w tym pliku, pasujący do wartości dowolnej zmiennej
> env, zostanie zastapiony tą zmienną env

Tak ogólnie postawionego zadania, bez dodatkowych warunków, raczej nie
da się dobrze wykonać -- trzeba dokładnie ustalić, co chce się uzyskać
z czego, to i napisanie skryptu/programu pewnie okaże się prostsze
(KISS, YAGNI).
Np. czy 'env' to na pewno musi być całe środowisko, w którym uruchomimy
skrypt, czy może wystarczyłby określony zbiór zmiennych potrzebnych
do uzyskania zamierzonego rezultatu?
Czy w obecności zmiennej 'AUDIO=pa' na pewno chcemy ze 'spam' uzyskać
's$AUDIOm' (albo raczej s${AUDIO}m, żeby to w ogóle miało sens)?
Czy przy zmiennych A=/home/foo i B=/foo/bar z '/home/foo/bar/go.txt'
chcemy otrzymać '$A/bar/go.txt' czy może '/home$B/go.txt'?
Czy przy A=/home/foo i B=/home/foo/bar z '/home/foo/bar/go.txt'
chcemy otrzymać '$A/bar/go.txt' czy może '$B/go.txt'?
Itd, itp…

> 3) wypluje output na stdout
> 
> Czyli chodzi i operację odwrotną, do podstawiania wartości zmiennych. Ja
> chcę dostać zmienne, zamiast wartości.
> 
> Po co?
> 
> Mam loga z kompilacji, mniej więcej takiego:
> 
> /home/foo/bar/spam/src/go.txt
> /home/foo/bar/spam/src/buzz/main.c
> 
> A chcę dostac, w obecności zmiennej środowiskowej
> SRC=/home/foo/bar/spam/src
> 
> ... nastepujący output:
> 
> $SRC/go.txt
> $SRC/buzz/main.c
> 
> Lub podobny, zamieniający wartosci na zmienne symboliczne.
> 
> Mogę go napisac, ale to nie jest wbrew pozorom łatwe (tzn aby zrobić
> to wydajnie, bo grepami można łatwo i powoli.

Łatwe czy nie, to pojęcie raczej względne… :-)  Np. zakładając,
że sprawdzamy całe środowisko, ale pomijamy definicje funkcji
i puste zmienne, i podstawiamy nazwę pierwszej napotkanej
pasującej zmiennej tylko na początku linii z logu, rezultat
taki jak w  powyższym przykładzie można uzyskać takim krótkim
(czytaj: łatwym i wydajnym ;-)) skryptem w perlu:

while(<>) {
   foreach $K (keys %ENV) {
     unless ($ENV{$K} =~ "{" or $ENV{$K} eq "") {
       s/$ENV{$K}/\${$K}/, last if (/^$ENV{$K}/);
     }
   }
   print;
}

No ale bez znajomości wszystkich „a co w przypadku, gdy” to tylko
taka luźna, uproszczona propozycja -- może wystarczy, a może nie.

 > Ktoś coś widział w ten deseń?

Znalezienie gotowca jest MZ mało prawdopodobne.


-- 
mrg