Posted to tcl by oldlaptop at Wed Nov 24 06:06:43 GMT 2021view raw

  1. % set stuff {
  2. Foo: bar Baz: quux spam ham Egg: bacon bacon baked beans and spam
  3. Stuff:
  4. Yada: dada dada dada Florb: nothing
  5. }
  6. Foo: bar Baz: quux spam ham Egg: bacon bacon baked beans and spam
  7. Stuff:
  8. Yada: dada dada dada Florb: nothing
  9. % regexp -all -inline {([A-Z][a-z]+): ([^:]+)} $stuff
  10. {Foo: bar Baz} Foo {bar Baz} {Egg: bacon bacon baked beans and spam
  11. Stuff} Egg {bacon bacon baked beans and spam
  12. Stuff} {Yada: dada dada dada Florb} Yada {dada dada dada Florb}
  13. % lmap {whole_match key value} [regexp -all -inline {([A-Z][a-z]+): ([^:]+)} $stuff] {
  14. dict set details $key [lrange $value 0 end-1]
  15. }
  16. {Foo bar} {Foo bar Egg {bacon bacon baked beans and spam}} {Foo bar Egg {bacon bacon baked beans and spam} Yada {dada dada dada}}
  17. % puts $details
  18. Foo bar Egg {bacon bacon baked beans and spam} Yada {dada dada dada}
  19. % dict get $detail Egg
  20. bacon bacon baked beans and spam

AltStyle によって変換されたページ (->オリジナル) /