Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- !/usr/bin/perl
- print "conky.config = {\n";
- while(<STDIN>) {
- s/^\s*(.*?)\s*$/$1/;
- if(/^TEXT$/) { last; }
- if(/\s+/) { s/\s+/ = /; print "$_,\n"; }
- else { print "$_ = true,\n"; }
- }
- print "};\n\nconky.text = [[";
- while(<STDIN>) { print $_; }
- print "]];\n"
- #a perl version of the convert script, the lua version fails on the following config:
- background
- TEXT
- $time
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement